search.dfm

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

object SearchForm: TSearchForm
  Left = 50
  Top = 156
  Width = 718
  Height = 375
  Caption = '房态管理'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -15
  Font.Name = '宋体'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 15
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 710
    Height = 348
    Align = alClient
    Caption = 'Panel1'
    TabOrder = 0
    object GroupBox1: TGroupBox
      Left = 1
      Top = 1
      Width = 708
      Height = 88
      Align = alTop
      Caption = '请先择查询条件'
      TabOrder = 0
      object Label1: TLabel
        Left = 176
        Top = 50
        Width = 60
        Height = 15
        Caption = '启始时间'
        Visible = False
      end
      object Label2: TLabel
        Left = 352
        Top = 50
        Width = 60
        Height = 15
        Caption = '结束时间'
        Visible = False
      end
      object RadioButton1: TRadioButton
        Left = 8
        Top = 21
        Width = 113
        Height = 14
        Caption = '按客房类别'
        TabOrder = 0
        OnClick = RadioButton1Click
      end
      object RadioButton2: TRadioButton
        Left = 120
        Top = 20
        Width = 113
        Height = 17
        Caption = '按楼层'
        TabOrder = 1
        OnClick = RadioButton2Click
      end
      object RadioButton3: TRadioButton
        Left = 200
        Top = 18
        Width = 113
        Height = 17
        Caption = '全部'
        TabOrder = 2
        OnClick = RadioButton3Click
      end
      object ComboBox1: TComboBox
        Left = 32
        Top = 48
        Width = 89
        Height = 23
        ItemHeight = 15
        TabOrder = 3
        OnChange = ComboBox1Change
      end
      object RadioButton4: TRadioButton
        Left = 264
        Top = 18
        Width = 113
        Height = 17
        Caption = '可预定房'
        TabOrder = 4
        OnClick = RadioButton4Click
      end
      object RadioButton5: TRadioButton
        Left = 368
        Top = 16
        Width = 113
        Height = 17
        Caption = '已预定房'
        TabOrder = 5
        OnClick = RadioButton5Click
      end
      object DateTimePicker1: TDateTimePicker
        Left = 248
        Top = 48
        Width = 97
        Height = 23
        CalAlignment = dtaLeft
        Date = 37728.9208028935
        Time = 37728.9208028935
        DateFormat = dfShort
        DateMode = dmComboBox
        Kind = dtkDate
        ParseInput = False
        TabOrder = 6
        Visible = False
      end
      object DateTimePicker2: TDateTimePicker
        Left = 424
        Top = 48
        Width = 89
        Height = 23
        CalAlignment = dtaLeft
        Date = 37728.9208569444
        Time = 37728.9208569444
        DateFormat = dfShort
        DateMode = dmComboBox
        Kind = dtkDate
        ParseInput = False
        TabOrder = 7
        Visible = False
        OnChange = DateTimePicker2Change
      end
      object Button1: TButton
        Left = 528
        Top = 48
        Width = 75
        Height = 25
        Caption = '修改房态'
        TabOrder = 8
        OnClick = Button1Click
      end
      object Button3: TButton
        Left = 608
        Top = 48
        Width = 75
        Height = 25
        Caption = '关闭'
        TabOrder = 9
        OnClick = Button3Click
      end
    end
    object DBGrid1: TDBGrid
      Left = 1
      Top = 89
      Width = 708
      Height = 258
      Align = alClient
      DataSource = DSRoom
      TabOrder = 1
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -15
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      OnCellClick = DBGrid1CellClick
      OnDrawColumnCell = DBGrid1DrawColumnCell
    end
  end
  object ADOQuery1: TADOQuery
    Connection = DM.ADOConnectionHotel
    Parameters = <>
    Left = 113
    Top = 33
  end
  object ADOQuery2: TADOQuery
    Connection = DM.ADOConnectionHotel
    BeforePost = ADOQuery2BeforePost
    Parameters = <>
    SQL.Strings = (
      'select * from room')
    Left = 168
    Top = 184
    object ADOQuery2ID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
      Visible = False
    end
    object ADOQuery2RoomNo: TStringField
      DisplayLabel = '房间号'
      DisplayWidth = 8
      FieldName = 'RoomNo'
      Size = 50
    end
    object ADOQuery2Place: TStringField
      DisplayLabel = '位置'
      DisplayWidth = 8
      FieldName = 'Place'
      ReadOnly = True
      Size = 50
    end
    object ADOQuery2RoomlevelCode: TIntegerField
      DisplayLabel = '房间类型'
      DisplayWidth = 8
      FieldName = 'RoomlevelCode'
      ReadOnly = True
      Visible = False
    end
    object ADOQuery2RoomStateCode: TIntegerField
      DisplayLabel = '房间状态'
      DisplayWidth = 8
      FieldName = 'RoomStateCode'
      Visible = False
    end
    object ADOQuery2Remark: TStringField
      DisplayLabel = '备注'
      DisplayWidth = 8
      FieldName = 'Remark'
      Size = 200
    end
    object ADOQuery2CleanTypeNo: TIntegerField
      DisplayLabel = '清结度'
      DisplayWidth = 8
      FieldName = 'CleanTypeNo'
      Visible = False
    end
    object ADOQuery2Floor: TIntegerField
      DisplayLabel = '楼层'
      DisplayWidth = 8
      FieldName = 'Floor'
      ReadOnly = True
      Visible = False
    end
    object ADOQuery2roomlevel: TStringField
      DisplayLabel = '房间类型'
      DisplayWidth = 10
      FieldKind = fkLookup
      FieldName = 'roomlevel'
      LookupDataSet = DM.ADOTRoomType
      LookupKeyFields = 'RoomlevelCode'
      LookupResultField = 'TypeName'
      KeyFields = 'RoomlevelCode'
      ReadOnly = True
      Lookup = True
    end
    object ADOQuery2newstate: TStringField
      DisplayLabel = '房间状态'
      DisplayWidth = 10
      FieldKind = fkLookup
      FieldName = 'newstate'
      LookupDataSet = DM.ADOTRoomState
      LookupKeyFields = 'RoomStateCode'
      LookupResultField = 'RoomStateName'
      KeyFields = 'RoomStateCode'
      Lookup = True
    end
    object ADOQuery2newfloor: TStringField
      DisplayLabel = '楼层'
      DisplayWidth = 10
      FieldKind = fkLookup
      FieldName = 'newfloor'
      LookupDataSet = DM.ADOTFloor
      LookupKeyFields = 'ID'
      LookupResultField = 'Floor'
      KeyFields = 'Floor'
      ReadOnly = True
      Lookup = True
    end
    object ADOQuery2newcleartype: TStringField
      DisplayLabel = '清洁状态'
      FieldKind = fkLookup
      FieldName = 'newcleartype'
      LookupDataSet = DM.ADOTClean
      LookupKeyFields = 'CleanTypeNo'
      LookupResultField = 'CleanTypeName'
      KeyFields = 'CleanTypeNo'
      Visible = False
      Lookup = True
    end
    object ADOQuery2TheMynewprice: TStringField
      DisplayLabel = '房价'
      DisplayWidth = 10
      FieldKind = fkLookup
      FieldName = 'TheMynewprice'
      LookupDataSet = DM.ADOTRoomType
      LookupKeyFields = 'RoomlevelCode'
      LookupResultField = 'TypePrice'
      KeyFields = 'RoomlevelCode'
      Lookup = True
    end
  end
  object DSRoom: TDataSource
    DataSet = ADOQuery2
    Left = 144
    Top = 32
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 40
    Top = 120
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery3
    Left = 488
    Top = 112
  end
  object ADOQuery3: TADOQuery
    Connection = DM.ADOConnectionHotel
    Parameters = <>
    SQL.Strings = (
      
        'select * from roomorder  where orderno not in (select orders.ord' +
        'erno from orders where used=1 or checked=1)')
    Left = 488
    Top = 152
    object ADOQuery3ID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
      Visible = False
    end
    object ADOQuery3OrderNo: TStringField
      DisplayLabel = '定单号'
      DisplayWidth = 10
      FieldName = 'OrderNo'
      Size = 50
    end
    object ADOQuery3RoomNo: TStringField
      DisplayLabel = '房间号'
      DisplayWidth = 8
      FieldName = 'RoomNo'
      Size = 50
    end
    object ADOQuery3CustomID: TIntegerField
      DisplayLabel = '客户编号'
      DisplayWidth = 8
      FieldName = 'CustomID'
    end
    object ADOQuery3BeginTime: TDateTimeField
      DisplayLabel = '计划入住时间'
      FieldName = 'BeginTime'
    end
    object ADOQuery3EndTime: TDateTimeField
      DisplayLabel = '结束时间'
      FieldName = 'EndTime'
    end
    object ADOQuery3RoomChecked: TIntegerField
      FieldName = 'RoomChecked'
      Visible = False
    end
    object ADOQuery3NeedkMoney: TIntegerField
      FieldName = 'NeedkMoney'
      Visible = False
    end
    object ADOQuery3PandMoney: TIntegerField
      FieldName = 'PandMoney'
      Visible = False
    end
    object ADOQuery3CustomName: TStringField
      DisplayLabel = '客户名'
      DisplayWidth = 10
      FieldName = 'CustomName'
      Size = 50
    end
    object ADOQuery3OperName: TStringField
      DisplayLabel = '操作员'
      DisplayWidth = 10
      FieldName = 'OperName'
      Size = 50
    end
    object ADOQuery3xuzuOperName: TStringField
      FieldName = 'xuzuOperName'
      Visible = False
      Size = 50
    end
    object ADOQuery3CheckOperName: TStringField
      FieldName = 'CheckOperName'
      Visible = False
      Size = 50
    end
    object ADOQuery3ZeKou: TFloatField
      FieldName = 'ZeKou'
    end
  end
end