data.~dfm

Raize控件包的安装路径为D:Program Files(一定要安装到正确位置,否则代码不能运行),配置好C++bulider的数据库环境. 本代码为课程设计的报告,有相当多不完善地方,适合初学C

object DataModule2: TDataModule2
  OldCreateOrder = False
  Left = 437
  Top = 164
  Height = 253
  Width = 410
  object IncuDataSource: TDataSource
    DataSet = IncuQuery
    Left = 304
    Top = 112
  end
  object IncuQuery: TQuery
    DatabaseName = 'hotelmanagement1'
    RequestLive = True
    SQL.Strings = (
      'Select * From Customer')
    Left = 80
    Top = 8
    object IncuQueryCustomerId: TStringField
      FieldName = 'CustomerId'
      Origin = 'HOTELMANAGEMENT1.Customer.CustomerId'
      FixedChar = True
      Size = 10
    end
    object IncuQueryCustomerName: TStringField
      FieldName = 'CustomerName'
      Origin = 'HOTELMANAGEMENT1.Customer.CustomerName'
      FixedChar = True
      Size = 50
    end
    object IncuQueryCustomerSex: TStringField
      FieldName = 'CustomerSex'
      Origin = 'HOTELMANAGEMENT1.Customer.CustomerSex'
      FixedChar = True
      Size = 10
    end
    object IncuQueryCustomerAge: TStringField
      FieldName = 'CustomerAge'
      Origin = 'HOTELMANAGEMENT1.Customer.CustomerAge'
      FixedChar = True
      Size = 10
    end
    object IncuQueryIDCard: TStringField
      FieldName = 'IDCard'
      Origin = 'HOTELMANAGEMENT1.Customer.IDCard'
      Size = 50
    end
    object IncuQueryPhoneNO: TStringField
      FieldName = 'PhoneNO'
      Origin = 'HOTELMANAGEMENT1.Customer.PhoneNO'
      Size = 50
    end
    object IncuQueryEmail: TStringField
      FieldName = 'E-mail'
      Origin = 'HOTELMANAGEMENT1.Customer.E-mail'
      Size = 50
    end
    object IncuQueryRegisterDay: TStringField
      FieldName = 'RegisterDay'
      Origin = 'HOTELMANAGEMENT1.Customer.RegisterDay'
      Size = 50
    end
    object IncuQueryCheckInDay: TStringField
      FieldName = 'CheckInDay'
      Origin = 'HOTELMANAGEMENT1.Customer.CheckInDay'
      Size = 50
    end
    object IncuQueryDestineDays: TStringField
      FieldName = 'DestineDays'
      Origin = 'HOTELMANAGEMENT1.Customer.DestineDays'
      FixedChar = True
      Size = 10
    end
    object IncuQueryRoomNo: TStringField
      FieldName = 'RoomNo'
      Origin = 'HOTELMANAGEMENT1.Customer.RoomNo'
      FixedChar = True
      Size = 10
    end
    object IncuQueryDeposit: TFloatField
      FieldName = 'Deposit'
      Origin = 'HOTELMANAGEMENT1.Customer.Deposit'
    end
    object IncuQueryAccount: TFloatField
      FieldName = 'Account'
      Origin = 'HOTELMANAGEMENT1.Customer.Account'
    end
    object IncuQueryCustomerState: TStringField
      FieldName = 'CustomerState'
      Origin = 'HOTELMANAGEMENT1.Customer.CustomerState'
      FixedChar = True
      Size = 10
    end
    object IncuQueryRoomType: TStringField
      FieldName = 'RoomType'
      Origin = 'HOTELMANAGEMENT1.Customer.RoomType'
      FixedChar = True
      Size = 10
    end
    object IncuQueryStayDays: TStringField
      FieldName = 'StayDays'
      Origin = 'HOTELMANAGEMENT1.Customer.StayDays'
      FixedChar = True
      Size = 10
    end
    object IncuQueryCheckOutDay: TStringField
      FieldName = 'CheckOutDay'
      Origin = 'HOTELMANAGEMENT1.Customer.CheckOutDay'
      FixedChar = True
      Size = 10
    end
    object IncuQueryCheckInDate: TStringField
      FieldName = 'CheckInDate'
      Origin = 'HOTELMANAGEMENT1.Customer.CheckInDate'
      FixedChar = True
      Size = 10
    end
    object IncuQueryCustomerPay: TFloatField
      FieldName = 'CustomerPay'
      Origin = 'HOTELMANAGEMENT1.Customer.CustomerPay'
    end
  end
  object InroDataSource: TDataSource
    DataSet = InroQuery
    Left = 168
    Top = 16
  end
  object InroQuery: TQuery
    DatabaseName = 'hotelmanagement1'
    RequestLive = True
    SQL.Strings = (
      'Select * From Room where RoomState='#39#31354#38386#39)
    Left = 240
    Top = 16
    object InroQueryRoomNo: TStringField
      FieldName = 'RoomNo'
      Origin = 'HOTELMANAGEMENT1.Room.RoomNo'
      FixedChar = True
      Size = 10
    end
    object InroQueryRoomType: TStringField
      FieldName = 'RoomType'
      Origin = 'HOTELMANAGEMENT1.Room.RoomType'
      FixedChar = True
      Size = 10
    end
    object InroQueryRoomState: TStringField
      FieldName = 'RoomState'
      Origin = 'HOTELMANAGEMENT1.Room.RoomState'
      FixedChar = True
      Size = 10
    end
    object InroQueryRoomPrice: TFloatField
      FieldName = 'RoomPrice'
      Origin = 'HOTELMANAGEMENT1.Room.RoomPrice'
    end
    object InroQueryCustomerId: TStringField
      FieldName = 'CustomerId'
      Origin = 'HOTELMANAGEMENT1.Room.CustomerId'
      FixedChar = True
      Size = 10
    end
    object InroQueryCustomerName: TStringField
      FieldName = 'CustomerName'
      Origin = 'HOTELMANAGEMENT1.Room.CustomerName'
      FixedChar = True
      Size = 10
    end
    object InroQueryAircondition: TStringField
      FieldName = 'Aircondition'
      Origin = 'HOTELMANAGEMENT1.Room.Aircondition'
      FixedChar = True
      Size = 10
    end
    object InroQueryBath: TStringField
      FieldName = 'Bath'
      Origin = 'HOTELMANAGEMENT1.Room.Bath'
      FixedChar = True
      Size = 10
    end
  end
  object stayinDataSource: TDataSource
    DataSet = stayinQuery
    Left = 80
    Top = 72
  end
  object stayinQuery: TQuery
    AutoRefresh = True
    DatabaseName = 'hotelmanagement1'
    RequestLive = True
    SQL.Strings = (
      'Select * From Customer Where CustomerState='#39#22312#20303#39)
    UpdateMode = upWhereChanged
    Left = 224
    Top = 64
    object stayinQueryCustomerId: TStringField
      FieldName = 'CustomerId'
      Origin = 'HOTELMANAGEMENT1.Customer.CustomerId'
      FixedChar = True
      Size = 10
    end
    object stayinQueryCustomerName: TStringField
      FieldName = 'CustomerName'
      Origin = 'HOTELMANAGEMENT1.Customer.CustomerName'
      FixedChar = True
      Size = 50
    end
    object stayinQueryCustomerSex: TStringField
      FieldName = 'CustomerSex'
      Origin = 'HOTELMANAGEMENT1.Customer.CustomerSex'
      FixedChar = True
      Size = 10
    end
    object stayinQueryCustomerAge: TStringField
      FieldName = 'CustomerAge'
      Origin = 'HOTELMANAGEMENT1.Customer.CustomerAge'
      FixedChar = True
      Size = 10
    end
    object stayinQueryIDCard: TStringField
      FieldName = 'IDCard'
      Origin = 'HOTELMANAGEMENT1.Customer.IDCard'
      Size = 50
    end
    object stayinQueryPhoneNO: TStringField
      FieldName = 'PhoneNO'
      Origin = 'HOTELMANAGEMENT1.Customer.PhoneNO'
      Size = 50
    end
    object stayinQueryEmail: TStringField
      FieldName = 'E-mail'
      Origin = 'HOTELMANAGEMENT1.Customer.E-mail'
      Size = 50
    end
    object stayinQueryRegisterDay: TStringField
      FieldName = 'RegisterDay'
      Origin = 'HOTELMANAGEMENT1.Customer.RegisterDay'
      Size = 50
    end
    object stayinQueryCheckInDay: TStringField
      FieldName = 'CheckInDay'
      Origin = 'HOTELMANAGEMENT1.Customer.CheckInDay'
      Size = 50
    end
    object stayinQueryDestineDays: TStringField
      FieldName = 'DestineDays'
      Origin = 'HOTELMANAGEMENT1.Customer.DestineDays'
      FixedChar = True
      Size = 10
    end
    object stayinQueryRoomNo: TStringField
      FieldName = 'RoomNo'
      Origin = 'HOTELMANAGEMENT1.Customer.RoomNo'
      FixedChar = True
      Size = 10
    end
    object stayinQueryDeposit: TFloatField
      FieldName = 'Deposit'
      Origin = 'HOTELMANAGEMENT1.Customer.Deposit'
    end
    object stayinQueryAccount: TFloatField
      FieldName = 'Account'
      Origin = 'HOTELMANAGEMENT1.Customer.Account'
    end
    object stayinQueryCustomerState: TStringField
      FieldName = 'CustomerState'
      Origin = 'HOTELMANAGEMENT1.Customer.CustomerState'
      FixedChar = True
      Size = 10
    end
    object stayinQueryRoomType: TStringField
      FieldName = 'RoomType'
      Origin = 'HOTELMANAGEMENT1.Customer.RoomType'
      FixedChar = True
      Size = 10
    end
    object stayinQueryStayDays: TStringField
      FieldName = 'StayDays'
      Origin = 'HOTELMANAGEMENT1.Customer.StayDays'
      FixedChar = True
      Size = 10
    end
    object stayinQueryCheckOutDay: TStringField
      FieldName = 'CheckOutDay'
      Origin = 'HOTELMANAGEMENT1.Customer.CheckOutDay'
      FixedChar = True
      Size = 10
    end
    object stayinQueryCheckInDate: TStringField
      FieldName = 'CheckInDate'
      Origin = 'HOTELMANAGEMENT1.Customer.CheckInDate'
      FixedChar = True
      Size = 10
    end
    object stayinQueryCustomerPay: TFloatField
      FieldName = 'CustomerPay'
      Origin = 'HOTELMANAGEMENT1.Customer.CustomerPay'
    end
  end
  object changeroomDataSource: TDataSource
    DataSet = changeroomQuery
    Left = 168
    Top = 112
  end
  object changeroomQuery: TQuery
    DatabaseName = 'hotelmanagement1'
    RequestLive = True
    SQL.Strings = (
      'Select * From Room Where RoomState='#39#31354#38386#39)
    Left = 64
    Top = 144
    object changeroomQueryRoomNo: TStringField
      FieldName = 'RoomNo'
      Origin = 'HOTELMANAGEMENT1.Room.RoomNo'
      FixedChar = True
      Size = 10
    end
    object changeroomQueryRoomType: TStringField
      FieldName = 'RoomType'
      Origin = 'HOTELMANAGEMENT1.Room.RoomType'
      FixedChar = True
      Size = 10
    end
    object changeroomQueryRoomState: TStringField
      FieldName = 'RoomState'
      Origin = 'HOTELMANAGEMENT1.Room.RoomState'
      FixedChar = True
      Size = 10
    end
    object changeroomQueryRoomPrice: TFloatField
      FieldName = 'RoomPrice'
      Origin = 'HOTELMANAGEMENT1.Room.RoomPrice'
    end
    object changeroomQueryCustomerId: TStringField
      FieldName = 'CustomerId'
      Origin = 'HOTELMANAGEMENT1.Room.CustomerId'
      FixedChar = True
      Size = 10
    end
    object changeroomQueryCustomerName: TStringField
      FieldName = 'CustomerName'
      Origin = 'HOTELMANAGEMENT1.Room.CustomerName'
      FixedChar = True
      Size = 10
    end
    object changeroomQueryAircondition: TStringField
      FieldName = 'Aircondition'
      Origin = 'HOTELMANAGEMENT1.Room.Aircondition'
      FixedChar = True
      Size = 10
    end
    object changeroomQueryBath: TStringField
      FieldName = 'Bath'
      Origin = 'HOTELMANAGEMENT1.Room.Bath'
      FixedChar = True
      Size = 10
    end
  end
end