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

Question

unit Unit3;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;

type
TCR1 = 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;

var
CR1: TCR1;

implementation

uses Unit1, Unit2;

{$R *.dfm}

procedure TCR1.Button1Click(Sender: TObject);
Var
Xh,Xm,Xb,Cssj,Zy,Zxf,Bz, Sql1,Sql2:String;
begin
Xh:=Edit1.Text;
Xm:=Edit2.Text;
if RadioButton1.Checked=true then
Xb:='1'
else
Xb:='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)then
showmessage('该学生记录已经存在！')
else
begin
Sql2:='Insert xs values('''+Xh+''','''+Xm+''','+Xb+','''+Cssj+''',
'''+Zy+''','+Zxf+','''+Bz+''')'; //这里有问题！！！！
XSCJDM.XSCJADOCommand.CommandText:=Sql2;
XSCJDM.XSCJADOCommand.Execute;
showmessage('插入成功！');
end;

procedure TCR1.Button2Click(Sender: TObject);
begin
XSCJGL.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+''''+')';&nbsp;以上我假设xh是序号，字符型的，xm是姓名，字符型的，xb是性别字符型的,Cssj时间型的,zy摘要字符型的,Bz备注字符型的。sql2中的引号均为单引号。

Answer 2

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

Answer 3

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