?? mc_mainform.~pas

?? 物業管理 1.建立一個WYGL數據庫
?? ~PAS
?? 第 1 頁 / 共 4 頁
字號:
    GCBSJDY:=TGCBSJDY.Create(Self);
    GCBSJDY.ShowModal;
  end;
end;
//財務部管理
if List_A.Caption='采暖費管理' then         //調入采暖費管理窗口
begin
If Not Assigned(CNFGL) Then
  begin
    CNFGL:=TCNFGL.Create(Self);
    CNFGL.ShowModal;
  end;
end;
if List_A.Caption='水電煤氣費收取' then         //調入水電煤氣費收取窗口
begin
If Not Assigned(FYSQXZ) Then
  begin
    FYSQXZ:=TFYSQXZ.Create(Self);
    FYSQXZ.ShowModal;
  end;
end;
if List_A.Caption='填寫收費通知單' then          //調入收費通知單窗口
begin
If Not Assigned(MInsert) Then
  begin
    MInsert:=TMInsert.Create(Self);
    MInsert.ShowModal;
  end;
end;
if List_A.Caption='房租信息管理' then          //調入房租信息管理窗口
begin
If Not Assigned(FWXZGL) Then
  begin
    FWXZGL:=TFWXZGL.Create(Self);
    FWXZGL.ShowModal;
  end;
end;
if List_A.Caption='實收收費登記管理' then          //調入實收收費登記管理窗口
begin
If Not Assigned(FYSQ) Then
   begin
     FYSQ:=TFYSQ.Create(Self);
     FYSQ.ShowModal;
   end;
end;
if List_A.Caption='收費情況一覽' then          //調入收費情況一覽窗口
begin
If Not Assigned(SFYL) Then
  begin
    SFYL:=TSFYL.Create(self);
    SFYL.ShowModal;
  end;
end;
if List_A.Caption='每戶費用信息查詢' then          //調入每戶費用信息查詢窗口
begin
If Not Assigned(MHFYCX) Then
  begin
    MHFYCX:=TMHFYCX.Create(Self);
    MHFYCX.ShowModal;
  end;
end;
if List_A.Caption='歷史費用信息查詢' then          //調入歷史費用信息查詢窗口
begin
If Not Assigned(LSFYCX) Then
  begin
    LSFYCX:=TLSFYCX.Create(Self);
    LSFYCX.ShowModal;
  end;
end;
if List_A.Caption='導出本月收費數據' then            //調入“導出本月收費數據“窗口
begin
If Not Assigned(DCBYSJ) Then
  begin
    DCBYSJ:=TDCBYSJ.Create(Self);
    DCBYSJ.ShowModal;
  end;
end;
if ListView1.Columns[0].Caption='【財務部】功能選項' then
if List_A.Caption='系統數據設定' then             //調入財務部“系統數據設定“窗口
begin
If Not Assigned(CWXTSZ) Then
  begin
    CWXTSZ:=TCWXTSZ.Create(Self);
    CWXTSZ.ShowModal;
  end;
end;
if ListView1.Columns[0].Caption='【財務部】功能選項' then
if List_A.Caption='數據信息打印' then              //調入財務部“數據信息打印“窗口
begin
If Not Assigned(CWBSJDY) Then
  begin
    CWBSJDY:=TCWBSJDY.Create(self);
    CWBSJDY.ShowModal;
  end;
end;
//辦公文檔管理
if List_A.Caption='辦公室文檔管理' then          //調入辦公室“辦公室文檔管理“窗口
begin
If Not Assigned(BGSWD) Then
  begin
    BGSWD:=TBGSWD.Create(Self);
    BGSWD.ShowModal;
  end;
end;
if List_A.Caption='辦公室文檔查詢' then          //調入辦公室“辦公室文檔管理“窗口
begin
If Not Assigned(WDCX) Then
  begin
    WDCX:=TWDCX.Create(Self);
    WDCX.ShowModal;
  end;
end;
//保安管理
if List_A.Caption='保安排班查詢' then           //調入保安管理“保安排班查詢“窗口
begin
If Not Assigned(PBCX) Then
  begin
    PBCX:=TPBCX.Create(Self);
    PBCX.showModal;
  end;
end;
if List_A.Caption='保安排班管理' then          //調入保安管理“保安排班管理“窗口
begin
If Not Assigned(PBGL) Then
  begin
    PBGL:=TPBGL.Create(Self);
    PBGL.ShowModal;
  end;
end;
//經理室查詢
if List_A.Caption='小區資源統計' then          //調入經理室查詢“保安排班管理“窗口
begin
If Not Assigned(FCZYCX) Then
  begin
    FCZYCX:=TFCZYCX.Create(Self);
    FCZYCX.ShowModal;
  end;
end;
if List_A.Caption='業主信息查詢' then           //調入經理室查詢“業主信息查詢“窗口
begin
If Not Assigned(YZXXCX) Then
  begin
    YZXXCX:=TYZXXCX.Create(Self);
    YZXXCX.ShowModal;
  end;
end;
if List_A.Caption='房屋出租查詢' then           //調入經理室查詢“房屋出租查詢“窗口
begin
If Not Assigned(FWCZXXCX) Then
  begin
    FWCZXXCX:=TFWCZXXCX.Create(Self);
    FWCZXXCX.ShowModal;
  end;
end;
if List_A.Caption='小區員工查詢' then            //調入經理室查詢“小區員工查詢“窗口
begin
If Not Assigned(XQYGXXCX) Then
  begin
    XQYGXXCX:=TXQYGXXCX.Create(Self);
    XQYGXXCX.ShowModal;
  end;
end;
if List_A.Caption='小區制度查詢' then            //調入經理室查詢“小區員工查詢“窗口
begin
If Not Assigned(ZDCX) Then
  begin
    ZDCX:=TZDCX.Create(Self);
    ZDCX.ShowModal;
  end;
end;
if List_A.Caption='收費統計分析' then             //調入經理室查詢“小區員工查詢“窗口
begin
If Not Assigned(SFQKFX) Then
  begin
    SFQKFX:=TSFQKFX.Create(Self);
    SFQKFX.ShowModal;
  end;
end;
// 系統管理
if List_A.Caption='用戶權限管理' then            //調入系統管理“用戶權限管理“窗口
begin
If Not Assigned(YHQXGL) Then
  begin
    YHQXGL:=TYHQXGL.Create(Self);
    YHQXGL.ShowModal;
  end;
end;
if List_A.Caption='關于本軟件' then            //調入系統管理“關于本軟件“窗口
begin
About.ShowModal;
end;
if List_A.Caption='系統信息' then
begin
If Not Assigned(XTXX) Then
  begin
    XTXX:=TXTXX.Create(Self);
    XTXX.ShowModal;
  end;
end;
end;
//根據操作員權限設置【經營部】導航菜單功能選項
procedure TMainForm.ToolButton1Click(Sender: TObject);
var List_JYB: TListItem;
begin
  ListView1.Columns[0].Caption:='【經營部】功能選項';
  ListView1.Items.Clear;
  if Query1.Locate('使用選項','小區信息生成',[loCaseInsensitive]) then
  begin
    List_JYB:=ListView1.Items.Add;
    List_JYB.Caption:='小區信息生成';
    List_JYB.ImageIndex:=5;
  End
  Else
  begin
    List_JYB:=ListView1.Items.Add;
    List_JYB.Caption:='小區信息生成  [禁用]';
    List_JYB.ImageIndex:=5;
  end;
  if Query1.Locate('使用選項','大樓信息生成',[loCaseInsensitive]) then
  begin
    List_JYB:=ListView1.Items.Add;
    List_JYB.Caption:='大樓信息生成';
    List_JYB.ImageIndex:=5;
  End
  Else
  begin
    List_JYB:=ListView1.Items.Add;
    List_JYB.Caption:='大樓信息生成  [禁用]';
    List_JYB.ImageIndex:=5;
  end;
  if Query1.Locate('使用選項','房屋信息生成',[loCaseInsensitive]) then
  begin
    List_JYB:=ListView1.Items.Add;
    List_JYB.Caption:='房屋信息生成';
    List_JYB.ImageIndex:=5;
  End
  Else
  begin
    List_JYB:=ListView1.Items.Add;
    List_JYB.Caption:='房屋信息生成  [禁用]';
    List_JYB.ImageIndex:=5;
  end;
  if Query1.Locate('使用選項','小區信息登記',[loCaseInsensitive]) then
  begin
    List_JYB:=ListView1.Items.Add;
    List_JYB.Caption:='小區信息登記';
    List_JYB.ImageIndex:=0;
  End
  Else
  begin
    List_JYB:=ListView1.Items.Add;
    List_JYB.Caption:='小區信息登記  [禁用]';
    List_JYB.ImageIndex:=0;
  end;
 if Query1.Locate('使用選項','大樓信息登記',[loCaseInsensitive]) then
  begin
    List_JYB:=ListView1.Items.Add;
    List_JYB.Caption:='大樓信息登記';
    List_JYB.ImageIndex:=1;
  End
  Else
  begin
    List_JYB:=ListView1.Items.Add;
    List_JYB.Caption:='大樓信息登記  [禁用]';
    List_JYB.ImageIndex:=1;
  end;
  if Query1.Locate('使用選項','房屋信息登記',[loCaseInsensitive]) then
  begin
    List_JYB:=ListView1.Items.Add;
    List_JYB.Caption:='房屋信息登記';
    List_JYB.ImageIndex:=2;
  End
  Else
  begin
    List_JYB:=ListView1.Items.Add;
    List_JYB.Caption:='房屋信息登記  [禁用]';
    List_JYB.ImageIndex:=2;
  end;
  if Query1.Locate('使用選項','系統數據設定',[loCaseInsensitive]) then
  begin
    List_JYB:=ListView1.Items.Add;
    List_JYB.Caption:='系統數據設定';
    List_JYB.ImageIndex:=3;
  End
  Else
  begin
    List_JYB:=ListView1.Items.Add;
    List_JYB.Caption:='系統數據設定';
    List_JYB.ImageIndex:=3;
  end;
  if Query1.Locate('使用選項','數據信息打印',[loCaseInsensitive]) then
  begin
    List_JYB:=ListView1.Items.Add;
    List_JYB.Caption:='數據信息打印';
    List_JYB.ImageIndex:=4;
  End
  Else
  begin
    List_JYB:=ListView1.Items.Add;
    List_JYB.Caption:='數據信息打印';
    List_JYB.ImageIndex:=4;
  end;
end;
//根據操作員權限設置【管理部】導航菜單功能選項
procedure TMainForm.ToolButton2Click(Sender: TObject);
var List_GLB: TListItem;
begin
  ListView1.Columns[0].Caption:='【管理部】功能選項';
  ListView1.Items.Clear;
  if Query1.Locate('使用選項','業主信息登記',[loCaseInsensitive]) then
  begin
    List_GLB:=ListView1.Items.Add;
    List_GLB.Caption:='業主信息登記';
    List_GLB.ImageIndex:=6;
  End
  Else
  begin
    List_GLB:=ListView1.Items.Add;
    List_GLB.Caption:='業主信息登記  [禁用]';
    List_GLB.ImageIndex:=6;
  end;
  if Query1.Locate('使用選項','人口信息登記',[loCaseInsensitive]) then
  begin
    List_GLB:=ListView1.Items.Add;
    List_GLB.Caption:='人口信息登記';
    List_GLB.ImageIndex:=8;
  End
  Else
  begin
    List_GLB:=ListView1.Items.Add;
    List_GLB.Caption:='人口信息登記  [禁用]';
    List_GLB.ImageIndex:=8;
  end;
  if Query1.Locate('使用選項','人口信息查詢',[loCaseInsensitive]) then
  begin
    List_GLB:=ListView1.Items.Add;
    List_GLB.Caption:='人口信息查詢';
    List_GLB.ImageIndex:=7;
  End
  Else
  begin
    List_GLB:=ListView1.Items.Add;
    List_GLB.Caption:='人口信息查詢  [禁用]';
    List_GLB.ImageIndex:=7;
  end;
  if Query1.Locate('使用選項','房屋出租登記',[loCaseInsensitive]) then
  begin
    List_GLB:=ListView1.Items.Add;
    List_GLB.Caption:='房屋出租登記';
    List_GLB.ImageIndex:=9;
  End
  Else
  begin
    List_GLB:=ListView1.Items.Add;
    List_GLB.Caption:='房屋出租登記  [禁用]';
    List_GLB.ImageIndex:=9;
  end;
  if Query1.Locate('使用選項','小區制度管理',[loCaseInsensitive]) then
  begin
    List_GLB:=ListView1.Items.Add;
    List_GLB.Caption:='小區制度管理';
    List_GLB.ImageIndex:=11;
  End
  Else
  begin
    List_GLB:=ListView1.Items.Add;
    List_GLB.Caption:='小區制度管理  [禁用]';
    List_GLB.ImageIndex:=11;
  end;
  if Query1.Locate('使用選項','小區投訴登記',[loCaseInsensitive]) then
  begin
    List_GLB:=ListView1.Items.Add;
    List_GLB.Caption:='小區投訴登記';
    List_GLB.ImageIndex:=12;
  End
  Else
  begin
    List_GLB:=ListView1.Items.Add;
    List_GLB.Caption:='小區投訴登記  [禁用]';
    List_GLB.ImageIndex:=12;
  end;
  if Query1.Locate('使用選項','小區投訴查詢',[loCaseInsensitive]) then
  begin
    List_GLB:=ListView1.Items.Add;
    List_GLB.Caption:='小區投訴查詢';
    List_GLB.ImageIndex:=13;
  End
  Else
  begin
    List_GLB:=ListView1.Items.Add;
    List_GLB.Caption:='小區投訴查詢  [禁用]';
    List_GLB.ImageIndex:=13;
  end;
  if Query1.Locate('使用選項','小區員工管理',[loCaseInsensitive]) then
  begin
    List_GLB:=ListView1.Items.Add;
    List_GLB.Caption:='小區員工管理';
    List_GLB.ImageIndex:=14;
  End
  Else
  begin
    List_GLB:=ListView1.Items.Add;
    List_GLB.Caption:='小區員工管理  [禁用]';
    List_GLB.ImageIndex:=14;
  end;
  if Query1.Locate('使用選項','系統數據設定',[loCaseInsensitive]) then
  begin
    List_GLB:=ListView1.Items.Add;
    List_GLB.Caption:='系統數據設定';
    List_GLB.ImageIndex:=3;
  End
  Else
  begin
    List_GLB:=ListView1.Items.Add;
    List_GLB.Caption:='系統數據設定';
    List_GLB.ImageIndex:=3;
  end;
  if Query1.Locate('使用選項','數據信息打印',[loCaseInsensitive]) then
  begin
    List_GLB:=ListView1.Items.Add;
    List_GLB.Caption:='數據信息打印';
    List_GLB.ImageIndex:=4;
  End
  Else
  begin
    List_GLB:=ListView1.Items.Add;
    List_GLB.Caption:='數據信息打印';
    //List_GLB.Caption:='數據信息打印  [禁用]';
    List_GLB.ImageIndex:=4;
  end;
end;
//根據操作員權限設置【工程部】導航菜單功能選項
procedure TMainForm.ToolButton3Click(Sender: TObject);    //設置【工程部】導航菜單功能選項
var List_GCB: TListItem;
begin
  ListView1.Columns[0].Caption:='【工程部】功能選項';
  ListView1.Items.Clear;
  if Query1.Locate('使用選項','裝修隊登記',[loCaseInsensitive]) then
  begin
     List_GCB:=ListView1.Items.Add;
     List_GCB.Caption:='裝修隊登記';
     List_GCB.ImageIndex:=16;
  End
  Else
  begin
     List_GCB:=ListView1.Items.Add;
     List_GCB.Caption:='裝修隊登記  [禁用]';
     List_GCB.ImageIndex:=16;
  end;
  if Query1.Locate('使用選項','維修信息登記',[loCaseInsensitive]) then
  begin
     List_GCB:=ListView1.Items.Add;
     List_GCB.Caption:='維修信息登記';
?? 文件大小 6772 K
?? 上傳用戶 suroot2005
?? 所屬分類數據庫系統
??? 相關標簽

#WYGL #物業管理 #數據庫
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? mc_mainform.~pas

?? 快捷鍵說明
