使用DBGRIDEH 和adoquery 我怎么不能显示出数据来呢 .dbgrid就可以,还有使用DBGRIDEH 进行数据输入,怎么做,包括增加\ 修改和删除

[2004v2004]

使用DBGRIDEH 和adoquery 我怎么不能显示出数据来呢 .dbgrid就可以,还有使用DBGRIDEH 进行数据输入,怎么做,包括增加\ 修改和删除
步骤 越详细越好

[yoyoxu]

DBGRIDEH可以直接連DBNavigator進行新增修改刪除的動作﹗如果要自己加BUTTON進行﹐見代碼（把相關dataset修改一下即可）﹕
不知道是不是樓主要的﹐如果會錯意﹐請見諒﹗
procedure TPMMtInfo.BtnAddClick(Sender: TObject);
begin　//新增
Table1.Edit;
Table1.Insert;
DBGrideh1.ReadOnly:=false;
end;

procedure TPMMtInfo.BtnModifyClick(Sender: TObject);
begin　//修改
DBGridEh1.ReadOnly:=false;
table1.Edit;
end;

procedure TPMMtInfo.BtnDelClick(Sender: TObject);
begin　//刪除
if application.MessageBox('Confirm Delete?','Delete Information',mb_okcancel+mb_defbutton1) =idok then
if table1.RecordCount>0 then
begin
table1.Delete;
end
else
application.MessageBox('No data to delete!','Information',mb_okcancel+mb_defbutton1);
end;


procedure TPMMtInfo.BtnSaveClick(Sender: TObject);
begin　//保存
table1.edit;
try
table1.Post;
DBGridEh1.ReadOnly:=true;
except
showmessage('數据不能保存!');
DBGridEh1.SetFocus;
end;
btnadd.SetFocus;
end;

procedure TPMMtInfo.BtnCancelClick(Sender: TObject);
begin //取消
table1.Cancel;
btnAdd.Enabled:=true;
btnDel.Enabled:=true;
btnFind.Enabled:=true;
btnModify.Enabled:=true;
btnSave.Enabled:=true;
btnCancel.Enabled:=true;
btnExp.Enabled:=true;
btnPrint.Enabled:=true;
end;

procedure TPMMtInfo.BtnPrintClick(Sender: TObject);
begin　//打印
printDBGridEh1.Preview;
end;

[andyzhou1101]

又见传说中的 空谷幽兰

[yoyoxu]

andyzhou1101(〆.赱 極端(http://lovelcy.blogcn.com)) 好像說得我神出鬼沒似的

[2004v2004]

to 空谷幽兰
你的非的使用table1 吗 使用adoquery 不可以吗