datamodule.dfm

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

object DataModule1: TDataModule1
  OldCreateOrder = False
  Left = 342
  Top = 234
  Height = 426
  Width = 560
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 32
    Top = 8
  end
  object Query1: TQuery
    AutoRefresh = True
    DatabaseName = 'hotelmanagement2'
    RequestLive = True
    SQL.Strings = (
      'SELECT *  FROM Customer')
    UpdateMode = upWhereChanged
    Left = 80
    Top = 8
    object Query1CustomerId: TStringField
      Alignment = taCenter
      DisplayLabel = #23458#20154#32534#21495
      DisplayWidth = 10
      FieldName = 'CustomerId'
      Origin = 'HOTELMANAGEMENT1.Customer.CustomerId'
      FixedChar = True
      Size = 10
    end
    object Query1CustomerName: TStringField
      Alignment = taCenter
      DisplayLabel = #23458#20154#22995#21517
      DisplayWidth = 10
      FieldName = 'CustomerName'
      Origin = 'HOTELMANAGEMENT1.Customer.CustomerName'
      FixedChar = True
      Size = 50
    end
    object Query1CustomerSex: TStringField
      Alignment = taCenter
      DisplayLabel = #23458#20154#24615#21035
      DisplayWidth = 10
      FieldName = 'CustomerSex'
      Origin = 'HOTELMANAGEMENT1.Customer.CustomerSex'
      FixedChar = True
      Size = 10
    end
    object Query1CustomerAge: TStringField
      Alignment = taCenter
      DisplayLabel = #23458#20154#24180#40836
      DisplayWidth = 8
      FieldName = 'CustomerAge'
      Origin = 'HOTELMANAGEMENT1.Customer.CustomerAge'
      FixedChar = True
      Size = 10
    end
    object Query1IDCard: TStringField
      Alignment = taCenter
      DisplayLabel = #36523#20221#35777#21495
      DisplayWidth = 19
      FieldName = 'IDCard'
      Origin = 'HOTELMANAGEMENT1.Customer.IDCard'
      Size = 50
    end
    object Query1PhoneNO: TStringField
      Alignment = taCenter
      DisplayLabel = #30005#35805#21495#30721
      DisplayWidth = 14
      FieldName = 'PhoneNO'
      Origin = 'HOTELMANAGEMENT1.Customer.PhoneNO'
      Size = 50
    end
    object Query1Email: TStringField
      DisplayWidth = 25
      FieldName = 'E-mail'
      Origin = 'HOTELMANAGEMENT1.Customer.E-mail'
      Size = 50
    end
    object Query1RegisterDay: TStringField
      Alignment = taCenter
      DisplayLabel = #30331#35760#26085#26399
      DisplayWidth = 17
      FieldName = 'RegisterDay'
      Origin = 'HOTELMANAGEMENT1.Customer.RegisterDay'
      Size = 50
    end
    object Query1CheckInDay: TStringField
      DisplayLabel = #39044#35745#20837#20303#26085#26399
      DisplayWidth = 17
      FieldName = 'CheckInDay'
      Origin = 'HOTELMANAGEMENT1.Customer.CheckInDay'
      Size = 50
    end
    object Query1DestineDays: TStringField
      DisplayLabel = #39044#20303#22825#25968
      DisplayWidth = 11
      FieldName = 'DestineDays'
      Origin = 'HOTELMANAGEMENT1.Customer.DestineDays'
      FixedChar = True
      Size = 10
    end
    object Query1RoomNo: TStringField
      DisplayLabel = #25151#38388#21495
      DisplayWidth = 10
      FieldName = 'RoomNo'
      Origin = 'HOTELMANAGEMENT1.Customer.RoomNo'
      FixedChar = True
      Size = 10
    end
    object Query1Deposit: TFloatField
      DisplayLabel = #24212#20132#25276#37329
      DisplayWidth = 10
      FieldName = 'Deposit'
      Origin = 'HOTELMANAGEMENT1.Customer.Deposit'
    end
    object Query1Account: TFloatField
      DisplayLabel = #24080#25143#20313#39069
      DisplayWidth = 10
      FieldName = 'Account'
      Origin = 'HOTELMANAGEMENT1.Customer.Account'
    end
    object Query1CustomerState: TStringField
      DisplayLabel = #23458#20154#29366#24577
      DisplayWidth = 13
      FieldName = 'CustomerState'
      Origin = 'HOTELMANAGEMENT1.Customer.CustomerState'
      FixedChar = True
      Size = 10
    end
    object Query1RoomType: TStringField
      DisplayLabel = #25151#38388#31867#22411
      DisplayWidth = 10
      FieldName = 'RoomType'
      Origin = 'HOTELMANAGEMENT1.Customer.RoomType'
      FixedChar = True
      Size = 10
    end
    object Query1StayDays: TStringField
      DisplayLabel = #24050#20303#22825#25968
      DisplayWidth = 10
      FieldName = 'StayDays'
      Origin = 'HOTELMANAGEMENT1.Customer.StayDays'
      FixedChar = True
      Size = 10
    end
    object Query1CheckOutDay: TStringField
      DisplayLabel = #36864#25151#26085#26399
      DisplayWidth = 11
      FieldName = 'CheckOutDay'
      Origin = 'HOTELMANAGEMENT1.Customer.CheckOutDay'
      FixedChar = True
      Size = 10
    end
    object Query1CheckInDate: TStringField
      FieldName = 'CheckInDate'
      Origin = 'HOTELMANAGEMENT1.Customer.CheckInDate'
      FixedChar = True
      Size = 10
    end
    object Query1CustomerPay: TFloatField
      FieldName = 'CustomerPay'
      Origin = 'HOTELMANAGEMENT1.Customer.CustomerPay'
    end
  end
  object workerDataSource: TDataSource
    DataSet = workerQuery
    Left = 144
    Top = 8
  end
  object workerQuery: TQuery
    DatabaseName = 'hotelmanagement2'
    DataSource = DataSource1
    RequestLive = True
    SQL.Strings = (
      'SELECT * FROM worker')
    Left = 192
    Top = 8
  end
  object roomQuery: TQuery
    DatabaseName = 'hotelmanagement2'
    RequestLive = True
    SQL.Strings = (
      'SELECT * FROM ROOM')
    Left = 392
    Top = 272
    object roomQueryRoomNo: TStringField
      FieldName = 'RoomNo'
      Origin = 'HOTELMANAGEMENT1.ROOM.RoomNo'
      FixedChar = True
      Size = 10
    end
    object roomQueryRoomType: TStringField
      FieldName = 'RoomType'
      Origin = 'HOTELMANAGEMENT1.ROOM.RoomType'
      FixedChar = True
      Size = 10
    end
    object roomQueryRoomState: TStringField
      FieldName = 'RoomState'
      Origin = 'HOTELMANAGEMENT1.ROOM.RoomState'
      FixedChar = True
      Size = 10
    end
    object roomQueryRoomPrice: TFloatField
      FieldName = 'RoomPrice'
      Origin = 'HOTELMANAGEMENT1.ROOM.RoomPrice'
    end
    object roomQueryCustomerId: TStringField
      FieldName = 'CustomerId'
      Origin = 'HOTELMANAGEMENT1.ROOM.CustomerId'
      FixedChar = True
      Size = 10
    end
    object roomQueryCustomerName: TStringField
      FieldName = 'CustomerName'
      Origin = 'HOTELMANAGEMENT1.ROOM.CustomerName'
      FixedChar = True
      Size = 10
    end
    object roomQueryAircondition: TStringField
      FieldName = 'Aircondition'
      Origin = 'HOTELMANAGEMENT1.ROOM.Aircondition'
      FixedChar = True
      Size = 10
    end
    object roomQueryBath: TStringField
      FieldName = 'Bath'
      Origin = 'HOTELMANAGEMENT1.ROOM.Bath'
      FixedChar = True
      Size = 10
    end
  end
  object roomDataSource: TDataSource
    DataSet = roomQuery
    Left = 464
    Top = 272
  end
  object cutableQuery: TQuery
    AutoRefresh = True
    DatabaseName = 'hotelmanagement2'
    RequestLive = True
    SQL.Strings = (
      'Select * from Customer')
    Left = 424
    Top = 144
    object cutableQueryCustomerId: TStringField
      Alignment = taCenter
      DisplayLabel = #23458#20154#32534#21495
      DisplayWidth = 7
      FieldName = 'CustomerId'
      Origin = 'HOTELMANAGEMENT1.Customer.CustomerId'
      FixedChar = True
      Size = 10
    end
    object cutableQueryCustomerName: TStringField
      Alignment = taCenter
      DisplayLabel = #23458#20154#22995#21517
      DisplayWidth = 9
      FieldName = 'CustomerName'
      Origin = 'HOTELMANAGEMENT1.Customer.CustomerName'
      FixedChar = True
      Size = 50
    end
    object cutableQueryCustomerSex: TStringField
      FieldName = 'CustomerSex'
      Origin = 'HOTELMANAGEMENT1.Customer.CustomerSex'
      FixedChar = True
      Size = 10
    end
    object cutableQueryCustomerAge: TStringField
      FieldName = 'CustomerAge'
      Origin = 'HOTELMANAGEMENT1.Customer.CustomerAge'
      FixedChar = True
      Size = 10
    end
    object cutableQueryIDCard: TStringField
      FieldName = 'IDCard'
      Origin = 'HOTELMANAGEMENT1.Customer.IDCard'
      Size = 50
    end
    object cutableQueryPhoneNO: TStringField
      FieldName = 'PhoneNO'
      Origin = 'HOTELMANAGEMENT1.Customer.PhoneNO'
      Size = 50
    end
    object cutableQueryEmail: TStringField
      FieldName = 'E-mail'
      Origin = 'HOTELMANAGEMENT1.Customer.E-mail'
      Size = 50
    end
    object cutableQueryRegisterDay: TStringField
      FieldName = 'RegisterDay'
      Origin = 'HOTELMANAGEMENT1.Customer.RegisterDay'
      Size = 50
    end
    object cutableQueryCheckInDay: TStringField
      FieldName = 'CheckInDay'
      Origin = 'HOTELMANAGEMENT1.Customer.CheckInDay'
      Size = 50
    end
    object cutableQueryDestineDays: TStringField
      FieldName = 'DestineDays'
      Origin = 'HOTELMANAGEMENT1.Customer.DestineDays'
      FixedChar = True