一、关于setkey、gotokey的问题,代码如下:(改为ADOtable的应该怎么改)
Texamine.SetKey;
Texamine.FieldByName('病人档案号').AsString:=ADOQuery1.fieldbyname('病人档案号').asstring;;
Texamine.Gotokey;
二、关于editkey的问题,代码如下(改为ADOtable的应该怎么改)
Texamine.EditKey;
Texamine.Append;
Texamine.FieldByName('检查号').Asinteger:=EID;
Texamine.FieldByName('病人档案号').Asinteger:=PID;
Texamine.FieldByName('检查创建时间').AsString:= datetostr(now);
Texamine.fieldvalues['检查项目']:=dblookupcombobox1.Text;
Texamine.fieldvalues['诊断设备']:=dblookupcombobox2.Text;
Texamine.fieldvalues['病人来源']:=dblookupcombobox3.Text;
Texamine.fieldvalues['申请科室']:=dblookupcombobox4.Text;
Texamine.fieldvalues['申请医生']:=dblookupcombobox5.Text;
Texamine.FieldByName('检查费用').AsString:=Edit7.Text;
Texamine.FieldByName('住院号').AsString:=Edit8.Text ;
Texamine.FieldByName('床号').AsString:=Edit9.Text ;
Texamine.FieldByName('临床诊断').AsString:=Edit10.Text ; Texamine.Post;
Texamine.Refresh;
Texamine.SetKey;
Texamine.FieldByName('病人档案号').AsString:=ADOQuery1.fieldbyname('病人档案号').asstring;;
Texamine.Gotokey;
二、关于editkey的问题,代码如下(改为ADOtable的应该怎么改)
Texamine.EditKey;
Texamine.Append;
Texamine.FieldByName('检查号').Asinteger:=EID;
Texamine.FieldByName('病人档案号').Asinteger:=PID;
Texamine.FieldByName('检查创建时间').AsString:= datetostr(now);
Texamine.fieldvalues['检查项目']:=dblookupcombobox1.Text;
Texamine.fieldvalues['诊断设备']:=dblookupcombobox2.Text;
Texamine.fieldvalues['病人来源']:=dblookupcombobox3.Text;
Texamine.fieldvalues['申请科室']:=dblookupcombobox4.Text;
Texamine.fieldvalues['申请医生']:=dblookupcombobox5.Text;
Texamine.FieldByName('检查费用').AsString:=Edit7.Text;
Texamine.FieldByName('住院号').AsString:=Edit8.Text ;
Texamine.FieldByName('床号').AsString:=Edit9.Text ;
Texamine.FieldByName('临床诊断').AsString:=Edit10.Text ; Texamine.Post;
Texamine.Refresh;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货