udmoe.pas

成本系统三层结构源码 开发工具：Delphi 7.0+SQLServer 2005 主要技术：Midas、COM+ 所用第三方控件： FastReport V2.47 D7 Inforp

unit udmoe;

interface

uses
  SysUtils, Classes, DB, DBClient;

type
  TDMOE = class(TDataModule)
    COrderData: TClientDataSet;
    COrderDataOrderNo: TWideStringField;
    COrderDataCategory: TWideStringField;
    COrderDataStatus: TWideStringField;
    COrderDataOrderDate: TDateTimeField;
    COrderDataCustomerID: TWideStringField;
    COrderDataCurrencyID: TWideStringField;
    COrderDataRate: TFloatField;
    COrderDataTotalMoney: TFloatField;
    COrderDataPONo: TWideStringField;
    COrderDataQuantity: TIntegerField;
    COrderDataShipDate: TDateTimeField;
    COrderDataShipedDate: TDateTimeField;
    COrderDataRemark: TWideStringField;
    COrderDataCreater: TWideStringField;
    COrderDataCreateDate: TDateTimeField;
    COrderDataUpdater: TWideStringField;
    COrderDataUpdateDate: TDateTimeField;
    COrderDataCustomerName: TStringField;
    COrderDataCurrencyName: TStringField;
    CDocuments: TClientDataSet;
    CDocumentsID: TAutoIncField;
    CDocumentsCategory: TStringField;
    CDocumentsExt: TStringField;
    CDocumentsContentS: TBlobField;
    CDocumentsRemark: TStringField;
    CDocumentsCreater: TStringField;
    CDocumentsCreateDate: TDateTimeField;
    CStatOrder: TClientDataSet;
    COrderDataEngineer: TWideStringField;
    COrderDataPicture: TBlobField;
    CCategoryInfo: TClientDataSet;
    CCategoryInfoCategoryID: TStringField;
    CCategoryInfoCategoryName: TStringField;
    CCategoryInfoRemark: TStringField;
    CCategoryInfoCreater: TStringField;
    CCategoryInfoCreateDate: TDateTimeField;
    CCategoryInfoUpdater: TStringField;
    CCategoryInfoUpdateDate: TDateTimeField;
    COrderDataCategoryName: TStringField;
    CBOM: TClientDataSet;
    COrderDataQBOM: TDataSetField;
    CBOMBOMID: TIntegerField;
    CBOMOrderNo: TWideStringField;
    CBOMBOMLevel: TSmallintField;
    CBOMPartNo: TWideStringField;
    CBOMParentNo: TWideStringField;
    CBOMUnitId: TWideStringField;
    CBOMStartDate: TDateTimeField;
    CBOMEndDate: TDateTimeField;
    CBOMPerAssemblyQty: TFloatField;
    CBOMModifiedDate: TDateTimeField;
    CBOMPartNameE: TStringField;
    CBOMPartNameC: TStringField;
    CBOMModel: TStringField;
    CBOMColor: TStringField;
    CBOMUnitName: TStringField;
    procedure COrderDataCurrencyIDChange(Sender: TField);
    procedure COrderDataNewRecord(DataSet: TDataSet);
    procedure COrderDataBeforeDelete(DataSet: TDataSet);
    procedure CBOMNewRecord(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DMOE: TDMOE;

implementation

uses udata, udmbase, SherryLib;

{$R *.dfm}

procedure TDMOE.COrderDataCurrencyIDChange(Sender: TField);
begin
  COrderData['Rate']:=DMBase.CCurrency['Rate']
end;

procedure TDMOE.COrderDataNewRecord(DataSet: TDataSet);
begin
  COrderData['Status']:='0';
  COrderData['OrderDate']:=Date;
  COrderData['CurrencyID']:=CurrencyID;
  COrderData['Rate']:=1;
end;

procedure TDMOE.COrderDataBeforeDelete(DataSet: TDataSet);
begin
  while not CBOM.IsEmpty do
  CBom.Delete;
end;

procedure TDMOE.CBOMNewRecord(DataSet: TDataSet);
begin
  CBOM['OrderNo']:=COrderData['OrderNo'];
  CBOM['BOMID']:=Get_Value('select isnull(max(BOMID),0)+1 from BillOfMaterials');
  CBOM['BOMLevel']:=1;
  CBOM['ModifiedDate']:=Get_Value('select getdate()');
end;

end.