unit9.dfm

以学习为目的,使用DIPH开发而成,功能强大,是我们的老师提供的!

          Left = 67
          Top = 16
          Width = 49
          Height = 17
          Caption = '全部'
          Checked = True
          TabOrder = 5
          TabStop = True
          OnClick = RadioButton1Click
        end
        object RadioButton2: TRadioButton
          Left = 138
          Top = 16
          Width = 49
          Height = 17
          Caption = '选择'
          TabOrder = 6
          OnClick = RadioButton2Click
        end
      end
      object Edit4: TEdit
        Left = 273
        Top = 176
        Width = 121
        Height = 20
        TabOrder = 2
      end
      object Button1: TButton
        Left = 400
        Top = 176
        Width = 65
        Height = 22
        Caption = '开  房'
        Default = True
        TabOrder = 3
        OnClick = Button1Click
      end
      object Button2: TButton
        Left = 468
        Top = 176
        Width = 65
        Height = 22
        Caption = '刷  新'
        TabOrder = 4
        OnClick = Button2Click
      end
      object Button3: TButton
        Left = 635
        Top = 176
        Width = 65
        Height = 22
        Caption = '退  出'
        TabOrder = 5
        OnClick = Button3Click
      end
    end
    object TabSheet2: TTabSheet
      Caption = '退房'
      ImageIndex = 1
      object Label17: TLabel
        Left = 8
        Top = 8
        Width = 36
        Height = 12
        Caption = '房间号'
      end
      object Label18: TLabel
        Left = 8
        Top = 56
        Width = 24
        Height = 12
        Caption = '客户'
      end
      object Label19: TLabel
        Left = 8
        Top = 104
        Width = 24
        Height = 12
        Caption = '押金'
      end
      object Label20: TLabel
        Left = 8
        Top = 80
        Width = 24
        Height = 12
        Caption = '应收'
      end
      object Label21: TLabel
        Left = 8
        Top = 144
        Width = 92
        Height = 21
        Caption = '还要收：'
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -21
        Font.Name = '楷体_GB2312'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label22: TLabel
        Left = 0
        Top = 216
        Width = 68
        Height = 15
        Caption = '客房信息'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = '楷体_GB2312'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label23: TLabel
        Left = 456
        Top = 216
        Width = 68
        Height = 15
        Caption = '客户信息'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = '楷体_GB2312'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label24: TLabel
        Left = 112
        Top = 144
        Width = 12
        Height = 21
        Font.Charset = GB2312_CHARSET
        Font.Color = clRed
        Font.Height = -21
        Font.Name = '楷体_GB2312'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label25: TLabel
        Left = 216
        Top = 144
        Width = 23
        Height = 21
        Caption = '元'
        Font.Charset = GB2312_CHARSET
        Font.Color = clNavy
        Font.Height = -21
        Font.Name = '楷体_GB2312'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Button4: TButton
        Left = 184
        Top = 8
        Width = 65
        Height = 22
        Caption = '查  询'
        Default = True
        TabOrder = 0
        OnClick = Button4Click
      end
      object Edit5: TEdit
        Left = 56
        Top = 8
        Width = 121
        Height = 20
        TabOrder = 1
      end
      object Edit7: TEdit
        Left = 56
        Top = 80
        Width = 121
        Height = 20
        ReadOnly = True
        TabOrder = 2
      end
      object Button5: TButton
        Left = 184
        Top = 80
        Width = 65
        Height = 22
        Caption = '详  细'
        TabOrder = 3
        OnClick = Button5Click
      end
      object GroupBox3: TGroupBox
        Left = 288
        Top = 8
        Width = 377
        Height = 153
        Caption = '详细'
        TabOrder = 4
        object Label26: TLabel
          Left = 2
          Top = 14
          Width = 373
          Height = 137
          Align = alClient
          WordWrap = True
        end
      end
      object Button6: TButton
        Left = 635
        Top = 176
        Width = 65
        Height = 22
        Caption = '退  出'
        TabOrder = 5
        OnClick = Button6Click
      end
      object DBEdit1: TDBEdit
        Left = 56
        Top = 56
        Width = 121
        Height = 20
        DataField = 'Xm'
        DataSource = DataSource2
        ReadOnly = True
        TabOrder = 6
      end
      object DBEdit2: TDBEdit
        Left = 56
        Top = 104
        Width = 121
        Height = 20
        DataField = 'Yj'
        DataSource = DataSource2
        ReadOnly = True
        TabOrder = 7
      end
      object Button7: TButton
        Left = 184
        Top = 104
        Width = 65
        Height = 22
        Caption = '退  房'
        Enabled = False
        TabOrder = 8
        OnClick = Button7Click
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 257
    Width = 876
    Height = 374
    Align = alClient
    TabOrder = 1
    object Splitter1: TSplitter
      Left = 457
      Top = 1
      Width = 3
      Height = 353
      Cursor = crHSplit
    end
    object DBGrid2: TDBGrid
      Left = 460
      Top = 1
      Width = 415
      Height = 353
      Align = alClient
      DataSource = DataSource2
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'Fh'
          Title.Alignment = taCenter
          Title.Caption = '房间号'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Xm'
          Title.Alignment = taCenter
          Title.Caption = '姓名'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Xb'
          Title.Alignment = taCenter
          Title.Caption = '性别'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Zjh'
          Title.Alignment = taCenter
          Title.Caption = '证件号'
          Width = 113
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Zjlx'
          Title.Alignment = taCenter
          Title.Caption = '证件类型'
          Width = 74
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Rq'
          Title.Alignment = taCenter
          Title.Caption = '日期'
          Width = 84
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Yj'
          Title.Alignment = taCenter
          Title.Caption = '押金'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Rs'
          Title.Alignment = taCenter
          Title.Caption = '人数'
          Visible = True
        end>
    end
    object DBGrid1: TDBGrid
      Left = 1
      Top = 1
      Width = 456
      Height = 353
      Align = alLeft
      DataSource = DataSource1
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 1
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'Fh'
          Title.Alignment = taCenter
          Title.Caption = '房间号'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Lx'
          Title.Alignment = taCenter
          Title.Caption = '房间类型'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Jg'
          Title.Alignment = taCenter
          Title.Caption = '价格'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Dhhm'
          Title.Alignment = taCenter
          Title.Caption = '电话号码'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Zt'
          Title.Alignment = taCenter
          Title.Caption = '状态'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Rs'
          Title.Alignment = taCenter
          Title.Caption = '可住人数'
          Visible = True
        end>
    end
    object StatusBar1: TStatusBar
      Left = 1
      Top = 354
      Width = 874
      Height = 19
      Panels = <>
      SimplePanel = False
    end
  end
  object Table1: TTable
    Active = True
    DatabaseName = '.\data'
    TableName = '资源表一.DB'
    Left = 4
    Top = 191
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 36
    Top = 191
  end
  object Table2: TTable
    Active = True
    DatabaseName = '.\data'
    TableName = '客户登记表.DB'
    Left = 68
    Top = 191
  end
  object DataSource2: TDataSource
    DataSet = Table2
    Left = 100
    Top = 191
  end
  object Query1: TQuery
    DatabaseName = '.\data'
    Left = 132
    Top = 191
  end
  object Table3: TTable
    Active = True
    DatabaseName = '.\data'
    TableName = '销售表.db'
    Left = 164
    Top = 191
  end
end