L
linghu
Unregistered / Unconfirmed
GUEST, unregistred user!
我使用STRINGGRID作为数据输入窗口.
当输入的某列中时,弹出一个DATAGRID(从数据库中取出的某个值作为输入).但是怎样能够在DATAGRID中选择呢?
if (trim(sg.Cells[1,sg_row])='') and (sg.Col=1) then
//进入数据查询窗口
begin
WITH INPUTQuery DO
BEGIN
Connection:=DM.adocnn;
SQL.Clear;
sql.Add('SELECT distinct 设备类别 FROM 总表');
open;
END;
datasource1.DataSet:=inputquery;
dbgrid1.DataSource:=datasource1;
dbgrid1.Visible:=true;
sg.Cells[1,sg_row]:=inputquery.fieldbyname('设备类别').Value;
当输入的某列中时,弹出一个DATAGRID(从数据库中取出的某个值作为输入).但是怎样能够在DATAGRID中选择呢?
if (trim(sg.Cells[1,sg_row])='') and (sg.Col=1) then
//进入数据查询窗口
begin
WITH INPUTQuery DO
BEGIN
Connection:=DM.adocnn;
SQL.Clear;
sql.Add('SELECT distinct 设备类别 FROM 总表');
open;
END;
datasource1.DataSet:=inputquery;
dbgrid1.DataSource:=datasource1;
dbgrid1.Visible:=true;
sg.Cells[1,sg_row]:=inputquery.fieldbyname('设备类别').Value;