我哭了，老师要我做的程序完不成..

Question

各位大哥请帮忙，老师催的急，可是我不会呀：
DM是数据窗体；窗体A:
procedure TfrmVoucher.FormCreate(Sender: TObject);
var
  t_Str : String ;
begin
  //遍历每个控件
   dm.gf_cvtcom(frmVoucher);
  //其它代码
  ......
end窗体B（从窗体A继承而来的）：
procedure TfrmARVoucher.FormCreate(Sender: TObject);
var
  t_Str : String ;
begin
  inherited;
 //遍历每个控件
  dm.gf_cvtcom(frmARVoucher);
 //其它代码
  ......但是我每次执行B时，都出现Access error.我知道是A窗体没有建立，但是，我不能让A窗体每次都出现在主界面呀，有没有办法可以解决啊？

Answer 1

父窗体并不需要创建实例，应该是a的formcreate事件里的问题

Answer 2

呵呵，财务软件？可能是你的代码实现上有问题http://lysoft.7u7.net

Answer 3

voucher
[5vaJtFE(r)]
n.
证人, 保证人, 证明者, 凭证, 凭单, <美>优惠购货卷

Answer 4

在窗体的show事件中遍历.
procedure TfrmARVoucher.Formshow(Sender: TObject);
var
  t_Str : String ;
begin
  inherited;
 //遍历每个控件
  dm.gf_cvtcom(frmARVoucher);
 //其它代码
  ......其实最好的方法就是扁你老师一顿(^_^),开玩笑.

Answer 5

ARVoucher  收款单吧。AR一般是应收。对吧实习老师：）

Answer 6

对的了，我在学校，因为是计算机毕业，就被赶到去做财务 laiqinghe(来) 
还不明白啊，哪里呀？taber(李沉舟) 没有事的，只要我把inherited注释掉，就没有事了，肯定是在遍历A窗体出现了问题。

Answer 7

procedure TfrmARVoucher.FormCreate(Sender: TObject);
var
  t_Str : String ;
begin
 //inherited;  把这一句注释掉看看？
 //遍历每个控件
  dm.gf_cvtcom(frmARVoucher);
 //其它代码
  ......
end;

Answer 8

这样做就ok了，但是不允许啊，B要用到A的一些东西

Answer 9

各位老师还帮我看看这个问题呀，谢谢了
http://community.csdn.net/Expert/topic/3818/3818572.xml?temp=.5329553

Answer 10

procedure TfrmARVoucher.FormCreate(Sender: TObject);
begin
  inherited;
end;既然是继承,那什么都不写,用inherited就好了嘛PS 楼主是个MM呀,大家要多帮忙哈

Answer 11

merkey2002(小样的)这样就是会出错，只要执行了A窗体的代码，就是Access Error.如果不是mm就不帮忙了？

Answer 12

因为没有看到具体的代码，所以我猜测是你遍历窗体A的控件的时候，用了frmVoucher变量了……
解决的办法可以把frmVoucher改为TForm(Sender)，这样子试试。
或者不要继承，直接重写部分代码。
如果还有问题，建议贴具体一点……

Answer 13

各位大哥，还有一个问题请帮忙啊，http://community.csdn.net/Expert/topic/3818/3818572.xml?temp=.3238947