如何将一窗体中的dbgrid当前选择的记录传到另外一窗体中?(入门)

Question

如何将一窗体中的dbgrid当前选择的记录传到另外一窗体中!
我在窗体1中的bgrid选择记录时得到此记录的一字段"工作单号",如何将此字段值传到另外一窗体中,得到相应另一张表中等于此"工作单号"的记录啊?
谢谢

Answer 1

选中当前窗口的DBGRID的记录,可以通过dbgrid.datasource.dataset.fieldvalue['字段']得到,并且在下一个窗体的onshow事件里面通过该值查询处理

Answer 2

在要传值的那个窗体，写多一个构造函数，比如在Public下写
constructor CreateNewFrom(WorkID: String; AOwner: TComponent);
实现如下
begin 
  inherited Create(AOwner);
  fWorkID := WordId;
end;
之后在要传入值的窗体，比如button1,在button1单击事件下写
varbegin
end;

Answer 3

不好意思，刚按错键了。。发早了。。
之后在要传入值的窗体，比如button1,在button1单击事件下写
var
  form: TNewForm;
begin
  from := TNewFrom.CreateNewFrom(adotable1.fieldbyname('id').asstring,self);
  from.show;
end;

Answer 4

上边把办法斗已经说了，如果还不明白，那建议你找点基本的DELPHI书籍看看吧。