main.pas

物业管理系统系统特点 一、 实现集中式管理 系统将集团公司、各分公司、各物业管理处连接到一起

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.