S
sichuan
Unregistered / Unconfirmed
GUEST, unregistred user!
//添加一个adoquery控件,命名为adoqueryUpdate
//在adoquery的beforePost事件里写如下代码
procedure TForm1.ADOQueryJHMXBeforePost(DataSet: TDataSet);
begin
if dataset.UpdateStatus=usInserted then //新增记录--其它状态同理
begin
adoqueryUpdate.SQL.Text:='insert into jhmx valuessysno,:hpbh)';
adoqueryUpdate.Parameters.ParamByName('sysno').Value:=
dataset.FieldValues['sysno'];
adoqueryUpdate.Parameters.ParamByName('hpbh').value:=
dataset.FieldValues['hpbh'];
adoqueryUpdate.ExecSQL;
end;
dataset.Cancel;
adoqueryJHMX.Requery;
abort;
end;
上面的方法我也觉得很不愉快,如果你找到更好的方法不要望了告诉我!
一般我的做法是用dblookupcombobox添加、删除、修改,
另以一个专门的查询和表格显示
或用dbgrid的lookup