?? mc_mainform.~pas
字號:
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;
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -