bs1form.pas

功能全面的商业财会系统源码,清晰,很有参考价值.扩展性强.

  aComponent: TComponent;
begin
  screen.cursor := crHourglass;
  aComponent := Application.FindComponent('frmGLBudget');
  if Assigned (aComponent) then try frmGLBudget.qryGLAccnt.close; frmGLBudget.qryGLAccnt.open; except; end
  else frmGLBudget := TfrmGLBudget.Create(Application);

  aComponent := Application.FindComponent('frmGLBudgetFilter');
  if Assigned (aComponent) then try frmGLBudgetFilter.btnResetClick(sender); except; end;
  frmGLBudget.mnuFilter.Checked := false;
  frmGLBudget.qryGLAccnt.Filtered := false;
  frmGLBudget.tblGLAccnt.Filtered := false;

  if frmGLBudget.WindowState = wsMinimized then frmGLBudget.WindowState := wsNormal;
  if frmGLBudget.visible = true then frmGLBudget.FormShow(sender)
  else frmGLBudget.Show;
  screen.cursor := crDefault;
end;

procedure TfrmBS1.mnuARInvoicesClick(Sender: TObject);
var
  aComponent: TComponent;
begin
  screen.cursor := crHourglass;
  aComponent := Application.FindComponent('frmARInvoices');
  if Assigned (aComponent) then try frmARInvoices.qryARInv.close; frmARInvoices.qryARInv.open; except; end
  else frmARInvoices := TfrmARInvoices.Create(Application);

  aComponent := Application.FindComponent('frmARInvoicesFilter');
  if Assigned (aComponent) then try frmARInvoicesFilter.btnResetClick(sender); except; end;
  frmARInvoices.mnuFilter.Checked := false;
  frmARInvoices.qryARInv.Filtered := false;

  if frmARInvoices.WindowState = wsMinimized then frmARInvoices.WindowState := wsNormal;
  if frmARInvoices.visible = true then frmARInvoices.FormShow(sender)
  else frmARInvoices.Show;
  screen.cursor := crDefault;
end;

procedure TfrmBS1.mnuJVsClick(Sender: TObject);
var
  aComponent: TComponent;
begin
  screen.cursor := crHourglass;
  aComponent := Application.FindComponent('frmJVs');
  if Assigned (aComponent) then try frmJVs.qryJV.close; frmJVs.qryJV.open; except; end
  else frmJVs := TfrmJVs.Create(Application);

  aComponent := Application.FindComponent('frmJVsFilter');
  if Assigned (aComponent) then try frmJVsFilter.btnResetClick(sender); except; end;
  frmJVs.mnuFilter.Checked := false;
  frmJVs.qryJV.Filtered := false;

  if frmJVs.WindowState = wsMinimized then frmJVs.WindowState := wsNormal;
  if frmJVs.visible = true then frmJVs.FormShow(sender)
  else frmJVs.Show;
  screen.cursor := crDefault;
end;

procedure TfrmBS1.btnReportsClick(Sender: TObject);
begin
  if cboSystem.text = 'AP' then mnuAPReportsClick(sender)
  else if cboSystem.text = 'AR' then mnuARReportsClick(sender)
  else if cboSystem.text = 'GL' then mnuGLReportsClick(sender);
end;

procedure TfrmBS1.mnuConfirmExitClick(Sender: TObject);
var
  BS1ini: TIniFile;
begin
  if mnuConfirmExit.checked = false then mnuConfirmExit.checked := true
  else mnuConfirmExit.checked := false;
  BS1ini := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'BS1.ini');
  BS1ini.WriteBool('General', 'ViewConfirmExit', mnuConfirmExit.checked);
  BS1ini.Free;
end;

procedure TfrmBS1.mnuBanksClick(Sender: TObject);
var
  aComponent: TComponent;
begin
  screen.cursor := crHourglass;
  aComponent := Application.FindComponent('frmBanks');
  if not Assigned (aComponent) then frmBanks := TfrmBanks.Create(Application);
  if frmBanks.WindowState = wsMinimized then frmBanks.WindowState := wsNormal;
  if frmBanks.visible = true then frmBanks.FormShow(sender)
  else frmBanks.Show;
  screen.cursor := crDefault;
end;

procedure TfrmBS1.mnuCurrenciesClick(Sender: TObject);
var
  aComponent: TComponent;
begin
  screen.cursor := crHourglass;
  aComponent := Application.FindComponent('frmCurrencies');
  if not Assigned (aComponent) then frmCurrencies := TfrmCurrencies.Create(Application);
  if frmCurrencies.WindowState = wsMinimized then frmCurrencies.WindowState := wsNormal;
  if frmCurrencies.visible = true then frmCurrencies.FormShow(sender)
  else frmCurrencies.Show;
  screen.cursor := crDefault;
end;

procedure TfrmBS1.mnuCustomerTypesClick(Sender: TObject);
var
  aComponent: TComponent;
begin
  screen.cursor := crHourglass;
  aComponent := Application.FindComponent('frmCusTypes');
  if not Assigned (aComponent) then frmCusTypes := TfrmCusTypes.Create(Application);
  if frmCusTypes.WindowState = wsMinimized then frmCusTypes.WindowState := wsNormal;
  if frmCusTypes.visible = true then frmCusTypes.FormShow(sender)
  else frmCusTypes.Show;
  screen.cursor := crDefault;
end;

procedure TfrmBS1.mnuSalesmenClick(Sender: TObject);
var
  aComponent: TComponent;
begin
  screen.cursor := crHourglass;
  aComponent := Application.FindComponent('frmSalesmen');
  if not Assigned (aComponent) then frmSalesmen := TfrmSalesmen.Create(Application);
  if frmSalesmen.WindowState = wsMinimized then frmSalesmen.WindowState := wsNormal;
  if frmSalesmen.visible = true then frmSalesmen.FormShow(sender)
  else frmSalesmen.Show;
  screen.cursor := crDefault;
end;

procedure TfrmBS1.mnuAboutClick(Sender: TObject);
var
  aComponent: TComponent;
begin
  aComponent := Application.FindComponent('frmAbout');
  if not Assigned (aComponent) then frmAbout := TfrmAbout.Create(Application);
  frmAbout.ShowModal;
end;

procedure TfrmBS1.mnuTechnicalSupportClick(Sender: TObject);
begin
  Application.HelpContext(510);
  {ShowMessage('Technical Support' + #13 + #13 +
              'Support is available to registered users by email at [e-mail]. ' +
              'The first incident is free, after which a support plan must be purchased in advance. ' +
              'Please see www.dbsonline.com for details.' + #13 + #13 +
              //'If you have any problems with this product, please' + #13 +
              //'contact us by email at [e-mail]' + #13 + #13 +
              'Our web site www.dbsonline.com contains...' + #13 +
              '-  Additional product information' + #13 +
              '-  Answers to frequently asked questions (FAQs)' + #13 +
              '-  A list of known bugs' + #13 +
              '-  A form on which to report a bug' + #13 +
              '-  Latest versions available for downloading');}
end;

procedure TfrmBS1.mnuHelpTopicsClick(Sender: TObject);
begin
  Application.HelpCommand(HELP_FINDER, 0);   //Display Help Contents.
end;

procedure TfrmBS1.mnuGLReportsClick(Sender: TObject);
var
  aComponent: TComponent;
begin
  screen.cursor := crHourglass;
  aComponent := Application.FindComponent('frmGLReports');
  if not Assigned (aComponent) then frmGLReports := TfrmGLReports.Create(Application);
  screen.cursor := crDefault;
  frmGLReports.Show;
end;

procedure TfrmBS1.mnuAPReportsClick(Sender: TObject);
var
  aComponent: TComponent;
begin
  screen.cursor := crHourglass;
  aComponent := Application.FindComponent('frmAPReports');
  if not Assigned (aComponent) then frmAPReports := TfrmAPReports.Create(Application);
  screen.cursor := crDefault;
  frmAPReports.Show;
end;

procedure TfrmBS1.mnuARReportsClick(Sender: TObject);
var
  aComponent: TComponent;
begin
  screen.cursor := crHourglass;
  aComponent := Application.FindComponent('frmARReports');
  if not Assigned (aComponent) then frmARReports := TfrmARReports.Create(Application);
  screen.cursor := crDefault;
  frmARReports.Show;
end;

procedure TfrmBS1.mnuGLBalancesClick(Sender: TObject);
var
  aComponent: TComponent;
begin
  //if license = '' then begin frmBS1.FreewareMessage; exit; end;
  screen.cursor := crHourglass;
  aComponent := Application.FindComponent('frmGLBalances');
  if Assigned (aComponent) then try frmGLBalances.qryGLAccnt.close; frmGLBalances.qryGLAccnt.open; except; end
  else frmGLBalances := TfrmGLBalances.Create(Application);

  aComponent := Application.FindComponent('frmGLBalancesFilter');
  if Assigned (aComponent) then try frmGLBalancesFilter.btnResetClick(sender); except; end;
  frmGLBalances.mnuFilter.Checked := false;
  frmGLBalances.qryGLAccnt.Filtered := false;
  frmGLBalances.tblGLAccnt.Filtered := false;

  if frmGLBalances.WindowState = wsMinimized then frmGLBalances.WindowState := wsNormal;
  if frmGLBalances.visible = true then frmGLBalances.FormShow(sender)
  else frmGLBalances.Show;
  screen.cursor := crDefault;
end;

procedure TfrmBS1.mnuGLHistoryClick(Sender: TObject);
var
  aComponent: TComponent;
begin
  screen.cursor := crHourglass;
  aComponent := Application.FindComponent('frmGLHistory');
  if Assigned (aComponent) then try frmGLHistory.qryGLHist.close; frmGLHistory.qryGLHist.open; except; end
  else frmGLHistory := TfrmGLHistory.Create(Application);

  aComponent := Application.FindComponent('frmGLHistoryFilter');
  if Assigned (aComponent) then try frmGLHistoryFilter.btnResetClick(sender); except; end;
  frmGLHistory.mnuFilter.Checked := false;
  frmGLHistory.qryGLHist.Filtered := false;
  frmGLHistory.tblGLAccnt.Filtered := false;

  if frmGLHistory.WindowState = wsMinimized then frmGLHistory.WindowState := wsNormal;
  if frmGLHistory.visible = true then frmGLHistory.FormShow(sender)
  else frmGLHistory.Show;
  screen.cursor := crDefault;
end;

procedure TfrmBS1.mnuItemsClick(Sender: TObject);
var
  aComponent: TComponent;
begin
  screen.cursor := crHourglass;
  aComponent := Application.FindComponent('frmItems');
  if not Assigned (aComponent) then frmItems := TfrmItems.Create(Application);

  aComponent := Application.FindComponent('frmItemsFilter');
  if Assigned (aComponent) then try frmItemsFilter.btnResetClick(sender); except; end;
  frmItems.mnuFilter.Checked := false;
  frmItems.qryItem.Filtered := false;
  frmItems.tblItem.Filtered := false;

  if frmItems.WindowState = wsMinimized then frmItems.WindowState := wsNormal;
  if frmItems.visible = true then frmItems.FormShow(sender)
  else frmItems.Show;
  screen.cursor := crDefault;
end;

procedure TfrmBS1.mnuTaxesClick(Sender: TObject);
var
  aComponent: TComponent;
begin
  screen.cursor := crHourglass;
  aComponent := Application.FindComponent('frmTaxes');
  if not Assigned (aComponent) then frmTaxes := TfrmTaxes.Create(Application);
  if frmTaxes.WindowState = wsMinimized then frmTaxes.WindowState := wsNormal;
  if frmTaxes.visible = true then frmTaxes.FormShow(sender)
  else frmTaxes.Show;
  screen.cursor := crDefault;
end;

procedure TfrmBS1.mnuPackRepairClick(Sender: TObject);
begin
  screen.cursor := crHourglass;
  application.createform (TfrmPack,frmPack);
  screen.cursor := crDefault;
  frmPack.ShowModal;
end;

procedure TfrmBS1.mnuHowtoRegisterClick(Sender: TObject);
begin
  Application.HelpContext(500);
end;

procedure TfrmBS1.mnuImportClick(Sender: TObject);
begin
  screen.cursor := crHourglass;
  application.createform (TfrmImport,frmImport);
  screen.cursor := crDefault;
  frmImport.ShowModal;
end;

procedure TfrmBS1.mnuBankBookClick(Sender: TObject);
var
  aComponent: TComponent;
begin
  screen.cursor := crHourglass;
  aComponent := Application.FindComponent('frmBankBook');
  if not Assigned(aComponent) then frmBankBook := TfrmBankBook.Create(Application);

  frmBankBook.SetDefaultBankID;
  if frmBankBook.WindowState = wsMinimized then frmBankBook.WindowState := wsNormal;
  if frmBankBook.visible = true then frmBankBook.FormShow(sender)
  else frmBankBook.Show;
  screen.cursor := crDefault;
end;

procedure TfrmBS1.mnuSourceCodeClick(Sender: TObject);
begin
  Application.HelpContext(520);
end;

end.