📄 mainwindow.pas.~1~
字号:
MainSubItem11.Visible := ivAlways;
MainSubItem12.Visible := ivAlways;
LoadWwwOrPic;
end;
1:
begin
MainSubItem1.Visible := ivAlways;
MainSubItem2.Visible := ivNever;
MainSubItem3.Visible := ivNever;
MainSubItem4.Visible := ivNever;
MainSubItem5.Visible := ivNever;
MainSubItem6.Visible := ivNever;
MainSubItem7.Visible := ivNever;
MainSubItem8.Visible := ivNever;
MainSubItem9.Visible := ivNever;
MainSubItem10.Visible := ivNever;
MainSubItem11.Visible := ivNever;
MainSubItem12.Visible := ivAlways;
DrawDesktop;
end;
end;
dxBarManager1.LockUpdate := False;
Result := True;
end;
procedure TfrmMainWindow.WriteMenuTag;
begin
dxBarButton5.Tag := BASE_AREA;
dxBarButton6.Tag := BASE_CLIENT;
dxBarButton7.Tag := BASE_PROVIDE;
dxBarButton8.Tag := BASE_WARE_SORT;
dxBarButton9.Tag := BASE_WARE_UNIT;
dxBarButton10.Tag := BASE_WARE;
dxBarButton11.Tag := BASE_DEPOT;
dxBarButton12.Tag := BASE_EMPLOYE_SORT;
dxBarButton13.Tag := BASE_LEARNING;
dxBarButton14.Tag := BASE_DEPT;
dxBarButton15.Tag := BASE_EMPLOYE;
dxBarButton16.Tag := BASE_INCOME_TYPE;
dxBarButton17.Tag := BASE_CURRENCY_STYLE;
dxBarButton18.Tag := BASE_INCOME_SORT;
dxBarButton19.Tag := BASE_CASH_BANK;
dxBarButton20.Tag := STOCK_ORDER_EDIT;
dxBarButton21.Tag := STOCK_FORMAL_EDIT;
dxBarButton22.Tag := STOCK_MONEY_EDIT;
dxBarButton23.Tag := STOCK_BACK_EDIT;
dxBarButton24.Tag := ALL_STOCK_BILL;
dxBarButton25.Tag := SALE_ORDER_EDIT;
dxBarButton26.Tag := SALE_FORMAL_EDIT;
dxBarButton27.Tag := SALE_MONEY_EDIT;
dxBarButton28.Tag := SALE_READY_EDIT;
dxBarButton29.Tag := SALE_BACK_EDIT;
dxBarButton59.Tag := SALE_POS_EDIT;
dxBarButton30.Tag := ALL_SALE_BILL;
dxBarButton31.Tag := EXIST_DRAW;
dxBarButton32.Tag := EXIST_RETURN;
dxBarButton33.Tag := EXIST_ENTER_DEPOT;
dxBarButton34.Tag := EXIST_CHANGE_PRICE;
dxBarButton35.Tag := EXIST_ASSEMBLY;
dxBarButton36.Tag := EXIST_CHECK_LIST;
dxBarButton37.Tag := EXIST_OTHER;
dxBarButton38.Tag := EXIST_EXCHANGE;
dxBarButton39.Tag := WARE_STOCK_QUERY;
dxBarButton40.Tag := BASE_FIXED_SORT;
dxBarButton41.Tag := BASE_FIXED_MODE;
dxBarButton42.Tag := BASE_FIXED_USE;
dxBarButton43.Tag := BASE_FIXED_ADD;
dxBarButton44.Tag := BASE_FIXED_DEC;
dxBarButton45.Tag := BASE_WAGE_KIND;
dxBarButton46.Tag := BASE_WAGE_PROCEDURE;
dxBarButton47.Tag := BASE_WAGE_ITEM;
dxBarButton48.Tag := QUERY_WAGE_PRINT_SUM;
dxBarButton50.Tag := EXIST_PRICE_EXCHANGE;
dxBarButton51.Tag := WAGE_DATA_INPUT;
dxBarButton54.Tag := QUERY_WAGE_PRINT_BAR;
dxBarButton55.Tag := QUERY_WAGE_PRINT_TAB;
dxBarButton56.Tag := EXIST_INCREASE;
dxBarButton57.Tag := EXIST_LOSING;
dxBarButton58.Tag := ALL_EXIST_BILL;
dxBarButton60.Tag := QUERY_WAGE_LEARNING;
dxBarButton61.Tag := BILL_ALL_SETUP;
dxBarButton62.Tag := BASE_CLIENT;
dxBarButton63.Tag := BASE_PROVIDE;
dxBarButton64.Tag := BASE_EMPLOYE;
dxBarButton65.Tag := BASE_WARE;
dxBarButton66.Tag := BASE_DEPOT;
dxBarButton67.Tag := SYSTEM_RESET;
dxBarButton68.Tag := CLIENT_SALE_COLLECT;
dxBarButton69.Tag := EMPLOYE_SALE_COLLECT;
dxBarButton70.Tag := WARE_SALE_COLLECT;
dxBarButton72.Tag := PROVIDE_STOCK_COLLECT;
dxBarButton73.Tag := EMPLOYE_STOCK_COLLECT;
dxBarButton74.Tag := WARE_STOCK_COLLECT;
dxBarButton76.Tag := WARE_STOCK_QUERY;
dxBarButton78.Tag := CLIENT_SALE_PROFIT;
dxBarButton79.Tag := EMPLOYE_SALE_PROFIT;
dxBarButton80.Tag := WARE_SALE_PROFIT;
dxBarButton81.Tag := BASE_SUBJECT;
dxBarButton82.Tag := ACCOUNT_VOUCHER_EDIT;
dxBarButton83.Tag := ACCOUNT_VOUCHER_QUERY;
dxBarButton84.Tag := BASE_NARRATE;
dxBarButton86.Tag := WARE_STOCK_DETAILED;
dxBarButton87.Tag := EMPLOYE_STOCK_DETAILED;
dxBarButton88.Tag := PROVIDE_STOCK_DETAILED;
dxBarButton89.Tag := WARE_SALE_DETAILED;
dxBarButton90.Tag := EMPLOYE_SALE_DETAILED;
dxBarButton91.Tag := CLIENT_SALE_DETAILED;
dxBarButton92.Tag := ACCOUNT_INFO;
dxBarButton97.Tag := CHANGE_PASSWORD;
dxBarButton98.Tag := USER_LIMIT_FORM;
dxBarButton99.Tag := BASE_FIXED_WORK;
dxBarButton102.Tag := QUERY_FIXED_BILL;
dxBarButton103.Tag := QUERY_FIXED_DEPRECIATE;
dxBarButton104.Tag := QUERY_FIXED_PILE_DEPRECIATE;
dxBarButton105.Tag := QUERY_FIXED_WORK;
dxBarButton116.Tag := ACCOUNT_START;
dxBarButton117.Tag := WARE_STOCK_ORDER_COLLECT;
dxBarButton118.Tag := CLIENT_STOCK_ORDER_COLLECT;
dxBarButton119.Tag := EMPLOYE_STOCK_ORDER_COLLECT;
dxBarButton120.Tag := WARE_SALE_ORDER_COLLECT;
dxBarButton121.Tag := CLIENT_SALE_ORDER_COLLECT;
dxBarButton122.Tag := EMPLOYE_SALE_ORDER_COLLECT;
dxBarButton122.Tag := WARE_STOCK_DISTRIBUTE;
dxBarButton126.Tag := CLIENT_RECEIPT_QUERY;
dxBarButton127.Tag := PROVIDE_PAYABLE_QUERY;
dxBarButton128.Tag := CLIENT_RECEIPT_DETAILED;
dxBarButton129.Tag := PROVIDE_PAYABLE_DETAILED;
dxBarButton130.Tag := WARE_STOCK_PRICE_EDIT;
dxBarButton131.Tag := MONEY_DEPOSIT;
dxBarButton132.Tag := MONEY_EXPENSES;
dxBarButton133.Tag := MONEY_INCOME;
dxBarButton134.Tag := OPERATE_LOG;
dxBarButton136.Tag := WARE_STOCK_EDIT;
dxBarButton137.Tag := EXIST_PRESENT;
dxBarButton138.Tag := EXIST_GAIN;
dxBarButton141.Tag := ALL_MONEY_BILL;
end;
procedure TfrmMainWindow.DrawDesktop;
var
sPic: string;
begin
pnlPic.Visible := True;
sPic := GetIniValue(frmData.ADOConnetLogin, 'DesktopPic'); //先读图片
if (sPic = '') or (not FileExists(sPic)) then
sPic := GetExePath + FILE_DESKTOP_PIC;
if not FileExists(sPic) then
Exit;
imgDesktop.Picture.LoadFromFile(sPic);
end;
procedure TfrmMainWindow.LoadWwwOrPic;
var
sURL: string;
begin
if GetIsDebug then
begin
pnlPic.Visible := False;
pnlWWW.Visible := False;
Exit; //调试程序
end;
Screen.Cursor := crHourglass;
if (sDesktop = '') then
begin
sDesktop := GetIniValue(frmData.ADOConnetLogin, 'Desktop');
sURL := GetSystemDir + FILE_WWW + '\JHIndex.htm';
if not FileExists(sURL) then
sDesktop := 'PIC';
WebBrowser.Navigate(sURL);
end;
if sDesktop = 'WWW' then
begin
pnlPic.Visible := False;
end
else
if sDesktop = 'PIC' then
DrawDesktop
else
begin
sDesktop := GetIniValue(frmData.ADOConnetLogin, 'Desktop');
if sDesktop = '' then
begin
sDesktop := 'WWW';
SetIniValue(frmData.ADOConnetLogin, 'Desktop', sDesktop);
end;
LoadWwwOrPic;
end;
Screen.Cursor := crDefault;
end;
function TfrmMainWindow.LoadURL(sUrl: string): Boolean;
begin
Result := False;
if not bStartAccount and (Pos('@', sUrl) > 0) then
ShowMsg('必需启用账套以后才能使用图形界面，请在文件菜单中启用账套！')
//进货页面
else
if Pos('@STOCK_ORDER_EDIT', sUrl) > 0 then
BillSelect(STOCK_ORDER_EDIT)
else
if Pos('@STOCK_FORMAL_EDIT', sUrl) > 0 then
BillSelect(STOCK_FORMAL_EDIT)
else
if Pos('@STOCK_MONEY_EDIT', sUrl) > 0 then
BillSelect(STOCK_MONEY_EDIT)
else
if Pos('@STOCK_BACK_EDIT', sUrl) > 0 then
BillSelect(STOCK_BACK_EDIT)
else
if Pos('@ALL_STOCK_BILL', sUrl) > 0 then
BillSelect(ALL_STOCK_BILL)
else
if Pos('@WARE_STOCK_QUERY', sUrl) > 0 then
QuerySelect(WARE_STOCK_QUERY, 1)
else
if Pos('@BASE_AREA', sUrl) > 0 then
BaseSelect(BASE_AREA, 0, '')
else
if Pos('@BASE_PROVIDE', sUrl) > 0 then
BaseSelect(BASE_PROVIDE, 0, '')
else
if Pos('@BASE_WARE_SORT', sUrl) > 0 then
BaseSelect(BASE_WARE_SORT, 0, '')
else
if Pos('@BASE_WARE', sUrl) > 0 then
BaseSelect(BASE_WARE, 0, '')
else
if Pos('@BASE_DEPOT', sUrl) > 0 then
BaseSelect(BASE_DEPOT, 0, '')
//销售页面
else
if Pos('@BASE_CLIENT', sUrl) > 0 then
BaseSelect(BASE_CLIENT, 0, '')
else
if Pos('@SALE_ORDER_EDIT', sUrl) > 0 then
BillSelect(SALE_ORDER_EDIT)
else
if Pos('@SALE_FORMAL_EDIT', sUrl) > 0 then
BillSelect(SALE_FORMAL_EDIT)
else
if Pos('@SALE_MONEY_EDIT', sUrl) > 0 then
BillSelect(SALE_MONEY_EDIT)
else
if Pos('@ALL_SALE_BILL', sUrl) > 0 then
BillSelect(ALL_SALE_BILL)
else
if Pos('@SALE_READY_EDIT', sUrl) > 0 then
BillSelect(SALE_READY_EDIT)
else
if Pos('@SALE_BACK_EDIT', sUrl) > 0 then
BillSelect(SALE_BACK_EDIT)
//库存管理页面
else
if Pos('@EXIST_DRAW', sUrl) > 0 then
BillSelect(EXIST_DRAW)
else
if Pos('@EXIST_RETURN', sUrl) > 0 then
BillSelect(EXIST_RETURN)
else
if Pos('@EXIST_ENTER_DEPOT', sUrl) > 0 then
BillSelect(EXIST_ENTER_DEPOT)
else
if Pos('@EXIST_CHANGE_PRICE', sUrl) > 0 then
BillSelect(EXIST_CHANGE_PRICE)
else
if Pos('@EXIST_ASSEMBLY', sUrl) > 0 then
BillSelect(EXIST_ASSEMBLY)
else
if Pos('@EXIST_EXCHANGE', sUrl) > 0 then
BillSelect(EXIST_EXCHANGE)
else
if Pos('@EXIST_CHECK_LIST', sUrl) > 0 then
BillSelect(EXIST_CHECK_LIST)
else
if Pos('@EXIST_OTHER', sUrl) > 0 then
BillSelect(EXIST_OTHER)
//记账凭证页面
else
if Pos('@ACCOUNT_VOUCHER_EDIT', sUrl) > 0 then
BillSelect(ACCOUNT_VOUCHER_EDIT)
else
if Pos('@ACCOUNT_VOUCHER_QUERY', sUrl) > 0 then
BillSelect(ACCOUNT_VOUCHER_QUERY)
//固定资产页面
else
if Pos('@BASE_FIXED_SORT', sUrl) > 0 then
BaseSelect(BASE_FIXED_SORT, 0, '')
else
if Pos('@BASE_FIXED_MODE', sUrl) > 0 then
BaseSelect(BASE_FIXED_MODE, 0, '')
else
if Pos('@BASE_FIXED_USE', sUrl) > 0 then
BaseSelect(BASE_FIXED_USE, 0, '')
else
if Pos('@BASE_FIXED_ADD', sUrl) > 0 then
BaseSelect(BASE_FIXED_ADD, 0, '')
else
if Pos('@BASE_FIXED_DEC', sUrl) > 0 then
BaseSelect(BASE_FIXED_ADD, 0, '')
else
if Pos('@BASE_FIXED_WORK', sUrl) > 0 then
QuerySelect(BASE_FIXED_WORK, 0)
else
if Pos('@QUERY_FIXED_BILL', sUrl) > 0 then
QuerySelect(QUERY_FIXED_BILL, 0)
else
if Pos('@QUERY_FIXED_DEPRECIATE', sUrl) > 0 then
QuerySelect(QUERY_FIXED_DEPRECIATE, 0)
else
if Pos('@QUERY_FIXED_PILE_DEPRECIATE', sUrl) > 0 then
QuerySelect(QUERY_FIXED_PILE_DEPRECIATE, 0)
else
if Pos('@QUERY_FIXED_WORK', sUrl) > 0 then
QuerySelect(QUERY_FIXED_WORK, 0)
else
if Pos('@FixDepDlgShow', sUrl) > 0 then
FixDepDlgShow('D')
//工资管理页面
else
if Pos('@BASE_WAGE_ITEM', sUrl) > 0 then
BaseSelect(BASE_WAGE_ITEM, 0, '')
else
if Pos('@WAGE_DATA_INPUT', sUrl) > 0 then
QuerySelect(WAGE_DATA_INPUT, 0)
else
if Pos('@QUERY_WAGE_PRINT_BAR', sUrl) > 0 then
QuerySelect(QUERY_WAGE_PRINT_BAR, 0)
else
if Pos('@QUERY_WAGE_PRINT_TAB', sUrl) > 0 then
QuerySelect(QUERY_WAGE_PRINT_TAB, 0)
else
if Pos('@QUERY_WAGE_PRINT_SUM', sUrl) > 0 then
QuerySelect(QUERY_WAGE_PRINT_SUM, 0)
else
if Pos('@QUERY_WAGE_LEARNING', sUrl) > 0 then
QuerySelect(QUERY_WAGE_LEARNING, 0)
//系统维护页面
else
if Pos('@BILL_ALL_SETUP', sUrl) > 0 then
BillSetupShow(BILL_ALL_SETUP)
else
if Pos('@UserLimitShow', sUrl) > 0 then
UserLimitShow(0)
else
if Pos('@SysReset', sUrl) > 0 then
SysReset
else
if Pos('@SetFormStyleShow', sUrl) > 0 then
SetFormStyleShow(sDesktop)
else
if Pos('@CHANGE_PASSWORD', sUrl) > 0 then
ChangePassShow(LoginEmployeID, 0)
else
if Pos('@BackUPAccountShow', sUrl) > 0 then
BackupAccountShow(0)
else
Exit;
Result := True;
end;
procedure TfrmMainWindow.FormCreate(Sender: TObject);
begin
inherited;
Application.Title := SOFTWARE_CAPTION;
Caption := SOFTWARE_CAPTION + '[' + IntToStr(SOFTWARE_VERSION_NUM) + ']';
dxBarManager1.IniFileName := GetSystemDir + MENU_SAVE_INI;
WriteMenuTag;
LoadWwwOrPic;
end;
procedure TfrmMainWindow.FormDestroy(Sender: TObject);
begin
inherited;
if bUseAgent then
SetIniValue(frmData.ADOConnetLogin, 'UseAgent', 'T')
else
SetIniValue(frmData.ADOConnetLogin, 'UseAgent', 'F');
SystemClose;
if bExistAgent then
{$IFNDEF NoAgent}
myAgent.Characters.Unload('Peedy');
{$ENDIF}
end;
procedure TfrmMainWindow.WebBrowserBeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
inherited;
Cancel := LoadURL(URL);
end;
procedure TfrmMainWindow.WriteLoginState;
begin
lblNowAccount.Caption := '当前账套：[' + SYSAccountBookName + ']';
lblNewMan.Caption := '操作员：[' + LoginEmployeName + ']';
end;
procedure TfrmMainWindow.Timer1Timer(Sender: TObject);
begin
inherited;
Timer1.Enabled := False;
if not LoginShow('OPEN') then
begin
Close;
Exit;
end;
sRegCaption := SOFTWARE_CAPTION + '[' + IntToStr(SOFTWARE_VERSION_NUM) + ']';
WriteLoginState;
CheckRegister;
bUseAgent := GetIniValue(frmData.ADOConnetLogin, 'UseAgent') = 'T';
if bUseAgent then
dxBarButton135.Caption := '关闭助手'
else
dxBarButton135.Caption := '显示助手';
if bUseAgent then
bExistAgent := CreateAgent(GetExePath + '\' + FILE_AGENT);
StartAnnunctator;
end;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -