我想直接在DBGridEh1中修改单元数据
procedure Tcgdd.ADOTable2jsSetText(Sender: TField; const Text: string);
begin
........
end;
procedure Tcgdd.ADOTable2BeforePost(DataSet: TDataSet);
begin
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('select * from spda where code=:code');
Query1.Parameters[0].Value := ADOtable2.fieldbyname('spcode').asstring;
Query1.Open;
if Query1.RecordCount = 0 then
begin
// showmessage('输入的商品编码不正确');
ADOTable2.cancel;
end;
end;
但是当我点击下一个单元时,数据又恢复到初始状态,DBGridEh1修改的数据怎么不能提交到数据库中?
procedure Tcgdd.ADOTable2jsSetText(Sender: TField; const Text: string);
begin
........
end;
procedure Tcgdd.ADOTable2BeforePost(DataSet: TDataSet);
begin
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('select * from spda where code=:code');
Query1.Parameters[0].Value := ADOtable2.fieldbyname('spcode').asstring;
Query1.Open;
if Query1.RecordCount = 0 then
begin
// showmessage('输入的商品编码不正确');
ADOTable2.cancel;
end;
end;
但是当我点击下一个单元时,数据又恢复到初始状态,DBGridEh1修改的数据怎么不能提交到数据库中?
解决方案 »
- 请问:双击delphi窗体标题栏发生什么事件?我想在………
- //展示一下你的基本功(关于函数指针及API)
- 请教关于窗口位置的问题
- 大虾帮忙!如何将report报表中呈现的内容在excel中显示!
- 哪里有Developer QuantumGrid控件下载
- 关于数据的批更新问题--各位帮帮我呀!SOS~~~~昨天没有人回答。
- Access的密码问题
- 高分解决问题
- 新年快乐进来看看
- quickrep建立的报表,一对多表如何设置,为什么我设置报表的dataset属性为从表时,预览出现主表数据无法显示出现unkown错误,而从表可以。
- 有关TService的问题.........
- TcxRadioGroup 的用法
我想实现这样的效果,修改DBGridEh1中的单元数据后,点击下一单元时就会提交数据;或修改某一单元数据后,回车到下一单元就提交上一单元的数据。不知怎么实现?