datamodule.~dfm

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

      Size = 10
    end
    object cutableQueryRoomNo: TStringField
      FieldName = 'RoomNo'
      Origin = 'HOTELMANAGEMENT1.Customer.RoomNo'
      FixedChar = True
      Size = 10
    end
    object cutableQueryDeposit: TFloatField
      FieldName = 'Deposit'
      Origin = 'HOTELMANAGEMENT1.Customer.CustomerId'
    end
    object cutableQueryAccount: TFloatField
      FieldName = 'Account'
      Origin = 'HOTELMANAGEMENT1.Customer.CustomerId'
    end
    object cutableQueryCustomerState: TStringField
      FieldName = 'CustomerState'
      Origin = 'HOTELMANAGEMENT1.Customer.CustomerState'
      FixedChar = True
      Size = 10
    end
    object cutableQueryRoomType: TStringField
      FieldName = 'RoomType'
      Origin = 'HOTELMANAGEMENT1.Customer.RoomType'
      FixedChar = True
      Size = 10
    end
    object cutableQueryStayDays: TStringField
      FieldName = 'StayDays'
      Origin = 'HOTELMANAGEMENT1.Customer.StayDays'
      FixedChar = True
      Size = 10
    end
    object cutableQueryCheckOutDay: TStringField
      FieldName = 'CheckOutDay'
      Origin = 'HOTELMANAGEMENT1.Customer.CheckOutDay'
      FixedChar = True
      Size = 10
    end
    object cutableQueryCheckInDate: TStringField
      FieldName = 'CheckInDate'
      Origin = 'HOTELMANAGEMENT1.Customer.CheckInDate'
      FixedChar = True
      Size = 10
    end
    object cutableQueryCustomerPay: TFloatField
      FieldName = 'CustomerPay'
      Origin = 'HOTELMANAGEMENT1.Customer.CustomerPay'
    end
  end
  object cutableDataSource: TDataSource
    DataSet = cutableQuery
    Left = 424
    Top = 80
  end
  object rotableQuery: TQuery
    DatabaseName = 'hotelmanagement2'
    RequestLive = True
    SQL.Strings = (
      'Select * From Room where RoomState='#39#31354#38386#39)
    Left = 464
    Top = 16
    object rotableQueryRoomNo: TStringField
      Alignment = taCenter
      DisplayLabel = #25151#38388#21495
      FieldName = 'RoomNo'
      Origin = 'HOTELMANAGEMENT1.Room.RoomNo'
      FixedChar = True
      Size = 10
    end
    object rotableQueryRoomType: TStringField
      Alignment = taCenter
      DisplayLabel = #25151#38388#31867#22411
      FieldName = 'RoomType'
      Origin = 'HOTELMANAGEMENT1.Room.RoomType'
      FixedChar = True
      Size = 10
    end
    object rotableQueryRoomState: TStringField
      Alignment = taCenter
      DisplayLabel = #25151#38388#29366#24577
      FieldName = 'RoomState'
      Origin = 'HOTELMANAGEMENT1.Room.RoomState'
      FixedChar = True
      Size = 10
    end
    object rotableQueryRoomPrice: TFloatField
      FieldName = 'RoomPrice'
      Origin = 'HOTELMANAGEMENT1.Room.RoomPrice'
    end
    object rotableQueryCustomerId: TStringField
      DisplayLabel = #23458#20154#32534#21495
      FieldName = 'CustomerId'
      Origin = 'HOTELMANAGEMENT1.Room.CustomerId'
      FixedChar = True
      Size = 10
    end
    object rotableQueryCustomerName: TStringField
      DisplayLabel = #23458#20154#22995#21517
      FieldName = 'CustomerName'
      Origin = 'HOTELMANAGEMENT1.Room.CustomerName'
      FixedChar = True
      Size = 10
    end
    object rotableQueryAircondition: TStringField
      DisplayLabel = #31354#35843#30005#35270
      FieldName = 'Aircondition'
      Origin = 'HOTELMANAGEMENT1.Room.Aircondition'
      FixedChar = True
      Size = 10
    end
    object rotableQueryBath: TStringField
      Alignment = taCenter
      DisplayLabel = #28020#23460
      FieldName = 'Bath'
      Origin = 'HOTELMANAGEMENT1.Room.Bath'
      FixedChar = True
      Size = 10
    end
  end
  object rotableDataSource: TDataSource
    DataSet = rotableQuery
    Left = 376
    Top = 16
  end
  object orderDataSource: TDataSource
    DataSet = orderQuery
    Left = 56
    Top = 112
  end
  object orderQuery: TQuery
    DatabaseName = 'hotelmanagement2'
    RequestLive = True
    SQL.Strings = (
      'Select * From Customer Where CustomerState='#39#39044#23450#39)
    Left = 128
    Top = 112
    object orderQueryCustomerId: TStringField
      FieldName = 'CustomerId'
      Origin = 'HOTELMANAGEMENT1.Customer.CustomerId'
      FixedChar = True
      Size = 10
    end
    object orderQueryCustomerName: TStringField
      FieldName = 'CustomerName'
      Origin = 'HOTELMANAGEMENT1.Customer.CustomerName'
      FixedChar = True
      Size = 50
    end
    object orderQueryCustomerSex: TStringField
      FieldName = 'CustomerSex'
      Origin = 'HOTELMANAGEMENT1.Customer.CustomerSex'
      FixedChar = True
      Size = 10
    end
    object orderQueryCustomerAge: TStringField
      FieldName = 'CustomerAge'
      Origin = 'HOTELMANAGEMENT1.Customer.CustomerAge'
      FixedChar = True
      Size = 10
    end
    object orderQueryIDCard: TStringField
      FieldName = 'IDCard'
      Origin = 'HOTELMANAGEMENT1.Customer.IDCard'
      Size = 50
    end
    object orderQueryPhoneNO: TStringField
      FieldName = 'PhoneNO'
      Origin = 'HOTELMANAGEMENT1.Customer.PhoneNO'
      Size = 50
    end
    object orderQueryEmail: TStringField
      FieldName = 'E-mail'
      Origin = 'HOTELMANAGEMENT1.Customer.E-mail'
      Size = 50
    end
    object orderQueryRegisterDay: TStringField
      FieldName = 'RegisterDay'
      Origin = 'HOTELMANAGEMENT1.Customer.RegisterDay'
      Size = 50
    end
    object orderQueryCheckInDay: TStringField
      FieldName = 'CheckInDay'
      Origin = 'HOTELMANAGEMENT1.Customer.CheckInDay'
      Size = 50
    end
    object orderQueryDestineDays: TStringField
      FieldName = 'DestineDays'
      Origin = 'HOTELMANAGEMENT1.Customer.DestineDays'
      FixedChar = True
      Size = 10
    end
    object orderQueryRoomNo: TStringField
      FieldName = 'RoomNo'
      Origin = 'HOTELMANAGEMENT1.Customer.RoomNo'
      FixedChar = True
      Size = 10
    end
    object orderQueryDeposit: TFloatField
      FieldName = 'Deposit'
      Origin = 'HOTELMANAGEMENT1.Customer.Deposit'
    end
    object orderQueryAccount: TFloatField
      FieldName = 'Account'
      Origin = 'HOTELMANAGEMENT1.Customer.Account'
    end
    object orderQueryCustomerState: TStringField
      FieldName = 'CustomerState'
      Origin = 'HOTELMANAGEMENT1.Customer.CustomerState'
      FixedChar = True
      Size = 10
    end
    object orderQueryRoomType: TStringField
      FieldName = 'RoomType'
      Origin = 'HOTELMANAGEMENT1.Customer.RoomType'
      FixedChar = True
      Size = 10
    end
    object orderQueryStayDays: TStringField
      FieldName = 'StayDays'
      Origin = 'HOTELMANAGEMENT1.Customer.StayDays'
      FixedChar = True
      Size = 10
    end
    object orderQueryCheckOutDay: TStringField
      FieldName = 'CheckOutDay'
      Origin = 'HOTELMANAGEMENT1.Customer.CheckOutDay'
      FixedChar = True
      Size = 10
    end
    object orderQueryCheckInDate: TStringField
      FieldName = 'CheckInDate'
      Origin = 'HOTELMANAGEMENT1.Customer.CheckInDate'
      Size = 50
    end
    object orderQueryCustomerPay: TFloatField
      FieldName = 'CustomerPay'
      Origin = 'HOTELMANAGEMENT1.Customer.CustomerPay'
    end
  end
  object orderroomDataSource: TDataSource
    DataSet = orderroomQuery
    Left = 48
    Top = 192
  end
  object orderroomQuery: TQuery
    DatabaseName = 'hotelmanagement2'
    RequestLive = True
    SQL.Strings = (
      
        'Select * From Room Where RoomNo='#39'DataModule1->orderQuery->FieldB' +
        'yName("RoomNo")->AsString'#39)
    Left = 152
    Top = 192
    object orderroomQueryRoomNo: TStringField
      FieldName = 'RoomNo'
      Origin = 'HOTELMANAGEMENT1.Room.RoomNo'
      FixedChar = True
      Size = 10
    end
    object orderroomQueryRoomType: TStringField
      FieldName = 'RoomType'
      Origin = 'HOTELMANAGEMENT1.Room.RoomType'
      FixedChar = True
      Size = 10
    end
    object orderroomQueryRoomState: TStringField
      FieldName = 'RoomState'
      Origin = 'HOTELMANAGEMENT1.Room.RoomState'
      FixedChar = True
      Size = 10
    end
    object orderroomQueryRoomPrice: TFloatField
      FieldName = 'RoomPrice'
      Origin = 'HOTELMANAGEMENT1.Room.RoomPrice'
    end
    object orderroomQueryCustomerId: TStringField
      FieldName = 'CustomerId'
      Origin = 'HOTELMANAGEMENT1.Room.CustomerId'
      FixedChar = True
      Size = 10
    end
    object orderroomQueryCustomerName: TStringField
      FieldName = 'CustomerName'
      Origin = 'HOTELMANAGEMENT1.Room.CustomerName'
      FixedChar = True
      Size = 10
    end
    object orderroomQueryAircondition: TStringField
      FieldName = 'Aircondition'
      Origin = 'HOTELMANAGEMENT1.Room.Aircondition'
      FixedChar = True
      Size = 10
    end
    object orderroomQueryBath: TStringField
      FieldName = 'Bath'
      Origin = 'HOTELMANAGEMENT1.Room.Bath'
      FixedChar = True
      Size = 10
    end
  end
end