udmbase.pas

来自「成本系统三层结构源码 开发工具：Delphi 7.0+SQLServer 20」· PAS 代码 · 共 313 行

unit udmbase;

interface

uses
  SysUtils, Classes, Controls, DB, DBClient,  Variants,
  Windows;

type
  TDMBase = class(TDataModule)
    CDepartment: TClientDataSet;
    CUnitSet: TClientDataSet;
    Cmateriel: TClientDataSet;
    CCategory: TClientDataSet;
    Cemployee: TClientDataSet;
    Cdept: TClientDataSet;
    CCustomer: TClientDataSet;
    Cvendor: TClientDataSet;
    Cconvert: TClientDataSet;
    Cmater: TClientDataSet;
    CUnitName: TClientDataSet;
    CStock: TClientDataSet;
    CInvInitial: TClientDataSet;
    CCurrency: TClientDataSet;
    CDepartmentDeptID: TStringField;
    CDepartmentDeptName: TStringField;
    CDepartmentParentID: TStringField;
    CDepartmentIsWork: TBooleanField;
    CDepartmentRemark: TStringField;
    CDepartmentCreater: TStringField;
    CDepartmentCreateDate: TDateTimeField;
    CDepartmentUpdater: TStringField;
    CDepartmentupdateDate: TDateTimeField;
    CdeptDeptID: TStringField;
    CdeptDeptName: TStringField;
    CdeptParentID: TStringField;
    CemployeeEmployeeID: TStringField;
    CemployeeEmployeeE: TStringField;
    CemployeeEmployeeC: TStringField;
    CemployeeSex: TStringField;
    CemployeeEntryDate: TDateTimeField;
    CemployeePosition: TStringField;
    CemployeePicture: TBlobField;
    CemployeeRemark: TStringField;
    CemployeeCreater: TStringField;
    CemployeeCreateDate: TDateTimeField;
    CemployeeUpdater: TStringField;
    CemployeeUpdateDate: TDateTimeField;
    CCategoryCategoryID: TStringField;
    CCategoryCategoryName: TStringField;
    CCategoryParentID: TStringField;
    CCategoryRemark: TStringField;
    CCategoryCreater: TStringField;
    CCategoryCreateDate: TDateTimeField;
    CCategoryUpdater: TStringField;
    CCategoryUpdateDate: TDateTimeField;
    CemployeeDeptID: TStringField;
    CemployeeDeptName: TStringField;
    CmaterielPartNo: TStringField;
    CmaterielCategoryID: TStringField;
    CmaterielPartNameC: TStringField;
    CmaterielPartNameE: TStringField;
    CmaterielZjm: TWideStringField;
    CmaterielModel: TStringField;
    CmaterielColor: TStringField;
    CmaterielUnitID: TStringField;
    CmaterielStatus: TBooleanField;
    CmaterielPriceType: TBooleanField;
    CmaterielCostType: TStringField;
    CmaterielABCType: TStringField;
    CmaterielDefaultStock: TStringField;
    CmaterielTotalQty: TFloatField;
    CmaterielSafeQty: TFloatField;
    CmaterielRemark: TStringField;
    CmaterielCreater: TStringField;
    CmaterielCreateDate: TDateTimeField;
    CmaterielUpdater: TStringField;
    CmaterielUpdateDate: TDateTimeField;
    CStockStockID: TStringField;
    CStockStockName: TStringField;
    CStockAddress: TStringField;
    CStockPrincipal: TStringField;
    CStockTelephone: TStringField;
    CStockRemark: TStringField;
    CStockCreater: TStringField;
    CStockCreateDate: TDateTimeField;
    CStockUpdater: TStringField;
    CStockUpdateDate: TDateTimeField;
    CCurrencyCurrencyID: TStringField;
    CCurrencyCurrNameC: TStringField;
    CCurrencyCurrNameE: TStringField;
    CCurrencyStandard: TBooleanField;
    CCurrencyRate: TBCDField;
    CCurrencyRemark: TStringField;
    CCurrencyCreater: TStringField;
    CCurrencyCreateDate: TDateTimeField;
    CCurrencyUpdater: TStringField;
    CCurrencyUPdateDate: TDateTimeField;
    CUnitSetUnitID: TStringField;
    CUnitSetUnitName: TStringField;
    CUnitSetUnitLogo: TStringField;
    CUnitSetRemark: TStringField;
    CUnitSetCreater: TStringField;
    CUnitSetCreateDate: TDateTimeField;
    CUnitSetUpdater: TStringField;
    CUnitSetUpDateDate: TDateTimeField;
    CUnitSetQConvertInfo: TDataSetField;
    CconvertUnitID1: TStringField;
    CconvertUnitID2: TStringField;
    CconvertScale: TBCDField;
    CconvertRemark: TStringField;
    CconvertCreater: TStringField;
    CconvertCreateDate: TDateTimeField;
    CconvertUpdater: TStringField;
    CconvertUpdateDate: TDateTimeField;
    CUnitNameUnitID: TStringField;
    CUnitNameUnitName: TStringField;
    CUnitNameUnitLogo: TStringField;
    CUnitNameRemark: TStringField;
    CUnitNameCreater: TStringField;
    CUnitNameCreateDate: TDateTimeField;
    CUnitNameUpdater: TStringField;
    CUnitNameUpDateDate: TDateTimeField;
    CconvertUnitName: TStringField;
    CmaterielQInvInitial: TDataSetField;
    CInvInitialStockID: TStringField;
    CInvInitialPartNo: TStringField;
    CInvInitialUnitID: TStringField;
    CInvInitialQty: TFloatField;
    CInvInitialPrice: TFloatField;
    CInvInitialTotal: TFloatField;
    CInvInitialStockName: TStringField;
    CmaterielCategoryName: TStringField;
    CCostType: TClientDataSet;
    CCostTypeCostType: TStringField;
    CCostTypeTypeName: TStringField;
    CCostTypeCategoryID: TStringField;
    CCostTypeCostRate: TFloatField;
    CCostTypeRemark: TStringField;
    CCostTypeCreater: TStringField;
    CCostTypeCreateDate: TDateTimeField;
    CCostTypeUpdater: TStringField;
    CCostTypeUpdateDate: TDateTimeField;
    CmaterielCostTypeName: TStringField;
    CmaterielStockName: TStringField;
    CmaterielUnitName: TStringField;
    CCustomerCustomerID: TStringField;
    CCustomerShortName: TStringField;
    CCustomerFullName: TStringField;
    CCustomerStatus: TBooleanField;
    CCustomerGrade: TStringField;
    CCustomerCountry: TStringField;
    CCustomerCity: TStringField;
    CCustomerAddress: TStringField;
    CCustomerPostCode: TStringField;
    CCustomerContact: TStringField;
    CCustomerTel: TStringField;
    CCustomerFax: TStringField;
    CCustomerEmail: TStringField;
    CCustomerWeb: TStringField;
    CCustomerRemark: TStringField;
    CCustomerCreator: TStringField;
    CCustomerCreateDate: TDateTimeField;
    CCustomerUpdator: TStringField;
    CCustomerUpdateDate: TDateTimeField;
    CvendorVendorID: TStringField;
    CvendorShortName: TStringField;
    CvendorFullName: TStringField;
    CvendorStatus: TBooleanField;
    CvendorGrade: TStringField;
    CvendorCountry: TStringField;
    CvendorCity: TStringField;
    CvendorAddress: TStringField;
    CvendorPostCode: TStringField;
    CvendorContact: TStringField;
    CvendorTel: TStringField;
    CvendorFax: TStringField;
    CvendorEmail: TStringField;
    CvendorWeb: TStringField;
    CvendorRemark: TStringField;
    CvendorCreator: TStringField;
    CvendorCreateDate: TDateTimeField;
    CvendorUpdator: TStringField;
    CvendorUpdateDate: TDateTimeField;
    CCategory1: TClientDataSet;
    CCategory1CategoryID: TStringField;
    CCategory1CategoryName: TStringField;
    CCategory1ParentID: TStringField;
    CMCategory: TClientDataSet;
    CMCategoryCategoryID: TStringField;
    CMCategoryCategoryName: TStringField;
    CMCategoryParentID: TStringField;
    CMCategoryRemark: TStringField;
    CMCategoryCreater: TStringField;
    CMCategoryCreateDate: TDateTimeField;
    CMCategoryUpdater: TStringField;
    CMCategoryUpdateDate: TDateTimeField;
    CVMateriel: TClientDataSet;
    CVMaterielPartNo: TStringField;
    CVMaterielPartNameC: TStringField;
    CVMaterielPartNameE: TStringField;
    CVMaterielZjm: TWideStringField;
    CVMaterielModel: TStringField;
    CVMaterielColor: TStringField;
    CVMaterielCategoryID: TStringField;
    CVMaterielFullCategoryName: TWideStringField;
    CVMaterielRemark: TStringField;
    CVMaterielTotalQty: TFloatField;
    CMCategory1: TClientDataSet;
    StringField1: TStringField;
    StringField2: TStringField;
    StringField3: TStringField;
    StringField4: TStringField;
    StringField5: TStringField;
    DateTimeField1: TDateTimeField;
    StringField6: TStringField;
    DateTimeField2: TDateTimeField;
    CVOrderData: TClientDataSet;
    CVOrderDataOrderNo: TStringField;
    CVOrderDataStatus: TStringField;
    CVOrderDataCustomerID: TStringField;
    CVOrderDataShortname: TStringField;
    CVOrderDataZjm: TWideStringField;
    CVOrderDataFullName: TStringField;
    CVOrderDataShipDate: TDateTimeField;
    CVOrderDataRemark: TStringField;
    CVMaterielUnitID: TStringField;
    CVMaterielUnitName: TStringField;
    CCompany: TClientDataSet;
    CCompanyCompanyID: TStringField;
    CCompanyCompanyNameC: TStringField;
    CCompanyCompanyNameE: TStringField;
    CCompanyNonce: TBooleanField;
    CCompanyAddress: TStringField;
    CCompanyPostalCode: TStringField;
    CCompanyTelephone: TStringField;
    CCompanyFax: TStringField;
    CCompanyWeb: TStringField;
    CCompanyEmail: TStringField;
    CCompanyLinkMan: TStringField;
    CCompanyLogo: TBlobField;
    CCompanyRemark: TStringField;
    CCostTypeTypeLabel: TStringField;
    CCostTypeCategoryName: TStringField;
    CCostTypeEnabled: TBooleanField;
    CCostTypeBalance: TBooleanField;
    CmaterielTypeLabel: TStringField;
    CInvCurrent: TClientDataSet;
    CmaterielQInvCurrent: TDataSetField;
    CInvCurrentStockName: TStringField;
    CInvCurrentUnitName: TStringField;
    CInvCurrentPrice: TFloatField;
    CInvCurrentQty: TFloatField;
    procedure CMoneyNewRecord(DataSet: TDataSet);
    procedure CInvInitialNewRecord(DataSet: TDataSet);
    procedure CconvertNewRecord(DataSet: TDataSet);
    procedure CmaterielNewRecord(DataSet: TDataSet);
    procedure CmaterielPriceTypeChange(Sender: TField);
    procedure CInvInitialBeforePost(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DMBase: TDMBase;

implementation

uses udata, SherryLib, udmcost;

{$R *.dfm}

procedure TDMBase.CMoneyNewRecord(DataSet: TDataSet);
begin
  DataSet.FieldByname('ItemType').value:=TClientDataSet(DataSet).Params.ParamValues['ItemType'];
end;

procedure TDMBase.CInvInitialNewRecord(DataSet: TDataSet);
begin
  CInvInitial['PartNo']:=Cmateriel['PartNo'];
  CInvInitial['UnitID']:=Cmateriel['UnitID'];
end;

procedure TDMBase.CconvertNewRecord(DataSet: TDataSet);
begin
  Cconvert['UnitID1']:=CUnitSet['UnitID'];
end;

procedure TDMBase.CmaterielNewRecord(DataSet: TDataSet);
begin
  Cmateriel['CategoryID']:=Cmateriel.Params.ParamValues['@CategoryID'];
  Cmateriel['PartNo']:=Cmateriel['CategoryID']+'-';
  Cmateriel['PartNameC']:=Cmateriel['CategoryName'];
  Cmateriel['Status']:=False;
  Cmateriel['PriceType']:=False;
  Cmateriel['PartNameC']:=Cmateriel['CategoryName'];
end;

procedure TDMBase.CmaterielPriceTypeChange(Sender: TField);
begin
  {if CmaterielPriceType.OldValue<>CmaterielPriceType.NewValue then
  Info('"物料计价方式"为重要参数,调整後会影响成本统计的方式!');}
end;

procedure TDMBase.CInvInitialBeforePost(DataSet: TDataSet);
begin
  NullCheck(DataSet); 
end;

end.