在线急求:Dbgrid的问题

sharpGrrrr 2005-07-13 04:33:12

菜鸟的问题: 现在有2个Dbgrid,选中其中1个的记录以后,通过按钮,在另一个中显示.怎么解决.谢谢.请给出代码.

...全文

67 1 打赏收藏转发到动态举报

写回复

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

78hgdong 2005-07-13

打赏
举报

回复

在QUERY的AfterScroll事件中写就行了。
procedure TFrmBookList.QryMainAfterScroll(DataSet: TDataSet);
begin
inherited;
qrydata.Close;
qrydata.ParamByName('BookListHeadID').asinteger:=qrymain.fieldbyname('BookListHeadID').asinteger;
qrydata.Open;

end;

著名的网格控件,此版本包含了注册解密程序。解密步骤：安装完成后运行Register.exe, 得到Finger Print内容,运行cr-true_dbgrid_pro_v7.0_key.exe 输入Finger Print,按Generate得到License Key, 再在Register.exe中输入License Key即可。

dbgrid的简单自绘.void __fastcall TForm1::DBGrid1DrawColumnCell(TObject *Sender, const TRect &Rect, int DataCol, TColumn *Column, TGridDrawState State)

Delphi演示如何一次删除网格数据表dbgrid中的多条记录，小技巧不过挺实用，希望对大家的Delphi编程有所帮助。以下是实现一次删除多条记录的相关代码供参考：　　if DBGrid1.SelectedRows.Count >1 then s:= '真的要删除这些记录吗?'; 　　if Application.MessageBox (Pchar(s),'删除多条记录',mb_iconinformation mb_yesNo)=idYes then 　　begin 　　 DBGrid1.DataSource.DataSet.DisableControls ; 　　 i:=0; 　　 While i<= DBGrid1.SelectedRows.Count -1 do 　　 begin 　　 DBGrid1.DataSource.DataSet.Bookmark:= DBGrid1.SelectedRows.Items[i]; //重要在这里取得bookmark 　　 TempBookmark := DBGrid1.Datasource.Dataset.GetBookmark; 　　 DBGrid1.DataSource.DataSet.GotoBookmark(TempBookMark); 　　 DBGrid1.DataSource.DataSet.Delete ; 　　 DBGrid1.DataSource.DataSet.FreeBookmark (TempBookMark); 　　 Inc(i); 　　 end; 　　 DBGrid1.DataSource.DataSet.EnableControls; 　　end; 　　更多代码请您在本页面下载源码。

delphi的dbgrid衮轮修正参考标题: DBGRID滚轮修正 private { Private declarations } OldGridWnd : TWndMethod; //鼠标滚轮作用于dbgrid procedure NewGridWnd(var Message: TMessage);

c++ builder 中DBGRID加入鼠标滚动

数据库相关

2,497

社区成员

88,445

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章