我用来添加的代码如下:
procedure TForm.Add;
begin
AQPo.Close;
AQPo.SQL.Clear;
AQPo.SQL.Add('Insert Into tbPo(CheckNum,Zcheck,Shipmntdate)
values(:CheckNum,:Zcheck,:Shipmentdate)');
AQPo.Parameters.ParamByName('CheckNum').value:=edit1.text;
AQPo.Parameters.ParamByName('Zcheck').value:=edit2.text;
AQPo.Parameters.ParamByName('Shipmentdate').value:=edit3.text;';
AQPo.ExecSQL;
end;用来刷新的代码如下:
procedure TForm.NewSqlPo;
begin
AQPo.Close;
AQPo.SQL.Clear;
AQPo.SQL.Add('select * from tbPo');
AQPo.Open;
end;请各位帮我找一下原因好吗?
procedure TForm.Add;
begin
AQPo.Close;
AQPo.SQL.Clear;
AQPo.SQL.Add('Insert Into tbPo(CheckNum,Zcheck,Shipmntdate)
values(:CheckNum,:Zcheck,:Shipmentdate)');
AQPo.Parameters.ParamByName('CheckNum').value:=edit1.text;
AQPo.Parameters.ParamByName('Zcheck').value:=edit2.text;
AQPo.Parameters.ParamByName('Shipmentdate').value:=edit3.text;';
AQPo.ExecSQL;
end;用来刷新的代码如下:
procedure TForm.NewSqlPo;
begin
AQPo.Close;
AQPo.SQL.Clear;
AQPo.SQL.Add('select * from tbPo');
AQPo.Open;
end;请各位帮我找一下原因好吗?
解决方案 »
- 怎么更换按钮上的位图
- 关于SQL事务的一个问题
- 高手救救命 'SHDocVw_TLB.IWebBrowser2' and 'SHDocVw.IWebBrowser2' 问题
- 操作ACCESS文件中的窗口,报表的属性?
- [斑竹勿删]--非常感谢CSDN的各位朋友,本人的产品(邮件服务器)在研发过程中得到各位的大力支持,多谢大家!
- 请高手帮小弟指点一下思路,关于自定义类型文件,谢谢!
- 有广州的delphi程序员吗,能帮忙调查一下你们的工资水平吗?
- 讨论一下吧,打印的意见
- 如何预览 html 文件?
- 工作还是考研??
- stringgrid的onrowmoved事件是不是在焦点从某一行转到另一行时触发呢?为甚么行焦点改变时并不触发该事件?
- 怎么判断一个数值表达式是否合法!!!!!!!!!
至少我用table控件时是这样的
不行呀,我这里不行,没办法刷新,运行时也不报错,但是新添加的记录也不会出现,必须要关闭程序,再运行的时候才出现,我想肯定是dxdbgrid的那一个属性设置了,TO:zbird(飞翔鸟)
这里应该不需要用updata吧,因为我是用sql语句写记录的,并且将查询组件关闭重新查询了,
keyfield属性有设主键的