main.pas

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

    f_RealtyC21:=Tf_RealtyC21.Create(self);
    f_RealtyC21.show;
end;

procedure TMainForm.N120Click(Sender: TObject);
begin
    if getPodo('收费管理','收费时间')=false then exit;
    f_RealtyC22:=Tf_RealtyC22.Create(self);
    f_RealtyC22.show;
end;

procedure TMainForm.N122Click(Sender: TObject);
begin
    if getPodo('收费管理','收费标准')=false then exit;
    f_RealtyC24:=Tf_RealtyC24.Create(self);
    f_RealtyC24.show;
end;

procedure TMainForm.N123Click(Sender: TObject);
begin
    if getPodo('收费管理','房间收费标准设置')=false then exit;
    f_RealtyC25:=Tf_RealtyC25.Create(self);
    f_RealtyC25.show;
end;

procedure TMainForm.N124Click(Sender: TObject);
begin
    if getPodo('收费管理','车位收费标准设置')=false then exit;
    f_RealtyC26:=Tf_realtyC26.Create(self);
    f_RealtyC26.show;
end;//////

procedure TMainForm.N126Click(Sender: TObject);
begin
    if getPodo('收费管理','仪表种类')=false then exit;
    f_RealtyC31:=Tf_RealtyC31.Create(self);
    f_RealtyC31.show;
end;

procedure TMainForm.N127Click(Sender: TObject);
begin
    if getPodo('收费管理','公摊仪表')=false then exit;
    f_RealtyC32:=Tf_RealtyC32.Create(self);
    f_RealtyC32.show;
end;

procedure TMainForm.N128Click(Sender: TObject);
begin
    if getPodo('收费管理','房间仪表')=false then exit;
    f_RealtyC33:=Tf_RealtyC33.Create(self);
    f_RealtyC33.show;
end;

procedure TMainForm.N129Click(Sender: TObject);
begin
    if getPodo('收费管理','抄表现（公摊仪表）一览表')=false then exit;
    f_RealtyC34:=Tf_RealtyC34.Create(self);
    f_RealtyC34.show;
end;

procedure TMainForm.N130Click(Sender: TObject);
begin
    if getPodo('收费管理','抄表（房间仪表）一览表')=false then exit;
    f_RealtyC35:=Tf_RealtyC35.Create(self);
    f_RealtyC35.show;
end;

procedure TMainForm.N131Click(Sender: TObject);
begin
    if getPodo('收费管理','走表用量统计')=false then exit;
    f_RealtyC36:=Tf_RealtyC36.Create(self);
    f_RealtyC36.show;
end;//////

procedure TMainForm.N133Click(Sender: TObject);
begin
    if getPodo('收费管理','常规费用一览表')=false then exit;
    f_realtyC41:=Tf_realtyC41.Create(self);
    f_realtyC41.show;
end;

procedure TMainForm.N134Click(Sender: TObject);
begin
    if getPodo('收费管理','房间抄表费用一览表')=false then exit;
    f_realtyC42:=Tf_realtyC42.Create(self);
    f_realtyC42.show;
end;

procedure TMainForm.N35Click(Sender: TObject);
begin
    if getPodo('收费管理','公摊抄表费用一览表')=false then exit;
    f_realtyC42B:=Tf_realtyC42B.Create(self);
    f_realtyC42B.show;
end;

procedure TMainForm.N17Click(Sender: TObject);
begin
    if getPodo('收费管理','车位费用一览表')=false then exit;
    f_realtyC43:=Tf_realtyC43.Create(self);
    f_realtyC43.show;
end;

procedure TMainForm.N136Click(Sender: TObject);
begin
    if getPodo('收费管理','其它费用一览表')=false then exit;
    f_realtyC44:=Tf_realtyC44.Create(self);
    f_realtyC44.show;
end;/////

procedure TMainForm.N146Click(Sender: TObject);
begin
    if getPodo('收费管理','保证金一览表')=false then exit;
    f_realtyC62:=Tf_realtyC62.Create(self);
    f_realtyC62.Show;
end; /////

procedure TMainForm.N37Click(Sender: TObject);
begin
    if getPodo('收费管理','财务收款')=false then exit;
    f_Car4ss62:=TF_Car4ss62.Create(self);
    f_Car4ss62.show;
end;

procedure TMainForm.N21Click(Sender: TObject);
begin
    if getPodo('收费管理','财务退款')=false then exit;
    f_Car4ss66:=TF_Car4ss66.Create(self);
    f_Car4ss66.show;
end;

procedure TMainForm.N25Click(Sender: TObject);
begin
    if getPodo('收费管理','应收帐款汇总查询')=false then exit;
    f_Car4ss63:=TF_Car4ss63.Create(self);
    f_Car4ss63.show;
end;

procedure TMainForm.N26Click(Sender: TObject);
begin
    if getPodo('收费管理','到期应收帐款查询')=false then exit;
    f_Car4ss64:=TF_Car4ss64.Create(self);
    f_Car4ss64.show;
end;

procedure TMainForm.N33Click(Sender: TObject);
begin
    if getPodo('收费管理','财务收款明细查询')=false then exit;
    f_Car4ss65:=TF_Car4ss65.Create(self);
    f_Car4ss65.show;
end;

procedure TMainForm.N22Click(Sender: TObject);
begin
    if getPodo('收费管理','财务退款明细查询')=false then exit;
    f_Car4ss67:=TF_Car4ss67.Create(self);
    f_Car4ss67.show;
end;

procedure TMainForm.N117Click(Sender: TObject);
begin
    if getPodo('收费管理','财务导出')=false then exit;
    f_Car4ss62:=TF_Car4ss62.Create(self);
    f_Car4ss62.show;
end;
/////////////

//租赁管理
procedure TMainForm.N43Click(Sender: TObject);
begin
    if getPodo('租赁管理','房源管理')=false then exit;
    f_RealtyE11:=Tf_RealtyE11.Create(self);
    f_RealtyE11.show;
end;

procedure TMainForm.N44Click(Sender: TObject);
begin
    if getPodo('租赁管理','租房源一览表')=false then exit;
    f_realtyE22:=Tf_realtyE22.Create(self);
    f_realtyE22.show;
end;/////

procedure TMainForm.N46Click(Sender: TObject);
begin
    if getPodo('租赁管理','新增合同')=false then exit;
    f_realtyE12:=Tf_realtyE12.Create(self);
    f_realtyE12.show;
end;

procedure TMainForm.N47Click(Sender: TObject);
begin
    if getPodo('租赁管理','租赁合同一览表')=false then exit;
    f_RealtyE32:=Tf_RealtyE32.Create(self);
    f_RealtyE32.show;
end;

procedure TMainForm.M41Click(Sender: TObject);
begin
    if getPodo('租赁管理','合同到期预警表')=false then exit;
    f_RealtyE34:=Tf_RealtyE34.Create(self);
    f_RealtyE34.show;
end; /////

procedure TMainForm.N70Click(Sender: TObject);
begin
    if getPodo('租赁管理','代租合同')=false then exit;
    f_RealtyE41:=Tf_RealtyE41.Create(self);
    f_RealtyE41.show;
end;

procedure TMainForm.N80Click(Sender: TObject);
begin
    if getPodo('租赁管理','代租合同一览表')=false then exit;
    f_RealtyE42:=Tf_RealtyE42.Create(self);
    f_RealtyE42.show;
end;//////

procedure TMainForm.N263Click(Sender: TObject);
begin
    if getPodo('租赁管理','租赁合同续签')=false then exit;
    f_realtyE15:=Tf_realtyE15.Create(self);
    f_realtyE15.show;
end;

procedure TMainForm.N266Click(Sender: TObject);
begin
    if getPodo('租赁管理','租赁合同中止')=false then exit;
    f_realtyE16:=Tf_realtyE16.Create(self);
    f_realtyE16.show;
end;
////////////////

//综合服务
procedure TMainForm.N19Click(Sender: TObject);
begin
    if getPodo('综合服务','新增值班记录单')=false then exit;
    f_RealtyF22:=Tf_RealtyF22.Create(self);
    f_RealtyF22.show;
end;

procedure TMainForm.N81Click(Sender: TObject);
begin
    if getPodo('综合服务','值班记录一览表')=false then exit;
    f_RealtyF21:=Tf_RealtyF21.Create(self);
    f_RealtyF21.show;
end; /////

procedure TMainForm.N83Click(Sender: TObject);
begin
    if getPodo('综合服务','出入证一览表')=false then exit;
    f_RealtyF31:=Tf_RealtyF31.Create(self);
    f_RealtyF31.show;
end;

procedure TMainForm.N84Click(Sender: TObject);
begin
    if getPodo('综合服务','申请出入证')=false then exit;
    f_RealtyF32:=Tf_RealtyF32.Create(self);
    f_RealtyF32.show;
end;

procedure TMainForm.N85Click(Sender: TObject);
begin
    if getPodo('综合服务','出入证收费明细表')=false then exit;
    f_RealtyF33:=Tf_RealtyF33.Create(self);
    f_RealtyF33.show;
end;////////

procedure TMainForm.N87Click(Sender: TObject);
begin
    if getPodo('综合服务','新增投拆处理')=false then exit;
    f_RealtyF41:=Tf_RealtyF41.Create(self);
    f_RealtyF41.show;
end;

procedure TMainForm.N88Click(Sender: TObject);
begin
    if getPodo('综合服务','投拆信息一览表')=false then exit;
    f_RealtyF42:=Tf_RealtyF42.Create(self);
    f_RealtyF42.show;
end;

procedure TMainForm.N89Click(Sender: TObject);
begin
    if getPodo('综合服务','投拆处理一览表')=false then exit;
    f_RealtyF43:=Tf_RealtyF43.Create(self);
    f_RealtyF43.show;
end;//////

procedure TMainForm.N109Click(Sender: TObject);
begin
    if getPodo('综合服务','装修申请一览表')=false then exit;
    f_RealtyF51:=Tf_RealtyF51.Create(self);
    f_RealtyF51.show;
end;

procedure TMainForm.N110Click(Sender: TObject);
begin
    if getPodo('综合服务','装修验收一览表')=false then exit;
    f_RealtyF52:=Tf_RealtyF52.Create(self);
    f_RealtyF52.show;
end;/////

procedure TMainForm.N177Click(Sender: TObject);
begin
    if getPodo('综合服务','定期服务一览表')=false then exit;
    f_RealtyF61:=Tf_RealtyF61.Create(self);
    f_RealtyF61.show;
end;

procedure TMainForm.N178Click(Sender: TObject);
begin
    if getPodo('综合服务','服务类别')=false then exit;
    f_Realtyf62:=Tf_Realtyf62.Create(self);
    f_Realtyf62.show;
end;

procedure TMainForm.N179Click(Sender: TObject);
begin
    if getPodo('综合服务','服务派工一览表')=false then exit;
    f_RealtyF63:=Tf_RealtyF63.Create(self);
    f_RealtyF63.show;
end;

procedure TMainForm.N268Click(Sender: TObject);
begin
    if getPodo('综合服务','新增服务派工单')=false then exit;
    f_RealtyF12:=Tf_RealtyF12.Create(self);
    f_RealtyF12.show;
end;     

procedure TMainForm.N180Click(Sender: TObject);
begin
    if getPodo('综合服务','派工单物料使用明细表')=false then exit;
    f_RealtyF64:=Tf_RealtyF64.Create(self);
    f_RealtyF64.show;
end;
///////////


//保安消防
procedure TMainForm.N52Click(Sender: TObject);
begin
    if getPodo('保安消防','保安排班情况一览表')=false then exit;
    f_RealtyG21:=Tf_RealtyG21.Create(self);
    f_RealtyG21.show;
end;

procedure TMainForm.N54Click(Sender: TObject);
begin
    if getPodo('保安消防','车辆信息一览表')=false then exit;
    f_RealtyG31:=Tf_RealtyG31.Create(self);
    f_RealtyG31.show;
end;

procedure TMainForm.M52Click(Sender: TObject);
begin
    if getPodo('保安消防','器材配备明细一览表')=false then exit;
    f_RealtyG41:=Tf_RealtyG41.Create(self);
    f_RealtyG41.show;
end;

procedure TMainForm.N57Click(Sender: TObject);
begin
    if getPodo('保安消防','消防器材一览表')=false then exit;
    f_RealtyG51:=Tf_RealtyG51.Create(self);
    f_RealtyG51.show;
end;

procedure TMainForm.M53Click(Sender: TObject);
begin
    if getPodo('保安消防','消防片区一览表')=false then exit;
    f_RealtyG52:=Tf_RealtyG52.Create(self);
    f_RealtyG52.show;
end;

procedure TMainForm.N58Click(Sender: TObject);
begin
    if getPodo('保安消防','消防片区器材配备一览表')=false then exit;
    f_RealtyG53:=Tf_RealtyG53.Create(self);
    f_RealtyG53.show;
end;//////

procedure TMainForm.N510Click(Sender: TObject);
begin
    if getPodo('保安消防','治安事件一览表')=false then exit;
    f_RealtyG61:=Tf_RealtyG61.Create(self);
    f_RealtyG61.show;
end;
//////////////

//清洁绿化
procedure TMainForm.N302Click(Sender: TObject);
begin
    if getPodo('清洁绿化','保洁项目定义')=false then exit;
    f_realtyH31:=Tf_realtyH31.Create(self);
    f_realtyH31.show;
end;

procedure TMainForm.N303Click(Sender: TObject);
begin
    if getPodo('清洁绿化','新增保洁任务')=false then exit;
    f_RealtyH32:=Tf_RealtyH32.Create(self);
    f_RealtyH32.show;
end;

procedure TMainForm.N304Click(Sender: TObject);
begin
    if getPodo('清洁绿化','新增清洁检查记录')=false then exit;
    f_realtyH33:=Tf_realtyH33.Create(self);
    f_realtyH33.show;
end;

procedure TMainForm.N305Click(Sender: TObject);
begin
    if getPodo('清洁绿化','保洁任务一览表')=false then exit;
    f_realtyH41:=Tf_realtyH41.Create(self);
    f_realtyH41.show;
end;

procedure TMainForm.N306Click(Sender: TObject);
begin
    if getPodo('清洁绿化','卫生保洁项目一览表')=false then exit;
    f_RealtyH42:=Tf_RealtyH42.Create(self);
    f_RealtyH42.show;
end;

procedure TMainForm.N307Click(Sender: TObject);
begin
    if getPodo('清洁绿化','清洁检查记录一览表')=false then exit;
    f_RealtyH43:=Tf_RealtyH43.Create(self);
    f_RealtyH43.show;
end;////////////

procedure TMainForm.N315Click(Sender: TObject);
begin
    if getPodo('清洁绿化','绿化项目定义')=false then exit;
    f_RealtyH11:=Tf_RealtyH11.Create(self);
    f_RealtyH11.show;
end;

procedure TMainForm.N316Click(Sender: TObject);
begin
    if getPodo('清洁绿化','新增绿化任务')=false then exit;
    f_RealtyH12:=Tf_RealtyH12.Create(self);
    f_RealtyH12.show;
end;

procedure TMainForm.N317Click(Sender: TObject);
begin
    if getPodo('清洁绿化','新增绿化检查记录')=false then exit;
    f_RealtyH13:=Tf_RealtyH13.Create(self);
    f_RealtyH13.show;
end;

procedure TMainForm.N16Click(Sender: TObject);