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);