风
风中的狼
Unregistered / Unconfirmed
GUEST, unregistred user!
With
DM_Form.RYSZ_QY
Do
Begin
Close;
SQL.Clear;
SQL.Add('Update 人名表 Set');
SQL.Add('性别=:CC,出生年月=D,家庭住址=:EE,电话=:FF,手机=:GG,');
SQL.Add('E-Mail=:HH,部门=:II,班组=:JJ,职务=:KK,调度=:LL,运行=:MM,巡视=:NN,');
SQL.Add('签发=:OO,负责=P,许可=:QQ,班员=:RR');
SQL.Add('Where 姓名=:ZZ');
ParamBYName('CC').AsString:=LabeledEdit5.Text;
ParamBYName('DD').AsString:=Maskedit1.Text;
ParamBYName('EE').AsString:=LabeledEdit3.Text;
ParamBYName('FF').AsString:=LabeledEdit6.Text;
ParamBYName('GG').AsString:=LabeledEdit7.Text;
ParamBYName('HH').AsString:=LabeledEdit8.Text;
ParamBYName('II').AsString:=LabeledEdit9.Text;
ParamBYName('JJ').AsString:=LabeledEdit4.Text;
ParamBYName('KK').AsString:=LabeledEdit10.Text;
If
FlatCk1.State=cbChecked
then
ParamBYName('LL').AsBoolean:=True
Else
ParamBYName('LL').AsBoolean:=False;
If
FlatCk2.State=cbChecked
then
ParamBYName('MM').AsBoolean:=True
Else
ParamBYName('MM').AsBoolean:=False;
If
FlatCk7.State=cbChecked
then
ParamBYName('NN').AsBoolean:=True
Else
ParamBYName('NN').AsBoolean:=False;
If
FlatCk3.State=cbChecked
then
ParamBYName('OO').AsBoolean:=True
Else
ParamBYName('OO').AsBoolean:=False;
If
FlatCk4.State=cbChecked
then
ParamBYName('PP').AsBoolean:=True
Else
ParamBYName('PP').AsBoolean:=False;
If
FlatCk5.State=cbChecked
then
ParamBYName('QQ').AsBoolean:=True
Else
ParamBYName('QQ').AsBoolean:=False;
If
FlatCk6.State=cbChecked
then
ParamBYName('RR').AsBoolean:=True
Else
ParamBYName('RR').AsBoolean:=False;
ParamByName('ZZ').AsString:=LabeledEdit1.Text;
ExecSQL;
End;
出错提示是“Update语法错误”!
我头都看晕了,也没看出是哪的问题!
DM_Form.RYSZ_QY
Do
Begin
Close;
SQL.Clear;
SQL.Add('Update 人名表 Set');
SQL.Add('性别=:CC,出生年月=D,家庭住址=:EE,电话=:FF,手机=:GG,');
SQL.Add('E-Mail=:HH,部门=:II,班组=:JJ,职务=:KK,调度=:LL,运行=:MM,巡视=:NN,');
SQL.Add('签发=:OO,负责=P,许可=:QQ,班员=:RR');
SQL.Add('Where 姓名=:ZZ');
ParamBYName('CC').AsString:=LabeledEdit5.Text;
ParamBYName('DD').AsString:=Maskedit1.Text;
ParamBYName('EE').AsString:=LabeledEdit3.Text;
ParamBYName('FF').AsString:=LabeledEdit6.Text;
ParamBYName('GG').AsString:=LabeledEdit7.Text;
ParamBYName('HH').AsString:=LabeledEdit8.Text;
ParamBYName('II').AsString:=LabeledEdit9.Text;
ParamBYName('JJ').AsString:=LabeledEdit4.Text;
ParamBYName('KK').AsString:=LabeledEdit10.Text;
If
FlatCk1.State=cbChecked
then
ParamBYName('LL').AsBoolean:=True
Else
ParamBYName('LL').AsBoolean:=False;
If
FlatCk2.State=cbChecked
then
ParamBYName('MM').AsBoolean:=True
Else
ParamBYName('MM').AsBoolean:=False;
If
FlatCk7.State=cbChecked
then
ParamBYName('NN').AsBoolean:=True
Else
ParamBYName('NN').AsBoolean:=False;
If
FlatCk3.State=cbChecked
then
ParamBYName('OO').AsBoolean:=True
Else
ParamBYName('OO').AsBoolean:=False;
If
FlatCk4.State=cbChecked
then
ParamBYName('PP').AsBoolean:=True
Else
ParamBYName('PP').AsBoolean:=False;
If
FlatCk5.State=cbChecked
then
ParamBYName('QQ').AsBoolean:=True
Else
ParamBYName('QQ').AsBoolean:=False;
If
FlatCk6.State=cbChecked
then
ParamBYName('RR').AsBoolean:=True
Else
ParamBYName('RR').AsBoolean:=False;
ParamByName('ZZ').AsString:=LabeledEdit1.Text;
ExecSQL;
End;
出错提示是“Update语法错误”!
我头都看晕了,也没看出是哪的问题!