lookupsdata.pas

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

unit LookUpsData;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DB, DBTables;

type
  TdmLookUps = class(TDataModule)
    tblTax: TTable;
    dsTax: TDataSource;
    tblTaxTaxID: TAutoIncField;
    tblTaxTaxName: TStringField;
    tblSalesman: TTable;
    dsSalesman: TDataSource;
    tblSalesmanSalesmanID: TAutoIncField;
    tblSalesmanLastName: TStringField;
    tblSalesmanFirstName: TStringField;
    tblSalesmanFullName: TStringField;
    tblCusType: TTable;
    dsCusType: TDataSource;
    tblCusTypeCustomerTypeID: TAutoIncField;
    tblCusTypeTypeName: TStringField;
    tblCurrency: TTable;
    tblCurrencyCurrencyID: TAutoIncField;
    tblCurrencyCurrencyName: TStringField;
    dsCurrency: TDataSource;
    tblItem: TTable;
    tblItemItemNo: TStringField;
    tblItemItemDescription: TStringField;
    tblItemTaxCodes: TStringField;
    tblItemUnitPrice: TCurrencyField;
    tblItemSuspended: TBooleanField;
    tblCustomer: TTable;
    tblCustomerCustomerID: TAutoIncField;
    tblCustomerCustomerNo: TStringField;
    tblCustomerCustomerName: TStringField;
    tblCustomerAddress: TStringField;
    tblCustomerAddressLine1: TStringField;
    tblCustomerAddressLine2: TStringField;
    tblCustomerCity: TStringField;
    tblCustomerStateProv: TStringField;
    tblCustomerZipCode: TStringField;
    tblCustomerCountry: TStringField;
    tblCustomerBillToNo: TStringField;
    tblCustomerBillToOnly: TBooleanField;
    tblCustomerSuspended: TBooleanField;
    tblCustomerDiscPC: TFloatField;
    tblCustomerDiscDays: TSmallintField;
    tblCustomerNetDays: TSmallintField;
    tblCustomerCOD: TBooleanField;
    dsCustomer: TDataSource;
    tblGLAccnt: TTable;
    tblGLAccntGLAccount: TStringField;
    tblGLAccntAccountName: TStringField;
    tblGLAccntSuspended: TBooleanField;
    tblVendor: TTable;
    tblVendorVendorID: TAutoIncField;
    tblVendorVendorNo: TStringField;
    tblVendorVendorName: TStringField;
    tblVendorAddress: TStringField;
    tblVendorAddressLine1: TStringField;
    tblVendorAddressLine2: TStringField;
    tblVendorCity: TStringField;
    tblVendorStateProv: TStringField;
    tblVendorZipCode: TStringField;
    tblVendorCountry: TStringField;
    tblVendorTerms: TStringField;
    tblVendorNetDays: TSmallintField;
    tblVendorDiscDays: TSmallintField;
    tblVendorDelayDays: TSmallintField;
    tblVendorDiscPC: TFloatField;
    tblVendorDefaultInvDescription: TStringField;
    tblVendorSuspended: TBooleanField;
    dsVendor: TDataSource;
    tblCustomerTax1ID: TIntegerField;
    tblCustomerTax2ID: TIntegerField;
    tblCustomerTax1ExemptionNo: TStringField;
    tblCustomerTax2ExemptionNo: TStringField;
    tblTaxRate: TFloatField;
    tblTaxTaxCode: TStringField;
    tblTaxTaxDescription: TStringField;
    tblTaxTaxGLAccount: TStringField;
    tblBank: TTable;
    tblBankBankID: TAutoIncField;
    tblBankBankName: TStringField;
    tblBankCurrencyID: TIntegerField;
    dsBank: TDataSource;
    tblCurrencyDfltWriteOffGLAccount: TStringField;
    dsGLAccnt: TDataSource;
    tblGLAccntAccountName30: TStringField;
    tblGLAccntAccountType: TSmallintField;
    tblBankBankGLAccount: TStringField;
    tblCustomerCustomerTypeID: TIntegerField;
    tblCustomerSalesmanID: TIntegerField;
    tblCustomerCurrencyID: TIntegerField;
    tblVendorCurrencyID: TIntegerField;
    procedure dmLookUpsCreate(Sender: TObject);
    procedure tblSalesmanCalcFields(DataSet: TDataSet);
    procedure tblCustomerCalcFields(DataSet: TDataSet);
    procedure tblVendorCalcFields(DataSet: TDataSet);
    procedure tblGLAccntCalcFields(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dmLookUps: TdmLookUps;

implementation

uses BS1Form;

{$R *.DFM}

procedure TdmLookUps.dmLookUpsCreate(Sender: TObject);
begin
  tblBank.DatabaseName := strDatabaseName;
  tblCurrency.DatabaseName := strDatabaseName;
  tblCustomer.DatabaseName := strDatabaseName;
  tblCusType.DatabaseName := strDatabaseName;
  tblGLAccnt.DatabaseName := strDatabaseName;
  tblItem.DatabaseName := strDatabaseName;
  tblSalesman.DatabaseName := strDatabaseName;
  tblTax.DatabaseName := strDatabaseName;
  tblVendor.DatabaseName := strDatabaseName;
  //tblBank.Active := true;
  tblCurrency.Active := true;
  tblCustomer.Active := true;
  //tblCusType.Active := true;
  tblGLAccnt.Active := true;
  tblItem.Active := true;
  //tblSalesman.Active := true;
  tblTax.Active := true;
  tblVendor.Active := true;
end;

procedure TdmLookUps.tblSalesmanCalcFields(DataSet: TDataSet);
begin
  if (tblSalesmanFirstName.Value <> '') and (tblSalesmanLastName.Value <> '') then tblSalesmanFullName.AsString := tblSalesmanFirstName.AsString + ' ' + tblSalesmanLastName.AsString
  else                                                                             tblSalesmanFullName.AsString := tblSalesmanFirstName.AsString + tblSalesmanLastName.AsString;
end;

procedure TdmLookUps.tblCustomerCalcFields(DataSet: TDataSet);
begin
  tblCustomerAddress.value := tblCustomerAddressLine1.value;
  if tblCustomerAddressLine2.value <> '' then tblCustomerAddress.value := tblCustomerAddress.value + ', ' + tblCustomerAddressLine2.value;
  if tblCustomerCity.value <> '' then tblCustomerAddress.value := tblCustomerAddress.value + ', ' + tblCustomerCity.value;
  if tblCustomerStateProv.value <> '' then tblCustomerAddress.value := tblCustomerAddress.value + ', ' + tblCustomerStateProv.value;
  if tblCustomerZipCode.value <> '' then tblCustomerAddress.value := tblCustomerAddress.value + ', ' + tblCustomerZipCode.value;
  if tblCustomerCountry.value <> '' then tblCustomerAddress.value := tblCustomerAddress.value + ', ' + tblCustomerCountry.value;
end;

procedure TdmLookUps.tblVendorCalcFields(DataSet: TDataSet);
begin
  tblVendorAddress.value := tblVendorAddressLine1.value;
  if tblVendorAddressLine2.value <> '' then tblVendorAddress.value := tblVendorAddress.value + ', ' + tblVendorAddressLine2.value;
  if tblVendorCity.value <> '' then tblVendorAddress.value := tblVendorAddress.value + ', ' + tblVendorCity.value;
  if tblVendorStateProv.value <> '' then tblVendorAddress.value := tblVendorAddress.value + ', ' + tblVendorStateProv.value;
  if tblVendorZipCode.value <> '' then tblVendorAddress.value := tblVendorAddress.value + ', ' + tblVendorZipCode.value;
  if tblVendorCountry.value <> '' then tblVendorAddress.value := tblVendorAddress.value + ', ' + tblVendorCountry.value;

  tblVendorTerms.AsString := 'Terms: ';
  if tblVendorDiscPC.value >0 then
    if tblVendorDiscDays.AsVariant = null then tblVendorTerms.AsString := tblVendorTerms.AsString + tblVendorDiscPC.AsString + '% ' + '0' + '   '
    else                                       tblVendorTerms.AsString := tblVendorTerms.AsString + tblVendorDiscPC.AsString + '% ' + tblVendorDiscDays.AsString + '   ';
  if tblVendorNetDays.AsVariant = null then tblVendorTerms.AsString := tblVendorTerms.AsString + 'Net 0'
  else                                      tblVendorTerms.AsString := tblVendorTerms.AsString + 'Net ' + tblVendorNetDays.AsString;
  if tblVendorDelayDays.AsVariant = null then tblVendorTerms.AsString := tblVendorTerms.AsString + '   Delay 0'
  else                                        tblVendorTerms.AsString := tblVendorTerms.AsString + '   Delay ' + tblVendorDelayDays.AsString;
end;

procedure TdmLookUps.tblGLAccntCalcFields(DataSet: TDataSet);
begin
  tblGLAccntAccountName30.value := tblGLAccntAccountName.value;
end;

end.