bs1.dpr

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

program BS1;

uses
  Forms,
  BS1Form in 'BS1Form.pas' {frmBS1},
  VendorsForm in 'VendorsForm.pas' {frmVendors},
  VendorForm in 'VendorForm.pas' {frmVendor},
  CurrenciesForm in 'CurrenciesForm.pas' {frmCurrencies},
  CurrencyForm in 'CurrencyForm.pas' {frmCurrency},
  BanksForm in 'BanksForm.pas' {frmBanks},
  BankForm in 'BankForm.pas' {frmBank},
  GLAccountsForm in 'GLAccountsForm.pas' {frmGLAccounts},
  GLAccountForm in 'GLAccountForm.pas' {frmGLAccount},
  APInvoicesForm in 'APInvoicesForm.pas' {frmAPInvoices},
  APInvoiceForm in 'APInvoiceForm.pas' {frmAPInvoice},
  CompanyForm in 'CompanyForm.pas' {frmCompany},
  VContactForm in 'VContactForm.pas' {frmVContact},
  GLAccountsReport in 'GLAccountsReport.pas' {rptGLAccounts},
  CalendarForm in 'CalendarForm.pas' {frmCalendar},
  CusTypesForm in 'CusTypesForm.pas' {frmCusTypes},
  CusTypeForm in 'CusTypeForm.pas' {frmCusType},
  SalesmenForm in 'SalesmenForm.pas' {frmSalesmen},
  SalesmanForm in 'SalesmanForm.pas' {frmSalesman},
  CustomersForm in 'CustomersForm.pas' {frmCustomers},
  CustomerForm in 'CustomerForm.pas' {frmCustomer},
  CContactForm in 'CContactForm.pas' {frmCContact},
  JVsForm in 'JVsForm.pas' {frmJVs},
  JVForm in 'JVForm.pas' {frmJV},
  GLAccountSearchForm in 'GLAccountSearchForm.pas' {frmGLAccountSearch},
  APInvoicesPostForm in 'APInvoicesPostForm.pas' {frmAPInvoicesPost},
  JVsPostForm in 'JVsPostForm.pas' {frmJVsPost},
  GLAccountsFilterForm in 'GLAccountsFilterForm.pas' {frmGLAccountsFilter},
  VendorsFilterForm in 'VendorsFilterForm.pas' {frmVendorsFilter},
  VendorsReport in 'VendorsReport.pas' {rptVendors},
  SalesmenReport in 'SalesmenReport.pas' {rptSalesmen},
  BanksReport in 'BanksReport.pas' {rptBanks},
  CusTypesReport in 'CusTypesReport.pas' {rptCusTypes},
  CurrenciesReport in 'CurrenciesReport.pas' {rptCurrencies},
  CustomersFilterForm in 'CustomersFilterForm.pas' {frmCustomersFilter},
  CustomersReport in 'CustomersReport.pas' {rptCustomers},
  APInvoicesFilterForm in 'APInvoicesFilterForm.pas' {frmAPInvoicesFilter},
  APInvoicesReport in 'APInvoicesReport.pas' {rptAPInvoices},
  JVsFilterForm in 'JVsFilterForm.pas' {frmJVsFilter},
  JVsReport in 'JVsReport.pas' {rptJVs},
  DialerForm in 'DialerForm.pas' {frmDialer},
  DialerSetupForm in 'DialerSetupForm.pas' {frmDialerSetup},
  APChequesForm in 'APChequesForm.pas' {frmAPCheques},
  APChequesFilterForm in 'APChequesFilterForm.pas' {frmAPChequesFilter},
  APChequesPostForm in 'APChequesPostForm.pas' {frmAPChequesPost},
  APChequeForm in 'APChequeForm.pas' {frmAPCheque},
  AboutForm in 'AboutForm.pas' {frmAbout},
  APChequeNewForm in 'APChequeNewForm.pas' {frmAPChequeNew},
  SplashForm in 'SplashForm.pas' {frmSplash},
  GLReportsForm in 'GLReportsForm.pas' {frmGLReports},
  APReportsForm in 'APReportsForm.pas' {frmAPReports},
  ARReportsForm in 'ARReportsForm.pas' {frmARReports},
  GLBalancesForm in 'GLBalancesForm.pas' {frmGLBalances},
  GLBalancesFilterForm in 'GLBalancesFilterForm.pas' {frmGLBalancesFilter},
  GLHistoryForm in 'GLHistoryForm.pas' {frmGLHistory},
  GLHistoryFilterForm in 'GLHistoryFilterForm.pas' {frmGLHistoryFilter},
  ARInvoicesForm in 'ARInvoicesForm.pas' {frmARInvoices},
  ARInvoicesFilterForm in 'ARInvoicesFilterForm.pas' {frmARInvoicesFilter},
  ARInvoiceForm in 'ARInvoiceForm.pas' {frmARInvoice},
  ItemSearchForm in 'ItemSearchForm.pas' {frmItemSearch},
  ItemsForm in 'ItemsForm.pas' {frmItems},
  ItemsFilterForm in 'ItemsFilterForm.pas' {frmItemsFilter},
  ItemForm in 'ItemForm.pas' {frmItem},
  TaxesForm in 'TaxesForm.pas' {frmTaxes},
  TaxForm in 'TaxForm.pas' {frmTax},
  TaxesReport in 'TaxesReport.pas' {rptTaxes},
  LookUpsData in 'LookUpsData.pas' {dmLookUps: TDataModule},
  ARPaymentsForm in 'ARPaymentsForm.pas' {frmARPayments},
  ARPaymentsFilterForm in 'ARPaymentsFilterForm.pas' {frmARPaymentsFilter},
  ItemsReport in 'ItemsReport.pas' {rptItems},
  APChequesReport in 'APChequesReport.pas' {rptAPCheques},
  ARInvoicesReport in 'ARInvoicesReport.pas' {rptARInvoices},
  ARPaymentsReport in 'ARPaymentsReport.pas' {rptARPayments},
  GLHistoryReport in 'GLHistoryReport.pas' {rptGLHistory},
  GLBalancesReport in 'GLBalancesReport.pas' {rptGLBalances},
  ARInvoicesPostForm in 'ARInvoicesPostForm.pas' {frmARInvoicesPost},
  ARInvoicesPrintForm in 'ARInvoicesPrintForm.pas' {frmARInvoicesPrint},
  ARPaymentForm in 'ARPaymentForm.pas' {frmARPayment},
  OpenPayablesReport in 'OpenPayablesReport.pas' {rptOpenPayables},
  AgedTrialBalanceReport in 'AgedTrialBalanceReport.pas' {rptAgedTrialBalance},
  ARPaymentsPostForm in 'ARPaymentsPostForm.pas' {frmARPaymentsPost},
  APHistoryReport in 'APHistoryReport.pas' {rptAPHistory},
  ARHistoryReport in 'ARHistoryReport.pas' {rptARHistory},
  TrialBalanceReport in 'TrialBalanceReport.pas' {rptTrialBalance},
  GeneralLedgerReport in 'GeneralLedgerReport.pas' {rptGeneralLedger},
  YearEndForm in 'YearEndForm.pas' {frmYearEnd},
  APInvoiceChequesForm in 'APInvoiceChequesForm.pas' {frmAPInvoiceCheques},
  ARInvoicePaymentsForm in 'ARInvoicePaymentsForm.pas' {frmARInvoicePayments},
  FinancialStmtForm in 'FinancialStmtForm.pas' {frmFinancialStmt},
  GLBudgetForm in 'GLBudgetForm.pas' {frmGLBudget},
  GLBudgetFilterForm in 'GLBudgetFilterForm.pas' {frmGLBudgetFilter},
  GLBudgetReport in 'GLBudgetReport.pas' {rptGLBudget},
  GLBudgetAccountForm in 'GLBudgetAccountForm.pas' {frmGLBudgetAccount},
  FinancialStmtLineForm in 'FinancialStmtLineForm.pas' {frmFinancialStmtLine},
  FinancialStmtReport in 'FinancialStmtReport.pas' {rptFinancialStmt},
  ARInvoiceReport in 'ARInvoiceReport.pas' {rptARInvoice},
  APChequeReport in 'APChequeReport.pas' {rptAPCheque},
  APChequesPrintForm in 'APChequesPrintForm.pas' {frmAPChequesPrint},
  PackForm in 'PackForm.pas' {frmPack},
  LicenseForm in 'LicenseForm.pas' {frmLicense},
  GettingStartedForm in 'GettingStartedForm.pas' {frmGettingStarted},
  WelcomeForm in 'WelcomeForm.pas' {frmWelcome},
  ImportForm in 'ImportForm.pas' {frmImport},
  BankBookForm in 'BankBookForm.pas' {frmBankBook},
  PreviewForm in 'PreviewForm.pas' {frmPreview},
  ARStatementsReport in 'ARStatementsReport.pas' {rptARStatements};

{$R *.RES}

begin
  frmSplash := TfrmSplash.Create(Application);
  frmSplash.Show;
  frmSplash.Update;
  //Application.Initialize;   //Created by Delphi, but not used in sample Mastapp or referenced in on-line help. 
  Application.Title := 'BS/1 Small Business';
  Application.Title := 'BS/1 Small Business';
  Application.HelpFile := '.\Bs1.hlp';
  Application.CreateForm(TfrmBS1, frmBS1);
  Application.CreateForm(TfrmCalendar, frmCalendar);
  Application.CreateForm(TfrmDialer, frmDialer);
  Application.CreateForm(TdmLookUps, dmLookUps);
  Application.CreateForm(TrptARStatements, rptARStatements);
  frmSplash.Hide;
  frmSplash.Free;
  Application.Run;
end.