addroom.dfm

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

object AddRoomForm: TAddRoomForm
  Left = 186
  Top = 158
  Width = 544
  Height = 375
  Caption = 'AddRoomForm'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 536
    Height = 348
    Align = alClient
    Caption = 'Panel1'
    TabOrder = 0
    object GroupBox1: TGroupBox
      Left = 1
      Top = 1
      Width = 534
      Height = 64
      Align = alTop
      Caption = '增加客房'
      TabOrder = 0
      object DBNavigator1: TDBNavigator
        Left = 2
        Top = 32
        Width = 530
        Height = 30
        DataSource = DataSource1
        Align = alBottom
        TabOrder = 0
      end
    end
    object DBGrid1: TDBGrid
      Left = 1
      Top = 65
      Width = 534
      Height = 282
      Align = alClient
      DataSource = DataSource1
      TabOrder = 1
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = '宋体'
      TitleFont.Style = []
    end
  end
  object ADOTable1: TADOTable
    Connection = DM.ADOConnectionHotel
    CursorType = ctStatic
    TableName = 'Room'
    Left = 176
    Top = 96
    object ADOTable1ID: TAutoIncField
      DisplayLabel = '序号'
      FieldName = 'ID'
      ReadOnly = True
    end
    object ADOTable1RoomNo: TStringField
      DisplayLabel = '房号'
      DisplayWidth = 10
      FieldName = 'RoomNo'
      Size = 50
    end
    object ADOTable1Place: TStringField
      DisplayLabel = '位置'
      DisplayWidth = 10
      FieldName = 'Place'
      Size = 50
    end
    object ADOTable1RoomlevelCode: TIntegerField
      DisplayLabel = '客房级别'
      FieldName = 'RoomlevelCode'
      Visible = False
    end
    object ADOTable1RoomStateCode: TIntegerField
      FieldName = 'RoomStateCode'
      Visible = False
    end
    object ADOTable1Remark: TStringField
      DisplayLabel = '备注'
      DisplayWidth = 10
      FieldName = 'Remark'
      Size = 200
    end
    object ADOTable1CleanTypeNo: TIntegerField
      FieldName = 'CleanTypeNo'
      Visible = False
    end
    object ADOTable1newroomtype: TStringField
      DisplayLabel = '客房级别'
      FieldKind = fkLookup
      FieldName = 'newroomtype'
      LookupDataSet = DM.ADOTRoomType
      LookupKeyFields = 'RoomlevelCode'
      LookupResultField = 'TypeName'
      KeyFields = 'RoomlevelCode'
      Lookup = True
    end
    object ADOTable1newstate: TStringField
      FieldKind = fkLookup
      FieldName = 'newstate'
      LookupDataSet = DM.ADOTRoomState
      LookupKeyFields = 'RoomStateCode'
      LookupResultField = 'RoomStateName'
      KeyFields = 'RoomStateCode'
      Lookup = True
    end
    object ADOTable1Floor: TIntegerField
      FieldName = 'Floor'
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 249
    Top = 105
  end
end