delphi的一个程序问题!

发布网友发布时间：2023-04-07 05:04

共3个回答

热心网友时间：2024-10-11 02:23

Sql2:='Insert xs values('''+Xh+''','''+Xm+''','+Xb+','''+Cssj+''',
'''+Zy+''','+Zxf+','''+Bz+''')'; //这里有问题！！！！
改成：

Sql2:='Insert xs values('+
''''+Xh+''''+','+
''''+Xm+''''+','+
'''+Xb+''''+','+
DateToStr(Cssj)+','+
''''+Zy+''''+','+
FloatTostr(Zxf)+','+
''''+Bz+''''+')';
以上我假设xh是序号，字符型的，xm是姓名，字符型的，xb是性别字符型的,Cssj时间型的,zy摘要字符型的,Bz备注字符型的。sql2中的引号均为单引号。

热心网友时间：2024-10-11 02:24

procere
TForm1.Button3Click(Sender:
TObject);
　　var
　　SysTime:
TsystemTime;
　　begin
　　GetSystemTime(Sys
Time);就用这个函数Get
System
Time
　　Caption:=IntToStr(Sys
Time.wYear)+'
'+IntToStr(SysTime.wMonth);
　　//if
SysTime.wYear>2000
then
　　//
在程序逻辑中利用获取的各类时间值
　　end;试过了，通过，

热心网友时间：2024-10-11 02:24

Statusbar1.Panels[0].Text:=FormatDateTime('YYYY-MM-DD',now);
Statusbar1.Panels[1].Text:=FormatDateTime('hh:mm:ss',now);