newreaderu.dfm

一个图书馆管理程序

object NewReaderF: TNewReaderF
  Left = 326
  Top = 166
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'NewReaderF'
  ClientHeight = 435
  ClientWidth = 399
  Color = clBtnFace
  TransparentColor = True
  TransparentColorValue = clRed
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -15
  Font.Name = 'Times New Roman'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 120
  TextHeight = 17
  object GroupBox3: TGroupBox
    Left = 9
    Top = 78
    Width = 382
    Height = 277
    Caption = #26032#35835#32773#20449#24687
    TabOrder = 24
  end
  object StaticText7: TStaticText
    Left = 270
    Top = 161
    Width = 92
    Height = 21
    AutoSize = False
    Caption = #31867' '#22411#65306
    Color = clBtnFace
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 6
  end
  object StaticText5: TStaticText
    Left = 134
    Top = 161
    Width = 92
    Height = 21
    AutoSize = False
    Caption = #23398' '#21382#65306
    Color = clBtnFace
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 5
  end
  object StaticText4: TStaticText
    Left = 16
    Top = 161
    Width = 92
    Height = 21
    AutoSize = False
    Caption = #24615' '#21035#65306
    Color = clBtnFace
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 4
  end
  object StaticText3: TStaticText
    Left = 16
    Top = 134
    Width = 89
    Height = 21
    AutoSize = False
    Caption = #36523#20221#35777#21495#65306
    Color = clBtnFace
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 3
  end
  object StaticText2: TStaticText
    Left = 16
    Top = 108
    Width = 89
    Height = 21
    AutoSize = False
    Caption = #35835#32773#22995#21517#65306
    Color = clBtnFace
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 2
  end
  object name: TEdit
    Left = 80
    Top = 108
    Width = 302
    Height = 22
    BevelInner = bvLowered
    BevelKind = bkFlat
    BevelOuter = bvRaised
    BiDiMode = bdRightToLeft
    BorderStyle = bsNone
    Ctl3D = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentBiDiMode = False
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 0
  end
  object shenfen: TEdit
    Left = 80
    Top = 134
    Width = 302
    Height = 22
    BevelInner = bvLowered
    BevelKind = bkFlat
    BevelOuter = bvRaised
    BiDiMode = bdRightToLeft
    BorderStyle = bsNone
    Ctl3D = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentBiDiMode = False
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 1
  end
  object sex: TComboBox
    Left = 80
    Top = 161
    Width = 48
    Height = 21
    BevelInner = bvLowered
    BevelKind = bkFlat
    BevelOuter = bvRaised
    BiDiMode = bdRightToLeft
    Ctl3D = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ItemHeight = 13
    ItemIndex = 0
    ParentBiDiMode = False
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 7
    Text = #30007
    Items.Strings = (
      #30007
      #22899)
  end
  object edu: TComboBox
    Left = 181
    Top = 161
    Width = 83
    Height = 21
    BevelInner = bvLowered
    BevelKind = bkFlat
    BevelOuter = bvRaised
    BiDiMode = bdRightToLeft
    Ctl3D = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ItemHeight = 13
    ItemIndex = 0
    ParentBiDiMode = False
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 8
    Text = #23567#23398
    Items.Strings = (
      #23567#23398
      #21021#20013
      #20013#19987
      #39640#20013
      #22823#19987
      #22823#23398
      #30740#31350#29983
      #21338#22763
      #21338#22763#21518)
  end
  object typee: TComboBox
    Left = 317
    Top = 161
    Width = 65
    Height = 21
    BevelInner = bvLowered
    BevelKind = bkFlat
    BevelOuter = bvRaised
    BiDiMode = bdRightToLeft
    Ctl3D = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ItemHeight = 13
    ItemIndex = 0
    ParentBiDiMode = False
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 9
    Text = #19968#31867
    Items.Strings = (
      #19968#31867
      #20108#31867
      #19977#31867
      #22235#31867
      #20116#31867
      #20845#31867)
  end
  object save: TBitBtn
    Left = 62
    Top = 381
    Width = 85
    Height = 28
    Caption = #20445'  '#23384'(&C)'
    TabOrder = 10
    OnClick = saveClick
  end
  object exit: TBitBtn
    Left = 244
    Top = 381
    Width = 85
    Height = 28
    Caption = #36864'  '#20986'(&E)'
    TabOrder = 11
    OnClick = exitClick
  end
  object StaticText8: TStaticText
    Left = 16
    Top = 188
    Width = 92
    Height = 22
    AutoSize = False
    Caption = #24231'    '#26426#65306
    Color = clBtnFace
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 12
  end
  object StaticText9: TStaticText
    Left = 16
    Top = 215
    Width = 92
    Height = 22
    AutoSize = False
    Caption = #25163'    '#26426#65306
    Color = clBtnFace
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 13
  end
  object StaticText10: TStaticText
    Left = 16
    Top = 243
    Width = 92
    Height = 21
    AutoSize = False
    Caption = 'B     P '#65306
    Color = clBtnFace
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 14
  end
  object StaticText11: TStaticText
    Left = 16
    Top = 270
    Width = 92
    Height = 21
    AutoSize = False
    Caption = 'O I C Q '#65306
    Color = clBtnFace
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 15
  end
  object StaticText13: TStaticText
    Left = 16
    Top = 300
    Width = 92
    Height = 22
    AutoSize = False
    Caption = 'E -MAIL '#65306
    Color = clBtnFace
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 16
  end
  object StaticText14: TStaticText
    Left = 16
    Top = 328
    Width = 92
    Height = 21
    AutoSize = False
    Caption = #22320'    '#22336#65306
    Color = clBtnFace
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 17
  end
  object homep: TEdit
    Left = 80
    Top = 188
    Width = 302
    Height = 23
    BevelInner = bvLowered
    BevelKind = bkFlat
    BevelOuter = bvRaised
    BiDiMode = bdRightToLeft
    BorderStyle = bsNone
    Ctl3D = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentBiDiMode = False
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 18
  end
  object handp: TEdit
    Left = 80
    Top = 215
    Width = 302
    Height = 23
    BevelInner = bvLowered
    BevelKind = bkFlat
    BevelOuter = bvRaised
    BiDiMode = bdRightToLeft
    BorderStyle = bsNone
    Ctl3D = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentBiDiMode = False
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 19
  end
  object bp: TEdit
    Left = 80
    Top = 243
    Width = 302
    Height = 22
    BevelInner = bvLowered
    BevelKind = bkFlat
    BevelOuter = bvRaised
    BiDiMode = bdRightToLeft
    BorderStyle = bsNone
    Ctl3D = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentBiDiMode = False
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 20
  end
  object oicq: TEdit
    Left = 80
    Top = 270
    Width = 302
    Height = 22
    BevelInner = bvLowered
    BevelKind = bkFlat
    BevelOuter = bvRaised
    BiDiMode = bdRightToLeft
    BorderStyle = bsNone
    Ctl3D = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentBiDiMode = False
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 21
  end
  object email: TEdit
    Left = 80
    Top = 300
    Width = 302
    Height = 23
    BevelInner = bvLowered
    BevelKind = bkFlat
    BevelOuter = bvRaised
    BiDiMode = bdRightToLeft
    BorderStyle = bsNone
    Ctl3D = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentBiDiMode = False
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 22
  end
  object address: TEdit
    Left = 80
    Top = 328
    Width = 302
    Height = 22
    BevelInner = bvLowered
    BevelKind = bkFlat
    BevelOuter = bvRaised
    BiDiMode = bdRightToLeft
    BorderStyle = bsNone
    Ctl3D = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentBiDiMode = False
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 23
  end
  object StaticText1: TStaticText
    Left = 146
    Top = 8
    Width = 104
    Height = 27
    Caption = #35835#32773#21345#21495
    Color = clBtnFace
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -23
    Font.Name = #26999#20307'_GB2312'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    TabOrder = 25
  end
  object ID: TEdit
    Left = 117
    Top = 35
    Width = 158
    Height = 30
    AutoSize = False
    BevelInner = bvLowered
    BevelKind = bkSoft
    BevelOuter = bvNone
    BorderStyle = bsNone
    Color = clBlack
    Enabled = False
    Font.Charset = GB2312_CHARSET
    Font.Color = clYellow
    Font.Height = -25
    Font.Name = #26999#20307'_GB2312'
    Font.Style = [fsBold]
    MaxLength = 10
    ParentFont = False
    TabOrder = 26
    Text = '88888888888'
  end
end