摘要:
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 阅读全文
摘要:
文本文件 内容如下: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 阅读全文