Z
zhch1100
Unregistered / Unconfirmed
GUEST, unregistred user!
系统winxp professional +delphi7+ado+access2000
adoquery1.close;//打开两个表
adoquery1.sql.Clear;
adoquery1.sql.Add('select 四小证.*,个人信息表.部门 from 四小证 left join 个人信息表 on 四小证.姓名=个人信息表.姓名');
adoquery1.open;
edit4.text:=adoquery1.FieldValues['姓名']; //给某一条记录赋值给控件
edit5.text:=adoquery1.FieldValues['四小证号码'];
edit6.text:=adoquery1.FieldValues['身份证号'];
maskedit3.EditMask:='!9999/99/99;1;_';
maskedit3.Text:=datetostr(adoquery1.FieldValues['四小证到期日期']);
adoquery1.Edit;//更改后进行保存
if edit4.Text<>'' then adoquery1.FieldValues['姓名']:=edit4.text
else adoquery1.FieldValues['姓名']:=null;
if edit5.Text<>'' then adoquery1.FieldValues['四小证号码']:=edit5.text
else adoquery1.FieldValues['四小证号码']:=null;
if edit6.Text<>'' then adoquery1.FieldValues['身份证号']:=edit6.text
else adoquery1.FieldValues['身份证号']:=null;
maskedit3.EditMask:='!9999/99/99;0;_';
if maskedit3.Text<>'' then
begin
maskedit3.EditMask:='!9999/99/99;1;_';
adoquery1.FieldValues['四小证到期日期']:=strtodate(maskedit3.Text);
end
else
begin
maskedit3.EditMask:='!9999/99/99;1;_';
adoquery1.FieldValues['四小证到期日期']:=null;
end;
adoquery1.post;
运行后程序不出错,在DBGRID中显示数据也已经修改成功,但是退出后检查数据,发现
数据并未修改,不知道错在哪里?
adoquery1.close;//打开两个表
adoquery1.sql.Clear;
adoquery1.sql.Add('select 四小证.*,个人信息表.部门 from 四小证 left join 个人信息表 on 四小证.姓名=个人信息表.姓名');
adoquery1.open;
edit4.text:=adoquery1.FieldValues['姓名']; //给某一条记录赋值给控件
edit5.text:=adoquery1.FieldValues['四小证号码'];
edit6.text:=adoquery1.FieldValues['身份证号'];
maskedit3.EditMask:='!9999/99/99;1;_';
maskedit3.Text:=datetostr(adoquery1.FieldValues['四小证到期日期']);
adoquery1.Edit;//更改后进行保存
if edit4.Text<>'' then adoquery1.FieldValues['姓名']:=edit4.text
else adoquery1.FieldValues['姓名']:=null;
if edit5.Text<>'' then adoquery1.FieldValues['四小证号码']:=edit5.text
else adoquery1.FieldValues['四小证号码']:=null;
if edit6.Text<>'' then adoquery1.FieldValues['身份证号']:=edit6.text
else adoquery1.FieldValues['身份证号']:=null;
maskedit3.EditMask:='!9999/99/99;0;_';
if maskedit3.Text<>'' then
begin
maskedit3.EditMask:='!9999/99/99;1;_';
adoquery1.FieldValues['四小证到期日期']:=strtodate(maskedit3.Text);
end
else
begin
maskedit3.EditMask:='!9999/99/99;1;_';
adoquery1.FieldValues['四小证到期日期']:=null;
end;
adoquery1.post;
运行后程序不出错,在DBGRID中显示数据也已经修改成功,但是退出后检查数据,发现
数据并未修改,不知道错在哪里?