Question

Delphi中DataSet追加数据显示在TDBGrideh上

Delphi中怎样实现增加一条数据及时的显示在TDBGrideh上
问题是最初加载的TDBGrideh对应显示的值是用TQOraQuery执行SQL语句后赋值给dataset的
部分代码如下：
SQLExecute(MyQuery, SQL语句, False)>0
--------------------------------------------------------
with MyDataset do
while not MyQuery.Eof do
begin
Myquery.Append;
for I := 0 to Myquery.Fields.Count - 1 do
begin
if MyDataset .FieldDefList.IndexOf(Myquery.Fields[I].FieldName) >= 0 then
begin
FieldByName(Myquery.Fields[I].FieldName).Value := Myquery.Fields.Fields[I].Value;
end
end; {for I}
MyDataset .Post;

AQuery.Next;
end;
---------------------------
现在的问题是增加一条数据后要在TDBGrideh显示出增加的这条数据，原来做法是数据库中新增后程序再执行一次上面的代码 但是这样运行会很慢。请教各位我要怎么做才能完成新增和修改的需求而且不用重新执行一次上面的while循环 这样太慢了。悬赏分绝对够

Answer 1

with MyDataset do
while not MyQuery.Eof do
begin
Append;//Myquery 不应该是Myquery的insert，而是MyDataset的insert
for I := 0 to Myquery.Fields.Count - 1 do
begin
if MyDataset .FieldDefList.IndexOf(Myquery.Fields[I].FieldName) >= 0 then
begin
FieldByName(Myquery.Fields[I].FieldName).Value := Myquery.Fields.Fields[I].Value;
end
end; {for I}
MyDataset .Post;

AQuery.Next;
end;

追问

那个位置没问题吧 上面with MydataSet do了的

追答

while not MyQuery.Eof do
begin
Myquery.Append;
....
end;

你自己体会体会喽。

追问

那个位置是我在提问的时候打错了，是MyDataSet.append，这个不是问题所在啊。问题是怎样将TQOraQuery执行SQL语句后的赋值给dataset。像上面问题那种方式循环赋值的FieldByName(Myquery.Fields[I].FieldName).Value := Myquery.Fields.Fields[I].Value;会让程序变得很慢，有什么其他方法不

追答

循环之前Myquery.disablecontrols;
循环结束后 Myquery.enablecontrols;

追问

。。。这两个方法是DataSet的方法吧，而且程序里面有写这两个方法的，现在问题是在新增和修改的时候速度慢是因为在数据库中插入和修改数据后程序又调用了上面那个循环来在达到界面更新的效果。我也郁闷了，当时那人为什么这代码要这么写

追答

自己写吧，其实很简单，直接操作DBGrideh上对应的dataset，也就是adoquery’就可以了
根本不用刷新的。

Answer 2

我实在是没搞懂你为什么要这样写，还不如直接执行下INSERT INTO 语句，然后在刷新下MyDataset数据集~

追问

我也觉得这代码写得不好，我是接手别人07年的老代码新增功能，以前做Java的Delphi我都是刚刚开始碰，恼火哇，朋友有方法解决吗 另外我想请教下不这样的话MyQuery里面的数据怎样能一一对应到dataset中的每个field呢

追答

你直接用ADOQUERY执行SQL的INSERT语句嘛，多表插入的，比如 Insert Into A Select * from B。然后被插入的表绑定的数据集再刷新下就好了， Insert Into A Select * from B 根据你的需要加条件或者字段