datamoduleunit.dfm

很好地delphi书籍源码

object DataModule1: TDataModule1
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 365
  Top = 117
  Height = 315
  Width = 539
  object qGInfo: TQuery
    Left = 16
    Top = 72
  end
  object qGRoomFee: TQuery
    Left = 16
    Top = 128
  end
  object qGHotelFee: TQuery
    DatabaseName = 'MySQL'
    SQL.Strings = (
      'select GuestID as '#23458#25143#32534#21495','
      '       GuestName as '#23458#25143#22995#21517','
      '       FeeOffice as '#21830#21153#36153','
      '       FeeDinner as '#39184#39278#36153','
      '       FeePlay   as '#23089#20048#36153','
      '       FeeShop as   '#36141#29289#36153
      'from  tbGHotelFee')
    Left = 16
    Top = 192
  end
  object qHGuestInCome: TQuery
    Left = 364
    Top = 10
  end
  object qHRoomPrice: TQuery
    Left = 446
    Top = 224
  end
  object tUser: TTable
    Left = 16
    Top = 10
  end
  object qPublic: TQuery
    SQL.Strings = (
      ' ')
    Left = 196
    Top = 72
  end
  object DSPublic: TDataSource
    DataSet = qPublic
    Left = 266
    Top = 72
  end
  object GInfoDS: TDataSource
    DataSet = qGInfo
    Left = 88
    Top = 72
  end
  object GHotelFeeDS: TDataSource
    DataSet = qGHotelFee
    Left = 88
    Top = 192
  end
  object GRoomFeeDS: TDataSource
    DataSet = qGRoomFee
    Left = 88
    Top = 128
  end
  object tRoomPrice: TTable
    Left = 196
    Top = 10
  end
  object RoomPriceDS: TDataSource
    DataSet = tRoomPrice
    Left = 266
    Top = 10
  end
  object qHRoomState: TQuery
    Left = 364
    Top = 224
  end
  object HGuestInComeDS: TDataSource
    DataSet = qHGuestInCome
    Left = 446
    Top = 10
  end
  object tbHotelKind: TTable
    Left = 196
    Top = 128
  end
  object tbHotelKindDS: TDataSource
    DataSet = tbHotelKind
    Left = 266
    Top = 128
  end
  object UserDS: TDataSource
    DataSet = tUser
    Left = 88
    Top = 10
  end
  object qOldGInfo: TQuery
    Left = 364
    Top = 72
  end
  object OldGInfoDS: TDataSource
    DataSet = qOldGInfo
    Left = 446
    Top = 72
  end
  object BookTicketDS: TDataSource
    DataSet = qBookTicket
    Left = 446
    Top = 128
  end
  object qBookTicket: TQuery
    Left = 364
    Top = 128
  end
  object tBookRoom: TTable
    Left = 196
    Top = 192
  end
  object BookRoomDS: TDataSource
    DataSet = tBookRoom
    Left = 266
    Top = 192
  end
end