mainwindow.pas.~1~

胜天进销存源码,国产优秀的进销存

procedure TfrmMainWindow.dxBarButton1Click(Sender: TObject);
begin
  LoginShow('NEW');
end;

procedure TfrmMainWindow.dxBarButton3Click(Sender: TObject);
begin
  frmData.ADOConnet.Close;
  MenuVisible(1);
  LoginEmployeID := 0;
end;

procedure TfrmMainWindow.dxBarButton96Click(Sender: TObject);
begin
  LoginShow('PASS');
  WriteLoginState;
end;

procedure TfrmMainWindow.dxBarButton98Click(Sender: TObject);
begin
  UserLimitShow(0);
end;

procedure TfrmMainWindow.dxBarButton41Click(Sender: TObject);
begin
  BaseSelect(BASE_FIXED_MODE, 0, '');
end;

procedure TfrmMainWindow.dxBarButton99Click(Sender: TObject);
begin
  QuerySelect(BASE_FIXED_WORK, 0);
end;

procedure TfrmMainWindow.dxBarButton102Click(Sender: TObject);
begin
  QuerySelect(QUERY_FIXED_BILL, 0);
end;

procedure TfrmMainWindow.dxBarButton45Click(Sender: TObject);
begin
  BaseSelect(BASE_WAGE_KIND, 0, '');
end;

procedure TfrmMainWindow.dxBarButton103Click(Sender: TObject);
begin
  QuerySelect(QUERY_FIXED_DEPRECIATE, 0);
end;

procedure TfrmMainWindow.dxBarButton104Click(Sender: TObject);
begin
  QuerySelect(QUERY_FIXED_PILE_DEPRECIATE, 0);
end;

procedure TfrmMainWindow.dxBarButton105Click(Sender: TObject);
begin
  QuerySelect(QUERY_FIXED_WORK, 0);
end;

procedure TfrmMainWindow.dxBarButton46Click(Sender: TObject);
begin
  BaseSelect(BASE_WAGE_PROCEDURE, 0, '');
end;

procedure TfrmMainWindow.dxBarButton60Click(Sender: TObject);
begin
  QuerySelect(QUERY_WAGE_LEARNING, 0);
end;

procedure TfrmMainWindow.dxBarButton47Click(Sender: TObject);
begin
  BaseSelect(BASE_WAGE_ITEM, 0, '');
end;

procedure TfrmMainWindow.dxBarButton51Click(Sender: TObject);
begin
  QuerySelect(WAGE_DATA_INPUT, 0);
end;

procedure TfrmMainWindow.dxBarButton106Click(Sender: TObject);
begin
  CompactAccountDataBase;
end;

procedure TfrmMainWindow.dxBarButton97Click(Sender: TObject);
begin
  ChangePassShow(LoginEmployeID, 0);
end;

procedure TfrmMainWindow.dxBarButton54Click(Sender: TObject);
begin
  QuerySelect(QUERY_WAGE_PRINT_BAR, 0);
end;

procedure TfrmMainWindow.dxBarButton55Click(Sender: TObject);
begin
  QuerySelect(QUERY_WAGE_PRINT_TAB, 0);
end;

procedure TfrmMainWindow.dxBarButton48Click(Sender: TObject);
begin
  QuerySelect(QUERY_WAGE_PRINT_SUM, 0);
end;

procedure TfrmMainWindow.dxBarButton77Click(Sender: TObject);
begin
  AboutFormShow;
end;

procedure TfrmMainWindow.dxBarButton107Click(Sender: TObject);
begin
  UpdateSD3000Show;
end;

procedure TfrmMainWindow.dxBarButton108Click(Sender: TObject);
begin
  if MsgBox('简体中文和繁体中文转换需要重启应用程序！' + #13 +
    '你确定要进行简体中文和繁体中文转换吗？', '提示', MB_OKCANCEL) = IDOK then
  begin
    if lGB23_BIG5 = 1 then
      SetIniValue(frmData.ADOConnetLogin, 'GB23_BIG5', 'GB23')
    else
      SetIniValue(frmData.ADOConnetLogin, 'GB23_BIG5', 'BIG5');
    ExecBatFile(Application.ExeName);
    Close;
  end;
end;

procedure TfrmMainWindow.dxBarButton109Click(Sender: TObject);
begin
  ShellExecute(handle, 'Open', 'http://www.sqlvc.com', '', '', SW_SHOW);
end;

procedure TfrmMainWindow.dxBarButton114Click(Sender: TObject);
begin
  ExecFile('Mailto:[e-mail]');
end;

procedure TfrmMainWindow.dxBarButton93Click(Sender: TObject);
begin
  BackupAccountShow(0);
end;

procedure TfrmMainWindow.dxBarButton94Click(Sender: TObject);
begin
  BackupAccountShow(1);
end;

procedure TfrmMainWindow.dxBarButton95Click(Sender: TObject);
begin
  BackupAccountShow(2);
end;

procedure TfrmMainWindow.dxBarButton92Click(Sender: TObject);
begin
  AccountInfoShow;
end;

procedure TfrmMainWindow.dxBarButton115Click(Sender: TObject);
begin
  SoftRegisterShow;
  CheckRegister;
end;

procedure TfrmMainWindow.dxBarButton117Click(Sender: TObject);
begin
  QuerySelect(WARE_STOCK_ORDER_COLLECT, 0);
end;

procedure TfrmMainWindow.dxBarButton118Click(Sender: TObject);
begin
  QuerySelect(CLIENT_STOCK_ORDER_COLLECT, 0);
end;

procedure TfrmMainWindow.dxBarButton119Click(Sender: TObject);
begin
  QuerySelect(EMPLOYE_STOCK_ORDER_COLLECT, 0);
end;

procedure TfrmMainWindow.dxBarButton120Click(Sender: TObject);
begin
  QuerySelect(WARE_SALE_ORDER_COLLECT, 0);
end;

procedure TfrmMainWindow.dxBarButton121Click(Sender: TObject);
begin
  QuerySelect(CLIENT_SALE_ORDER_COLLECT, 0);
end;

procedure TfrmMainWindow.dxBarButton122Click(Sender: TObject);
begin
  QuerySelect(EMPLOYE_SALE_ORDER_COLLECT, 0);
end;

procedure TfrmMainWindow.dxBarButton126Click(Sender: TObject);
begin
  QuerySelect(CLIENT_RECEIPT_QUERY, 0);
end;

procedure TfrmMainWindow.dxBarButton127Click(Sender: TObject);
begin
  QuerySelect(PROVIDE_PAYABLE_QUERY, 0);
end;

procedure TfrmMainWindow.dxBarButton130Click(Sender: TObject);
begin
  QuerySelect(WARE_STOCK_PRICE_EDIT, 1);
end;

procedure TfrmMainWindow.dxBarButton75Click(Sender: TObject);
begin
  HtmlHelp(SOFTWARE_ECAPTION + '.chm');
end;

procedure TfrmMainWindow.dxBarButton50Click(Sender: TObject);
begin
  BillSelect(EXIST_PRICE_EXCHANGE, 1);
end;

procedure TfrmMainWindow.dxBarButton57Click(Sender: TObject);
begin
  BillSelect(EXIST_LOSING, 1);
end;

procedure TfrmMainWindow.dxBarButton56Click(Sender: TObject);
begin
  BillSelect(EXIST_INCREASE, 1);
end;

procedure TfrmMainWindow.dxBarButton58Click(Sender: TObject);
begin
  BillSelect(ALL_EXIST_BILL, 1);
end;

procedure TfrmMainWindow.dxBarButton134Click(Sender: TObject);
begin
  QuerySelect(OPERATE_LOG, 0);
end;

procedure TfrmMainWindow.dxBarButton110Click(Sender: TObject);
begin
  ShowMsg('此功能将在下一个版本中提供！');
end;

procedure TfrmMainWindow.dxBarButton111Click(Sender: TObject);
begin
  ShowMsg('此功能将在下一个版本中提供！');
end;

procedure TfrmMainWindow.dxBarButton112Click(Sender: TObject);
begin
  ShowMsg('此功能将在下一个版本中提供！');
end;

procedure TfrmMainWindow.dxBarButton113Click(Sender: TObject);
begin
  ShowMsg('此功能将在下一个版本中提供！');
end;

procedure TfrmMainWindow.dxBarButton131Click(Sender: TObject);
begin
  BillSelect(MONEY_DEPOSIT);
end;

procedure TfrmMainWindow.dxBarButton132Click(Sender: TObject);
begin
  BillSelect(MONEY_EXPENSES);
end;

procedure TfrmMainWindow.dxBarButton133Click(Sender: TObject);
begin
  BillSelect(MONEY_INCOME);
end;

procedure TfrmMainWindow.dxBarButton100Click(Sender: TObject);
begin
  FixDepDlgShow('D');
end;

procedure TfrmMainWindow.dxBarButton101Click(Sender: TObject);
begin
  FixDepDlgShow('U');
end;

procedure TfrmMainWindow.dxBarButton135Click(Sender: TObject);
begin
  if bUseAgent then
  begin
    bUseAgent := False;
    dxBarButton135.Caption := '显示助手';
    if bExistAgent then
    begin
      bExistAgent := False;
      Request := Peedy.Play('GoodBye');
      Sleep(300);
      {$IFNDEF NoAgent}
      myAgent.Characters.Unload('Peedy');
      {$ELSE}

      {$ENDIF}
    end
  end
  else
  begin
    bUseAgent := True;
    dxBarButton135.Caption := '关闭助手';
    bExistAgent := CreateAgent(GetExePath + '\' + FILE_AGENT);
  end;
end;

procedure TfrmMainWindow.LookMove(lIndex: Integer);
begin
  if bExistAgent and (Request <> nil) and (Request.ID <> 0) then
    Peedy.Stop(Request);

  case lIndex of
    1: Request := Peedy.Play('Alert');
    2: Request := Peedy.Play('CheckingSomething');
    3: Request := Peedy.Play('Congratulate');
    4: Request := Peedy.Play('DeepIdle1');
    5: Request := Peedy.Play('EmptyTrash');
    6: Request := Peedy.Play('GetArtsy');
    7: Request := Peedy.Play('GetAttention');
    8: Request := Peedy.Play('Wave');
    9: Request := Peedy.Play('Writing');
  else
    Request := Peedy.Play('Writing');
  end;
end;

procedure TfrmMainWindow.StartAnnunctator;
var
  lRet: Integer;
begin
  lRet := 0;
  if StrToBool2(GetIniValue(frmData.ADOConnet, 'StockAnnunct')) or
    StrToBool2(GetIniValue(frmData.ADOConnet, 'ARAnnunct')) or
    StrToBool2(GetIniValue(frmData.ADOConnet, 'APAnnunct')) then
    lRet := AgentShowMsg('查看商品库存报警,查看应收款报警,查看应付款报警',
      MB_ANNUNCTATOR);
  case lRet of
    1: QuerySelect(WARE_STOCK_QUERY, 1);
    2: QuerySelect(CLIENT_RECEIPT_QUERY, 0);
    3: QuerySelect(PROVIDE_PAYABLE_QUERY, 0);
  end;
end;

procedure TfrmMainWindow.myAgentClick(Sender: TObject;
  const CharacterID: WideString; Button, Shift, x, y: Smallint);
begin
  if lAgeIndex >= 10 then
    lAgeIndex := 0
  else
    lAgeIndex := lAgeIndex + 1;
  LookMove(lAgeIndex);
end;

procedure TfrmMainWindow.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  if bExistAgent then
    Request := Peedy.Play('GoodBye');
end;

procedure TfrmMainWindow.myAgentMove(Sender: TObject;
  const CharacterID: WideString; x, y, Cause: Smallint);
begin
  if (frmAgentDialog <> nil) and frmAgentDialog.Visible then
    frmAgentDialog.UniteDialog;
end;

procedure TfrmMainWindow.dxBarButton59Click(Sender: TObject);
begin
  BillSelect(SALE_POS_EDIT);
end;

procedure TfrmMainWindow.dxBarButton116Click(Sender: TObject);
begin
  SetStartAccount(True);
end;

procedure TfrmMainWindow.dxBarButton136Click(Sender: TObject);
begin
  QuerySelect(WARE_STOCK_EDIT, 1);
end;

procedure TfrmMainWindow.dxBarButton128Click(Sender: TObject);
begin
  QuerySelect(CLIENT_RECEIPT_DETAILED, 0);
end;

procedure TfrmMainWindow.dxBarButton129Click(Sender: TObject);
begin
  QuerySelect(PROVIDE_PAYABLE_DETAILED, 0);
end;

procedure TfrmMainWindow.Timer2Timer(Sender: TObject);
begin
  lblNowDate.Caption := '当前时间：' +
    FormatDateTime('yyyy"年"mm"月"dd"日" hh"时"mm"分" ampm', Now);
end;

procedure TfrmMainWindow.dxBarButton137Click(Sender: TObject);
begin
  BillSelect(EXIST_PRESENT);
end;

procedure TfrmMainWindow.dxBarButton138Click(Sender: TObject);
begin
  BillSelect(EXIST_GAIN);
end;

procedure TfrmMainWindow.dxBarButton141Click(Sender: TObject);
begin
  BillSelect(ALL_MONEY_BILL);
end;

end.