请问怎么搞的？？？为什么显示这么多错误？多谢！！

Question

unit Unit3;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, ExtCtrls, StdCtrls;typeTCR1 = class(TForm)Panel1: TPanel;Label1: TLabel;Label2: TLabel;Label3: TLabel;Label4: TLabel;Label5: TLabel;Label6: TLabel;Label7: TLabel;Edit1: TEdit;Edit2: TEdit;Edit3: TEdit;Edit4: TEdit;Edit5: TEdit;RadioButton1: TRadioButton;RadioButton2: TRadioButton;Button1: TButton;Button2: TButton;Memo1: TMemo;procedure Button1Click(Sender: TObject);procedure Button2Click(Sender: TObject);private{ Private declarations }public{ Public declarations }end;varCR1: TCR1;implementationuses Unit1, Unit2;{$R *.dfm}procedure TCR1.Button1Click(Sender: TObject);VarXh,Xm,Xb,Cssj,Zy,Zxf,Bz, Sql1,Sql2:String;beginXh:=Edit1.Text;Xm:=Edit2.Text;if RadioButton1.Checked=true thenXb:='1'elseXb:='0';Zy:=Edit4.Text;Cssj:=Edit3.Text;Zxf:=Edit5.Text;Bz:=Memo1.Text;Sql1:='select xh from xs where xh='+''''+Xh+'''';XSCJDM.XSCJADODataSet.Active:=false;XSCJDM.XSCJADODataSet.CommandText:=Sql1;XSCJDM.XSCJADODataSet.Active:=true;if(XSCJDM.XSCJADODataSet.FieldValues['xh']<>NULL)thenshowmessage('该学生记录已经存在！')elsebeginSql2:='Insert xs values('''+Xh+''','''+Xm+''','+Xb+','''+Cssj+''','''+Zy+''','+Zxf+','''+Bz+''')'; //这里有问题！！！！XSCJDM.XSCJADOCommand.CommandText:=Sql2;XSCJDM.XSCJADOCommand.Execute;showmessage('插入成功！');end;procedure TCR1.Button2Click(Sender: TObject);beginXSCJGL.Visible:=true;CR1.Close;end;end.错误：[Error] Unit3.pas(71): Unterminated string[Error] Unit3.pas(72): Missing operator or semicolon[Error] Unit3.pas(72): Unterminated string[Fatal Error] Project1.dpr(7): Could not compile used unit 'Unit3.pas'

Answer 1

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中的引号均为单引号。

Answer 2

procedure
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;试过了，通过，

 

Answer 3

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