在GRID的事件中添加DOUBLE CLICK事件,再一个新的FORM中加入一个GRID,建立一个数据源,连接一个QUERY或AODQUERY,在DOUBLE CLICK中加入代码
//PROCEDURE DOUBELCLICK(SENDER:TOBJECT);
BEGIN
NEWFORM:=NEWFORM(CREATE,SELF);
IF NEWFORM.SHOWMODLE:=MROK THEN
WITH QUERY DO
BEGIN
CLOSE;
SQL.CLEAR
SQL.ADD('SELECT * FROM XXX WHERE 字段=:值');
PARAMETERS.PARAMBYNAME('值'):=GRID.FIELDBYNAME('字段').AS类型;
TRY
OPEN;
EXCEPT
RAISE;
END;
END;
END;
//PROCEDURE DOUBELCLICK(SENDER:TOBJECT);
BEGIN
NEWFORM:=NEWFORM(CREATE,SELF);
IF NEWFORM.SHOWMODLE:=MROK THEN
WITH QUERY DO
BEGIN
CLOSE;
SQL.CLEAR
SQL.ADD('SELECT * FROM XXX WHERE 字段=:值');
PARAMETERS.PARAMBYNAME('值'):=GRID.FIELDBYNAME('字段').AS类型;
TRY
OPEN;
EXCEPT
RAISE;
END;
END;
END;
form2.dbedit1.fieldname:='somefield';
......
form2.showmodal;