S
sanhoot
Unregistered / Unconfirmed
GUEST, unregistred user!
在窗口中放入一个TSQLConnection1(scnn1)与两个TSimpleDataSet(sds1,sds2)
双击scnn1设置其连到Interbase数据库(如系统的EMPLOYEE.GDB),测试连接成功。
设置sds1,sds2的Connection为scnn1,
设置sds1的DataSet.CommandText为select * from EMPLOYEE
设置sds2的DataSet.CommandText为select * from JOB where JOB_CODE=:JOB_CODE
然后点击sds2.DataSet.Params后面的“...”,设置参数JOB_CODE的DataType为ftString,ParamType为ptInput
在窗体上再放置两组TDataSource,TDBNavigator,TDBGrid分别为(ds1,dn1,dg1;ds2,dn2,dg2)分别连到sds1和sds2
在sds1的AfterScroll输入下面语句:
try
self.sds2.Active:=false;
self.sds2.DataSet.Params.ParamByName('JOB_CODE').Value:=self.sds1.fieldbyname('JOB_CODE').Value;
self.sds2.Active:=true;
except
on exception do
end;
[?][?]
问题:
不管怎么操作dn1,dg1,在dg2就是没有任何数据
按我本意是要在dg2显示dg1当前记录的JOB_CODE的详细内容的
[][]请哪位大哥大姐给指导一下
[][]不胜感激!!
注:数据库为系统的"./Program Files/Common Files/Borland Shared/Data/EMPLOYEE.GDB"
双击scnn1设置其连到Interbase数据库(如系统的EMPLOYEE.GDB),测试连接成功。
设置sds1,sds2的Connection为scnn1,
设置sds1的DataSet.CommandText为select * from EMPLOYEE
设置sds2的DataSet.CommandText为select * from JOB where JOB_CODE=:JOB_CODE
然后点击sds2.DataSet.Params后面的“...”,设置参数JOB_CODE的DataType为ftString,ParamType为ptInput
在窗体上再放置两组TDataSource,TDBNavigator,TDBGrid分别为(ds1,dn1,dg1;ds2,dn2,dg2)分别连到sds1和sds2
在sds1的AfterScroll输入下面语句:
try
self.sds2.Active:=false;
self.sds2.DataSet.Params.ParamByName('JOB_CODE').Value:=self.sds1.fieldbyname('JOB_CODE').Value;
self.sds2.Active:=true;
except
on exception do
end;
[?][?]
问题:
不管怎么操作dn1,dg1,在dg2就是没有任何数据
按我本意是要在dg2显示dg1当前记录的JOB_CODE的详细内容的
[][]请哪位大哥大姐给指导一下
[][]不胜感激!!
注:数据库为系统的"./Program Files/Common Files/Borland Shared/Data/EMPLOYEE.GDB"