库存管理软件版1楼: 我用ADOTable1、DataSource1连接数据库，DBGrid1先是数据库所有记录，我想知道的是：
我想双击某一行记录后弹出一个新窗口显示出这行记录的详细内容，环境是D7+SQL2000

2楼: 你取得这行的记录号 id ，把它传到新窗口中不就行了，新窗口里根据这个 id 来查询详细信息 如库房管理软件

3楼: 不会阿，给个例子好吗？谢谢各位了，

4楼: procedure TForm1.DBGrid1CellClick(Column: TColumn);//单击现实新窗体
begin
form2.Show;
form2.edit1.text:=adotable1.FieldByName(＇＇姓名＇＇).AsString;
....
...
end;
procedure TForm1.DBGrid1DblClick(Sender: TObject);//双击现实新窗体
begin
form2.Show;
form2.edit1.text:=adotable1.FieldByName(＇＇姓名＇＇).AsString;
....
...
end;

5楼: form1:
procedure TForm1.DBGrid1DblClick(Sender: TObject);//双击显示新窗体
begin
form2:= Tform2.Create( Application );
form2.ShowModal;
end;

form2:显示记录窗口

OnShow 事件：
with form1.ADOTable1do
begin
//显示各域
。。。。
end

6楼: 为什么在这里出错？
form2.Show;

库存管理软件版7楼: 可能还From2还没创建呢

8楼: USES FORM2单元看看

9楼: 报什么样的错误啊~~~
可能是FORM没建立吧
你可以这么写
procedure TForm1.DBGrid1DblClick(Sender: TObject);//双击现实新窗体
begin
Form2:= Tform2.Create(SELF);
form2.Show;
form2.edit1.text:=adotable1.FieldByName(＇＇姓名＇＇).AsString;
....
...
end;

10楼: 还没解决呢啊，如果解决了，就把分给散了吧

11楼: form1:
procedure TForm1.DBGrid1DblClick(Sender: TObject);//双击显示新窗体
begin
form2:= Tform2.Create( Application );
form2.ShowModal;
end;

form2:显示记录窗口
Use Form1所在的pas
OnShow 事件：
with form1.ADOTable1 do
begin
//显示各域
。。。。
end

这样绝对可以！我们都是这样做的！不过 Form2.Visible=False;

12楼: form1:
procedure TForm1.DBGrid1DblClick(Sender: TObject);//双击显示新窗体
begin
form2:= Tform2.Create( Application );
try
form2.ShowModal;
form2.id:=dataset1.fieldbyname(＇＇id＇＇).asstring;//可以在FORM2中建一个全局变量ID
finally
form2.free;//用完就释放吧!
end;


在from2中:
dataset2.sqlfilter:=＇＇id=＇＇＇＇＇＇+id+＇＇＇＇＇＇＇＇;
dataset2.sqlfiltered:=true; 如小型财务软件

13楼: 还没解决呢啊，如果解决了，就把分给散了吧
顶啊

库存管理软件版14楼: procedure TForm1.DBGrid1DblClick(Sender: TObject);//双击显示新窗体
var
id:string;
begin
id:=adoq1.FieldByName(＇＇pr_id＇＇).AsString;
//用二個ADOQuery二個datasource二個dbgrid
with adoq2 do
begin
close;
sql.Clear;
sql.Add(＇＇select * from 表名 where Pr_id=＇＇＇＇＇＇+id+＇＇＇＇＇＇＇＇);
open;
end;
end;

15楼: 大家说的很详细了，你再解决不了，应该是你写的程序有问题，好好检查一下吧

16楼: 这么多热心人帮我，我都没办法给分了，谢谢