datamoudle.dfm

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

object DM: TDM
  OldCreateOrder = False
  Left = 65532
  Top = 65532
  Height = 580
  Width = 808
  object ADOTAdmin: TADOTable
    Connection = ADOConnectionHotel
    TableName = 'Admin'
    Left = 16
    Top = 40
    object ADOTAdminName: TStringField
      DisplayLabel = '姓名'
      DisplayWidth = 20
      FieldName = 'Name'
      Size = 50
    end
    object ADOTAdminPassWord: TStringField
      DisplayLabel = '密码'
      DisplayWidth = 20
      FieldName = 'PassWord'
      Size = 50
    end
  end
  object ADOTClean: TADOTable
    Connection = ADOConnectionHotel
    CursorType = ctStatic
    TableName = 'Clean'
    Left = 16
    Top = 86
  end
  object ADOTCost: TADOTable
    Connection = ADOConnectionHotel
    TableName = 'Cost'
    Left = 16
    Top = 132
  end
  object ADOTCustom: TADOTable
    Connection = ADOConnectionHotel
    TableName = 'Custom'
    Left = 16
    Top = 179
    object ADOTCustomID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
      Visible = False
    end
    object ADOTCustomCustomID: TIntegerField
      DisplayLabel = '客户编号'
      FieldName = 'CustomID'
    end
    object ADOTCustomName: TStringField
      DisplayLabel = '姓名'
      DisplayWidth = 10
      FieldName = 'Name'
      Size = 50
    end
    object ADOTCustomSex: TStringField
      FieldName = 'Sex'
      FixedChar = True
      Size = 4
    end
    object ADOTCustomAge: TIntegerField
      DisplayLabel = '年龄'
      DisplayWidth = 2
      FieldName = 'Age'
    end
    object ADOTCustomComeFrom: TStringField
      DisplayLabel = '来自'
      DisplayWidth = 10
      FieldName = 'ComeFrom'
      Size = 50
    end
    object ADOTCustomPassType: TStringField
      DisplayLabel = '证件类型'
      DisplayWidth = 8
      FieldName = 'PassType'
      Size = 50
    end
    object ADOTCustomPassNumber: TStringField
      DisplayLabel = '证件号码'
      DisplayWidth = 20
      FieldName = 'PassNumber'
      Size = 50
    end
    object ADOTCustomAddress: TStringField
      DisplayLabel = '地址'
      DisplayWidth = 10
      FieldName = 'Address'
      Size = 50
    end
    object ADOTCustomPhone: TStringField
      DisplayLabel = '电话'
      DisplayWidth = 10
      FieldName = 'Phone'
      Size = 50
    end
    object ADOTCustomWhereTo: TStringField
      DisplayLabel = '去哪'
      DisplayWidth = 10
      FieldName = 'WhereTo'
      Size = 50
    end
    object ADOTCustomCountry: TStringField
      DisplayLabel = '国家'
      DisplayWidth = 8
      FieldName = 'Country'
      Size = 50
    end
    object ADOTCustomProvince: TStringField
      DisplayLabel = '省'
      DisplayWidth = 8
      FieldName = 'Province'
      Size = 50
    end
    object ADOTCustomCompany: TStringField
      DisplayLabel = '工作单位'
      DisplayWidth = 20
      FieldName = 'Company'
      Size = 50
    end
    object ADOTCustomRemark: TStringField
      DisplayLabel = '备注'
      DisplayWidth = 10
      FieldName = 'Remark'
      Size = 200
    end
    object ADOTCustomWhyIn: TStringField
      DisplayLabel = '住宿原因'
      DisplayWidth = 10
      FieldName = 'WhyIn'
      Size = 50
    end
    object ADOTCustomJob: TStringField
      DisplayLabel = '职业'
      DisplayWidth = 10
      FieldName = 'Job'
      Size = 50
    end
    object ADOTCustomSomeImport: TStringField
      DisplayLabel = '是否的贵重物'
      DisplayWidth = 10
      FieldName = 'SomeImport'
      Size = 50
    end
    object ADOTCustomWhereCome: TStringField
      DisplayLabel = '从哪来'
      DisplayWidth = 10
      FieldName = 'WhereCome'
      Size = 50
    end
  end
  object ADOTRoomState: TADOTable
    Connection = ADOConnectionHotel
    CursorType = ctStatic
    TableName = 'RoomState'
    Left = 232
    Top = 229
    object ADOTRoomStateRoomStateCode: TIntegerField
      DisplayLabel = '客房状态码'
      FieldName = 'RoomStateCode'
    end
    object ADOTRoomStateRoomStateName: TStringField
      DisplayLabel = '客房状态名'
      DisplayWidth = 20
      FieldName = 'RoomStateName'
      FixedChar = True
      Size = 50
    end
  end
  object ADOTOrder: TADOTable
    Connection = ADOConnectionHotel
    TableName = 'Order'
    Left = 16
    Top = 271
  end
  object ADOTPassType: TADOTable
    Connection = ADOConnectionHotel
    TableName = 'PassType'
    Left = 16
    Top = 317
    object ADOTPassTypePassTypeID: TIntegerField
      DisplayLabel = '证件类型码'
      FieldName = 'PassTypeID'
    end
    object ADOTPassTypePassTypeName: TStringField
      DisplayLabel = '证件类类'
      DisplayWidth = 10
      FieldName = 'PassTypeName'
      FixedChar = True
      Size = 50
    end
  end
  object ADOTPeopleWith: TADOTable
    Connection = ADOConnectionHotel
    TableName = 'PeopleWith'
    Left = 16
    Top = 387
  end
  object ADOTRoom: TADOTable
    Connection = ADOConnectionHotel
    CursorType = ctStatic
    TableName = 'Room'
    Left = 232
    Top = 80
    object ADOTRoomRoomNo: TStringField
      DisplayLabel = '房间号'
      DisplayWidth = 6
      FieldName = 'RoomNo'
      FixedChar = True
      Size = 50
    end
    object ADOTRoomPlace: TStringField
      DisplayLabel = '位置'
      DisplayWidth = 6
      FieldName = 'Place'
      FixedChar = True
      Size = 50
    end
    object ADOTRoomRoomLevelCode: TIntegerField
      DisplayLabel = '房间级别码'
      DisplayWidth = 6
      FieldName = 'RoomLevelCode'
      Visible = False
    end
    object ADOTRoomRoomStateCode: TIntegerField
      DisplayLabel = '房间状态码'
      FieldName = 'RoomStateCode'
      Visible = False
    end
    object ADOTRoomRemark: TStringField
      DisplayLabel = '备注'
      DisplayWidth = 6
      FieldName = 'Remark'
      FixedChar = True
      Size = 200
    end
    object ADOTRoomcleanFrild: TStringField
      DisplayLabel = '房间清洁度'
      FieldKind = fkLookup
      FieldName = 'cleanFrild'
      LookupDataSet = ADOTClean
      LookupKeyFields = 'CleanTypeNo'
      LookupResultField = 'CleanTypeName'
      KeyFields = 'CleanTypeNo'
      Lookup = True
    end
    object ADOTRoomCleanTypeNo: TIntegerField
      DisplayLabel = '清洁度码'
      DisplayWidth = 1
      FieldName = 'CleanTypeNo'
      Visible = False
    end
    object ADOTRoomnewState: TStringField
      DisplayLabel = '房间状态'
      DisplayWidth = 8
      FieldKind = fkLookup
      FieldName = 'newState'
      LookupDataSet = ADOTRoomState
      LookupKeyFields = 'RoomStateCode'
      LookupResultField = 'RoomStateName'
      KeyFields = 'RoomStateCode'
      Lookup = True
    end
    object ADOTRoomnewlevle: TStringField
      DisplayLabel = '房间类别'
      DisplayWidth = 8
      FieldKind = fkLookup
      FieldName = 'newlevle'
      LookupDataSet = ADOTRoomType
      LookupKeyFields = 'RoomlevelCode'
      LookupResultField = 'TypeName'
      KeyFields = 'RoomLevelCode'
      Lookup = True
    end
    object ADOTRoomFloor: TIntegerField
      FieldName = 'Floor'
      Visible = False
    end
    object ADOTRoomnewfloor: TStringField
      DisplayLabel = '楼层号'
      DisplayWidth = 10
      FieldKind = fkLookup
      FieldName = 'newfloor'
      LookupDataSet = ADOTFloor
      LookupKeyFields = 'ID'
      LookupResultField = 'Floor'
      KeyFields = 'Floor'
      Lookup = True
    end
  end
  object ADOTRoomOrder: TADOTable
    Connection = ADOConnectionHotel
    TableName = 'RoomOrder'
    Left = 232
    Top = 179
  end
  object ADOTFloor: TADOTable
    Connection = ADOConnectionHotel
    TableName = 'Floor'
    Left = 16
    Top = 225
    object ADOTFloorID: TIntegerField
      FieldName = 'ID'
    end
    object ADOTFloorFloor: TStringField
      FieldName = 'Floor'
      Size = 50
    end
  end
  object ADOTRoomChang: TADOTable
    Connection = ADOConnectionHotel
    TableName = 'RoomChang'
    Left = 232
    Top = 130
    object ADOTRoomChangOrderNo: TStringField
      FieldName = 'OrderNo'
      FixedChar = True
      Size = 50
    end
    object ADOTRoomChangCustomID: TIntegerField
      FieldName = 'CustomID'
    end
    object ADOTRoomChangStartTime: TDateTimeField
      FieldName = 'StartTime'
    end
    object ADOTRoomChangEndTime: TDateTimeField
      FieldName = 'EndTime'
    end
    object ADOTRoomChangRoomNo: TStringField
      FieldName = 'RoomNo'
      FixedChar = True
      Size = 50
    end
    object ADOTRoomChangRoomPrice: TIntegerField
      FieldName = 'RoomPrice'
    end
    object ADOTRoomChangZeKlu: TIntegerField
      FieldName = 'ZeKlu'
    end
    object ADOTRoomChangOperName: TStringField
      FieldName = 'OperName'
      FixedChar = True
      Size = 50
    end
  end
  object ADOTRoomType: TADOTable
    Connection = ADOConnectionHotel
    CursorType = ctStatic
    TableName = 'RoomType'
    Left = 232
    Top = 285
    object ADOTRoomTypeRoomlevelCode: TIntegerField
      DisplayLabel = '房间类型别码'
      FieldName = 'RoomlevelCode'
    end
    object ADOTRoomTypeTypeName: TStringField
      DisplayLabel = '房间类型名'
      DisplayWidth = 10
      FieldName = 'TypeName'
      FixedChar = True
      Size = 50
    end
    object ADOTRoomTypeTypePrice: TIntegerField
      DisplayLabel = '价钱'
      DisplayWidth = 5
      FieldName = 'TypePrice'
    end
    object ADOTRoomTypeZeKou: TFloatField
      FieldName = 'ZeKou'
    end
  end
  object ADOTRoomTypeHorsity: TADOTable
    Connection = ADOConnectionHotel
    TableName = 'RoomTypeHorsity'
    Left = 232
    Top = 328
  end
  object ADOTTimeMoney: TADOTable
    Connection = ADOConnectionHotel
    TableName = 'TimeMoney'
    Left = 232
    Top = 378
    object ADOTTimeMoneyID: TIntegerField
      DisplayLabel = '编号'
      FieldName = 'ID'
    end
    object ADOTTimeMoneyPercen: TIntegerField
      DisplayLabel = '百分率'
      FieldName = 'Percen'
    end
    object ADOTTimeMoneyBeginTime: TDateTimeField
      DisplayLabel = '启始时间'
      FieldName = 'BeginTime'
    end
    object ADOTTimeMoneyEndTime: TDateTimeField
      DisplayLabel = '结束时间'
      FieldName = 'EndTime'
    end
  end
  object DSAdmin: TDataSource
    DataSet = ADOTAdmin
    Left = 112
    Top = 62
  end
  object DSClean: TDataSource
    DataSet = ADOTClean
    Left = 112
    Top = 111
  end
  object DSCost: TDataSource
    DataSet = ADOTCost
    Left = 112
    Top = 160
  end
  object DSCustom: TDataSource
    DataSet = ADOTCustom
    Left = 112
    Top = 209
  end
  object DSOrder: TDataSource
    DataSet = ADOTOrder
    Left = 112
    Top = 307
  end
  object DSPeopleWith: TDataSource
    DataSet = ADOTPeopleWith
    Left = 112
    Top = 405
  end
  object DSFloor: TDataSource
    DataSet = ADOTFloor
    Left = 112
    Top = 258
  end
  object DSPassType: TDataSource
    DataSet = ADOTPassType
    Left = 112
    Top = 356
  end
  object DSRoomTypeHorsity: TDataSource
    DataSet = ADOTRoomTypeHorsity
    Left = 336
    Top = 332
  end
  object DSTimeMoney: TDataSource
    DataSet = ADOTTimeMoney
    Left = 328
    Top = 216
  end
  object DSRoom: TDataSource
    DataSet = ADOTRoom
    Left = 336
    Top = 86
  end
  object DSRoomChang: TDataSource
    DataSet = ADOTRoomChang
    Left = 336
    Top = 135
  end
  object DSRoomOrder: TDataSource
    DataSet = ADOTRoomOrder
    Left = 336
    Top = 185
  end
  object DSRoomState: TDataSource
    DataSet = ADOTRoomState
    Left = 376
    Top = 242
  end
  object DSRoomType: TDataSource
    DataSet = ADOTRoomType
    Left = 336
    Top = 283
  end
  object ADOConnectionHotel: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data S' +
      'ource=hotel;Extended Properties="DSN=hotel;UID=sa;APP=湅整灲楲敳' +
      '匠極整;WSID=XCF;DATABASE=hotel_bhnfc"'
    LoginPrompt = False
    Left = 192
    Top = 8
  end
  object ADOQueryTemp: TADOQuery
    Connection = ADOConnectionHotel
    Parameters = <>
    SQL.Strings = (
      'select * from custom')
    Left = 272
    Top = 26
    object ADOQueryTempID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object ADOQueryTempCustomID: TIntegerField
      FieldName = 'CustomID'
    end
    object ADOQueryTempPassType: TStringField
      FieldName = 'PassType'
      Size = 50
    end
    object ADOQueryTempName: TStringField
      FieldName = 'Name'
      Size = 50
    end
    object ADOQueryTempSex: TStringField
      FieldName = 'Sex'
      FixedChar = True
      Size = 4
    end
    object ADOQueryTempComeFrom: TStringField
      FieldName = 'ComeFrom'
      Size = 50
    end
    object ADOQueryTempAddress: TStringField
      FieldName = 'Address'
      Size = 50
    end
    object ADOQueryTempPhone: TStringField
      FieldName = 'Phone'
      Size = 50
    end
    object ADOQueryTempCountry: TStringField
      FieldName = 'Country'
      Size = 50
    end
    object ADOQueryTempPassNumber: TStringField
      FieldName = 'PassNumber'
      Size = 50
    end
    object ADOQueryTempProvince: TStringField
      FieldName = 'Province'
      Size = 50
    end
    object ADOQueryTempWhereTo: TStringField
      FieldName = 'WhereTo'
      Size = 50
    end
    object ADOQueryTempCompany: TStringField
      FieldName = 'Company'
      Size = 50
    end
    object ADOQueryTempRemark: TStringField
      FieldName = 'Remark'
      Size = 200
    end
    object ADOQueryTempWhyIn: TStringField
      FieldName = 'WhyIn'
      Size = 50
    end
    object ADOQueryTempJob: TStringField
      FieldName = 'Job'
      Size = 50
    end
    object ADOQueryTempSomeImport: TStringField
      FieldName = 'SomeImport'
      Size = 50
    end
    object ADOQueryTempWhereCome: TStringField
      FieldName = 'WhereCome'
      Size = 50
    end
    object ADOQueryTempGroupName: TStringField
      FieldName = 'GroupName'
      Size = 50
    end
    object ADOQueryTempAge: TIntegerField
      FieldName = 'Age'
    end
  end
  object DSQueryTemp: TDataSource
    DataSet = ADOQueryTemp
    Left = 328
    Top = 12
  end
  object ADOTablePower: TADOTable
    Active = True
    Connection = ADOConnectionHotel
    CursorType = ctStatic
    TableName = 'power'
    Left = 88
    Top = 16
    object ADOTablePowerID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object ADOTablePowerpower: TStringField
      FieldName = 'power'
      Size = 50
    end
  end
end