使用DBGRIDEH 和adoquery 我怎么不能显示出数据来呢 .dbgrid就可以,还有使用DBGRIDEH 进行数据输入,怎么做,包括增加\ 修改和删除 使用DBGRIDEH 和adoquery 我怎么不能显示出数据来呢 .dbgrid就可以,还有使用DBGRIDEH 进行数据输入,怎么做,包括增加\ 修改和删除步骤 越详细越好 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 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(〆.赱 極端(http://lovelcy.blogcn.com)) 好像說得我神出鬼沒似的 to 空谷幽兰 你的非的使用table1 吗 使用adoquery 不可以吗 散分了 DLL中封装窗体 今天我生日,期盼大家祝贺~DELPHI聖地(19234671)招人~嘿嘿 再问一个:填空, 请问: 一个简单的问题大家看看! 求fclabel控件 如何在DELPHI中分行写字符串??? 在QUICKREPORT中将PAGE改为横向且为自定义,这时无法显示页脚,而把纸张改为A3则能。为何? 紧急求助!!!! 100分 请教关于 Combobox 的问题 高分征求一个算法:排列组合的算法???
不知道是不是樓主要的﹐如果會錯意﹐請見諒﹗
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;
你的非的使用table1 吗 使用adoquery 不可以吗