这个问题有点儿怪,请高手指点。

好像不用吧，StoremainFrm := TStoreMainFrm.Create(Self);就是指定了parent吧不过，什么原因找不到，我在我机器上测试好像是正常的，我就用了
  StoremainFrm := TStoreMainFrm.Create(self);
  Mainfrm.Hide ;
  storemainfrm.Show;

这个问题原来是没有的。
后来偶尔出现一次，我就单步执行（如果不单步执行问题依然），单找不到问题在那儿，然后就好了一会儿，过一段时间就会又…………
最近好像每次都会出问题（由于太频繁，我就干脆每写/改一段代码就build然后找到.exe运行。
太痛苦了，连问题可能出现在那儿我都找不到。

可否帮你看看源程序，如果不是公司保密级的话：-）[email protected]

通过create指定是owner而不是parent

不隐藏主窗口，而storemainfrm.ShowModal不行吗？

由于源代码写的比较差（水平有限），我想大家是看不懂的了。并且其中的窗体太多。
如果不将MainFrm隐藏的话，会比较难看。
我觉得问题应该出现在storemain这个模块里面，因为有时这个窗体show出来了，然后死掉。
可我不明白的是为什么有时好有时坏（每次的操作都一样），并且为什么单单是在delphi下运行出问题，而编译后的软件没问题呢？如果错误的循环引用会不稳定还是根本就不能运行？
这大概应该是什么不对引起的呢？（单步和编译后运行一点问题都没有，太怪了！）

你把mainform.hide;调到StorMainForm.show后面试一下。

StoremainFrm := TStoreMainFrm.Create(self);
self 是指窗体的拥有者，self释放时回释放回自动释放掉storemainfrm
parent 是窗体放在哪个控件上，两者不同
这里没问题，问题应该是在oncreate,或onshow中
把代码帖出来吧

大家非要我贴代码？共有25200行，大家要那一部分？
如果题目上的代码没有什么缺陷的话，
我想这个程序的错误应该是在storemainfrm里面。
但这个from后面跟的代码太多了，我只想哪为高手能指点一下可能的错误原因。
storemainfrm.show没有我写的代码。storemainfrm里面全是menu的click事件，没有别的东西。
代码都是这个形势的
    formxxxxxxxx := TFormxxxxxxxx.Create(Self);
    formxxxxxxxx.自定义public变量 := 值；
    formxxxxxxxx.ShowModal;
我的storemainfrm将调用很多的子form，每个都是代码调用create创建的。  以下是StoreMainFrm 的代码，很乱大家不要笑我。unit StoreMainUnit;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, ToolWin, Menus, ExtCtrls, ImgList;type
  Tstoremainfrm = class(TForm)
    MainMenu1: TMainMenu;
    ControlBar1: TControlBar;
    sysMenu: TMenuItem;
    InMenu: TMenuItem;
    OutMenu: TMenuItem;
    DetailMenu: TMenuItem;
    StoreMenu: TMenuItem;
    ReportMenu: TMenuItem;
    HelpMenu: TMenuItem;
    MenuBar: TToolBar;
    StatusBar1: TStatusBar;
    chPassMenu: TMenuItem;
    ExitMenu: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    N6: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    N38: TMenuItem;
    N39: TMenuItem;
    N40: TMenuItem;
    N41: TMenuItem;
    BomMenu: TMenuItem;
    DHMenu: TMenuItem;
    FactoryMenu: TMenuItem;
    UserMenu: TMenuItem;
    N46: TMenuItem;
    N47: TMenuItem;
    N48: TMenuItem;
    N49: TMenuItem;
    N50: TMenuItem;
    N51: TMenuItem;
    N52: TMenuItem;
    N53: TMenuItem;
    N54: TMenuItem;
    N55: TMenuItem;
    N56: TMenuItem;
    N57: TMenuItem;
    N58: TMenuItem;
    N59: TMenuItem;
    N60: TMenuItem;
    N61: TMenuItem;
    N62: TMenuItem;
    N63: TMenuItem;
    N64: TMenuItem;
    N65: TMenuItem;
    N66: TMenuItem;
    N67: TMenuItem;
    N68: TMenuItem;
    N69: TMenuItem;
    N70: TMenuItem;
    N71: TMenuItem;
    N72: TMenuItem;
    JueceMenu: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N42: TMenuItem;
    N43: TMenuItem;
    N45: TMenuItem;
    N73: TMenuItem;
    N74: TMenuItem;
    N75: TMenuItem;
    N76: TMenuItem;
    N77: TMenuItem;
    N78: TMenuItem;
    N79: TMenuItem;
    N80: TMenuItem;
    N81: TMenuItem;
    N82: TMenuItem;
    N83: TMenuItem;
    N84: TMenuItem;
    N85: TMenuItem;
    N86: TMenuItem;
    N87: TMenuItem;
    N88: TMenuItem;
    N89: TMenuItem;
    N90: TMenuItem;
    PandianMenu: TMenuItem;
    N92: TMenuItem;
    N93: TMenuItem;
    N94: TMenuItem;
    N95: TMenuItem;
    N96: TMenuItem;
    N97: TMenuItem;
    N98: TMenuItem;
    N99: TMenuItem;
    N100: TMenuItem;
    N101: TMenuItem;
    N102: TMenuItem;
    N103: TMenuItem;
    N104: TMenuItem;
    N105: TMenuItem;
    ToolBar2: TToolBar;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    ToolButton14: TToolButton;
    ToolButton15: TToolButton;
    ToolButton16: TToolButton;
    ImageList1: TImageList;
    ToolBar3: TToolBar;
    ToolButton17: TToolButton;
    ToolButton18: TToolButton;
    ToolButton19: TToolButton;
    ToolButton20: TToolButton;
    ToolButton21: TToolButton;
    ToolButton22: TToolButton;
    ToolButton23: TToolButton;
    ToolButton24: TToolButton;
    ToolButton25: TToolButton;
    ToolButton26: TToolButton;
    ToolButton27: TToolButton;
    ToolButton28: TToolButton;
    ToolButton29: TToolButton;
    ToolButton30: TToolButton;
    ToolButton31: TToolButton;
    ToolButton32: TToolButton;
    ToolButton33: TToolButton;
    ToolButton34: TToolButton;
    ToolButton35: TToolButton;
    ToolButton36: TToolButton;
    ToolButton37: TToolButton;
    ToolButton38: TToolButton;
    ToolButton39: TToolButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ExitMenuClick(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N35Click(Sender: TObject);
    procedure N34Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure N30Click(Sender: TObject);
    procedure N36Click(Sender: TObject);
    procedure N40Click(Sender: TObject);
    procedure N41Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure BomMenuClick(Sender: TObject);
    procedure UserMenuClick(Sender: TObject);
    procedure DHMenuClick(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N52Click(Sender: TObject);
    procedure N54Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N68Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N69Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N67Click(Sender: TObject);
    procedure N56Click(Sender: TObject);
    procedure N57Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N53Click(Sender: TObject);
    procedure N55Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N39Click(Sender: TObject);
    procedure N82Click(Sender: TObject);
    procedure N65Click(Sender: TObject);
    procedure N63Click(Sender: TObject);
    procedure N89Click(Sender: TObject);
    procedure FactoryMenuClick(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N70Click(Sender: TObject);
    procedure N83Click(Sender: TObject);
    procedure N104Click(Sender: TObject);
    procedure N71Click(Sender: TObject);
    procedure N59Click(Sender: TObject);
    procedure N72Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure chPassMenuClick(Sender: TObject);
    procedure N60Click(Sender: TObject);
    procedure N92Click(Sender: TObject);
    procedure N99Click(Sender: TObject);
    procedure N62Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N84Click(Sender: TObject);
    procedure N85Click(Sender: TObject);
    procedure N43Click(Sender: TObject);
    procedure N76Click(Sender: TObject);
    procedure N42Click(Sender: TObject);
  private
    { Private declarations }
  public
    UserType : string;
    UserName : string;
    UserPrio : string;
    AccountNo : string;    { Public declarations }
  end;var
  storemainfrm: Tstoremainfrm;implementationuses MainUnit, KoreaMatTrueUnit, JinDaMatInUnit, ConsumeInUnit, ConsumeDetailUnit,
  ConsumeOutUnit, KoreaDetailUnit, LendMatInUnit, LendMatOutUnit, About,
  ProcSemiProdInUnit, ProcSemiProdOutUnit, ProcProductInUnit,
  ProcPorductOutUnit, ProcMatOutUnit, LendMatDetailUnit, procMatDetailUnit,
  ProcMatInUnit, BomUnit, UserUnit, danhaounit, procSemiDetailUnit,
  RetKoreaMatUnit, KoreaMatPlanUnit, RealAndPlanDetailUnit,
  ProductDetailUnit, ConsumeStoreUnit, SemiProdStoreUnit, OutSideBuyMatUnit,
  KrRetBadProdUnit, KrExportProdUnit, RawMatDisUnit,RetKoreaMatYUnit,
  RawMatStoreUnit, BadMatStoreUnit, OutSideMatUnit, OutSideProdInUnit,
  OutSideMatDetailUnit, FactoryUnit, ExportTotalUnit, ProdStoreUnit,
  KrExportDetailUnit, BadMatInUnit, KrRetBadDetailUnit, DuoxingDM,
  chpasswordunit, BadProdInUnit, RawMatCheckUnit, RawMatCheckRepUnit,
  OutSideRetMatUnit, OutSideExcMatUnit, OutSideMatStoreUnit,
  OutSideProdStoreUnit, RealAndPlanStoreUnit, LendMatStoreUnit,
  BadMatTotalUnit;{$R *.DFM}procedure Tstoremainfrm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
       mainfrm.show;
       Action := caFree;
end;procedure Tstoremainfrm.ExitMenuClick(Sender: TObject);
begin
     close;
end;procedure Tstoremainfrm.N12Click(Sender: TObject);
begin
     KoreaMatTrueFrm := TKoreaMatTrueFrm.Create(Self);
     KoreaMatTrueFrm.SheetFlag := 'Korea';
     KoreamatTrueFrm.ShowModal;
end;procedure Tstoremainfrm.N14Click(Sender: TObject);
begin
     KoreaMatTrueFrm := TKoreaMatTrueFrm.Create(Self);
     KoreaMatTrueFrm.SheetFlag := 'JinDa';
     KoreamatTrueFrm.ShowModal;
end;procedure Tstoremainfrm.N15Click(Sender: TObject);
begin
         ConsumeInFrm := TConsumeInFrm.Create(Self);
         ConsumeInFrm.SheetFlag := 'Consume';
         ConsumeInFrm.ShowModal;
end;procedure Tstoremainfrm.N16Click(Sender: TObject);
begin
         ConsumeInFrm := TConsumeInFrm.Create(Self);
         ConsumeInFrm.SheetFlag := 'Package';
         ConsumeInFrm.ShowModal;end;procedure Tstoremainfrm.N19Click(Sender: TObject);
begin
       ConsumeDetailFrm := TConsumeDetailFrm.Create (Self);
       ConsumeDetailFrm.SheetFlag := 'Consume';
       ConsumeDetailFrm.ShowModal ;
end;procedure Tstoremainfrm.N20Click(Sender: TObject);
begin
       ConsumeDetailFrm := TConsumeDetailFrm.Create (Self);
       ConsumeDetailFrm.SheetFlag := 'Package';
       ConsumeDetailFrm.ShowModal ;end;procedure Tstoremainfrm.N21Click(Sender: TObject);
begin
         ConsumeOutFrm := TConsumeOutFrm.Create(Self);
         ConsumeOutFrm.SheetFlag := 'Consume';
         ConsumeOutFrm.ShowModal;
end;procedure Tstoremainfrm.N22Click(Sender: TObject);
begin
         ConsumeOutFrm := TConsumeOutFrm.Create(Self);
         ConsumeOutFrm.SheetFlag := 'Package';
         ConsumeOutFrm.ShowModal;end;procedure Tstoremainfrm.N25Click(Sender: TObject);
begin
        KoreaDetailFrm := TKoreaDetailFrm.Create(Self);
        KoreaDetailFrm.SheetFlag := 'Korea';
        KoreaDetailFrm.ShowModal;
end;procedure Tstoremainfrm.N17Click(Sender: TObject);
begin
        LendMatInFrm := TLendMatInFrm.create(self);
        LendMatInFrm.ShowModal;
end;procedure Tstoremainfrm.N35Click(Sender: TObject);
begin
        LendMatOutFrm := TLendMatOutFrm.Create(Self);
        LendMatOutFrm.ShowModal;
end;procedure Tstoremainfrm.N34Click(Sender: TObject);
begin
        aboutbox.showmodal;
end;procedure Tstoremainfrm.N27Click(Sender: TObject);
begin
        ProcSemiProdInFrm := TProcSemiProdInFrm.Create(Self);
        ProcSemiProdInFrm.ShowModal;
end;procedure Tstoremainfrm.N29Click(Sender: TObject);
begin
        ProcSemiProdOutFrm := TProcSemiProdOutFrm.Create(Self);
        ProcSemiProdOutFrm.ShowModal;
end;procedure Tstoremainfrm.N28Click(Sender: TObject);
begin
       ProcProductInFrm := TProcProductInFrm.Create(Self);
       ProcProductInFrm.ShowModal;
end;procedure Tstoremainfrm.N30Click(Sender: TObject);
begin
       ProcProductOutFrm := TProcProductOutFrm.Create(Self);
       ProcProductOutFrm.ShowModal;end;procedure Tstoremainfrm.N36Click(Sender: TObject);
begin
        ProcMatOutFrm := TProcMatOutFrm.Create(Self);
        ProcMatOutFrm.ShowModal;
end;procedure Tstoremainfrm.N40Click(Sender: TObject);
begin
         LendMatDetailFrm := TLendmatDetailFrm.Create(Self);
         LendMatDetailFrm.ShowModal;
end;procedure Tstoremainfrm.N41Click(Sender: TObject);
begin
         procMatDetailFrm := TprocmatDetailFrm.Create(Self);
         procMatDetailFrm.ShowModal;end;procedure Tstoremainfrm.N18Click(Sender: TObject);
begin
     ProcMatInFrm := TProcMatInFrm.Create(Self);
     ProcMatInFrm.ShowModal;
end;procedure Tstoremainfrm.BomMenuClick(Sender: TObject);
begin
        BomFrm := TBomFrm.Create(Self);
        BomFrm.ShowModal;
end;procedure Tstoremainfrm.UserMenuClick(Sender: TObject);
begin
      UserFrm := TUserFrm.Create(Self);
      UserFrm.ShowModal;
end;procedure Tstoremainfrm.DHMenuClick(Sender: TObject);
begin
       danhaofrm := Tdanhaofrm.Create(Self);
       danhaofrm.ShowModal;
end;procedure Tstoremainfrm.N31Click(Sender: TObject);
begin
      ProcSemiDetailFrm := TProcSemiDetailFrm.Create(Self);
      ProcSemiDetailFrm.ShowModal;
end;procedure Tstoremainfrm.N52Click(Sender: TObject);
begin
     RetKoreaMatFrm := TRetKoreaMatFrm.Create(Self);
     RetKoreaMatFrm.SheetFlag := 'Korea';
     RetKoreamatFrm.ShowModal;end;procedure Tstoremainfrm.N54Click(Sender: TObject);
begin
     RetKoreaMatFrm := TRetKoreaMatFrm.Create(Self);
     RetKoreaMatFrm.SheetFlag := 'JinDa';
     RetKoreamatFrm.ShowModal;
end;procedure Tstoremainfrm.N13Click(Sender: TObject);
begin
     KoreaMatPlanFrm := TKoreaMatPlanFrm.Create(Self);
     KoreaMatPlanFrm.SheetFlag := 'Korea';
     KoreamatPlanFrm.ShowModal;end;procedure Tstoremainfrm.N68Click(Sender: TObject);
begin
        RealAndPlanDetailFrm := TRealAndPlanDetailFrm.Create(Self);
        RealAndPlanDetailFrm.ShowModal;end;procedure Tstoremainfrm.N32Click(Sender: TObject);
begin
      ProductDetailFrm := TProductDetailFrm.Create(Self);
      ProductDetailFrm.ShowModal;
end;procedure Tstoremainfrm.N23Click(Sender: TObject);
begin
         ConsumeStoreFrm := TConsumeStoreFrm.Create(Self);
         ConsumeStoreFrm.SheetFlag := 'Consume';
         ConsumeStoreFrm.ShowModal;
end;procedure Tstoremainfrm.N69Click(Sender: TObject);
begin
         SemiProdStoreFrm := TSemiProdStoreFrm.Create(Self);
         SemiProdStoreFrm.ShowModal;
end;procedure Tstoremainfrm.N24Click(Sender: TObject);
begin
         ConsumeStoreFrm := TConsumeStoreFrm.Create(Self);
         ConsumeStoreFrm.SheetFlag := 'Package';
         ConsumeStoreFrm.ShowModal;end;procedure Tstoremainfrm.N67Click(Sender: TObject);
begin
      OutSideBuyMatFrm := TOutSideBuyMatFrm.Create(Self);
      OutSideBuyMatFrm.ShowModal;
end;procedure Tstoremainfrm.N56Click(Sender: TObject);
begin
       KrRetBadProdFrm := TKrRetBadProdFrm.Create(Self);
       KrRetBadProdFrm.ShowModal;
end;procedure Tstoremainfrm.N57Click(Sender: TObject);
begin
     krExportProdFrm := TKrExportProdFrm.Create(Self);
     KrExportProdFrm.ShowModal;
end;procedure Tstoremainfrm.N2Click(Sender: TObject);
begin
      RawMatDisFrm := TRawMatDisFrm.Create(Self);
      RawMatDisFrm.ShowModal;
end;procedure Tstoremainfrm.N53Click(Sender: TObject);
begin
     RetKoreaMatYFrm := TRetKoreaMatYFrm.Create(Self);
     RetKoreaMatYFrm.SheetFlag := 'Korea';
     RetKoreamatYFrm.ShowModal;end;procedure Tstoremainfrm.N55Click(Sender: TObject);
begin
     RetKoreaMatYFrm := TRetKoreaMatYFrm.Create(Self);
     RetKoreaMatYFrm.SheetFlag := 'JinDa';
     RetKoreamatYFrm.ShowModal;
end;procedure Tstoremainfrm.N26Click(Sender: TObject);
begin
        KoreaDetailFrm := TKoreaDetailFrm.Create(Self);
        KoreaDetailFrm.SheetFlag := 'JinDa';
        KoreaDetailFrm.ShowModal;end;procedure Tstoremainfrm.N39Click(Sender: TObject);
begin
     RawMatStoreFrm := TRawMatStoreFrm.Create(Self);
     RawMatStoreFrm.ShowModal;
end;procedure Tstoremainfrm.N82Click(Sender: TObject);
begin
      BadMatStoreFrm := TBadMatStoreFrm.Create(Self);
      BadMatStoreFrm.ShowModal;
end;procedure Tstoremainfrm.N65Click(Sender: TObject);
begin
        OutSideMatFrm := TOutSideMatFrm.Create(Self);
        OutSideMatFrm.ShowModal;
end;procedure Tstoremainfrm.N63Click(Sender: TObject);
begin
      OutSideProdInFrm := TOutSideProdInFrm.Create(Self);
      OutSideProdInFrm.ShowModal;
end;procedure Tstoremainfrm.N89Click(Sender: TObject);
begin
      OutSideMatDetailFrm := TOutSideMatDetailFrm.Create(Self);
      OutSideMatDetailFrm.ShowModal;
end;procedure Tstoremainfrm.FactoryMenuClick(Sender: TObject);
begin
       FactoryFrm := TFactoryFrm.Create(Self);
       FactoryFrm.ShowModal;
end;procedure Tstoremainfrm.N8Click(Sender: TObject);
begin
      ExporttotalFrm := TExportTotalFrm.Create(Self);
      ExportTotalFrm.ShowModal;
end;procedure Tstoremainfrm.N70Click(Sender: TObject);
begin
     ProdStoreFrm := TProdStoreFrm.Create(Self);
     prodStoreFrm.sheetFlag := 'Product';
     ProdStoreFrm.ShowModal;
end;procedure Tstoremainfrm.N83Click(Sender: TObject);
begin
     ProdStoreFrm := TProdStoreFrm.Create(Self);
     prodStoreFrm.sheetFlag := 'BadProd';
     ProdStoreFrm.ShowModal;
end;procedure Tstoremainfrm.N104Click(Sender: TObject);
begin
     ProdStoreFrm := TProdStoreFrm.Create(Self);
     prodStoreFrm.sheetFlag := 'KrRetBad';
     ProdStoreFrm.ShowModal;
end;procedure Tstoremainfrm.N71Click(Sender: TObject);
begin
      KrExportDetailFrm := TKrExportDetailFrm.Create(Self);
      KrExportDetailFrm.ShowModal;
end;procedure Tstoremainfrm.N59Click(Sender: TObject);
begin
     BadMatInFrm := TBadmatInFrm.Create(Self);
     BadmatInFrm.ShowModal;
end;procedure Tstoremainfrm.N72Click(Sender: TObject);
begin
     KrRetBadDetailFrm := TKrRetBadDetailFrm.Create(Self);
     KrRetBadDetailFrm.ShowModal;
end;procedure Tstoremainfrm.FormShow(Sender: TObject);
begin
     MenuBar.Width := ToolButton9.Left + ToolButton9.Width + 10;
     statusBar1.Panels[1].Text := AccountNO;
     statusBar1.Panels[2].Text := UserName ;
end;procedure Tstoremainfrm.chPassMenuClick(Sender: TObject);
begin
       with duoxindm.cdslookup1 do
       begin
            close;
            duoxindm.DCOM.AppServer.SQLOpenFirst('select * from SysUserTable where AccountNo = ''' + AccountNo + '''');
            open;
            if not isempty then
            begin
                ChPasswordFrm := TChpasswordfrm.Create (Self);
                chpasswordfrm.Left := (screen.Width - chpasswordfrm.Width ) div 2 ;
                chpasswordFrm.Top := (screen.Height - chpasswordfrm.Height ) div 2 ;
                ChPassWordFrm.ShowModal;
            end
            else
            begin
                application.MessageBox ('该用户已被删除！','错误',MB_OK + MB_ICONERROR);
            end;
       end;
end;procedure Tstoremainfrm.N60Click(Sender: TObject);
begin
     BadProdInFrm := TBadProdInFrm.Create(Self);
     BadProdInFrm.ShowModal;
end;procedure Tstoremainfrm.N92Click(Sender: TObject);
begin
        RawMatCheckFrm := TRawMatCheckFrm.Create(Self);
        RawMatCheckFrm.ShowModal;
end;procedure Tstoremainfrm.N99Click(Sender: TObject);
begin
      RawMatCheckRepFrm := TRawMatCheckRepFrm.Create(Self);
      RawMatCheckRepFrm.ShowModal;
end;procedure Tstoremainfrm.N62Click(Sender: TObject);
begin
     OutSideRetMatFrm := TOutSideRetMatFrm.Create(Self);
     OutSideRetMatFrm.ShowModal;
end;procedure Tstoremainfrm.N7Click(Sender: TObject);
begin
      OutSideExcMatFrm := TOutSideExcMatFrm.Create(Self);
      OutSideExcMatFrm.ShowModal;
end;procedure Tstoremainfrm.N84Click(Sender: TObject);
begin
         OutSideMatStoreFrm := TOutSideMatStoreFrm.Create(Self);
         OutSideMatStoreFrm.ShowModal;
end;procedure Tstoremainfrm.N85Click(Sender: TObject);
begin
         OutSideProdStoreFrm := TOutSideProdStoreFrm.Create(Self);
         OutSideProdStoreFrm.ShowModal;end;procedure Tstoremainfrm.N43Click(Sender: TObject);
begin
         RealAndPlanSotreFrm := TRealAndPlanSotreFrm.Create(Self);
         RealAndPlanSotreFrm.ShowModal;
end;procedure Tstoremainfrm.N76Click(Sender: TObject);
begin
      LendMatStoreFrm := TLendMatStoreFrm.Create(Self);
      LendMatStoreFrm.ShowModal;
end;procedure Tstoremainfrm.N42Click(Sender: TObject);
begin
      BadMatTotalFrm := TBadMatTotalFrm.Create(Self);
      BadMatTotalFrm.ShowModal;
end;end.

调试易

这个问题有点儿怪,请高手指点。

解决方案 »