mainwindow.pas

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

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

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

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

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

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

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

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

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

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

procedure TfrmMainWindow.dxBarButton20Click(Sender: TObject);
begin
  inherited;
  BillSelect(STOCK_ORDER_EDIT);
end;

procedure TfrmMainWindow.dxBarButton21Click(Sender: TObject);
begin
  inherited;
  BillSelect(STOCK_FORMAL_EDIT);
end;

procedure TfrmMainWindow.dxBarButton22Click(Sender: TObject);
begin
  inherited;
  BillSelect(STOCK_MONEY_EDIT);
end;

procedure TfrmMainWindow.dxBarButton23Click(Sender: TObject);
begin
  inherited;
  BillSelect(STOCK_BACK_EDIT);
end;

procedure TfrmMainWindow.dxBarButton24Click(Sender: TObject);
begin
  inherited;
  BillSelect(ALL_STOCK_BILL);
end;

procedure TfrmMainWindow.dxBarButton25Click(Sender: TObject);
begin
  inherited;
  BillSelect(SALE_ORDER_EDIT);
end;

procedure TfrmMainWindow.dxBarButton26Click(Sender: TObject);
begin
  inherited;
  BillSelect(SALE_FORMAL_EDIT);
end;

procedure TfrmMainWindow.dxBarButton27Click(Sender: TObject);
begin
  inherited;
  BillSelect(SALE_MONEY_EDIT);
end;

procedure TfrmMainWindow.dxBarButton28Click(Sender: TObject);
begin
  inherited;
  BillSelect(SALE_READY_EDIT);
end;

procedure TfrmMainWindow.dxBarButton29Click(Sender: TObject);
begin
  inherited;
  BillSelect(SALE_BACK_EDIT);
end;

procedure TfrmMainWindow.dxBarButton30Click(Sender: TObject);
begin
  inherited;
  BillSelect(ALL_SALE_BILL);
end;

procedure TfrmMainWindow.dxBarButton31Click(Sender: TObject);
begin
  inherited;
  BillSelect(EXIST_DRAW);
end;

procedure TfrmMainWindow.dxBarButton32Click(Sender: TObject);
begin
  inherited;
  BillSelect(EXIST_RETURN);
end;

procedure TfrmMainWindow.dxBarButton33Click(Sender: TObject);
begin
  inherited;
  BillSelect(EXIST_ENTER_DEPOT);
end;

procedure TfrmMainWindow.dxBarButton34Click(Sender: TObject);
begin
  inherited;
  BillSelect(EXIST_CHANGE_PRICE);
end;

procedure TfrmMainWindow.dxBarButton35Click(Sender: TObject);
begin
  inherited;
  BillSelect(EXIST_ASSEMBLY);
end;

procedure TfrmMainWindow.dxBarButton36Click(Sender: TObject);
begin
  inherited;
  BillSelect(EXIST_CHECK_LIST);
end;

procedure TfrmMainWindow.dxBarButton37Click(Sender: TObject);
begin
  inherited;
  BillSelect(EXIST_EXCHANGE);
end;

procedure TfrmMainWindow.dxBarButton38Click(Sender: TObject);
begin
  inherited;
  BillSelect(EXIST_OTHER);
end;

procedure TfrmMainWindow.dxBarButton39Click(Sender: TObject);
begin
  inherited;
  QuerySelect(WARE_STOCK_QUERY, 1);
end;

procedure TfrmMainWindow.dxBarButton124Click(Sender: TObject);
begin
  QuerySelect(WARE_STOCK_DISTRIBUTE, 0);
end;

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

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

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

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

procedure TfrmMainWindow.dxBarButton62Click(Sender: TObject);
begin
  inherited;
  QuerySelect(BASE_CLIENT, 1);
end;

procedure TfrmMainWindow.dxBarButton63Click(Sender: TObject);
begin
  inherited;
  QuerySelect(BASE_PROVIDE, 1);
end;

procedure TfrmMainWindow.dxBarButton64Click(Sender: TObject);
begin
  inherited;
  QuerySelect(BASE_EMPLOYE, 1);
end;

procedure TfrmMainWindow.dxBarButton65Click(Sender: TObject);
begin
  inherited;
  QuerySelect(BASE_WARE, 1);
end;

procedure TfrmMainWindow.dxBarButton66Click(Sender: TObject);
begin
  inherited;
  QuerySelect(BASE_DEPOT, 1);
end;

procedure TfrmMainWindow.dxBarButton68Click(Sender: TObject);
begin
  inherited;
  QuerySelect(CLIENT_SALE_COLLECT, 0);
end;

procedure TfrmMainWindow.dxBarButton69Click(Sender: TObject);
begin
  inherited;
  QuerySelect(EMPLOYE_SALE_COLLECT, 0);
end;

procedure TfrmMainWindow.dxBarButton70Click(Sender: TObject);
begin
  inherited;
  QuerySelect(WARE_SALE_COLLECT, 0);
end;

procedure TfrmMainWindow.dxBarButton72Click(Sender: TObject);
begin
  inherited;
  QuerySelect(PROVIDE_STOCK_COLLECT, 0);
end;

procedure TfrmMainWindow.dxBarButton73Click(Sender: TObject);
begin
  inherited;
  QuerySelect(EMPLOYE_STOCK_COLLECT, 0);
end;

procedure TfrmMainWindow.dxBarButton74Click(Sender: TObject);
begin
  inherited;
  QuerySelect(WARE_STOCK_COLLECT, 0);
end;

procedure TfrmMainWindow.dxBarButton76Click(Sender: TObject);
begin
  inherited;
  QuerySelect(WARE_STOCK_QUERY, 0);
end;

procedure TfrmMainWindow.dxBarButton78Click(Sender: TObject);
begin
  inherited;
  QuerySelect(CLIENT_SALE_PROFIT, 0);
end;

procedure TfrmMainWindow.dxBarButton79Click(Sender: TObject);
begin
  inherited;
  QuerySelect(EMPLOYE_SALE_PROFIT, 0);
end;

procedure TfrmMainWindow.dxBarButton80Click(Sender: TObject);
begin
  inherited;
  QuerySelect(WARE_SALE_PROFIT, 0);
end;

procedure TfrmMainWindow.dxBarButton61Click(Sender: TObject);
begin
  inherited;
  BillSetupShow(BILL_ALL_SETUP);
end;

procedure TfrmMainWindow.dxBarButton67Click(Sender: TObject);
begin
  inherited;
  SysReset;
end;

procedure TfrmMainWindow.dxBarButton71Click(Sender: TObject);
begin
  inherited;
  if SetFormStyleShow(sDesktop) then
    LoadWwwOrPic;
end;

procedure TfrmMainWindow.dxBarButton81Click(Sender: TObject);
begin
  BaseSelect(BASE_SUBJECT, 0, '');
end;

procedure TfrmMainWindow.dxBarButton82Click(Sender: TObject);
begin
  BillSelect(ACCOUNT_VOUCHER_EDIT);
end;

procedure TfrmMainWindow.dxBarButton84Click(Sender: TObject);
begin
  BaseSelect(BASE_NARRATE, 0, '');
end;

procedure TfrmMainWindow.dxBarButton85Click(Sender: TObject);
begin
  SQLExecuteFormShow;
end;

procedure TfrmMainWindow.dxBarButton83Click(Sender: TObject);
begin
  BillSelect(ACCOUNT_VOUCHER_QUERY);
end;

procedure TfrmMainWindow.dxBarButton86Click(Sender: TObject);
begin
  QuerySelect(WARE_STOCK_DETAILED, 0);
end;

procedure TfrmMainWindow.dxBarButton88Click(Sender: TObject);
begin
  QuerySelect(PROVIDE_STOCK_DETAILED, 0);
end;

procedure TfrmMainWindow.dxBarButton87Click(Sender: TObject);
begin
  QuerySelect(EMPLOYE_STOCK_DETAILED, 0);
end;

procedure TfrmMainWindow.dxBarButton89Click(Sender: TObject);
begin
  QuerySelect(WARE_SALE_DETAILED, 0);
end;

procedure TfrmMainWindow.dxBarButton91Click(Sender: TObject);
begin
  QuerySelect(CLIENT_SALE_DETAILED, 0);
end;

procedure TfrmMainWindow.dxBarButton90Click(Sender: TObject);
begin
  QuerySelect(EMPLOYE_SALE_DETAILED, 0);
end;

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