unitregist.dfm

一套宾馆管理系统

object frmRegist: TfrmRegist
  Left = 222
  Top = 168
  Width = 696
  Height = 480
  Caption = #30331#24405#20449#24687
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Page1: TPageControl
    Left = 0
    Top = 33
    Width = 688
    Height = 420
    ActivePage = sht2
    Align = alClient
    TabOrder = 0
    TabPosition = tpBottom
    OnChange = Page1Change
    object sht1: TTabSheet
      Caption = #20449#24687#24405#20837
      object GroupBox1: TGroupBox
        Left = 0
        Top = 0
        Width = 334
        Height = 394
        Align = alLeft
        Caption = #37319#38598#25351#32441
        TabOrder = 0
        object Image1: TImage
          Left = 16
          Top = 48
          Width = 97
          Height = 129
        end
        object Image2: TImage
          Left = 120
          Top = 48
          Width = 97
          Height = 129
        end
        object Image3: TImage
          Left = 224
          Top = 48
          Width = 97
          Height = 129
        end
        object BitBtn1: TBitBtn
          Left = 16
          Top = 16
          Width = 65
          Height = 25
          Caption = #39318#27425#37319#38598
          TabOrder = 0
        end
        object BitBtn2: TBitBtn
          Left = 96
          Top = 16
          Width = 65
          Height = 25
          Caption = #20877#27425#37319#38598
          TabOrder = 1
        end
        object BitBtn3: TBitBtn
          Left = 192
          Top = 16
          Width = 73
          Height = 25
          Caption = #25351#32441#27604#29031
          TabOrder = 2
        end
      end
      object GroupBox2: TGroupBox
        Left = 334
        Top = 0
        Width = 346
        Height = 394
        Align = alClient
        Caption = #30331#35760#20449#24687
        TabOrder = 1
        object Label1: TLabel
          Left = 24
          Top = 24
          Width = 48
          Height = 13
          Caption = #39038#23458#22995#21517
        end
        object Label2: TLabel
          Left = 48
          Top = 64
          Width = 24
          Height = 13
          Caption = #24615#21035
        end
        object Label3: TLabel
          Left = 48
          Top = 96
          Width = 24
          Height = 13
          Caption = #22269#31821
        end
        object Label4: TLabel
          Left = 24
          Top = 136
          Width = 48
          Height = 13
          Caption = #20986#29983#26085#26399
        end
        object Label5: TLabel
          Left = 48
          Top = 168
          Width = 24
          Height = 13
          Caption = #30005#35805
        end
        object Label6: TLabel
          Left = 24
          Top = 200
          Width = 48
          Height = 13
          Caption = #23478#24237#20303#22336
        end
        object Label7: TLabel
          Left = 24
          Top = 232
          Width = 48
          Height = 13
          Caption = #36523#20221#35777#21495
        end
        object Label8: TLabel
          Left = 48
          Top = 340
          Width = 24
          Height = 13
          Caption = #22791#27880
        end
        object Label9: TLabel
          Left = 24
          Top = 296
          Width = 48
          Height = 13
          Caption = #30331#35760#26102#38388
        end
        object Label15: TLabel
          Left = 24
          Top = 259
          Width = 48
          Height = 13
          Caption = #39044#20303#22825#25968
        end
        object Splitter2: TSplitter
          Left = 2
          Top = 15
          Width = 1
          Height = 377
        end
        object edtName: TEdit
          Left = 96
          Top = 24
          Width = 129
          Height = 21
          TabOrder = 0
        end
        object edtPhone: TEdit
          Left = 96
          Top = 160
          Width = 137
          Height = 21
          TabOrder = 1
        end
        object edtAddress: TEdit
          Left = 96
          Top = 192
          Width = 137
          Height = 21
          TabOrder = 2
        end
        object edtNo: TEdit
          Left = 96
          Top = 224
          Width = 137
          Height = 21
          TabOrder = 3
        end
        object edtMemo: TEdit
          Left = 96
          Top = 332
          Width = 137
          Height = 21
          TabOrder = 4
        end
        object edtBirth: TEdit
          Left = 96
          Top = 128
          Width = 137
          Height = 21
          TabOrder = 5
        end
        object cboSex: TComboBox
          Left = 96
          Top = 56
          Width = 57
          Height = 21
          ItemHeight = 0
          TabOrder = 6
        end
        object cboNation: TComboBox
          Left = 96
          Top = 88
          Width = 137
          Height = 21
          ItemHeight = 0
          TabOrder = 7
          Text = 'cboNation'
        end
        object DateTimePicker1: TDateTimePicker
          Left = 96
          Top = 296
          Width = 137
          Height = 25
          Date = 38380.399811562500000000
          Time = 38380.399811562500000000
          DateMode = dmUpDown
          TabOrder = 8
        end
        object SpinEdit1: TSpinEdit
          Left = 96
          Top = 259
          Width = 65
          Height = 22
          MaxValue = 300
          MinValue = 1
          TabOrder = 9
          Value = 1
        end
      end
    end
    object sht2: TTabSheet
      Caption = #20449#24687#26597#35810#19982#20462#25913
      ImageIndex = 1
      object Splitter1: TSplitter
        Left = 249
        Top = 0
        Width = 2
        Height = 394
      end
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 249
        Height = 394
        Align = alLeft
        Caption = 'Panel1'
        TabOrder = 0
        object GroupBox3: TGroupBox
          Left = 1
          Top = 1
          Width = 247
          Height = 392
          Align = alClient
          Caption = #26597#35810#26465#20214
          TabOrder = 0
          object Label10: TLabel
            Left = 16
            Top = 152
            Width = 60
            Height = 13
            Caption = #35831#36755#20837#22995#21517
          end
          object Label11: TLabel
            Left = 16
            Top = 224
            Width = 60
            Height = 13
            Caption = #35831#36873#25321#24615#21035
          end
          object Label12: TLabel
            Left = 16
            Top = 280
            Width = 84
            Height = 13
            Caption = #35831#36755#20837#36523#20221#35777#21495
          end
          object Label13: TLabel
            Left = 16
            Top = 56
            Width = 84
            Height = 13
            Caption = #35831#36873#25321#36215#22987#26102#38388
          end
          object Label14: TLabel
            Left = 16
            Top = 80
            Width = 84
            Height = 13
            Caption = #35831#36873#25321#32467#26463#26102#38388
          end
          object chkDate: TCheckBox
            Left = 8
            Top = 24
            Width = 153
            Height = 17
            Caption = #30331#35760#26102#38388#26597#35810
            TabOrder = 0
            OnClick = chkDateClick
          end
          object chkName: TCheckBox
            Left = 8
            Top = 120
            Width = 137
            Height = 17
            Caption = #22995#21517#26597#35810
            TabOrder = 1
            OnClick = chkNameClick
          end
          object chkSex: TCheckBox
            Left = 8
            Top = 192
            Width = 137
            Height = 17
            Caption = #24615#21035#26597#35810
            TabOrder = 2
            OnClick = chkSexClick
          end
          object chkIdno: TCheckBox
            Left = 8
            Top = 248
            Width = 153
            Height = 33
            Caption = #36523#20221#35777#21495#26597#35810
            TabOrder = 3
            OnClick = chkIdnoClick
          end
          object edtXM: TEdit
            Left = 88
            Top = 152
            Width = 113
            Height = 21
            TabOrder = 4
          end
          object cboXB: TComboBox
            Left = 88
            Top = 224
            Width = 73
            Height = 21
            ItemHeight = 13
            TabOrder = 5
            Text = 'cboXB'
          end
          object EdtIDno: TEdit
            Left = 40
            Top = 304
            Width = 129
            Height = 21
            TabOrder = 6
          end
          object btnQuery: TBitBtn
            Left = 32
            Top = 352
            Width = 65
            Height = 25
            Caption = #26597#35810
            TabOrder = 7
            OnClick = btnQueryClick
          end
          object btnClear: TBitBtn
            Left = 112
            Top = 352
            Width = 73
            Height = 25
            Caption = #28165#31354
            TabOrder = 8
          end
          object tpkStart: TDateTimePicker
            Left = 120
            Top = 56
            Width = 89
            Height = 17
            Date = 38377.380271331020000000
            Format = 'yyyy-MM-dd'
            Time = 38377.380271331020000000
            TabOrder = 9
          end
          object tpkEnd: TDateTimePicker
            Left = 120
            Top = 80
            Width = 89
            Height = 17
            Date = 38377.380388750000000000
            Format = 'yyyy-MM-dd'
            Time = 38377.380388750000000000
            TabOrder = 10
          end
        end
      end
      object Panel2: TPanel
        Left = 251
        Top = 0
        Width = 429
        Height = 394
        Align = alClient
        Caption = 'Panel2'
        TabOrder = 1
        object GroupBox4: TGroupBox
          Left = 1
          Top = 1
          Width = 427
          Height = 392
          Align = alClient
          Caption = #26597#35810#32467#26524
          TabOrder = 0
          object DBGrid: TDBGrid
            Left = 2
            Top = 15
            Width = 423
            Height = 375
            Align = alClient
            TabOrder = 0
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'MS Sans Serif'
            TitleFont.Style = []
          end
        end
      end
    end
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 688
    Height = 33
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        Width = 684
      end>
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 671
      Height = 25
      ButtonHeight = 21
      ButtonWidth = 75
      Caption = 'ToolBar1'
      ShowCaptions = True
      TabOrder = 0
      object ToolButton1: TToolButton
        Left = 0
        Top = 2
        Caption = #39318#27425#37319#38598'(&F)'
        ImageIndex = 0
        Visible = False
      end
      object ToolButton2: TToolButton
        Left = 75
        Top = 2
        Caption = #20877#27425#37319#38598'(&R)'
        ImageIndex = 1
      end
      object ToolButton3: TToolButton
        Left = 150
        Top = 2
        Caption = #25351#32441#27604#29031'(&C)'
        ImageIndex = 2
      end
      object ToolButton4: TToolButton
        Left = 225
        Top = 2
        Caption = #22270#35937#22238#20256'(&B)'
        ImageIndex = 3
        OnClick = ToolButton4Click
      end
      object tbnSave: TToolButton
        Left = 300
        Top = 2
        Caption = #20445#23384#20449#24687'(&S)'
        Enabled = False
        ImageIndex = 4
        OnClick = tbnSaveClick
      end
      object tbnSelect: TToolButton
        Left = 375
        Top = 2
        Caption = #23433#25490#25151#38388
        ImageIndex = 6
        OnClick = tbnSelectClick
      end
      object tbnExit: TToolButton
        Left = 450
        Top = 2
        Caption = #36864#20986#31995#32479'(&X)'
        ImageIndex = 5
        OnClick = tbnExitClick
      end
    end
  end
  object ADOQuery: TADOQuery
    Parameters = <>
    Left = 604
    Top = 221
  end
  object ADOCmd: TADOCommand
    Parameters = <>
    Left = 604
    Top = 261
  end
  object DataSource: TDataSource
    Left = 604
    Top = 301
  end
  object ADOStored: TADOStoredProc
    Parameters = <
      item
        Size = -1
        Value = Null
      end>
    Left = 604
    Top = 181
  end
end