datamoudle.h

机器须安装SQL Server2000 程序安装完之后

//---------------------------------------------------------------------------

#ifndef DataMoudleH
#define DataMoudleH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Db.hpp>
#include <DBClient.hpp>
#include <MConnect.hpp>
#include <ADODB.hpp>
//---------------------------------------------------------------------------
class TDM : public TDataModule
{
__published:	// IDE-managed Components
    TADOTable *ADOTAdmin;
    TADOTable *ADOTClean;
    TADOTable *ADOTCost;
    TADOTable *ADOTCustom;
    TADOTable *ADOTRoomState;
    TADOTable *ADOTOrder;
    TADOTable *ADOTPassType;
    TADOTable *ADOTPeopleWith;
    TADOTable *ADOTRoom;
    TADOTable *ADOTRoomOrder;
    TADOTable *ADOTFloor;
    TADOTable *ADOTRoomChang;
    TADOTable *ADOTRoomType;
    TADOTable *ADOTRoomTypeHorsity;
    TADOTable *ADOTTimeMoney;
    TDataSource *DSAdmin;
    TDataSource *DSClean;
    TDataSource *DSCost;
    TDataSource *DSCustom;
    TDataSource *DSOrder;
    TDataSource *DSPeopleWith;
    TDataSource *DSFloor;
    TDataSource *DSPassType;
    TDataSource *DSRoomTypeHorsity;
    TDataSource *DSTimeMoney;
    TDataSource *DSRoom;
    TDataSource *DSRoomChang;
    TDataSource *DSRoomOrder;
    TDataSource *DSRoomState;
    TDataSource *DSRoomType;
    TADOConnection *ADOConnectionHotel;
    TADOQuery *ADOQueryTemp;
    TDataSource *DSQueryTemp;
    TStringField *ADOTRoomStateRoomStateName;
    TIntegerField *ADOTRoomStateRoomStateCode;
    TIntegerField *ADOTTimeMoneyID;
    TIntegerField *ADOTTimeMoneyPercen;
    TDateTimeField *ADOTTimeMoneyBeginTime;
    TDateTimeField *ADOTTimeMoneyEndTime;
    TIntegerField *ADOTPassTypePassTypeID;
    TStringField *ADOTPassTypePassTypeName;
    TStringField *ADOTRoomChangOrderNo;
    TIntegerField *ADOTRoomChangCustomID;
    TDateTimeField *ADOTRoomChangStartTime;
    TDateTimeField *ADOTRoomChangEndTime;
    TStringField *ADOTRoomChangRoomNo;
    TIntegerField *ADOTRoomChangRoomPrice;
    TIntegerField *ADOTRoomChangZeKlu;
    TStringField *ADOTRoomChangOperName;
    TStringField *ADOTRoomRoomNo;
    TStringField *ADOTRoomPlace;
    TIntegerField *ADOTRoomRoomLevelCode;
    TIntegerField *ADOTRoomRoomStateCode;
    TStringField *ADOTRoomRemark;
    TStringField *ADOTRoomcleanFrild;
    TIntegerField *ADOTRoomCleanTypeNo;
    TStringField *ADOTRoomnewState;
    TIntegerField *ADOTRoomTypeRoomlevelCode;
    TStringField *ADOTRoomTypeTypeName;
    TStringField *ADOTRoomnewlevle;
    TIntegerField *ADOTRoomFloor;
    TStringField *ADOTRoomnewfloor;
    TAutoIncField *ADOTCustomID;
    TStringField *ADOTCustomName;
    TStringField *ADOTCustomSex;
    TStringField *ADOTCustomComeFrom;
    TStringField *ADOTCustomAddress;
    TStringField *ADOTCustomPhone;
    TStringField *ADOTCustomCountry;
    TStringField *ADOTCustomPassNumber;
    TStringField *ADOTCustomProvince;
    TStringField *ADOTCustomWhereTo;
    TStringField *ADOTCustomCompany;
    TStringField *ADOTCustomRemark;
    TStringField *ADOTCustomWhyIn;
    TStringField *ADOTCustomJob;
    TStringField *ADOTCustomSomeImport;
    TStringField *ADOTCustomWhereCome;
    TIntegerField *ADOTCustomAge;
    TIntegerField *ADOTCustomCustomID;
    TStringField *ADOTCustomPassType;
    TAutoIncField *ADOQueryTempID;
    TIntegerField *ADOQueryTempCustomID;
    TStringField *ADOQueryTempPassType;
    TStringField *ADOQueryTempName;
    TStringField *ADOQueryTempSex;
    TStringField *ADOQueryTempComeFrom;
    TStringField *ADOQueryTempAddress;
    TStringField *ADOQueryTempPhone;
    TStringField *ADOQueryTempCountry;
    TStringField *ADOQueryTempPassNumber;
    TStringField *ADOQueryTempProvince;
    TStringField *ADOQueryTempWhereTo;
    TStringField *ADOQueryTempCompany;
    TStringField *ADOQueryTempRemark;
    TStringField *ADOQueryTempWhyIn;
    TStringField *ADOQueryTempJob;
    TStringField *ADOQueryTempSomeImport;
    TStringField *ADOQueryTempWhereCome;
    TStringField *ADOQueryTempGroupName;
    TIntegerField *ADOQueryTempAge;
    TIntegerField *ADOTRoomTypeTypePrice;
    TADOTable *ADOTablePower;
    TAutoIncField *ADOTablePowerID;
    TStringField *ADOTablePowerpower;
    TFloatField *ADOTRoomTypeZeKou;
    TIntegerField *ADOTFloorID;
    TStringField *ADOTFloorFloor;
        TStringField *ADOTAdminName;
        TStringField *ADOTAdminPassWord;
private:	// User declarations
public:		// User declarations
    __fastcall TDM(TComponent* Owner);
      int GetID(int i);
      int GetBackUpID(int i);
      String GetName();
};
//---------------------------------------------------------------------------
extern PACKAGE TDM *DM;
//---------------------------------------------------------------------------
#endif