datamodule.pas

一套融入了系统营销管理思想的管理软件产品

unit DataModule;

interface

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

type
  TDM = class(TDataModule)
    DB: TDatabase;
    tbInput: TTable;
    tbInputUserID: TStringField;
    tbInputPasswordCode: TStringField;
    tbInputCompanyNo: TStringField;
    qyTemp0: TQuery;
    Queryxx: TQuery;
    qyExecute: TQuery;
    qyTemp1: TQuery;
    qyTemp2: TQuery;
    qyGet: TQuery;
    dsInput: TDataSource;
    tbInputAttribName: TStringField;
    qyCheck: TQuery;
    tbInputBeginSalesID: TStringField;
    tbInputEndSalesID: TStringField;
    tbInputBeginSalesName: TStringField;
    tbInputEndSalesName: TStringField;
    tbInputAllSalesManID: TBooleanField;
    tbInputBeginRegionID: TStringField;
    tbInputBeginRegionName: TStringField;
    tbInputEndRegionID: TStringField;
    tbInputEndRegionName: TStringField;
    tbInputAllRegionID: TBooleanField;
    tbInputBeginCustomerTypeID: TStringField;
    tbInputBeginCustomerTypeName: TStringField;
    tbInputEndCustomerTypeID: TStringField;
    tbInputEndCustomerTypeName: TStringField;
    tbInputAllCustomerTypeID: TBooleanField;
    tbInputBeginSupplierTypeID: TStringField;
    tbInputBeginSupplierTypeName: TStringField;
    tbInputEndSupplierTypeID: TStringField;
    tbInputEndSupplierTypeName: TStringField;
    tbInputAllSupplierTypeID: TBooleanField;
    tbInputBeginChangeCode: TStringField;
    tbInputBeginChangeName: TStringField;
    tbInputEndChangeCode: TStringField;
    tbInputEndChangeName: TStringField;
    tbInputAllChangeCode: TBooleanField;
    tbInputBeginWarehouseID: TStringField;
    tbInputBeginWarehouseName: TStringField;
    tbInputEndWarehouseID: TStringField;
    tbInputEndWarehouseName: TStringField;
    tbInputAllWarehouseID: TBooleanField;
    tbInputBeginBankID: TStringField;
    tbInputBeginBankAttribName: TStringField;
    tbInputEndBankID: TStringField;
    tbInputEndBankAttribName: TStringField;
    tbInputAllBankID: TBooleanField;
    qyBank: TQuery;
    qyBankBankID: TStringField;
    qyBankBankAttribName: TStringField;
    qyRegion: TQuery;
    qyRegionRegionID: TStringField;
    qyRegionRegionName: TStringField;
    qySalesMan: TQuery;
    qySalesManSalesManID: TStringField;
    qySalesManChineseName: TStringField;
    qyCustomerType: TQuery;
    qyCustomerTypeCustomerTypeID: TStringField;
    qyCustomerTypeCustomerTypeName: TStringField;
    qyInventoryChange: TQuery;
    qyInventoryChangeChangeCode: TStringField;
    qyInventoryChangeChangeName: TStringField;
    qySupplierType: TQuery;
    qyWarehouse: TQuery;
    qyWarehouseWarehouseID: TStringField;
    qyWarehouseWarehouseName: TStringField;
    qyProductType: TQuery;
    qyProductTypeProductTypeID: TStringField;
    qyProductTypeProductTypeName: TStringField;
    qySupplierTypeSupplierTypeID: TStringField;
    qySupplierTypeSupplierTypeName: TStringField;
    qyProduct: TQuery;
    qyProductProductID: TStringField;
    qyProductProductName: TStringField;
    qySupplier: TQuery;
    qySupplierSupplierID: TStringField;
    qySupplierSupplierAttribName: TStringField;
    qyCustomerMaster: TQuery;
    qyCustomerMasterCustomerID: TStringField;
    qyCustomerMasterCustomerAttribName: TStringField;
    qyCompany: TQuery;
    qyCompanyCompanyID: TStringField;
    qyCompanyAttribName: TStringField;
    qyUsers: TQuery;
    qyUsersUserID: TStringField;
    qyUsersUserName: TStringField;
    tbInputBeginSupplierID: TStringField;
    tbInputBeginSupplierAttribName: TStringField;
    tbInputEndSupplierID: TStringField;
    tbInputEndSupplierAttribName: TStringField;
    tbInputAllSupplierID: TBooleanField;
    tbInputBeginCustomerID: TStringField;
    tbInputBeginCustomerAttribName: TStringField;
    tbInputEndCustomerID: TStringField;
    tbInputEndCustomerAttribName: TStringField;
    tbInputAllCustomerID: TBooleanField;
    tbInputSupplierID: TStringField;
    tbInputSupplierAttribName: TStringField;
    tbInputCustomerID: TStringField;
    tbInputCustomerAttribName: TStringField;
    tbInputProperty01: TBooleanField;
    tbInputProperty02: TBooleanField;
    tbInputProperty03: TBooleanField;
    tbInputProperty04: TBooleanField;
    tbInputProperty05: TBooleanField;
    tbInputProperty06: TBooleanField;
    tbInputProperty07: TBooleanField;
    tbInputProperty08: TBooleanField;
    tbInputBeginDate: TStringField;
    tbInputEndDate: TStringField;
    tbInputTransferDate: TStringField;
    tbInputWarehouseID: TStringField;
    tbInputWarehouseName: TStringField;
    tbInputSalesManID: TStringField;
    tbInputSalesManName: TStringField;
    tbInputTrsYear: TStringField;
    tbInputTrsMonth: TStringField;
    tbInputChangeCode: TStringField;
    tbInputChangeName: TStringField;
    qyTemp3: TQuery;
    tbInputBeginProductID: TStringField;
    tbInputBeginProductName: TStringField;
    tbInputEndProductID: TStringField;
    tbInputEndProductName: TStringField;
    tbInputAllProductID: TBooleanField;
    tbInputProductID: TStringField;
    tbInputProductName: TStringField;
    qyProgram: TQuery;
    tbInputBeginUserID: TStringField;
    tbInputBeginUserName: TStringField;
    tbInputEndUserID: TStringField;
    tbInputEndUserName: TStringField;
    tbInputAllUserID: TBooleanField;
    tbInputBeginProgramName: TStringField;
    tbInputEndProgramID: TStringField;
    tbInputEndProgramName: TStringField;
    tbInputAllProgramID: TBooleanField;
    tbInputBeginProgramID: TStringField;
    qyProgramProgramID: TStringField;
    qyProgramProgramName: TStringField;
    tbInputBeginYear: TStringField;
    tbInputBeginMonth: TStringField;
    tbInputEndYear: TStringField;
    tbInputEndMonth: TStringField;
    procedure tbInputCompanyNoValidate(Sender: TField);
    procedure tbInputBeginSalesIDValidate(Sender: TField);
    procedure tbInputEndSalesIDValidate(Sender: TField);
    procedure tbInputBeginRegionIDValidate(Sender: TField);
    procedure tbInputEndRegionIDValidate(Sender: TField);
    procedure tbInputBeginCustomerTypeIDValidate(Sender: TField);
    procedure tbInputEndCustomerTypeIDValidate(Sender: TField);
    procedure tbInputBeginSupplierTypeIDValidate(Sender: TField);
    procedure tbInputEndSupplierTypeIDValidate(Sender: TField);
    procedure tbInputBeginChangeCodeValidate(Sender: TField);
    procedure tbInputEndChangeCodeValidate(Sender: TField);
    procedure tbInputBeginWarehouseIDValidate(Sender: TField);
    procedure tbInputEndWarehouseIDValidate(Sender: TField);
    procedure qyBankBeforeOpen(DataSet: TDataSet);
    procedure qyRegionBeforeOpen(DataSet: TDataSet);
    procedure qySalesManBeforeOpen(DataSet: TDataSet);
    procedure qyCustomerTypeBeforeOpen(DataSet: TDataSet);
    procedure qySupplierTypeBeforeOpen(DataSet: TDataSet);
    procedure qyInventoryChangeBeforeOpen(DataSet: TDataSet);
    procedure qyWarehouseBeforeOpen(DataSet: TDataSet);
    procedure qyProductTypeBeforeOpen(DataSet: TDataSet);
    procedure qySupplierBeforeOpen(DataSet: TDataSet);
    procedure DataModuleCreate(Sender: TObject);
    procedure qyProductBeforeOpen(DataSet: TDataSet);
    procedure qyCustomerMasterBeforeOpen(DataSet: TDataSet);
    procedure qyUsersBeforeOpen(DataSet: TDataSet);
    procedure tbInputNewRecord(DataSet: TDataSet);
    procedure tbInputAllSalesManIDValidate(Sender: TField);
    procedure tbInputAllRegionIDValidate(Sender: TField);
    procedure tbInputAllCustomerTypeIDValidate(Sender: TField);
    procedure tbInputAllSupplierTypeIDValidate(Sender: TField);
    procedure tbInputAllChangeCodeValidate(Sender: TField);
    procedure tbInputAllWarehouseIDValidate(Sender: TField);
    procedure tbInputAllBankIDValidate(Sender: TField);
    procedure tbInputAllSupplierIDValidate(Sender: TField);
    procedure tbInputAllCustomerIDValidate(Sender: TField);
    procedure tbInputAllProductIDValidate(Sender: TField);
    procedure tbInputBeginProductIDValidate(Sender: TField);
    procedure tbInputEndProductIDValidate(Sender: TField);
    procedure tbInputProductIDValidate(Sender: TField);
    procedure tbInputChangeCodeValidate(Sender: TField);
    procedure tbInputSalesManIDValidate(Sender: TField);
    procedure tbInputWarehouseIDValidate(Sender: TField);
    procedure tbInputCustomerIDValidate(Sender: TField);
    procedure tbInputSupplierIDValidate(Sender: TField);
    procedure tbInputBeginBankIDValidate(Sender: TField);
    procedure tbInputEndBankIDValidate(Sender: TField);
    procedure tbInputBeginSupplierIDValidate(Sender: TField);
    procedure tbInputEndSupplierIDValidate(Sender: TField);
    procedure tbInputBeginCustomerIDValidate(Sender: TField);
    procedure tbInputEndCustomerIDValidate(Sender: TField);
    procedure qyProgramBeforeOpen(DataSet: TDataSet);
    procedure tbInputBeginUserIDValidate(Sender: TField);
    procedure tbInputEndUserIDValidate(Sender: TField);
    procedure tbInputAllUserIDValidate(Sender: TField);
    procedure tbInputEndProgramIDValidate(Sender: TField);
    procedure tbInputAllProgramIDValidate(Sender: TField);
    procedure tbInputBeginProgramIDValidate(Sender: TField);
  private
    { Private declarations }
    procedure DataSetOpen(DataSet: TDataSet);
  public
    { Public declarations }
    procedure DumpLog;
  end;
  procedure UpdateInventoryAnalyst(ChangeDate, ProductID, WarehouseID, ChangeCode: String;
                                   Quantity, Amount: Extended);

var
  DM: TDM;

implementation

uses PublicFunction, Main, GetData, Variants;

{$R *.DFM}

{ TDM }

procedure TDM.DataSetOpen(DataSet: TDataSet);
begin
  (DataSet as TQuery).ParamByName('CompanyID').AsString := sCompanyID;
end;

procedure TDM.DumpLog;
begin
  try
    with DM.qyExecute do
    begin
      Close;
      SQL.Clear;
      SQL.Add('DUMP TRAN PSM WITH NO_LOG ');
      ExecSQL;
    end;
    MyInformation('簿埃ら粁郎ЧΘ