datamodule.h

某公司资料管理系统

//----------------------------------------------------------------------------
#ifndef DataModuleH
#define DataModuleH
//----------------------------------------------------------------------------
#include <vcl\System.hpp>
#include <vcl\SysUtils.hpp>
#include <vcl\Windows.hpp>
#include <vcl\Messages.hpp>
#include <vcl\Classes.hpp>
#include <vcl\Graphics.hpp>
#include <vcl\Controls.hpp>
#include <vcl\Forms.hpp>
#include <vcl\Dialogs.hpp>
#include <vcl\DBTables.hpp>
#include <vcl\DB.hpp>
//----------------------------------------------------------------------------
class TMastData : public TDataModule
{
__published:
        TDataSource *MIBaseSource;
        TTable *MIBase;
        TDatabase *Database;
        TDataSource *MIRouteSource;
        TTable *MIRoute;
        TTable *RouteDetail;
        TDataSource *RouteDetailSource;
        TDataSource *SampleRouteSource;
        TTable *SampleRoute;
        TTable *SampleRouteLookup;
        TTable *SampleRouteDetail;
        TDataSource *SampleRouteDetailSource;
        TDataSource *SampleRouteLookupSource;
        TDataSource *StandardRouteSource;
        TDataSource *StandardRouteParamSource;
        TTable *StandardRoute;
        TTable *StandardRouteParam;
        TDataSource *StandardRouteLookupSource;
        TTable *StandardRouteLookup;
        TDataSource *CustomerSource;
        TDataSource *CustLookupSource;
        TDataSource *BoardSource;
        TTable *Board;
        TTable *BoardLookup;
        TDataSource *BoardLookupSource;
        TDataSource *PartNoLookupSource;
        TTable *PartNoLookup;
        TStringField *PartNoLookupPartNo;
        TStringField *PartNoLookupCustPartNo;
        TDataSource *PrepregSource;
        TTable *Prepreg;
        TDataSource *UserGroupSource;
        TQuery *UserGroup;
        TStoredProc *StoredProc1;
        TDataSource *MIBaseLookupSource;
        TDataSource *MIRouteLookupSource;
        TDataSource *RouteDetailLookupSource;
        TTable *MIBaseLookup;
        TTable *MIRouteLookup;
        TTable *RouteDetailLookup;
        TDataSource *ProductSampleSource;
        TDataSource *ProductSampleDetailSource;
        TStringField *MIRoutePartNo;
        TSmallintField *MIRouteRouteNo;
        TStringField *MIRouteRouteCode;
        TFloatField *MIRoutePrice;
        TStringField *MIRouteUnit;
        TBlobField *MIRoutePicture;
        TSmallintField *SampleRouteSampleID;
        TStringField *SampleRouteSampleRouteName;
        TSmallintField *SampleRouteDetailSampleID;
        TSmallintField *SampleRouteDetailItemNo;
        TStringField *SampleRouteDetailRouteCode;
        TStringField *BoardLookupBoardNo;
        TFloatField *BoardLookupThick;
        TFloatField *BoardLookupCuThick;
        TFloatField *BoardLookupPrice;
        TFloatField *BoardLookupHolePrice;
        TStringField *BoardLookupColor;
        TStringField *MIBasePartNo;
        TStringField *MIBaseCustPartNo;
        TStringField *MIBaseBoardNo;
        TFloatField *MIBaseBoardX;
        TFloatField *MIBaseBoardY;
        TFloatField *MIBaseCutX1;
        TFloatField *MIBaseCutY1;
        TFloatField *MIBaseCutX2;
        TFloatField *MIBaseCutY2;
        TStringField *MIBasePrepregA;
        TSmallintField *MIBasePrepregANum;
        TStringField *MIBasePrepregB;
        TSmallintField *MIBasePrepregBNum;
        TStringField *MIBasePrepregC;
        TSmallintField *MIBasePrepregCNum;
        TSmallintField *MIBaseUnitPerPanel1;
        TSmallintField *MIBaseUnitPerPanel2;
        TFloatField *MIBaseAreaPerUnit;
        TFloatField *MIBaseAreaPerSet;
        TSmallintField *MIBaseUnitPerSet;
        TSmallintField *MIBaseCopperFoilNum;
        TStringField *MIBaseIsPosted;
        TFloatField *MIBaseSizePerUnitX;
        TFloatField *MIBaseSizePerUnitY;
        TFloatField *MIBaseSizePerSetX;
        TFloatField *MIBaseSizePerSetY;
        TFloatField *MIBaseUtilization;
        TStringField *MIBasePPE;
        TDateTimeField *MIBasePPEDate;
        TStringField *MIBasePPEAPP;
        TDateTimeField *MIBasePPEAPPDate;
        TStringField *MIBaseQACheck;
        TDateTimeField *MIBaseQACheckDate;
        TStringField *MIBaseQAAPP;
        TDateTimeField *MIBaseQAAPPDate;
        TSmallintField *MIBaseLayer;
        TStringField *MIBaseGrade;
        TStringField *MIRouteRouteName;
        TStringField *StandardRouteRouteCode;
        TStringField *StandardRouteRouteName;
        TFloatField *StandardRoutePrice;
        TStringField *StandardRouteUnit;
        TStringField *StandardRouteParamRouteCode;
        TSmallintField *StandardRouteParamItemNo;
        TStringField *StandardRouteParamParameter;
        TStringField *SampleRouteDetailRouteName;
        TTable *Customer;
        TTable *CustLookup;
        TStringField *MIBaseLookupPartNo;
        TStringField *MIBaseLookupCustPartNo;
        TStringField *MIBaseLookupBoardNo;
        TStringField *MIBaseLookupBoardType;
        TFloatField *MIBaseLookupBoardX;
        TFloatField *MIBaseLookupBoardY;
        TSmallintField *MIBaseLookupLayer;
        TStringField *MIBaseLookupGrade;
        TStringField *MIBaseLookupPPE;
        TDateTimeField *MIBaseLookupPPEDate;
        TStringField *MIBaseLookupPPEAPP;
        TDateTimeField *MIBaseLookupPPEAPPDate;
        TStringField *MIBaseLookupQACheck;
        TDateTimeField *MIBaseLookupQACheckDate;
        TStringField *MIBaseLookupQAAPP;
        TDateTimeField *MIBaseLookupQAAPPDate;
        TStringField *MIRouteLookupPartNo;
        TSmallintField *MIRouteLookupRouteNo;
        TStringField *MIRouteLookupRouteCode;
        TFloatField *MIRouteLookupPrice;
        TStringField *MIRouteLookupUnit;
        TBlobField *MIRouteLookupPicture;
        TDataSource *SampleNoLookupSource;
        TTable *SampleNoLookup;
        TStringField *SampleNoLookupSampleNo;
        TStringField *SampleNoLookupPartNo;
        TIntegerField *SampleNoLookupProductQty;
        TDateTimeField *SampleNoLookupProductDate;
        TIntegerField *SampleNoLookupFinishQty;
        TDateTimeField *SampleNoLookupFinishDate;
        TStringField *SampleNoLookupIsFinish;
        TStringField *SampleNoLookupOperator;
        TTable *ProductSampleDetail;
        TStringField *ProductSampleDetailSampleNo;
        TSmallintField *ProductSampleDetailItemNo;
        TStringField *ProductSampleDetailRouteCode;
        TIntegerField *ProductSampleDetailFinishQty;
        TStringField *ProductSampleDetailIsFinish;
        TStringField *ProductSampleDetailMemo;
        TTable *ProductSample;
        TStringField *ProductSampleSampleNo;
        TStringField *ProductSamplePartNo;
        TIntegerField *ProductSampleProductQty;
        TDateTimeField *ProductSampleProductDate;
        TIntegerField *ProductSampleFinishQty;
        TDateTimeField *ProductSampleFinishDate;
        TStringField *ProductSampleIsFinish;
        TStringField *ProductSampleOperator;
        TStoredProc *DeleteProductSample;
        TSmallintField *StandardRouteRouteNo;
        TStringField *CustLookupCustomerNo;
        TStringField *CustLookupCompany;
        TStringField *CustLookupValid;
        TStringField *MIBaseCustomerNo;
        TStringField *PartNoLookupCustomerNo;
        TStringField *MIBaseLookupCustomerNo;
        TStringField *CustomerCustomerNo;
        TStringField *CustomerCompany;
        TStringField *CustomerDescription;
        TStringField *CustomerAddress;
        TStringField *CustomerCity;
        TStringField *CustomerState;
        TStringField *CustomerCountry;
        TStringField *CustomerZip;
        TStringField *CustomerTelephone1;
        TStringField *CustomerTelephone2;
        TStringField *CustomerFax;
        TStringField *CustomerEmail;
        TStringField *CustomerURI;
        TStringField *CustomerMainCurrency;
        TStringField *CustomerContact;