📄 mc_mainform.~pas

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

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

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