inputguestinfunit.~dfm

很好地delphi书籍源码

object FrmInputGInfo: TFrmInputGInfo
  Left = 189
  Top = 152
  BorderStyle = bsDialog
  Caption = #30331#35760#23458#25143#20449#24687
  ClientHeight = 351
  ClientWidth = 598
  Color = clInfoBk
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object InputGB: TGroupBox
    Left = 50
    Top = 0
    Width = 498
    Height = 313
    Align = alClient
    BiDiMode = bdRightToLeft
    Color = clInfoBk
    Ctl3D = False
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentBiDiMode = False
    ParentColor = False
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 0
    object Label1: TLabel
      Left = 56
      Top = 70
      Width = 28
      Height = 14
      Caption = #22995#21517
    end
    object Label3: TLabel
      Left = 56
      Top = 123
      Width = 28
      Height = 14
      Caption = #24180#40836
    end
    object Label4: TLabel
      Left = 42
      Top = 148
      Width = 42
      Height = 14
      Caption = #20986#29983#22320
    end
    object Label2: TLabel
      Left = 56
      Top = 97
      Width = 28
      Height = 14
      Caption = #24615#21035
    end
    object Label5: TLabel
      Left = 28
      Top = 174
      Width = 56
      Height = 14
      Caption = #35777#20214#31867#22411
    end
    object Label6: TLabel
      Left = 28
      Top = 200
      Width = 56
      Height = 14
      Caption = #35777#20214#21495#30721
    end
    object Label11: TLabel
      Left = 28
      Top = 252
      Width = 56
      Height = 14
      Caption = #24037#20316#21333#20301
    end
    object Label12: TLabel
      Left = 56
      Top = 226
      Width = 28
      Height = 14
      Caption = #32844#21153
    end
    object Label15: TLabel
      Left = 256
      Top = 70
      Width = 56
      Height = 14
      Caption = #25151#38388#31867#21035
    end
    object Label16: TLabel
      Left = 256
      Top = 97
      Width = 56
      Height = 14
      Caption = #25151#38388#21495#30721
    end
    object Label17: TLabel
      Left = 256
      Top = 125
      Width = 56
      Height = 14
      Caption = #24202#20301#21495#30721
    end
    object Label10: TLabel
      Left = 256
      Top = 153
      Width = 56
      Height = 14
      Caption = #24202#20301#20215#26684
    end
    object Label7: TLabel
      Left = 256
      Top = 178
      Width = 56
      Height = 14
      Caption = #25311#20303#22825#25968
    end
    object Label8: TLabel
      Left = 256
      Top = 204
      Width = 56
      Height = 14
      Caption = #39044#20184#25276#37329
    end
    object Label9: TLabel
      Left = 256
      Top = 228
      Width = 56
      Height = 14
      Caption = #20837#20303#26102#38388
    end
    object Shape1: TShape
      Left = 245
      Top = 62
      Width = 1
      Height = 211
    end
    object Label13: TLabel
      Left = 158
      Top = 18
      Width = 180
      Height = 35
      Caption = #20303#23487#30331#35760#21345
      Font.Charset = GB2312_CHARSET
      Font.Color = clNavy
      Font.Height = -35
      Font.Name = #26999#20307'_GB2312'
      Font.Style = []
      ParentFont = False
      Layout = tlCenter
    end
    object WaitessL: TLabel
      Left = 268
      Top = 256
      Width = 49
      Height = 14
      Caption = #25805#20316#21592#65306
    end
    object NameL: TLabel
      Left = 322
      Top = 256
      Width = 69
      Height = 14
      Caption = 'NameL'
    end
    object Shape2: TShape
      Left = 19
      Top = 60
      Width = 465
      Height = 1
    end
    object Label14: TLabel
      Left = 252
      Top = 280
      Width = 63
      Height = 14
      Caption = #32463#29702#31614#23383':'
    end
    object Shape3: TShape
      Left = 316
      Top = 294
      Width = 95
      Height = 1
      Pen.Color = clGradientActiveCaption
      Pen.Style = psDot
    end
    object NameEdit: TEdit
      Left = 96
      Top = 70
      Width = 99
      Height = 20
      TabOrder = 0
    end
    object SexCB: TComboBox
      Left = 96
      Top = 95
      Width = 99
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      ItemIndex = 0
      TabOrder = 1
      Text = #30007
      Items.Strings = (
        #30007
        #22899)
    end
    object CardNameCB: TComboBox
      Left = 96
      Top = 172
      Width = 139
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      TabOrder = 2
      Items.Strings = (
        #36523#20221#35777
        #20891#23448#35777
        #24037#20316#35777
        #35760#32773#35777#26126
        #23398#29983#35777)
    end
    object BornPlaceCB: TComboBox
      Left = 96
      Top = 147
      Width = 139
      Height = 22
      ItemHeight = 14
      TabOrder = 3
      Items.Strings = (
        #19978#28023
        #21271#20140
        #22825#27941
        #27743#33487
        #23665#19996
        #38738#23707
        #25196#24030)
    end
    object CardIDEdit: TEdit
      Left = 96
      Top = 198
      Width = 139
      Height = 20
      TabOrder = 4
    end
    object CompanyEdit: TEdit
      Left = 96
      Top = 250
      Width = 139
      Height = 20
      TabOrder = 5
    end
    object DutyCB: TComboBox
      Left = 96
      Top = 224
      Width = 139
      Height = 22
      ItemHeight = 14
      TabOrder = 6
      Items.Strings = (
        #20027#20219
        #31185#21592
        #25945#24072)
    end
    object AgeCB: TComboBox
      Left = 96
      Top = 121
      Width = 101
      Height = 22
      ItemHeight = 14
      ItemIndex = 0
      TabOrder = 7
      Text = '10'
      Items.Strings = (
        '10'
        '20'
        '30'
        '40'
        '50'
        '60')
    end
    object KindCB: TComboBox
      Left = 319
      Top = 70
      Width = 112
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      TabOrder = 8
      OnChange = KindCBChange
    end
    object RoomCB: TComboBox
      Left = 319
      Top = 96
      Width = 112
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      TabOrder = 9
      OnChange = RoomCBChange
    end
    object BedCB: TComboBox
      Left = 319
      Top = 122
      Width = 112
      Height = 22
      Style = csDropDownList
      ItemHeight = 14
      TabOrder = 10
    end
    object PriceEdit: TEdit
      Left = 319
      Top = 149
      Width = 111
      Height = 20
      ReadOnly = True
      TabOrder = 11