摘要: interfaceTHackDBGridEH = class(TCustomdbgrideh)end;procedure OptimizeGrid(AGrid: TCustomDbGridEh);implementationprocedure OptimizeGrid(AGrid: TCustomDbGridEh);vari: integer;begin// 優化GRID的寬度for i := 0 to TDBGridEh(AGrid).Columns.count - 1 doTHackDBGridEH(AGrid).OptimizeSelectedColsWidth(TDBGridEh(AG 阅读全文
posted @ 2012-01-10 17:37 byronming 阅读(2908) 评论(0) 推荐(0) 编辑
摘要: 文本文件 内容如下:000000123407:552009052901000000123407:552009053001000000123407:552009053101说明,0000001234 为卡号,07:55为时间,20090530为日期,01为机号怎么倒入SQL表?SQL表如下卡号 时间 日期 机号请帮忙写出详细代码,感谢其他回答 共1条2009-5-29 17:34 yych1987 | 二级procedure TForm1.PostData(aValue: string);var KaH,ShiJ,RiQ,JiH: string; Temp: integer;begin Temp 阅读全文
posted @ 2012-01-10 11:33 byronming 阅读(4843) 评论(0) 推荐(0) 编辑