源码在这里,很简单的啊!!
If Panel17.DBCom.Text<>'' Then
Begin
If Panel11.DBedit.Text='' then
Begin
ShowMessage('工号不能为空');
Exit;
End;
If Panel12.DBedit.Text='' then
Begin
Showmessage('姓名不能为空');
Exit;
End;
LoadFromPicture;
Table1.FieldByName('Bakid').asinteger:=StrtoInt(panel11.DBedit.Text);
Try
Table1.Post;//添加保存;
except
Showmessage('数据库错误!');
End;
在post这一句出错!
If Panel17.DBCom.Text<>'' Then
Begin
If Panel11.DBedit.Text='' then
Begin
ShowMessage('工号不能为空');
Exit;
End;
If Panel12.DBedit.Text='' then
Begin
Showmessage('姓名不能为空');
Exit;
End;
LoadFromPicture;
Table1.FieldByName('Bakid').asinteger:=StrtoInt(panel11.DBedit.Text);
Try
Table1.Post;//添加保存;
except
Showmessage('数据库错误!');
End;
在post这一句出错!
解决方案 »
- 安装了水晶报表,怎么控件上没显示这个组件啊??
- mysql 连接问题
- 控件问题
- 我做了李维的ADO/MTS/COM+中的那个第三章最后一个例子(ADO And Web Broker)为什么....
- 请看看这段代码,哪里有错呀???(关于给DBMemo的ScollBar加OnScollDown事件)
- 兄弟们,windows下刻有什么办法知道当前cpu利用率?如何编程实现?
- 请问怎样一次清空窗体上所有edit的内容?
- 我是一名菜鸟,请问高手,在Delphi中,IntraWeb 建立三层数据库访问的步骤?~~~急!!!!~~~50分
- 由金山英文写作助理想到一种木马机制
- 啊…!……死人啦……咳…咳咳…咳…咳… 热心点的进来呀求大家了……
- 谁用过用treeview目录树显示一个软件的权限内容!!!并且可以设置权限内容!
- StringGrid怎样实现一个Cell里面换行显示?
table1.Close;
table1.TableName:='INFO_TAB';
table1.open;
table1.Append;
table1.fieldbyname('name').asstring := edit4.text;
if edit4.text = '' then
if MessageDlg('您未填写学生姓名,数据库可能会出现错误'+#10#13+'您确认要保存吗?',
mtConfirmation, [mbYes, mbNo], 0) = mrNo then
exit
else begin
table1.Post;
end;什么
table1.Close;
table1.TableName:='INFO_TAB';
table1.open;
table1.Append;
这些步骤都做了吗?
之前加上table1.edit;
如果是修改记录的值,应该先Table1.Edit一下。