mainwindow.pas

胜天财务进销存2003源代码,SQLSERVER版,目前最完整的财务进销存系统.

    30, 5);
  Peedy.Show(0);
  Request := Peedy.Play('Greeting');
  Result := True;
end;

function TfrmMainWindow.MenuVisible(lVis: Integer): Boolean;
begin
  dxBarManager1.LockUpdate := True;
  case lVis of
    0:
      begin
        MainSubItem1.Visible := ivAlways;
        MainSubItem2.Visible := ivAlways;
        MainSubItem3.Visible := ivAlways;
        MainSubItem4.Visible := ivAlways;
        MainSubItem5.Visible := ivAlways;
        MainSubItem6.Visible := ivAlways;
        MainSubItem7.Visible := ivAlways;
        MainSubItem8.Visible := ivAlways;
        MainSubItem9.Visible := ivAlways;
        MainSubItem10.Visible := ivAlways;
        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
    myAgent.Characters.Unload('Peedy');
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;

procedure TfrmMainWindow.FormShow(Sender: TObject);
begin
  inherited;
  Timer1.Enabled := True;
  SetGB23ToBIG5(Self);
end;

procedure TfrmMainWindow.dxBarButton2Click(Sender: TObject);
begin
  inherited;
  LoginShow('OPEN');
  WriteLoginState;
end;

procedure TfrmMainWindow.dxBarButton4Click(Sender: TObject);
begin
  Close;
end;

procedure TfrmMainWindow.dxBarButton5Click(Sender: TObject);
begin
  inherited;
  BaseSelect(BASE_AREA, 0, '');
end;

procedure TfrmMainWindow.dxBarButton6Click(Sender: TObject);
begin
  inherited;
  BaseSelect(BASE_CLIENT, 0, '');
end;

procedure TfrmMainWindow.dxBarButton7Click(Sender: TObject);
begin
  inherited;
  BaseSelect(BASE_PROVIDE, 0, '');
end;

procedure TfrmMainWindow.dxBarButton8Click(Sender: TObject);
begin
  inherited;
  BaseSelect(BASE_WARE_SORT, 0, '');
end;

procedure TfrmMainWindow.dxBarButton9Click(Sender: TObject);
begin
  inherited;
  BaseSelect(BASE_WARE_UNIT, 0, '');
end;

procedure TfrmMainWindow.dxBarButton10Click(Sender: TObject);
begin
  inherited;
  BaseSelect(BASE_WARE, 0, '');
end;