datamodule.h

某公司资料管理系统

        TStringField *CustomerTaxID;
        TStringField *CustomerPriceGrade;
        TStringField *CustomerValid;
        TDateTimeField *CustomerLastInvoiceDate;
        TStringField *ProductSampleDetailRouteName;
        TTable *SampleRouteDLookup;
        TDataSource *SampleRouteDLookupSource;
        TSmallintField *SampleRouteDLookupSampleID;
        TSmallintField *SampleRouteDLookupItemNo;
        TStringField *SampleRouteDLookupRouteCode;
        TStringField *SampleRouteDLookupRouteName;
        TFloatField *MIBaseLookupCutX1;
        TFloatField *MIBaseLookupCutY1;
        TFloatField *MIBaseLookupCutX2;
        TFloatField *MIBaseLookupCutY2;
        TStringField *MIBaseLookupPrepregA;
        TSmallintField *MIBaseLookupPrepregANum;
        TStringField *MIBaseLookupPrepregB;
        TSmallintField *MIBaseLookupPrepregBNum;
        TStringField *MIBaseLookupPrepregC;
        TSmallintField *MIBaseLookupPrepregCNum;
        TSmallintField *MIBaseLookupUnitPerPanel1;
        TSmallintField *MIBaseLookupUnitPerPanel2;
        TFloatField *MIBaseLookupAreaPerUnit;
        TFloatField *MIBaseLookupAreaPerSet;
        TSmallintField *MIBaseLookupUnitPerSet;
        TFloatField *MIBaseLookupCopperFoil;
        TSmallintField *MIBaseLookupCopperFoilNum;
        TStringField *MIBaseLookupIsPosted;
        TFloatField *MIBaseLookupSizePerUnitX;
        TFloatField *MIBaseLookupSizePerUnitY;
        TFloatField *MIBaseLookupSizePerSetX;
        TFloatField *MIBaseLookupSizePerSetY;
        TFloatField *MIBaseLookupUtilization;
        TStringField *BoardBoardNo;
        TFloatField *BoardThick;
        TFloatField *BoardCuThick;
        TFloatField *BoardPrice;
        TFloatField *BoardHolePrice;
        TFloatField *BoardConsumption;
        TFloatField *BoardDrillConsumption;
        TStringField *BoardColor;
        TStringField *MIBaseBoardType;
        TFloatField *MIBaseCutX11;
        TFloatField *MIBaseCutY11;
        TFloatField *MIBaseCutX21;
        TFloatField *MIBaseCutY21;
        TFloatField *MIBaseSizePerUnitX1;
        TFloatField *MIBaseSizePerUnitY1;
        TFloatField *MIBaseSizePerSetX1;
        TFloatField *MIBaseSizePerSetY1;
        TStringField *MIBaseMemo;
        TStringField *MIRouteMemo;
        TFloatField *MIBaseCopperFoil;
        TStringField *BoardLookupBoardDesc;
        TStringField *BoardBoardDesc;
        TDataSource *MIDrillSource;
        TTable *MIDrill;
        TStringField *MIDrillPartNo;
        TStringField *MIDrillDrillType;
        TStringField *MIDrillSymbol;
        TStringField *MIDrillDiameter;
        TIntegerField *MIDrillQty;
        TStringField *MIDrillUnit;
        TIntegerField *MIDrillQtyPerPanel;
        TIntegerField *MIDrillTQty;
        TStringField *MIDrillNPTH;
        TStringField *MIDrillMemo;
        TStringField *RouteDetailPartNo;
        TSmallintField *RouteDetailRouteNo;
        TSmallintField *RouteDetailItemNo;
        TStringField *RouteDetailName;
        TStringField *RouteDetailParameter;
        TStringField *RouteDetailMemo;
        TStringField *RouteDetailLookupPartNo;
        TSmallintField *RouteDetailLookupRouteNo;
        TSmallintField *RouteDetailLookupItemNo;
        TStringField *RouteDetailLookupName;
        TStringField *RouteDetailLookupParameter;
        TStringField *RouteDetailLookupMemo;
        TDataSource *MIDrillLookupSource;
        TTable *MIDrillLookup;
        TSmallintField *MIDrillItemNo;
        TFloatField *MIDrillDrill;
        TStringField *MIDrillLookupPartNo;
        TStringField *MIDrillLookupDrillType;
        TSmallintField *MIDrillLookupItemNo;
        TStringField *MIDrillLookupSymbol;
        TStringField *MIDrillLookupDiameter;
        TIntegerField *MIDrillLookupQty;
        TStringField *MIDrillLookupUnit;
        TIntegerField *MIDrillLookupQtyPerPanel;
        TIntegerField *MIDrillLookupTQty;
        TFloatField *MIDrillLookupDrill;
        TStringField *MIDrillLookupNPTH;
        TStringField *MIDrillLookupMemo;
        void __fastcall MIRouteBeforeDelete(TDataSet *DataSet);
        void __fastcall MIRouteBeforeInsert(TDataSet *DataSet);
        void __fastcall RouteDetailAfterDelete(TDataSet *DataSet);
        void __fastcall RouteDetailBeforeDelete(TDataSet *DataSet);
        void __fastcall RouteDetailBeforeInsert(TDataSet *DataSet);
        void __fastcall MIBaseAfterPost(TDataSet *DataSet);
        void __fastcall MIBaseAfterDelete(TDataSet *DataSet);
        void __fastcall MIBaseAfterCancel(TDataSet *DataSet);
        void __fastcall MIBaseBeforeInsert(TDataSet *DataSet);
        void __fastcall MIBaseAfterOpen(TDataSet *DataSet);
        void __fastcall MIRouteAfterOpen(TDataSet *DataSet);
        void __fastcall SampleRouteAfterCancel(TDataSet *DataSet);
        void __fastcall SampleRouteAfterDelete(TDataSet *DataSet);
        void __fastcall SampleRouteAfterOpen(TDataSet *DataSet);
        void __fastcall SampleRouteAfterPost(TDataSet *DataSet);
        void __fastcall SampleRouteBeforeDelete(TDataSet *DataSet);
        void __fastcall SampleRouteBeforeInsert(TDataSet *DataSet);
        void __fastcall MIRouteBeforeEdit(TDataSet *DataSet);
        void __fastcall StandardRouteAfterCancel(TDataSet *DataSet);
        void __fastcall StandardRouteAfterPost(TDataSet *DataSet);
        void __fastcall StandardRouteAfterDelete(TDataSet *DataSet);
        void __fastcall StandardRouteParamBeforeInsert(TDataSet *DataSet);
        void __fastcall StandardRouteParamBeforeDelete(TDataSet *DataSet);
        void __fastcall SampleRouteDetailBeforeInsert(TDataSet *DataSet);
        void __fastcall SampleRouteDetailBeforeDelete(TDataSet *DataSet);
        void __fastcall SampleRouteDetailAfterEdit(TDataSet *DataSet);
        void __fastcall SampleRouteBeforeClose(TDataSet *DataSet);
        void __fastcall CustomerAfterPost(TDataSet *DataSet);
        void __fastcall CustomerAfterCancel(TDataSet *DataSet);
        void __fastcall BoardAfterCancel(TDataSet *DataSet);
        void __fastcall BoardAfterPost(TDataSet *DataSet);
        void __fastcall PrepregAfterCancel(TDataSet *DataSet);
        void __fastcall PrepregAfterPost(TDataSet *DataSet);
        void __fastcall RouteDetailBeforeEdit(TDataSet *DataSet);
        void __fastcall DatabaseAfterConnect(TObject *Sender);
        void __fastcall MIRouteLookupAfterOpen(TDataSet *DataSet);
        void __fastcall MIBaseLookupAfterOpen(TDataSet *DataSet);
        void __fastcall MIRouteAfterPost(TDataSet *DataSet);
        void __fastcall StandardRouteParamBeforeEdit(TDataSet *DataSet);
        void __fastcall CustomerAfterDelete(TDataSet *DataSet);
        void __fastcall ProductSampleAfterOpen(TDataSet *DataSet);
        void __fastcall ProductSampleAfterPost(TDataSet *DataSet);
        void __fastcall BoardAfterDelete(TDataSet *DataSet);
        void __fastcall ProductSampleBeforeEdit(TDataSet *DataSet);
        void __fastcall ProductSampleBeforeDelete(TDataSet *DataSet);
        void __fastcall ProductSampleAfterCancel(TDataSet *DataSet);
        void __fastcall ProductSampleAfterDelete(TDataSet *DataSet);
        void __fastcall ProductSampleDetailBeforeInsert(TDataSet *DataSet);
        void __fastcall ProductSampleDetailBeforeEdit(TDataSet *DataSet);
        void __fastcall ProductSampleDetailBeforeDelete(TDataSet *DataSet);
        void __fastcall ProductSampleAfterInsert(TDataSet *DataSet);
        void __fastcall SampleRouteLookupAfterOpen(TDataSet *DataSet);
        void __fastcall MIBaseBeforePost(TDataSet *DataSet);
        void __fastcall CustomerNewRecord(TDataSet *DataSet);
        void __fastcall MIBaseNewRecord(TDataSet *DataSet);
        void __fastcall SampleRouteDetailBeforeEdit(TDataSet *DataSet);
        void __fastcall DatabaseBeforeConnect(TObject *Sender);
        void __fastcall MIRouteAfterDelete(TDataSet *DataSet);
        void __fastcall MIBaseBeforeDelete(TDataSet *DataSet);
        void __fastcall MIBaseCalcFields(TDataSet *DataSet);
        void __fastcall PrepregAfterDelete(TDataSet *DataSet);
        void __fastcall MIRouteBeforeClose(TDataSet *DataSet);
        void __fastcall MIBaseBeforeClose(TDataSet *DataSet);
        void __fastcall MIDrillNewRecord(TDataSet *DataSet);
        void __fastcall MIDrillBeforeEdit(TDataSet *DataSet);
        void __fastcall MIDrillBeforeDelete(TDataSet *DataSet);
        void __fastcall MIDrillBeforeInsert(TDataSet *DataSet);
private:
        int i,j;
        struct RD
        {
           int ItemNo;
           AnsiString Parameter1;
           AnsiString Parameter2;
           AnsiString Parameter3;
           AnsiString Parameter4;
           AnsiString Parameter5;
           AnsiString Parameter6;
           AnsiString Parameter7;
           AnsiString Parameter8;
        };
        struct RD TmpRouteDetail[30][30]; //30最多每流程参数说明
        void InitRD(void);
public:

       int RecordNo;   //ItemNo;
       AnsiString UserName ;
       bool HaveInsertRoute;
       bool InsertingMIRoute,InsertingRouteDetail, DeletingRouteDetail,DeletingItems;
       bool InsertRoute,DeleteRoute;
       void DeleteRouteDetail(TDataSet *DataSet);
       void DeleteItems(TDataSet *DataSet);
       void InsertRouteDetail(void);
       void DeleteMIRouteDetail(void);
       virtual __fastcall TMastData(TComponent* AOwner);
};
//----------------------------------------------------------------------------
extern PACKAGE TMastData *MastData;
//----------------------------------------------------------------------------
#endif