生產管理系統主窗口設計及實現代碼[3]

    ——此文章摘自《Delphi 數據庫開發經典案例解析》定價￥　特價￥　購買>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave>

       if flag= then
     begin
     newform:=TmaterialsCreate(application);
     newformCaption:=物料主文件維護;
     end;
    end;
     
    //打開物料清單(BOM)子窗體
    procedure TmainBOMClick(Sender: TObject);
    var
    newform:Tbom;
    iflag:integer;
    begin
      flag:=;
      for i:= to mainMDIChildCount do
     begin
    // 通過對窗體標題判斷窗體是否存在
      if mainMDIChildren[i]Caption=物料清單(BOM) then
       begin
       //如果窗體已存在則恢復窗體
         SendMessage(mdichildren[i]Handle WM_SYSCOMMAND SC_restore );
        mdichildren[i]Show;
    //標識窗體已存在
         flag:=;
       //退出循環
       break;
       end;
       end;
      //若窗體不存在則創建窗體
       if flag= then
     begin
     newform:=TbomCreate(application);
     newformCaption:=物料清單(BOM);
     end;
    end;       
      
    //平鋪各個子窗體
    procedure TmainNClick(Sender: TObject);
    begin
     Tile;
    end;
    //層疊各個子窗體
    procedure TmainNClick(Sender: TObject);
    begin
      Cascade;
    end;

right>[http://developcsaicn/delphi/htm>]  [http://developcsaicn/delphi/htm>]  []  [http://developcsaicn/delphi/htm>]  

From:http://tw.wingwit.com/Article/program/Delphi/201311/24957.html