procedure TYJSSJXHXXCCTT.DataGridDblClick(Sender: TObject); //datagrid 双击事件
var
//Tunitname :string;
YueKHXD:TYDJSXHXDTT; //被调用信息表单类
NewM:TYDJSXHXDeoTT; // 被调用窗体
begin
// Tunitname:=DataSetBrokerJSXH.DataSet.FieldByName('UNITNAME').AsString;
// YueKHXD.GetData(ComboBox_tyears.Text,themonth.Text,Tunitname);
YueKHXD.GetData('2007','05','益阳电厂');
NewM:=TYDJSXHXDeoTT.Create (context);
NewM.ShowModal;
NewM.Free;
end; |