通过双击DBGRID中某条记录,记录有字段1,字段2 触发事件,调用打开另个窗口frmModify if not Assigned(frmModify) then Application.CreateForm(TfrmModify,frmModify); frmModify.ShowModal;而frmModify窗口中有datasource和2个TDBEdit,分别想对应上DBGRID中的字段1和字段2,TDBEDit1联接字段1,TDBEDit2联接字段2, 即如何将DBGRID的数据传送到frmModify窗口的TDBEDIT中? 在线等!谢谢各位!!
OnDbClick事件: if not Assigned(frmModify) then begin Application.CreateForm(TfrmModify,frmModify); frmModify.DBEdit1.DataSource:=DataSource1;//指向数据源 frmModify.DBEdit2.DataSource:=DataSource1; frmModify.DBEdit1.DataField:=ADOQuery1.Fields[0].FieldName;//指向字段 frmModify.DBEdit2.DataField:=ADOQuery1.Fields[1].FieldName; frmModify.ShowModal; end;
dst.fieldbyname('fieldname').asstirng取出的就是这条记录的fieldname字段的值。你自己试试看。
触发事件,调用打开另个窗口frmModify
if not Assigned(frmModify) then
Application.CreateForm(TfrmModify,frmModify);
frmModify.ShowModal;而frmModify窗口中有datasource和2个TDBEdit,分别想对应上DBGRID中的字段1和字段2,TDBEDit1联接字段1,TDBEDit2联接字段2,
即如何将DBGRID的数据传送到frmModify窗口的TDBEDIT中?
在线等!谢谢各位!!
if not Assigned(frmModify) then
begin
Application.CreateForm(TfrmModify,frmModify);
frmModify.DBEdit1.DataSource:=DataSource1;//指向数据源
frmModify.DBEdit2.DataSource:=DataSource1;
frmModify.DBEdit1.DataField:=ADOQuery1.Fields[0].FieldName;//指向字段
frmModify.DBEdit2.DataField:=ADOQuery1.Fields[1].FieldName;
frmModify.ShowModal;
end;