begin
    if getPodo('清潔綠化','綠化任務一覽表')=false then exit;
    f_RealtyH21:=Tf_RealtyH21.Create(self);
    f_RealtyH21.show;
end;

procedure TMainForm.N318Click(Sender: TObject);
begin
    if getPodo('清潔綠化','綠化管理之綠化項目一覽表')=false then exit;
    f_RealtyH22:=Tf_RealtyH22.Create(self);
    f_RealtyH22.show;
end;

procedure TMainForm.N319Click(Sender: TObject);
begin
    if getPodo('清潔綠化','綠化檢查記錄一覽表')=false then exit;
    f_RealtyH23:=Tf_RealtyH23.Create(self);
    f_RealtyH23.show;
end;
////////////

//設備管理
procedure TMainForm.N185Click(Sender: TObject);
begin
    if getPodo('設備管理','設備保養記錄')=false then exit;
    f_RealtyI3:=Tf_RealtyI3.Create(self);
    f_RealtyI3.show;
end;

procedure TMainForm.N186Click(Sender: TObject);
begin
    if getPodo('設備管理','設備故障記錄')=false then exit;
    f_RealtyI4:=Tf_RealtyI4.Create(self);
    f_RealtyI4.show;
end;

procedure TMainForm.N187Click(Sender: TObject);
begin
    if getPodo('設備管理','設備保養計劃')=false then exit;
    f_RealtyI2:=Tf_RealtyI2.Create(self);
    f_RealtyI2.show;
end;

procedure TMainForm.N189Click(Sender: TObject);
begin
    if getPodo('設備管理','工程圖紙')=false then exit;
    f_RealtyI5:=Tf_RealtyI5.Create(self);
    f_RealtyI5.show;
end;

procedure TMainForm.ym1Click(Sender: TObject);
begin
    if getPodo('設備管理','設備檔案')=false then exit;
    f_realtyI1:=Tf_realtyI1.Create(self);
    f_realtyI1.show;
end;
//////////

//倉庫管理
procedure TMainForm.N93Click(Sender: TObject);
begin
    if getPodo('倉庫管理','采購計劃一覽表')=false then exit;
    f_RealtyJA21:=Tf_RealtyJA21.Create(self);
    f_RealtyJA21.show;
end;

procedure TMainForm.M91Click(Sender: TObject);
begin
    if getPodo('倉庫管理','采購計劃明細表')=false then exit;
    f_RealtyJ23:=Tf_RealtyJ23.Create(self);
    f_RealtyJ23.show;
end;

procedure TMainForm.N94Click(Sender: TObject);
begin
    if getPodo('倉庫管理','采購計劃匯總表')=false then exit;
    f_RealtyJ23A:=Tf_RealtyJ23A.Create(self);
    f_RealtyJ23A.show;
end;//////

procedure TMainForm.N98Click(Sender: TObject);
begin
    if getPodo('倉庫管理','倉庫')=false then exit;
    f_RealtyJ31:=Tf_RealtyJ31.Create(self);
    f_RealtyJ31.show;
end;

procedure TMainForm.N99Click(Sender: TObject);
begin
    if getPodo('倉庫管理','物料擋案')=false then exit;
    f_RealtyJ1:=Tf_RealtyJ1.Create(self);
    f_RealtyJ1.show;
end;

procedure TMainForm.N151Click(Sender: TObject);
begin
    if getPodo('倉庫管理','供應商')=false then exit;
    f_realtyPro:=Tf_realtyPro.Create(self);
    f_realtyPro.ShowModal;
end;

procedure TMainForm.N152Click(Sender: TObject);
begin
    if getPodo('倉庫管理','領料定義')=false then exit;
    f_realtyUse:=Tf_realtyUse.Create(self);
    f_realtyUse.ShowModal;
end;

procedure TMainForm.N234Click(Sender: TObject);
begin
    if getPodo('倉庫管理','計量單位')=false then exit;
    f_area:=Tf_area.Create(self);
    f_area.showmodal;
end; /////

procedure TMainForm.N283Click(Sender: TObject);
begin
    if getPodo('倉庫管理','入庫單據')=false then exit;
    f_RealtyJA2:=Tf_RealtyJA2.Create(self);
    f_RealtyJA2.show;
end;

procedure TMainForm.N192Click(Sender: TObject);
begin
    if getPodo('倉庫管理','出庫單據')=false then exit;
    f_RealtyJA3:=Tf_RealtyJA3.Create(self);
    f_RealtyJA3.show;
end;

procedure TMainForm.N193Click(Sender: TObject);
begin
    if getPodo('倉庫管理','調拔單據')=false then exit;
    f_RealtyJA4:=Tf_RealtyJA4.Create(self);
    f_RealtyJA4.show;
end;

procedure TMainForm.N912Click(Sender: TObject);
begin
    if getPodo('倉庫管理','即時庫存查詢')=false then exit;
    f_RealtyJ6:=Tf_RealtyJ6.Create(self);
    f_RealtyJ6.show;
end;
////////////////

//文檔管理
procedure TMainForm.N30Click(Sender: TObject);
begin
    if getPodo('文檔管理','質量文擋')=false then exit;
    f_RealtyK1:=Tf_RealtyK1.Create(self);
    f_RealtyK1.show;
end;

procedure TMainForm.N31Click(Sender: TObject);
begin
    if getPodo('文檔管理','新增質量文擋')=false then exit;
    f_RealtyK2:=Tf_RealtyK2.Create(self);
    f_RealtyK2.show;
end;

procedure TMainForm.N211Click(Sender: TObject);
begin
    if getPodo('文檔管理','新增公司文擋')=false then exit;
    f_RealtyK4:=Tf_RealtyK4.Create(self);
    f_RealtyK4.show;
end;

procedure TMainForm.N212Click(Sender: TObject);
begin
    if getPodo('文檔管理','公司文擋')=false then exit;
    f_RealtyK3:=Tf_RealtyK3.Create(self);
    f_RealtyK3.show;
end;
//////////////

procedure TMainForm.N215Click(Sender: TObject);
begin
    if getPodo('文檔管理','票據管理一覽表')=false then exit;
    f_RealtyK61:=Tf_RealtyK61.Create(self);
    f_RealtyK61.show;
end;

procedure TMainForm.N214Click(Sender: TObject);
begin
    if getPodo('文檔管理','票據領用')=false then exit;
    f_RealtyK62:=Tf_RealtyK62.Create(self);
    f_RealtyK62.show;
end;/////////

procedure TMainForm.N218Click(Sender: TObject);
begin
    if getPodo('文檔管理','員工陪訓情況一覽表')=false then exit;
    f_RealtyK71:=Tf_RealtyK71.Create(self);
    f_RealtyK71.show;
end;

procedure TMainForm.N217Click(Sender: TObject);
begin
    if getPodo('文檔管理','員工陪訓')=false then exit;
    f_RealtyK72:=Tf_RealtyK72.Create(self);
    f_RealtyK72.show;
end; /////////

procedure TMainForm.N221Click(Sender: TObject);
begin
    if getPodo('文檔管理','周例會記錄一覽表')=false then exit;
    f_RealtyK81:=Tf_RealtyK81.Create(self);
    f_RealtyK81.show;
end;

procedure TMainForm.N220Click(Sender: TObject);
begin
    if getPodo('文檔管理','周例會')=false then exit;
    f_RealtyK82:=Tf_RealtyK82.Create(self);
    f_RealtyK82.show;
end;

procedure TMainForm.N224Click(Sender: TObject);
begin
    if getPodo('文檔管理','主任周計劃一覽表')=false then exit;
    f_RealtyK91:=Tf_RealtyK91.Create(self);
    f_RealtyK91.show;
end;

procedure TMainForm.N223Click(Sender: TObject);
begin
    if getPodo('文檔管理','主任周計劃')=false then exit;
    f_RealtyK92:=Tf_RealtyK92.Create(self);
    f_RealtyK92.show;
end; ///////////

procedure TMainForm.N227Click(Sender: TObject);
begin
    if getPodo('文檔管理','主任工作檢察一覽表')=false then exit;
    f_RealtyK101:=Tf_RealtyK101.Create(self);
    f_RealtyK101.show;
end;

procedure TMainForm.N226Click(Sender: TObject);
begin
    if getPodo('文檔管理','主任工作檢察')=false then exit;
    f_RealtyK102:=Tf_RealtyK102.Create(self);
    f_RealtyK102.show;
end;

procedure TMainForm.N296Click(Sender: TObject);
begin
    if getPodo('文檔管理','主任安全檢察一覽表')=false then exit;
    f_RealtyK111:=Tf_RealtyK111.Create(self);
    f_RealtyK111.show;
end;

procedure TMainForm.N295Click(Sender: TObject);
begin
    if getPodo('文檔管理','主任安全工作檢察')=false then exit;
    f_RealtyK112:=Tf_RealtyK112.Create(self);
    f_RealtyK112.show;
end;
///////////////////

//系統管理
procedure TMainForm.N230Click(Sender: TObject);
begin
    if getPodo('系統管理','輔助資料')=false then exit;
    f_RealtyL11:=TF_RealtyL11.Create(self);
    f_RealtyL11.show;
end;

procedure TMainForm.N1111Click(Sender: TObject);
begin
    if getPodo('系統管理','組織機構')=false then exit;
    f_RealtyL26:=Tf_RealtyL26.Create(self);
    f_RealtyL26.show;
end;

procedure TMainForm.N232Click(Sender: TObject);
begin
    if getPodo('系統管理','部門')=false then exit;
    f_RealtyL22:=Tf_RealtyL22.Create(self);
    f_RealtyL22.show;
end;

procedure TMainForm.N233Click(Sender: TObject);
begin
    if getPodo('系統管理','職員')=false then exit;
    f_RealtyL23:=Tf_RealtyL23.Create(self);
    f_RealtyL23.show;
end;  /////////////

procedure TMainForm.N237Click(Sender: TObject);
begin
    if getPodo('系統管理','開發商')=false then exit;
    f_RealtyL31:=Tf_RealtyL31.Create(self);
    f_RealtyL31.show;
end;

procedure TMainForm.N238Click(Sender: TObject);
begin
    if getPodo('系統管理','承建商')=false then exit;
    f_RealtyL32:=Tf_RealtyL32.Create(self);
    f_RealtyL32.show;
end;

procedure TMainForm.N239Click(Sender: TObject);
begin
    if getPodo('系統管理','裝修公司')=false then exit;
    f_RealtyL33:=Tf_RealtyL33.Create(self);
    f_RealtyL33.show;
end;

procedure TMainForm.N241Click(Sender: TObject);
begin
    if getPodo('系統管理','外部人員')=false then exit;
    f_RealtyL41:=Tf_RealtyL41.Create(self);
    f_RealtyL41.show;
end;  /////////////

procedure TMainForm.N200Click(Sender: TObject);
begin
    if getPodo('系統管理','用戶權限')=false then exit;
    f_Car4ss102:=Tf_Car4ss102.Create(self);
    f_Car4ss102.Show;
end;

procedure TMainForm.N201Click(Sender: TObject);
begin
    if getPodo('系統管理','上機日志')=false then exit;
    f_Car4ss106:=Tf_Car4ss106.Create(self);
    f_Car4ss106.Show;
end;

procedure TMainForm.N202Click(Sender: TObject);
begin
    if getPodo('系統管理','系統參數')=false then exit;
    f_Car4ss101:=TF_Car4ss101.Create(self);
    f_Car4ss101.show;
end;

procedure TMainForm.N287Click(Sender: TObject);
begin
    if getPodo('系統管理','數據備份')=false then exit;
    //f_backup:=TF_backup.Create(self);
    //f_backup.show;
    f_backupA:=TF_backupA.Create(self);
    f_backupA.show;
end;

procedure TMainForm.N288Click(Sender: TObject);
begin
    if getPodo('系統管理','數據恢復')=false then exit;
    //f_restore:=TF_restore.Create(self);
    //f_restore.show;
    f_backupB:=TF_backupB.Create(self);
    f_backupB.show;
end;

procedure TMainForm.N286Click(Sender: TObject);
begin
    if getPodo('系統管理','初始化')=false then exit;
    initialform:=Tinitialform.Create(self);
    initialform.Show;
end;
//////////////



procedure TMainForm.N112Click(Sender: TObject);
begin
    f_password:=TF_password.Create(self);
    f_password.showmodal;
end;

procedure TMainForm.N36Click(Sender: TObject);
begin
    mainform.showChmHelp('01.htm');
end;

procedure TMainForm.N3Click(Sender: TObject);
begin
    f_About:=Tf_About.Create(Self);
    f_About.ShowModal;
end;




procedure TMainForm.Timer2Timer(Sender: TObject);
begin
    if sg1<>'-' then
    begin
        label2.Caption:=sg1;
        label3.Caption:=sg2;
        label4.Caption:=sg3;
    end
    else
    begin
        sg1:=label2.Caption;
        sg2:=label3.Caption;
        sg3:=label4.Caption;
    end;
    StatusBar1.Panels[3].Text:=sg1+'  '+sg2+'  '+sg3;
    TheCaption:='新源物業管理系統 V1.8 版'+'  '+sg1;
    CaptionRotateLeft;
end;

procedure TMainForm.ToolButton1Click(Sender: TObject);
begin
    N711Click(Sender);
end;

procedure TMainForm.ToolButton2Click(Sender: TObject);
begin
    N43Click(Sender);
end;

procedure TMainForm.ToolButton3Click(Sender: TObject);
begin
    N81Click(Sender);
end;

procedure TMainForm.ToolButton4Click(Sender: TObject);
begin
    N305Click(Sender);
end;

procedure TMainForm.ToolButton5Click(Sender: TObject);
begin
    N200Click(Sender);
end;

procedure TMainForm.ToolButton6Click(Sender: TObject);
begin
    N287Click(Sender);
end;

procedure TMainForm.ToolButton7Click(Sender: TObject);
begin
    N36Click(Sender);    
end;

procedure TMainForm.ToolButton8Click(Sender: TObject);
begin
    N3Click(Sender);
end;

procedure TMainForm.ToolButton9Click(Sender: TObject);
begin
    S31Click(Sender);
end;

end.