本人Delphi新手,用Delphi7+access03做一个信息管理系统,对于“增加记录”按钮我是这样写的(如下),但是不知道是怎么错了,求Delphi高手指点,万分感激!!
procedure TFChuang.Button1Click(Sender: TObject);
begin
if self.Edit1.Text='' then
begin
try
with self.ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('insert into Patient(PID,PName,PSex,PAge,PMarrige,PNative,PJob,PWorkunit) values(:PID,:PName,:PSex,:PAge,:PMarrige,:PNative,:PJob,:PWorkunit)');
Parameters.ParamByName('PID').Value := self.Edit1.Text;
Parameters.ParamByName('PName').Value := self.Edit2.Text;
Parameters.ParamByName('PSex').Value := self.ComboBox1.Text;
Parameters.ParamByName('PAge').Value := self.Edit3.Text;
Parameters.ParamByName('PMarrige').Value := self.ComboBox2.Text;
Parameters.ParamByName('PNative').Value := self.Edit4.Text;
Parameters.ParamByName('PJob').Value := self.Edit5.Text;
Parameters.ParamByName('PWorkunit').Value := self.Edit6.Text;
ExecSQL; //(系统报错时标的是这行)
end;
except
messageBox(self.Handle,'数据保存错误!','提示',mb_OK+MB_ICONHAND);
edit1.Text:='';
edit2.Text:='';
self.ComboBox1.Text:='';
edit1.SetFocus;
Abort;
end;
messageBox(self.Handle,'新病人个人基本信息创建成功。','提示',mb_OK+MB_ICONINFORMATION);
self.Close;
end;
end;
Delphi怎么添加access记录
- 写回答
- 好问题 0 提建议
- 追加酬金
- 关注问题
- 邀请回答
-
3条回答 默认 最新
- IT^V^游侠 2015-01-15 03:30关注
if self.Edit1.Text='' then Parameters.ParamByName('PID').Value := self.Edit1.Text;
这个ID值赋值时是空值,所以插入失败。
ID主键可以不用插入,它会自动生成的。
你可以写成这样
SQL.Add('insert into Patient(PName,PSex,PAge,PMarrige,PNative,PJob,PWorkunit) values(:PName,:PSex,:PAge,:PMarrige,:PNative,:PJob,:PWorkunit)');
Parameters.ParamByName('PName').Value := self.Edit2.Text;
Parameters.ParamByName('PSex').Value := self.ComboBox1.Text;
Parameters.ParamByName('PAge').Value := self.Edit3.Text;
Parameters.ParamByName('PMarrige').Value := self.ComboBox2.Text;
Parameters.ParamByName('PNative').Value := self.Edit4.Text;
Parameters.ParamByName('PJob').Value := self.Edit5.Text;
Parameters.ParamByName('PWorkunit').Value := self.Edit6.Text;解决 无用评论 打赏 举报
悬赏问题
- ¥30 python代码,帮调试
- ¥15 #MATLAB仿真#车辆换道路径规划
- ¥15 java 操作 elasticsearch 8.1 实现 索引的重建
- ¥15 数据可视化Python
- ¥15 要给毕业设计添加扫码登录的功能!!有偿
- ¥15 kafka 分区副本增加会导致消息丢失或者不可用吗?
- ¥15 微信公众号自制会员卡没有收款渠道啊
- ¥100 Jenkins自动化部署—悬赏100元
- ¥15 关于#python#的问题:求帮写python代码
- ¥20 MATLAB画图图形出现上下震荡的线条