datamodule.pas

电子充值系统:全球通的充值卡通过POS机传到销售点.

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;
    qySale: TQuery;
    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;
    qyDepartment: TQuery;
    qyEmployee: TQuery;
    qyEmployeeEmployeeID: TStringField;
    qyEmployeeEmployeeName: TStringField;
    qyDepartmentDepartmentID: TStringField;
    qyDepartmentDepartmentName: TStringField;
    tbInputBeginDepartmentID: TStringField;
    tbInputBeginDepartmentName: TStringField;
    tbInputEndDepartmentID: TStringField;
    tbInputEndDepartmentName: TStringField;
    tbInputAllDepartmentID: TBooleanField;
    tbInputDepartmentID: TStringField;
    tbInputDepartmentName: TStringField;
    qyUnit: TQuery;
    qyUnitUnitID: TStringField;
    qyUnitUnitName: TStringField;
    qySupplier: TQuery;
    StringField1: TStringField;
    StringField2: TStringField;
    qySaleSALECODE: TStringField;
    qySaleSALENAME: 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 qyDepartmentBeforeOpen(DataSet: TDataSet);
    procedure qyProductTypeBeforeOpen(DataSet: TDataSet);
    procedure qySaleBeforeOpen(DataSet: TDataSet);
    procedure DataModuleCreate(Sender: TObject);
    procedure qyUnitBeforeOpen(DataSet: TDataSet);
    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);
    procedure qyEmployeeBeforeOpen(DataSet: TDataSet);
    procedure tbInputAllDepartmentIDValidate(Sender: TField);
    procedure tbInputBeginDepartmentIDValidate(Sender: TField);
    procedure tbInputEndDepartmentIDValidate(Sender: TField);
    procedure tbInputDepartmentIDValidate(Sender: TField);
    procedure DataBaseIni();
    procedure AdjustDataBaseData(CompanyID,BeginPeriodDate,EndPeriodDate:String);
    procedure DataBaseUpdate();
//new
    procedure UpdateSaleCardStock(SaleCode,BeginSerialNumber,EndSerialNumber,bWhereOut: String);
   //new
  private
    { Private declarations }
    procedure DataSetOpen(DataSet: TDataSet);

  public
    { Public declarations }
    procedure DumpLog;

  end;
  procedure UpdateInventoryAnalyst(ChangeDate, ProductID, WarehouseID, ChangeCode: String;
                                   Quantity, Amount: Extended);
  procedure UpdateCardStock(sCardType,sSaleCode:string;fCardParValue,fPayCode,fQuantity: Extended);


var
  DM: TDM;

implementation

uses PublicFunction, Main, GetData, Variants;

{$R *.DFM}

{ TDM }
procedure TDM.UpdateSaleCardStock(SaleCode,BeginSerialNumber,EndSerialNumber,bWhereOut: String);
var
  bSetOut :string;
begin
  if bWhereOut ='0' then
    bSetOut := '1'
  else
    bSetOut := '0';
  with qyExecute do
  begin
    Close;
    SQL.Clear;
    SQL.Add('update Pwpt_SaleCardStock set bOut= :bSetOut ,PrintMan = :PrintMan,  ');
    SQL.Add('PrintDate = sysdate, OutType = :OutType  ');
    SQL.Add('where SaleCode = :SaleCode and bOut = :bWhereOut and  ');
    SQL.Add(' SerialNumber >= :BeginSerialNumber and SerialNumber <= :EndSerialNumber ');
    ParamByName('bSetOut').AsString := bSetOut;
    ParamByName('PrintMan').AsString := sAdmCode;
    ParamByName('OutType').AsString := '0';
    ParamByName('SaleCode').AsString := SaleCode;
    ParamByName('bWhereOut').AsString := bWhereOut;
    ParamByName('BeginSerialNumber').AsString := BeginSerialNumber;
    ParamByName('EndSerialNumber').AsString := EndSerialNumber;
  end;

  DB.StartTransaction;
  try
    qyExecute.ExecSQL;
    DB.Commit;
  except
    DB.Rollback;
    //MyError('更新数据失敗！');     
    raise;
  end;
end;

procedure TDM.DataBaseIni();
var
  sTableName,ls_sql:string;
  i:integer;
begin
{
  try
    for i:=1 to 46  do
    begin