⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 mc_mainform.pas

📁 1、系统环境要求：所有程序均在Windows98/XP操作系统下测试运行。 2、建议用户在系统上安装DELPHI7.0企业版。 3、如果数据库为SQL Server数据库
💻 PAS
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
     List_GCB.ImageIndex:=19;
  End
  Else
  begin
     List_GCB:=ListView1.Items.Add;
     List_GCB.Caption:='维修信息登记  [禁用]';
     List_GCB.ImageIndex:=19;
  end;
  if Query1.Locate('使用选项','装修信息登记',[loCaseInsensitive]) then
  begin
     List_GCB:=ListView1.Items.Add;
     List_GCB.Caption:='装修信息登记';
     List_GCB.ImageIndex:=15;
  End
  Else
  begin
     List_GCB:=ListView1.Items.Add;
     List_GCB.Caption:='装修信息登记  [禁用]';
     List_GCB.ImageIndex:=15;
  end;
  if Query1.Locate('使用选项','装修信息查询',[loCaseInsensitive]) then
  begin
     List_GCB:=ListView1.Items.Add;
     List_GCB.Caption:='装修信息查询';
     List_GCB.ImageIndex:=13;
  End
  Else
  begin
     List_GCB:=ListView1.Items.Add;
     List_GCB.Caption:='装修信息查询  [禁用]';
     List_GCB.ImageIndex:=13;
  end;
  if Query1.Locate('使用选项','违章信息登记',[loCaseInsensitive]) then
  begin
     List_GCB:=ListView1.Items.Add;
     List_GCB.Caption:='违章信息登记';
     List_GCB.ImageIndex:=17;
  End
  Else
  begin
     List_GCB:=ListView1.Items.Add;
     List_GCB.Caption:='违章信息登记  [禁用]';
     List_GCB.ImageIndex:=17;
  END;
  if Query1.Locate('使用选项','违章信息查询',[loCaseInsensitive]) then
  begin
     List_GCB:=ListView1.Items.Add;
     List_GCB.Caption:='违章信息查询';
     List_GCB.ImageIndex:=13;
  End
  Else
  begin
     List_GCB:=ListView1.Items.Add;
     List_GCB.Caption:='违章信息查询  [禁用]';
     List_GCB.ImageIndex:=13;
  end;
  if Query1.Locate('使用选项','小区设施登记',[loCaseInsensitive]) then
  begin
     List_GCB:=ListView1.Items.Add;
     List_GCB.Caption:='小区设施登记';
     List_GCB.ImageIndex:=18;
  End
  Else
  begin
     List_GCB:=ListView1.Items.Add;
     List_GCB.Caption:='小区设施登记  [禁用]';
     List_GCB.ImageIndex:=18;
  end;
  if Query1.Locate('使用选项','小区设施查询',[loCaseInsensitive]) then
  begin
     List_GCB:=ListView1.Items.Add;
     List_GCB.Caption:='小区设施查询';
     List_GCB.ImageIndex:=13;
  End
  Else
  begin
     List_GCB:=ListView1.Items.Add;
     List_GCB.Caption:='小区设施查询  [禁用]';
     List_GCB.ImageIndex:=13;
  end;
  if Query1.Locate('使用选项','维修信息查询',[loCaseInsensitive]) then
  begin
     List_GCB:=ListView1.Items.Add;
     List_GCB.Caption:='维修信息查询';
     List_GCB.ImageIndex:=13;
  End
  Else
  begin
     List_GCB:=ListView1.Items.Add;
     List_GCB.Caption:='维修信息查询  [禁用]';
     List_GCB.ImageIndex:=13;
  end;
  if Query1.Locate('使用选项','数据打印管理',[loCaseInsensitive]) then
  begin
     List_GCB:=ListView1.Items.Add;
     List_GCB.Caption:='数据打印管理';
     List_GCB.ImageIndex:=4;
  End
  Else
  begin
     List_GCB:=ListView1.Items.Add;
     List_GCB.Caption:='数据打印管理';
     List_GCB.ImageIndex:=4;
  end;
end;
//根据操作员权限设置【财务部】导航菜单功能选项
procedure TMainForm.ToolButton14Click(Sender: TObject);
var List_CWB: TListItem;
begin
  ListView1.Columns[0].Caption:='【财务部】功能选项';
  ListView1.Items.Clear;
  if Query1.Locate('使用选项','水电煤气费收取',[loCaseInsensitive]) then
  begin
    List_CWB:=ListView1.Items.Add;
    List_CWB.Caption:='水电煤气费收取';
    List_CWB.Imageindex:=22;
  End
  Else
  begin
    List_CWB:=ListView1.Items.Add;
    List_CWB.Caption:='水电煤气费收取  [禁用]';
    List_CWB.Imageindex:=22;
  end;
  if Query1.Locate('使用选项','填写收费通知单',[loCaseInsensitive]) then
  begin
    List_CWB:=ListView1.Items.Add;
    List_CWB.Caption:='填写收费通知单';
    List_CWB.ImageIndex:=22;
  End
  Else
  begin
    List_CWB:=ListView1.Items.Add;
    List_CWB.Caption:='填写收费通知单  [禁用]';
    List_CWB.ImageIndex:=22;
  end;
  if Query1.Locate('使用选项','采暖费管理',[loCaseInsensitive]) then
  begin
    List_CWB:=ListView1.Items.Add;
    List_CWB.Caption:='采暖费管理';
    List_CWB.ImageIndex:=22;
  End
  Else
  begin
    List_CWB:=ListView1.Items.Add;
    List_CWB.Caption:='采暖费管理  [禁用]';
    List_CWB.ImageIndex:=22;
  end;
  if Query1.Locate('使用选项','房租信息管理',[loCaseInsensitive]) then
  begin
    List_CWB:=ListView1.Items.Add;
    List_CWB.Caption:='房租信息管理';
    List_CWB.ImageIndex:=10;
  End
  Else
  begin
    List_CWB:=ListView1.Items.Add;
    List_CWB.Caption:='房租信息管理  [禁用]';
    List_CWB.ImageIndex:=10;
  end;
  if Query1.Locate('使用选项','实收收费登记管理',[loCaseInsensitive]) then
  begin
    List_CWB:=ListView1.Items.Add;
    List_CWB.Caption:='实收收费登记管理';
    List_CWB.ImageIndex:=21;
  End
  Else
  begin
    List_CWB:=ListView1.Items.Add;
    List_CWB.Caption:='实收收费登记管理  [禁用]';
    List_CWB.ImageIndex:=21;
  end;
  if Query1.Locate('使用选项','导出本月收费数据',[loCaseInsensitive]) then
  begin
    List_CWB:=ListView1.Items.Add;
    List_CWB.Caption:='导出本月收费数据';
    List_CWB.ImageIndex:=21;
  End
  Else
  begin
    List_CWB:=ListView1.Items.Add;
    List_CWB.Caption:='导出本月收费数据  [禁用]';
    List_CWB.ImageIndex:=21;
  end;
  if Query1.Locate('使用选项','收费情况一览',[loCaseInsensitive]) then
  begin
    List_CWB:=ListView1.Items.Add;
    List_CWB.Caption:='收费情况一览';
    List_CWB.ImageIndex:=23;
  End
  Else
  begin
    List_CWB:=ListView1.Items.Add;
    List_CWB.Caption:='收费情况一览  [禁用]';
    List_CWB.ImageIndex:=23;
  END;
  if Query1.Locate('使用选项','每户费用信息查询',[loCaseInsensitive]) then
  begin
    List_CWB:=ListView1.Items.Add;
    List_CWB.Caption:='每户费用信息查询';
    List_CWB.ImageIndex:=31;
  End
  Else
  begin
    List_CWB:=ListView1.Items.Add;
    List_CWB.Caption:='每户费用信息查询  [禁用]';
    List_CWB.ImageIndex:=31;
  end;
  if Query1.Locate('使用选项','历史费用信息查询',[loCaseInsensitive]) then
  begin
    List_CWB:=ListView1.Items.Add;
    List_CWB.Caption:='历史费用信息查询';
    List_CWB.ImageIndex:=10;
  End
  Else
  begin
    List_CWB:=ListView1.Items.Add;
    List_CWB.Caption:='历史费用信息查询  [禁用]';
    List_CWB.ImageIndex:=10;
  end;
  if Query1.Locate('使用选项','系统数据设定',[loCaseInsensitive]) then
  begin
    List_CWB:=ListView1.Items.Add;
    List_CWB.Caption:='系统数据设定';
    List_CWB.ImageIndex:=3;
  End
  Else
  begin
    List_CWB:=ListView1.Items.Add;
    List_CWB.Caption:='系统数据设定';
    List_CWB.ImageIndex:=3;
  end;
  if Query1.Locate('使用选项','数据信息打印',[loCaseInsensitive]) then
  begin
    List_CWB:=ListView1.Items.Add;
    List_CWB.Caption:='数据信息打印';
    List_CWB.ImageIndex:=4;
  End
  Else
  begin
    List_CWB:=ListView1.Items.Add;
    List_CWB.Caption:='数据信息打印';
    List_CWB.ImageIndex:=4;
  end;
end;
//根据操作员权限设置【办公室】导航菜单功能选项
procedure TMainForm.ToolButton5Click(Sender: TObject);
var List_BGS: TListItem;
begin
  ListView1.Columns[0].Caption:='【办公室】功能选项';
  ListView1.Items.Clear;
  if Query1.Locate('使用选项','办公室文档管理',[loCaseInsensitive]) then
  begin
     List_BGS:=ListView1.Items.Add;
     List_BGS.Caption:='办公室文档管理';
     List_BGS.ImageIndex:=25;
  End
  Else
  begin
     List_BGS:=ListView1.Items.Add;
     List_BGS.Caption:='办公室文档管理  [禁用]';
     List_BGS.ImageIndex:=25;
  end;
  if Query1.Locate('使用选项','办公室文档查询',[loCaseInsensitive]) then
  begin
     List_BGS:=ListView1.Items.Add;
     List_BGS.Caption:='办公室文档查询';
     List_BGS.ImageIndex:=24;
  End
  Else
  begin
     List_BGS:=ListView1.Items.Add;
     List_BGS.Caption:='办公室文档查询  [禁用]';
     List_BGS.ImageIndex:=24;
  end;
end;
//根据操作员权限设置【保安部】导航菜单功能选项
procedure TMainForm.ToolButton6Click(Sender: TObject);
var List_BAB: TListItem;
begin
   ListView1.Columns[0].Caption:='【保安部】功能选项';
   ListView1.Items.Clear;
   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;
   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.ToolButton8Click(Sender: TObject);
var List_BAB: TListItem;
begin
  ListView1.Columns[0].Caption:='【经理室】功能选项';
  ListView1.Items.Clear;
  if Query1.Locate('使用选项','小区资源统计',[loCaseInsensitive]) then
  begin
    List_BAB:=ListView1.Items.Add;
    List_BAB.Caption:='小区资源统计';
    List_BAB.ImageIndex:=1;
  End
  Else
  begin
    List_BAB:=ListView1.Items.Add;
    List_BAB.Caption:='小区资源统计  [禁用]';
    List_BAB.ImageIndex:=1;
  end;
  if Query1.Locate('使用选项','业主信息查询',[loCaseInsensitive]) then
  begin
    List_BAB:=ListView1.Items.Add;
    List_BAB.Caption:='业主信息查询';
    List_BAB.ImageIndex:=6;
  End
  Else
  begin
    List_BAB:=ListView1.Items.Add;
    List_BAB.Caption:='业主信息查询  [禁用]';
    List_BAB.ImageIndex:=6;
  end;
  if Query1.Locate('使用选项','人口信息查询',[loCaseInsensitive]) then
  begin
    List_BAB:=ListView1.Items.Add;
    List_BAB.Caption:='人口信息查询';
    List_BAB.ImageIndex:=7;
  End
  Else
  begin
    List_BAB:=ListView1.Items.Add;
    List_BAB.Caption:='人口信息查询  [禁用]';
    List_BAB.ImageIndex:=7;
  end;
  if Query1.Locate('使用选项','房屋出租查询',[loCaseInsensitive]) then
  begin
    List_BAB:=ListView1.Items.Add;
    List_BAB.Caption:='房屋出租查询';
    List_BAB.ImageIndex:=9;
  End
  Else
  begin
    List_BAB:=ListView1.Items.Add;
    List_BAB.Caption:='房屋出租查询  [禁用]';
    List_BAB.ImageIndex:=9;
  end;
  if Query1.Locate('使用选项','小区制度查询',[loCaseInsensitive]) then
  begin
    List_BAB:=ListView1.Items.Add;
    List_BAB.Caption:='小区制度查询';
    List_BaB.ImageIndex:=11;
  End
  Else
  begin
    List_BAB:=ListView1.Items.Add;
    List_BAB.Caption:='小区制度查询  [禁用]';
    List_BaB.ImageIndex:=11;
  end;
  if Query1.Locate('使用选项','小区投诉查询',[loCaseInsensitive]) then
  begin
    List_BAB:=ListView1.Items.Add;
    List_BAB.Caption:='小区投诉查询';
    List_BAB.ImageIndex:=13;
  End
  Else
  begin
    List_BAB:=ListView1.Items.Add;
    List_BAB.Caption:='小区投诉查询  [禁用]';
    List_BAB.ImageIndex:=13;
  end;
  if Query1.Locate('使用选项','小区员工查询',[loCaseInsensitive]) then
  begin
    List_BAB:=ListView1.Items.Add;
    List_BAB.Caption:='小区员工查询';
    List_BAB.ImageIndex:=14;
  End
  Else
  begin
    List_BAB:=ListView1.Items.Add;
    List_BAB.Caption:='小区员工查询  [禁用]';
    List_BAB.ImageIndex:=14;
  end;
  if Query1.Locate('使用选项','装修信息查询',[loCaseInsensitive]) then
  begin
    List_BAB:=ListView1.Items.Add;
    List_BAB.Caption:='装修信息查询';
    List_BAB.ImageIndex:=13;
  End
  Else
  begin
    List_BAB:=ListView1.Items.Add;
    List_BAB.Caption:='装修信息查询  [禁用]';
    List_BAB.ImageIndex:=13;
  end;
  if Query1.Locate('使用选项','小区设施查询',[loCaseInsensitive]) then
  begin
    List_BAB:=ListView1.Items.Add;
    List_BAB.Caption:='小区设施查询';
    List_BAB.ImageIndex:=13;
  End
  Else
  begin
    List_BAB:=ListView1.Items.Add;
    List_BAB.Caption:='小区设施查询  [禁用]';
    List_BAB.ImageIndex:=13;
  end;
  if Query1.Locate('使用选项','维修信息查询',[loCaseInsensitive]) then
  begin
    List_BAB:=ListView1.Items.Add;
    List_BAB.Caption:='维修信息查询';
    List_BAB.ImageIndex:=13;
  End
  Else
  begin
    List_BAB:=ListView1.Items.Add;
    List_BAB.Caption:='维修信息查询  [禁用]';
    List_BAB.ImageIndex:=13;
  END;
  if Query1.Locate('使用选项','收费统计分析',[loCaseInsensitive]) then
  begin
    List_BAB:=ListView1.Items.Add;
    List_BAB.Caption:='收费统计分析';
    List_BAB.ImageIndex:=23;
  End
  Else
  begin
    List_BAB:=ListView1.Items.Add;
    List_BAB.Caption:='收费统计分析  [禁用]';
    List_BAB.ImageIndex:=23;
  END;
  if Query1.Locate('使用选项','办公室文档查询',[loCaseInsensitive]) then
  begin
    List_BAB:=ListView1.Items.Add;
    List_BAB.Caption:='办公室文档查询';
    List_BAB.ImageIndex:=24;
  End
  Else
  begin
    List_BAB:=ListView1.Items.Add;
1234

⌨️ 快捷键说明

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