livingguestunit.dfm

很好地delphi书籍源码

object FrmLivingGuest: TFrmLivingGuest
  Left = 34
  Top = 139
  Width = 854
  Height = 499
  Caption = #23458#25143#20449#24687#34920
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 0
    Top = 43
    Width = 757
    Height = 422
    Align = alLeft
    DataSource = DataModule1.GInfoDS
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 846
    Height = 43
    ButtonHeight = 36
    ButtonWidth = 33
    Caption = 'ToolBar1'
    Color = 16435887
    Flat = True
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    Images = ImageList1
    ParentColor = False
    ParentFont = False
    ShowCaptions = True
    TabOrder = 1
    object ToolButton7: TToolButton
      Left = 0
      Top = 0
      Action = DataSetFirst1
      Caption = #39318#39033
      ImageIndex = 0
    end
    object ToolButton3: TToolButton
      Left = 33
      Top = 0
      Action = DataSetPrior1
      Caption = #21521#21069
      ImageIndex = 1
    end
    object ToolButton5: TToolButton
      Left = 66
      Top = 0
      Action = DataSetNext1
      Caption = #19979#21518
      ImageIndex = 2
    end
    object ToolButton6: TToolButton
      Left = 99
      Top = 0
      Action = DataSetLast1
      Caption = #23614#39033
      ImageIndex = 3
    end
    object ToolButton1: TToolButton
      Left = 132
      Top = 0
      Caption = #25171#21360
      ImageIndex = 4
      OnClick = ToolButton1Click
    end
    object ToolButton2: TToolButton
      Left = 165
      Top = 0
      Caption = #20851#38381
      ImageIndex = 5
      OnClick = ToolButton2Click
    end
  end
  object Panel1: TPanel
    Left = 757
    Top = 43
    Width = 89
    Height = 422
    Align = alClient
    BevelInner = bvLowered
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    object Label1: TLabel
      Left = 12
      Top = 84
      Width = 48
      Height = 12
      Caption = #26681#25454#22995#21517
    end
    object Label3: TLabel
      Left = 16
      Top = 16
      Width = 42
      Height = 21
      Caption = #26597#35810
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -21
      Font.Name = #21326#25991#26032#39759
      Font.Style = [fsItalic]
      ParentFont = False
    end
    object Label2: TLabel
      Left = 8
      Top = 136
      Width = 48
      Height = 12
      Caption = #26681#25454#24615#21035
    end
    object Label4: TLabel
      Left = 10
      Top = 184
      Width = 48
      Height = 12
      Caption = #26368#22823#24180#40836
    end
    object NameCB: TComboBox
      Left = 6
      Top = 102
      Width = 73
      Height = 20
      ItemHeight = 12
      ItemIndex = 0
      TabOrder = 0
      OnChange = NameCBChange
      Items.Strings = (
        ''
        #36213#38065#23385#26446
        #21608#21556#37073#29579
        #20911#38472#35832#21355
        #33931#27784#38889#26472
        #26417#31206#23588#35768'  '
        #20309#21525#26045#24352
        #23380#26361#20005#21326'  '
        #37329#39759#38518#23004
        #25114#35874#37049#21947'  '
        #26575#27700#31398#31456
        #20113#33487#28504#33883'  '
        #22874#33539#24429#37070
        #40065#38886#26124#39532'  '
        #33495#20964#33457#26041
        #20446#20219#34945#26611'  '
        #37190#40077#21490#21776
        #36153#24265#23697#34203'  '
        #38647#36154#20522#27748
        #28373#27575#32599#27605'  '
        #37085#37036#23433#24120
        #20048#20110#26102#20613'  '
        #30382#21345#40784#24247
        #20237#20313#20803#21340'  '
        #39038#23391#24179#40644
        #21644#31302#33831#23609'  '
        #23002#37045#22570#27754
        #31041#27611#31161#29380'  '
        #31859#36125#26126#33255)
    end
    object SexCB: TComboBox
      Left = 6
      Top = 150
      Width = 73
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      ItemIndex = 0
      TabOrder = 1
      OnChange = SexCBChange
      Items.Strings = (
        ''
        #30007
        #22899)
    end
    object AgeCB: TComboBox
      Left = 8
      Top = 200
      Width = 73
      Height = 20
      ItemHeight = 12
      ItemIndex = 0
      TabOrder = 2
      Text = '1'
      OnChange = AgeCBChange
      Items.Strings = (
        '1'
        '5'
        '10'
        '15'
        '20'
        '25'
        '30'
        '35'
        '40'
        '45'
        '50'
        '55'
        '60'
        '65')
    end
  end
  object ActionList1: TActionList
    Left = 546
    Top = 16
    object DataSetFirst1: TDataSetFirst
      Category = 'Dataset'
      Caption = 'DataSetFirst1'
    end
    object DataSetPrior1: TDataSetPrior
      Category = 'Dataset'
      Caption = 'DataSetPrior1'
    end
    object DataSetNext1: TDataSetNext
      Category = 'Dataset'
      Caption = 'DataSetNext1'
    end
    object DataSetLast1: TDataSetLast
      Category = 'Dataset'
      Caption = 'DataSetLast1'
    end
    object DataSetDelete1: TDataSetDelete