?? 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('使用選項','小區(qū)設(shè)施登記',[loCaseInsensitive]) then
begin
List_GCB:=ListView1.Items.Add;
List_GCB.Caption:='小區(qū)設(shè)施登記';
List_GCB.ImageIndex:=18;
End
Else
begin
List_GCB:=ListView1.Items.Add;
List_GCB.Caption:='小區(qū)設(shè)施登記 [禁用]';
List_GCB.ImageIndex:=18;
end;
if Query1.Locate('使用選項','小區(qū)設(shè)施查詢',[loCaseInsensitive]) then
begin
List_GCB:=ListView1.Items.Add;
List_GCB.Caption:='小區(qū)設(shè)施查詢';
List_GCB.ImageIndex:=13;
End
Else
begin
List_GCB:=ListView1.Items.Add;
List_GCB.Caption:='小區(qū)設(shè)施查詢 [禁用]';
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('使用選項','數(shù)據(jù)打印管理',[loCaseInsensitive]) then
begin
List_GCB:=ListView1.Items.Add;
List_GCB.Caption:='數(shù)據(jù)打印管理';
List_GCB.ImageIndex:=4;
End
Else
begin
List_GCB:=ListView1.Items.Add;
List_GCB.Caption:='數(shù)據(jù)打印管理';
List_GCB.ImageIndex:=4;
end;
end;
//根據(jù)操作員權(quán)限設(shè)置【財務(wù)部】導(dǎo)航菜單功能選項
procedure TMainForm.ToolButton14Click(Sender: TObject);
var List_CWB: TListItem;
begin
ListView1.Columns[0].Caption:='【財務(wù)部】功能選項';
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('使用選項','導(dǎo)出本月收費數(shù)據(jù)',[loCaseInsensitive]) then
begin
List_CWB:=ListView1.Items.Add;
List_CWB.Caption:='導(dǎo)出本月收費數(shù)據(jù)';
List_CWB.ImageIndex:=21;
End
Else
begin
List_CWB:=ListView1.Items.Add;
List_CWB.Caption:='導(dǎo)出本月收費數(shù)據(jù) [禁用]';
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('使用選項','系統(tǒng)數(shù)據(jù)設(shè)定',[loCaseInsensitive]) then
begin
List_CWB:=ListView1.Items.Add;
List_CWB.Caption:='系統(tǒng)數(shù)據(jù)設(shè)定';
List_CWB.ImageIndex:=3;
End
Else
begin
List_CWB:=ListView1.Items.Add;
List_CWB.Caption:='系統(tǒng)數(shù)據(jù)設(shè)定';
List_CWB.ImageIndex:=3;
end;
if Query1.Locate('使用選項','數(shù)據(jù)信息打印',[loCaseInsensitive]) then
begin
List_CWB:=ListView1.Items.Add;
List_CWB.Caption:='數(shù)據(jù)信息打印';
List_CWB.ImageIndex:=4;
End
Else
begin
List_CWB:=ListView1.Items.Add;
List_CWB.Caption:='數(shù)據(jù)信息打印';
List_CWB.ImageIndex:=4;
end;
end;
//根據(jù)操作員權(quán)限設(shè)置【辦公室】導(dǎo)航菜單功能選項
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;
//根據(jù)操作員權(quán)限設(shè)置【保安部】導(dǎo)航菜單功能選項
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;
//根據(jù)操作員權(quán)限設(shè)置【經(jīng)理室】導(dǎo)航菜單功能選項
procedure TMainForm.ToolButton8Click(Sender: TObject);
var List_BAB: TListItem;
begin
ListView1.Columns[0].Caption:='【經(jīng)理室】功能選項';
ListView1.Items.Clear;
if Query1.Locate('使用選項','小區(qū)資源統(tǒng)計',[loCaseInsensitive]) then
begin
List_BAB:=ListView1.Items.Add;
List_BAB.Caption:='小區(qū)資源統(tǒng)計';
List_BAB.ImageIndex:=1;
End
Else
begin
List_BAB:=ListView1.Items.Add;
List_BAB.Caption:='小區(qū)資源統(tǒng)計 [禁用]';
List_BAB.ImageIndex:=1;
end;
if Query1.Locate('使用選項','業(yè)主信息查詢',[loCaseInsensitive]) then
begin
List_BAB:=ListView1.Items.Add;
List_BAB.Caption:='業(yè)主信息查詢';
List_BAB.ImageIndex:=6;
End
Else
begin
List_BAB:=ListView1.Items.Add;
List_BAB.Caption:='業(yè)主信息查詢 [禁用]';
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('使用選項','小區(qū)制度查詢',[loCaseInsensitive]) then
begin
List_BAB:=ListView1.Items.Add;
List_BAB.Caption:='小區(qū)制度查詢';
List_BaB.ImageIndex:=11;
End
Else
begin
List_BAB:=ListView1.Items.Add;
List_BAB.Caption:='小區(qū)制度查詢 [禁用]';
List_BaB.ImageIndex:=11;
end;
if Query1.Locate('使用選項','小區(qū)投訴查詢',[loCaseInsensitive]) then
begin
List_BAB:=ListView1.Items.Add;
List_BAB.Caption:='小區(qū)投訴查詢';
List_BAB.ImageIndex:=13;
End
Else
begin
List_BAB:=ListView1.Items.Add;
List_BAB.Caption:='小區(qū)投訴查詢 [禁用]';
List_BAB.ImageIndex:=13;
end;
if Query1.Locate('使用選項','小區(qū)員工查詢',[loCaseInsensitive]) then
begin
List_BAB:=ListView1.Items.Add;
List_BAB.Caption:='小區(qū)員工查詢';
List_BAB.ImageIndex:=14;
End
Else
begin
List_BAB:=ListView1.Items.Add;
List_BAB.Caption:='小區(qū)員工查詢 [禁用]';
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('使用選項','小區(qū)設(shè)施查詢',[loCaseInsensitive]) then
begin
List_BAB:=ListView1.Items.Add;
List_BAB.Caption:='小區(qū)設(shè)施查詢';
List_BAB.ImageIndex:=13;
End
Else
begin
List_BAB:=ListView1.Items.Add;
List_BAB.Caption:='小區(qū)設(shè)施查詢 [禁用]';
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('使用選項','收費統(tǒng)計分析',[loCaseInsensitive]) then
begin
List_BAB:=ListView1.Items.Add;
List_BAB.Caption:='收費統(tǒng)計分析';
List_BAB.ImageIndex:=23;
End
Else
begin
List_BAB:=ListView1.Items.Add;
List_BAB.Caption:='收費統(tǒng)計分析 [禁用]';
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;
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -