unit4.dfm

2个用Delphi做的图书管理系统

object Form4: TForm4
  Left = 204
  Top = 72
  Width = 415
  Height = 445
  Caption = #35835#32773#31649#29702
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 407
    Height = 411
    ActivePage = TabSheet1
    Align = alClient
    TabIndex = 0
    TabOrder = 0
    TabWidth = 150
    object TabSheet1: TTabSheet
      Caption = #35835#32773#20449#24687#31649#29702
      OnShow = TabSheet1Show
      object Label1: TLabel
        Left = 8
        Top = 0
        Width = 84
        Height = 20
        Alignment = taCenter
        Caption = #35835#32773#21345#21495
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -20
        Font.Name = #26999#20307'_GB2312'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Edit1: TEdit
        Left = 96
        Top = 0
        Width = 273
        Height = 25
        BevelKind = bkFlat
        BiDiMode = bdRightToLeft
        BorderStyle = bsNone
        Ctl3D = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clTeal
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentBiDiMode = False
        ParentCtl3D = False
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
      end
      object GroupBox2: TGroupBox
        Left = -1
        Top = 32
        Width = 388
        Height = 305
        Caption = #22522#26412#20449#24687
        Color = clSkyBlue
        ParentColor = False
        TabOrder = 1
        object StaticText15: TStaticText
          Left = 10
          Top = 155
          Width = 60
          Height = 19
          AutoSize = False
          Caption = #30446#21069#20511#20070#65306
          Color = clSkyBlue
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentColor = False
          ParentFont = False
          TabOrder = 2
        end
        object StaticText14: TStaticText
          Left = 194
          Top = 79
          Width = 81
          Height = 19
          AutoSize = False
          Caption = #22320'    '#22336#65306
          Color = clSkyBlue
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentColor = False
          ParentFont = False
          TabOrder = 3
        end
        object StaticText13: TStaticText
          Left = 194
          Top = 59
          Width = 81
          Height = 19
          AutoSize = False
          Caption = 'E -MAIL '#65306
          Color = clSkyBlue
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentColor = False
          ParentFont = False
          TabOrder = 4
        end
        object StaticText11: TStaticText
          Left = 194
          Top = 39
          Width = 81
          Height = 19
          AutoSize = False
          Caption = 'Q     Q '#65306
          Color = clSkyBlue
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentColor = False
          ParentFont = False
          TabOrder = 7
        end
        object StaticText10: TStaticText
          Left = 194
          Top = 19
          Width = 81
          Height = 19
          AutoSize = False
          Caption = 'B    P'#26426#65306
          Color = clSkyBlue
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentColor = False
          ParentFont = False
          TabOrder = 8
        end
        object StaticText9: TStaticText
          Left = 194
          Top = 103
          Width = 81
          Height = 19
          AutoSize = False
          Caption = #25163'    '#26426#65306
          Color = clSkyBlue
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentColor = False
          ParentFont = False
          TabOrder = 11
        end
        object StaticText8: TStaticText
          Left = 10
          Top = 99
          Width = 81
          Height = 19
          AutoSize = False
          Caption = #23478' '#30005' '#35805#65306
          Color = clSkyBlue
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentColor = False
          ParentFont = False
          TabOrder = 12
        end
        object StaticText5: TStaticText
          Left = 10
          Top = 79
          Width = 81
          Height = 19
          AutoSize = False
          Caption = #23398'    '#21382#65306
          Color = clSkyBlue
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentColor = False
          ParentFont = False
          TabOrder = 14
        end
        object StaticText4: TStaticText
          Left = 10
          Top = 58
          Width = 81
          Height = 19
          AutoSize = False
          Caption = #24615'    '#21035#65306
          Color = clSkyBlue
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentColor = False
          ParentFont = False
          TabOrder = 17
        end
        object StaticText3: TStaticText
          Left = 10
          Top = 37
          Width = 79
          Height = 19
          AutoSize = False
          Caption = #36523#20221#35777#21495#65306
          Color = clSkyBlue
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentColor = False
          ParentFont = False
          TabOrder = 19
        end
        object StaticText2: TStaticText
          Left = 10
          Top = 17
          Width = 79
          Height = 19
          AutoSize = False
          Caption = #35835#32773#22995#21517#65306
          Color = clSkyBlue
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentColor = False
          ParentFont = False
          TabOrder = 21
        end
        object name: TEdit
          Left = 67
          Top = 17
          Width = 121
          Height = 18
          BevelKind = bkFlat
          BiDiMode = bdRightToLeft
          BorderStyle = bsNone
          Ctl3D = True
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentBiDiMode = False
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 20
        end
        object shenfen: TEdit
          Left = 67
          Top = 37
          Width = 121
          Height = 18
          BevelKind = bkFlat
          BiDiMode = bdRightToLeft
          BorderStyle = bsNone
          Ctl3D = True
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentBiDiMode = False
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 18
        end
        object sex: TComboBox
          Left = 67
          Top = 57
          Width = 122
          Height = 20
          BevelKind = bkFlat
          BiDiMode = bdRightToLeft
          Ctl3D = True
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ItemHeight = 12
          ItemIndex = 0
          ParentBiDiMode = False
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 16
          Text = #30007
          Items.Strings = (
            #30007
            #22899)
        end
        object edu: TComboBox
          Left = 67
          Top = 79
          Width = 122
          Height = 20
          BevelKind = bkFlat
          BiDiMode = bdRightToLeft
          Ctl3D = True
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ItemHeight = 12
          ItemIndex = 0
          ParentBiDiMode = False
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 15
          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 homep: TEdit
          Left = 67
          Top = 101
          Width = 121
          Height = 18
          BevelKind = bkFlat
          BiDiMode = bdRightToLeft
          BorderStyle = bsNone
          Ctl3D = True
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentBiDiMode = False
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 13
        end
        object handp: TEdit
          Left = 251
          Top = 105
          Width = 121
          Height = 18
          BevelKind = bkFlat
          BiDiMode = bdRightToLeft
          BorderStyle = bsNone
          Ctl3D = True
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentBiDiMode = False
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 10
        end
        object bp: TEdit
          Left = 251
          Top = 21
          Width = 121
          Height = 18
          BevelKind = bkFlat
          BiDiMode = bdRightToLeft
          BorderStyle = bsNone
          Ctl3D = True
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentBiDiMode = False
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 9
        end
        object qq: TEdit
          Left = 251
          Top = 41
          Width = 121
          Height = 18
          BevelKind = bkFlat
          BiDiMode = bdRightToLeft
          BorderStyle = bsNone
          Ctl3D = True
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentBiDiMode = False
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 6
        end
        object email: TEdit
          Left = 251
          Top = 61
          Width = 121
          Height = 18
          BevelKind = bkFlat
          BiDiMode = bdRightToLeft
          BorderStyle = bsNone
          Ctl3D = True
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentBiDiMode = False
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 5
        end
        object address: TEdit
          Left = 251
          Top = 81
          Width = 126
          Height = 18
          BevelKind = bkFlat
          BiDiMode = bdRightToLeft
          BorderStyle = bsNone
          Ctl3D = True
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentBiDiMode = False
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 1
        end
        object ListBox1: TListBox
          Left = 75
          Top = 133
          Width = 305
          Height = 65
          BevelKind = bkFlat
          BorderStyle = bsNone
          ItemHeight = 13
          TabOrder = 0
        end
        object Button1: TButton
          Left = 200
          Top = 216
          Width = 75
          Height = 25
          Caption = #31532' '#19968' '#26465
          TabOrder = 22
          OnClick = Button1Click
        end
        object Button2: TButton
          Left = 200
          Top = 248
          Width = 75
          Height = 25
          Caption = #19978' '#19968' '#26465
          TabOrder = 23
          OnClick = Button2Click
        end
        object Button3: TButton
          Left = 120
          Top = 248
          Width = 75
          Height = 25
          Caption = #19979' '#19968' '#26465
          TabOrder = 24
          OnClick = Button3Click
        end
        object Button4: TButton
          Left = 120