L
linger_3
Unregistered / Unconfirmed
GUEST, unregistred user!
我想实现如下效果,用Dbgrid显示数据库记录,然后双击某记录,弹出窗口,显示该记录具体
信息.不知道该如何实现?
信息.不知道该如何实现?
B
bbs_delphi
Unregistered / Unconfirmed
GUEST, unregistred user!
在oncellonclick事件中添加，实现你的功能
A
antic_ant
Unregistered / Unconfirmed
GUEST, unregistred user!
bbs_delphi的方法可以做的
L
linger_3
Unregistered / Unconfirmed
GUEST, unregistred user!
说具体一点可以么？
比如有没有类似的代码？
比如有没有类似的代码？
杜
杜宝
Unregistered / Unconfirmed
GUEST, unregistred user!
呵呵,和普通的窗体一样啊!
新建一个Application,加上一个DBGrid,一个table,一个Datasource,
连好数据库:tabel->Datasource->DBGrid
再新建一个窗体(菜单选NEW选Form),在上面放上Label(说明用)和DBEdit,
把DBEdit 与DataSource连好(在第二个窗体选上File->Use Unit->Unit1)
在DBGrid的DblClick事件中写上Form2.ShowModal就行了!(注意要在第一个窗体中
Use Unit Unit2)
代码?呵呵,实在是没什么代码好写!(就上面说的Form2.ShowModal一句)
新建一个Application,加上一个DBGrid,一个table,一个Datasource,
连好数据库:tabel->Datasource->DBGrid
再新建一个窗体(菜单选NEW选Form),在上面放上Label(说明用)和DBEdit,
把DBEdit 与DataSource连好(在第二个窗体选上File->Use Unit->Unit1)
在DBGrid的DblClick事件中写上Form2.ShowModal就行了!(注意要在第一个窗体中
Use Unit Unit2)
代码?呵呵,实在是没什么代码好写!(就上面说的Form2.ShowModal一句)
Y
YNTW
Unregistered / Unconfirmed
GUEST, unregistred user!
OnDoubleClick事件
begin
Application.CreateForm(TFormInfo,FormInfo);
FormInfo.ShowModal;
end;
begin
Application.CreateForm(TFormInfo,FormInfo);
FormInfo.ShowModal;
end;
L
linger_3
Unregistered / Unconfirmed
GUEST, unregistred user!
那我在新的窗口还用重新设置数据库的东西么？
还是可以直接调用呢？
还是可以直接调用呢？
T
terry_lzs
Unregistered / Unconfirmed
GUEST, unregistred user!
在OnDoubleClick事件中写信息窗体的代码，在信息窗体中用DBEdit之类的控件，将数据源
设置为与DBGrid一样，显示的自然就是当前选中记录的内容了。[
]
设置为与DBGrid一样，显示的自然就是当前选中记录的内容了。[
]
Z
zhangkan
Unregistered / Unconfirmed
GUEST, unregistred user!
不需要,你直接调用,不然麻烦多多.
你在FORM2中放一个DBEDIT和一个DBTEXT,然后在FORM1的DBGRID的CELLCLICK事件中加入如下代码.
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
if not Assigned(Form2) then
Form2:=TForm2.create(Application);
Form2.DBEdit1.DataSource:=Datasource1;
Form2.DBEdit1.DataField:=Column.FieldName;
Form2.DBText1.Caption:=Column.Field.DisplayLabel;
Form2.Show;
end;
你在FORM2中放一个DBEDIT和一个DBTEXT,然后在FORM1的DBGRID的CELLCLICK事件中加入如下代码.
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
if not Assigned(Form2) then
Form2:=TForm2.create(Application);
Form2.DBEdit1.DataSource:=Datasource1;
Form2.DBEdit1.DataField:=Column.FieldName;
Form2.DBText1.Caption:=Column.Field.DisplayLabel;
Form2.Show;
end;
J
jackl
Unregistered / Unconfirmed
GUEST, unregistred user!
很简单，新建一个窗体，在窗体是放置DBEDIT一些相关的数据库控件，且加一个DataSource，并且引用放置了DBGRID
控件的单元文件，Datasource的DataSet 设置成放置DBGrid的窗体的Query，这样就可以关联到数据库了！
控件的单元文件，Datasource的DataSet 设置成放置DBGrid的窗体的Query，这样就可以关联到数据库了！
W
weekboy
Unregistered / Unconfirmed
GUEST, unregistred user!
把DBGrid1的Multiselected设为false,然后在记录的双击中。动态创建form显示该条记录信息
(No test!).
(No test!).
L
linger_3
Unregistered / Unconfirmed
GUEST, unregistred user!
多人接受答案了。