【搞定】有个需求，怎么实现？**

Looking · 发表于 2007-6-27 15:27:50

1.我在窗体a中有个按扭，点击它（会有一个唯一的编号），并且弹出另一功能窗体b。
2..b窗体是一些详细的记录（数据是表单形式的）。
3.我要在弹出的b中显示，a中给定编号的详细记录。

我现在只能做到，弹出b功能窗体。无法定位指定编号，显示详细记录。该怎么实现呢？求一个方法！

xieyingliang · 发表于 2007-6-27 15:54:59

在弹出窗体中建立一个全局变量点击窗体a的按钮时将唯一编号传递给窗体b的这个变量然后根据这个变量过滤即可
使用业务参数亦可

Looking · 发表于 2007-6-27 16:28:42

但是，在表单中怎么做？编号也是主关键字，在表里。
说详细点，好吗？因为每次都是这个编号。

xieyingliang · 发表于 2007-6-27 16:48:40

最简单的方法是你跳出窗体里面的数据集和主窗体上的数据集做主从关联主窗体上的数据集做主数据集连接字段是编号就不用做过滤了系统自己做好过滤

xieyingliang · 发表于 2007-6-27 16:50:00

你能不能将两个窗体都建在同一功能底下即可使用以上方法

Looking · 发表于 2007-6-27 16:54:38

已经不在同一功能了！

xieyingliang · 发表于 2007-6-27 16:56:35

== 我整理一下代码给你发个例子

Looking · 发表于 2007-6-27 17:01:09

要2800的

xieyingliang · 发表于 2007-6-27 17:01:36

都可用

xieyingliang · 发表于 2007-6-27 17:08:15

1、在功能B的窗体B上建立全局变量“编号”
2、功能A的点击按钮
procedure 窗体A.ButtonClick(Sender: TObject);
var
  ShowForm: 功能B.T窗体B;
begin
  ShowForm: = 功能B.T窗体B.Create(Self.Context);
  try
ShowForm.编号:= (窗体A上数据集)datasetbrker1.dataset.fieldbyname('编号').asstring;
EditForm.ShowModal;
  finally
EditForm.Free;
  end;
end;
3、在功能B的窗体的Formshow事件上，过滤条件
sql:= (窗体B上数据集) 字段“编号”:= (全局变量) 编号;
4、OK

		自动登录	找回密码
密码			立即注册