?? mc_mainform.~pas

?? 物業管理 1.建立一個WYGL數據庫
?? ~PAS
?? 第 1 頁 / 共 4 頁
字號:
上一頁 1 2 34
    List_BAB.Caption:='辦公室文檔查詢  [禁用]';
    List_BAB.ImageIndex:=24;
  end;
  if Query1.Locate('使用選項','保安排班查詢',[loCaseInsensitive]) then
  begin
    List_BAB:=ListView1.Items.Add;
    List_BAB.Caption:='保安排班查詢';
    List_BAB.ImageIndex:=26;
  End
  Else
  begin
    List_BAB:=ListView1.Items.Add;
    List_BAB.Caption:='保安排班查詢  [禁用]';
    List_BAB.ImageIndex:=26;
  end;
end;
//根據操作員權限設置【系統管理】導航菜單功能選項
procedure TMainForm.ToolButton9Click(Sender: TObject);
var List_BAB: TListItem;
begin
   ListView1.Columns[0].Caption:='【系統管理】功能選項';
   ListView1.Items.Clear;
   List_BAB:=ListView1.Items.Add;
   List_BAB.Caption:='關于本軟件';
   List_BAB.ImageIndex:=27;
   List_BAB:=ListView1.Items.Add;
   List_BAB.Caption:='用戶權限管理';
   List_BAB.ImageIndex:=29;
end;
//調入“小區信息生成“窗口
procedure TMainForm.N8Click(Sender: TObject);
begin
If Not Assigned(XQSCQ) Then
begin
 XQSCQ:=TXQSCQ.Create(Self);
 XQSCQ.ShowModal;
End
Else
XQSCQ.ShowModal;
end;

procedure TMainForm.N9Click(Sender: TObject);
begin
If Not Assigned(DLXXSCQ) Then
begin
 DLXXSCQ:=TDLXXSCQ.Create(Self);
 DLXXSCQ.ShowModal;
End
Else
DLXXSCQ.ShowModal;
end;

procedure TMainForm.N10Click(Sender: TObject);
begin
If Not Assigned(FWXXSCQ) Then
 begin
  FWXXSCQ:=TFWXXSCQ.Create(Self);
  FWXXSCQ.ShowModal;
 End
Else
  FWXXSCQ.ShowModal;
end;

procedure TMainForm.N11Click(Sender: TObject);
begin
If Not Assigned(XQXXDJ) Then
  begin
    XQXXDJ:=TXQXXDJ.Create(Self);
    XQXXDJ.ShowModal;
  End
else XQXXDJ.Show;
end;

procedure TMainForm.N12Click(Sender: TObject);
begin
If Not Assigned(DLXXDJ) Then
  begin
    DLXXDJ:=TDLXXDJ.Create(Self);
    DLXXDJ.ShowModal;
  End
else DLXXDJ.Show;
end;

procedure TMainForm.N13Click(Sender: TObject);
begin
If Not Assigned(FWXXDJ) Then
  begin
    FWXXDJ:=TFWXXDJ.Create(Self);
    FWXXDJ.ShowModal;
  End
else FWXXDJ.Show;
end;

procedure TMainForm.N14Click(Sender: TObject);
begin
If Not Assigned(XTSJSD) Then
  begin
    XTSJSD:=TXTSJSD.Create(Self);
    XTSJSD.ShowModal;
  End
Else
XTSJSD.ShowModal;
end;

procedure TMainForm.N15Click(Sender: TObject);
begin
If Not Assigned(DY_XQ) Then
begin
DY_XQ:=TDY_XQ.Create(Self);
DY_XQ.ShowModal;
end;
end;

procedure TMainForm.N16Click(Sender: TObject);
begin
If Not Assigned(YZXXDJ) Then
  begin
    YZXXDJ:=TYZXXDJ.Create(Self);
    YZXXDJ.ShowModal;
  End
Else
 YZXXDJ.ShowModal;
end;

procedure TMainForm.N17Click(Sender: TObject);
begin
If Not Assigned(RKXXDJ) Then
  begin
    RKXXDJ:=TRKXXDJ.Create(Self);
    RKXXDJ.ShowModal;
  end;
end;

procedure TMainForm.N19Click(Sender: TObject);
begin
If Not Assigned(FWCZDJ) Then
  begin
    FWCZDJ:=TFWCZDJ.Create(Self);
    FWCZDJ.ShowModal;
  end;
end;

procedure TMainForm.N39Click(Sender: TObject);
begin
If Not Assigned(FWXZGL) Then
  begin
    FWXZGL:=TFWXZGL.Create(Self);
    FWXZGL.ShowModal;
  end;
end;

procedure TMainForm.N20Click(Sender: TObject);
begin
If Not Assigned(XQZDGL) Then
  begin
    XQZDGL:=TXQZDGL.Create(Self);
    XQZDGL.ShowModal;
  end;
end;

procedure TMainForm.N23Click(Sender: TObject);
begin
If Not Assigned(ZYXXGL) Then
  begin
       ZYXXGL:=TZYXXGL.Create(Self);
       ZYXXGL.ShowModal;
  end;
end;

procedure TMainForm.N21Click(Sender: TObject);
begin
If Not Assigned(TSDJ) Then
  begin
    TSDJ:=TTSDJ.Create(self);
    TSDJ.ShowModal;
  end;
end;

procedure TMainForm.N24Click(Sender: TObject);
begin
If Not Assigned(GLBSetup) Then
  begin
    GLBSetup:=TGLBSetup.Create(Self);
    GLBSetup.ShowModal;
  end;
end;

procedure TMainForm.N25Click(Sender: TObject);
begin
If Not Assigned(GLBSJDY) Then
  begin
    GLBSJDY:=TGLBSJDY.Create(Self);
    GLBSJDY.ShowModal;
  end;
end;

procedure TMainForm.N26Click(Sender: TObject);
begin
If Not Assigned(ZXDDJ) Then
  begin
    ZXDDJ:=TZXDDJ.Create(Self);
    ZXDDJ.ShowModal;
  end;
end;



procedure TMainForm.N27Click(Sender: TObject);
begin
If Not Assigned(WXDJ) Then
  begin
    WXDJ:=TWXDJ.Create(sELF);
    WXDJ.ShowModal;
  end;
end;

procedure TMainForm.N29Click(Sender: TObject);
begin
If Not Assigned(ZXXXCX) Then
  begin
    ZXXXCX:=TZXXXCX.Create(Self);
    ZXXXCX.ShowModal;
  end;
end;
procedure TMainForm.N31Click(Sender: TObject);
begin
If Not Assigned(WZXXDJ) Then
  begin
    WZXXDJ:=TWZXXDJ.Create(Self);
    WZXXDJ.ShowModal;
  end;
end;
procedure TMainForm.N33Click(Sender: TObject);
begin
If Not Assigned(SSDJ) Then
  begin
    SSDJ:=TSSDJ.Create(Self);
    SSDJ.ShowModal;
  end;
end;

procedure TMainForm.N35Click(Sender: TObject);
begin
If Not Assigned(GCBSJDY) Then
  begin
    GCBSJDY:=TGCBSJDY.Create(Self);
    GCBSJDY.ShowModal;
  end;
end;

procedure TMainForm.N36Click(Sender: TObject);
begin
If Not Assigned(FYSQXZ) Then
  begin
    FYSQXZ:=TFYSQXZ.Create(Self);
    FYSQXZ.ShowModal;
  end;
end;

procedure TMainForm.N37Click(Sender: TObject);
begin
If Not Assigned(MInsert) Then
  begin
    MInsert:=TMInsert.Create(Self);
    MInsert.ShowModal;
  end;
end;

procedure TMainForm.N38Click(Sender: TObject);
begin
If Not Assigned(CNFGL) Then
  begin
    CNFGL:=TCNFGL.Create(Self);
    CNFGL.ShowModal;
  end;
end;

procedure TMainForm.N40Click(Sender: TObject);
begin
If Not Assigned(DCBYSJ) Then
  begin
    DCBYSJ:=TDCBYSJ.Create(Self);
    DCBYSJ.ShowModal;
  end;
end;

procedure TMainForm.N42Click(Sender: TObject);
begin
If Not Assigned(LSFYCX) Then
  begin
    LSFYCX:=TLSFYCX.Create(Self);
    LSFYCX.ShowModal;
  end;
end;

procedure TMainForm.N43Click(Sender: TObject);
begin
If Not Assigned(CWXTSZ) Then
  begin
    CWXTSZ:=TCWXTSZ.Create(Self);
    CWXTSZ.ShowModal;
  end;
end;

procedure TMainForm.N44Click(Sender: TObject);
begin
If Not Assigned(CWBSJDY) Then
  begin
    CWBSJDY:=TCWBSJDY.Create(self);
    CWBSJDY.ShowModal;
  end;
end;

procedure TMainForm.N46Click(Sender: TObject);
begin
If Not Assigned(BGSWD) Then
  begin
    BGSWD:=TBGSWD.Create(Self);
    BGSWD.ShowModal;
  end;
end;

procedure TMainForm.N47Click(Sender: TObject);
begin
If Not Assigned(WDCX) Then
  begin
    WDCX:=TWDCX.Create(Self);
    WDCX.ShowModal;
  end;
end;

procedure TMainForm.N48Click(Sender: TObject);
begin
If Not Assigned(PBGL) Then
  begin
    PBGL:=TPBGL.Create(Self);
    PBGL.ShowModal;
  end;
end;

procedure TMainForm.N49Click(Sender: TObject);
begin
If Not Assigned(PBCX) Then
  begin
    PBCX:=TPBCX.Create(Self);
    PBCX.showModal;
  end;
end;

procedure TMainForm.N50Click(Sender: TObject);
begin
If Not Assigned(FCZYCX) Then
  begin
    FCZYCX:=TFCZYCX.Create(Self);
    FCZYCX.ShowModal;
  end;
end;

procedure TMainForm.N51Click(Sender: TObject);
begin
If Not Assigned(YZXXCX) Then
  begin
    YZXXCX:=TYZXXCX.Create(Self);
    YZXXCX.ShowModal;
  end;
end;

procedure TMainForm.N53Click(Sender: TObject);
begin
If Not Assigned(FWCZXXCX) Then
  begin
    FWCZXXCX:=TFWCZXXCX.Create(Self);
    FWCZXXCX.ShowModal;
  end;
end;

procedure TMainForm.N56Click(Sender: TObject);
begin
If Not Assigned(XQYGXXCX) Then
  begin
    XQYGXXCX:=TXQYGXXCX.Create(Self);
    XQYGXXCX.ShowModal;
  end;
end;

procedure TMainForm.N54Click(Sender: TObject);
begin
If Not Assigned(ZDCX) Then
  begin
    ZDCX:=TZDCX.Create(Self);
    ZDCX.ShowModal;
  end;
end;

procedure TMainForm.N60Click(Sender: TObject);
begin
If Not Assigned(SFQKFX) Then
  begin
    SFQKFX:=TSFQKFX.Create(Self);
    SFQKFX.ShowModal;
  end;
end;

procedure TMainForm.N59Click(Sender: TObject);
begin
If Not Assigned(WXXXCX) Then
  begin
    WXXXCX:=TWXXXCX.Create(Self);
    WXXXCX.ShowModal;
  end;
end;

procedure TMainForm.N57Click(Sender: TObject);
begin
If Not Assigned(ZXXXCX) Then
  begin
    ZXXXCX:=TZXXXCX.Create(Self);
    ZXXXCX.ShowModal;
  end;
end;

procedure TMainForm.N64Click(Sender: TObject);
begin
If Not Assigned(YHQXGL) Then
  begin
    YHQXGL:=TYHQXGL.Create(Self);
    YHQXGL.ShowModal;
  end;
end;

procedure TMainForm.N63Click(Sender: TObject);
begin
About.ShowModal;
end;

procedure TMainForm.N18Click(Sender: TObject);
begin
If Not Assigned(XTXX) Then
  begin
    XTXX:=TXTXX.Create(Self);
    XTXX.ShowModal;
  end;
end;
procedure TMainForm.ToolButton13Click(Sender: TObject);
begin
Close;
end;
end.
上一頁 1 2 34
?? 文件大小 6772 K
?? 上傳用戶 suroot2005
?? 所屬分類數據庫系統
??? 相關標簽

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

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

?? mc_mainform.~pas

?? 快捷鍵說明
