readeridfrm.~dfm

基于Interbase的图书管理系统

inherited ReaderidForm: TReaderidForm
  Left = 204
  Top = 155
  Width = 666
  Height = 426
  Caption = #12310#21150#29702#20511#20070#35777#12311
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  inherited Buttonpanel: TPanel
    inherited BBtnID: TBitBtn
      OnClick = BBtnIDClick
    end
    inherited BBtnPrint: TBitBtn
      OnClick = BBtnPrintClick
    end
    inherited BBtnCancel: TBitBtn
      OnClick = BBtnCancelClick
    end
  end
  inherited Pnlcompontparent: TPanel
    Height = 311
    object Splitter1: TSplitter
      Left = 193
      Top = 0
      Width = 4
      Height = 311
      Cursor = crHSplit
    end
    object GroupBox1: TGroupBox
      Left = 0
      Top = 0
      Width = 193
      Height = 311
      Align = alLeft
      Caption = #20135#29983#20511#20070#35777#21495#30721#26694
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clPurple
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      object Label1: TLabel
        Left = 16
        Top = 40
        Width = 36
        Height = 16
        AutoSize = False
        Caption = #24037#21495#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label7: TLabel
        Left = 16
        Top = 104
        Width = 73
        Height = 16
        AutoSize = False
        Caption = #27969#27700#21495#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object EdreaderNo: TEdit
        Left = 40
        Top = 64
        Width = 121
        Height = 21
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        MaxLength = 6
        ParentFont = False
        TabOrder = 0
        OnKeyPress = EdNoKeyPress
      end
      object BtBliveID: TBitBtn
        Left = 48
        Top = 200
        Width = 75
        Height = 25
        Cursor = crHandPoint
        Caption = #20135#29983#35777#21495
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGreen
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
        OnClick = BtBliveIDClick
      end
      object EdNo: TEdit
        Left = 40
        Top = 136
        Width = 121
        Height = 21
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        MaxLength = 14
        ParentFont = False
        TabOrder = 2
        OnEnter = EdNoEnter
        OnKeyPress = EdNoKeyPress
      end
      object BtBcancel: TBitBtn
        Left = 48
        Top = 248
        Width = 75
        Height = 25
        Cursor = crHandPoint
        Caption = #21462#28040
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGreen
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 3
        OnClick = BtBcancelClick
      end
    end
    object GroupBox2: TGroupBox
      Left = 197
      Top = 0
      Width = 519
      Height = 311
      Align = alClient
      Caption = #35835#32773#20449#24687#30331#35760#26694
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clPurple
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      object Label2: TLabel
        Left = 24
        Top = 53
        Width = 73
        Height = 16
        AutoSize = False
        Caption = #20511#20070#35777#21495#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label3: TLabel
        Left = 40
        Top = 142
        Width = 36
        Height = 16
        AutoSize = False
        Caption = #22995#21517#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label4: TLabel
        Left = 40
        Top = 188
        Width = 36
        Height = 16
        AutoSize = False
        Caption = #21333#20301#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label5: TLabel
        Left = 24
        Top = 237
        Width = 73
        Height = 16
        AutoSize = False
        Caption = #21150#35777#26085#26399#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label6: TLabel
        Left = 272
        Top = 32
        Width = 36
        Height = 16
        AutoSize = False
        Caption = #29031#29255#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label8: TLabel
        Left = 40
        Top = 98
        Width = 36
        Height = 16
        AutoSize = False
        Caption = #24037#21495#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object EdReaderid: TEdit
        Left = 104
        Top = 48
        Width = 121
        Height = 21
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        MaxLength = 14
        ParentFont = False
        TabOrder = 0
        OnExit = EdReaderidExit
        OnKeyPress = EdNoKeyPress
      end
      object Edname: TEdit
        Left = 104
        Top = 133
        Width = 121
        Height = 21
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        MaxLength = 10
        ParentFont = False
        TabOrder = 1
        OnKeyPress = EdnameKeyPress
      end
      object Eddept: TEdit
        Left = 104
        Top = 179
        Width = 121
        Height = 21
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        MaxLength = 30
        ParentFont = False
        TabOrder = 2
        OnKeyPress = EdnameKeyPress
      end
      object BtBclear: TBitBtn
        Left = 424
        Top = 232
        Width = 75
        Height = 25
        Cursor = crHandPoint
        Caption = #28165#38500#29031#29255
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGreen
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 3
        OnClick = BtBclearClick
      end
      object BtBimgload: TBitBtn
        Left = 304
        Top = 232
        Width = 75
        Height = 25
        Cursor = crHandPoint
        Caption = #36733#20837#29031#29255
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGreen
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 4
        OnClick = BtBimgloadClick
      end
      object DTPdate: TDateTimePicker
        Left = 104
        Top = 228
        Width = 121
        Height = 21
        Cursor = crHandPoint