📄 mc_mainform.pas

📁 1、系统环境要求：所有程序均在Windows98/XP操作系统下测试运行。 2、建议用户在系统上安装DELPHI7.0企业版。 3、如果数据库为SQL Server数据库
💻 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
💿 文件大小 6534 K
👤 上传用户 a1a1J0
📂 所属分类 *行业应用
🏷️ 相关标签

#Windows #DELPHI #Server #7.0
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -