borrowfrm.~dfm

基于Interbase的图书管理系统

inherited BorrowForm: TBorrowForm
  Left = 193
  Top = 114
  Width = 800
  Height = 471
  Caption = #12310#20973#35777#20511#20070#12311
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited Bevel1: TBevel
    Width = 792
  end
  inherited Buttonpanel: TPanel
    Width = 792
    inherited BBtnBorrow: TBitBtn
      OnClick = BBtnBorrowClick
    end
    inherited BBtnPrint: TBitBtn
      OnClick = BBtnPrintClick
    end
    inherited BBtnCancel: TBitBtn
      OnClick = BBtnCancelClick
    end
  end
  inherited Pnlcompontparent: TPanel
    Width = 792
    Height = 373
    object Splitter1: TSplitter
      Left = 401
      Top = 0
      Width = 4
      Height = 373
      Cursor = crHSplit
    end
    object GroupBox1: TGroupBox
      Left = 0
      Top = 0
      Width = 401
      Height = 373
      Align = alLeft
      Caption = #35835#32773#20449#24687#21345
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clPurple
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      object Panel1: TPanel
        Left = 16
        Top = 24
        Width = 369
        Height = 73
        BevelInner = bvLowered
        BevelOuter = bvLowered
        Caption = 'Panel1'
        TabOrder = 0
        object Label1: TLabel
          Left = 16
          Top = 32
          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 Edreaderid: TEdit
          Left = 96
          Top = 24
          Width = 121
          Height = 28
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -16
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          MaxLength = 14
          ParentFont = False
          TabOrder = 0
          OnKeyPress = EdreaderidKeyPress
        end
        object BtBreader: TBitBtn
          Left = 256
          Top = 24
          Width = 75
          Height = 25
          Cursor = crHandPoint
          Caption = #30830#35748
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clGreen
          Font.Height = -16
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 1
          OnClick = BtBreaderClick
        end
      end
      object GroupBox3: TGroupBox
        Left = 16
        Top = 112
        Width = 185
        Height = 241
        Caption = #35835#32773#20449#24687
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clTeal
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
        object Label3: TLabel
          Left = 16
          Top = 48
          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 Label4: TLabel
          Left = 16
          Top = 88
          Width = 36
          Height = 16
          AutoSize = False
          Caption = #35777#21495#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 = 16
          Top = 165
          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 Label6: TLabel
          Left = 8
          Top = 209
          Width = 73
          Height = 16
          AutoSize = False
          Caption = #21150#35777#26085#26399#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label13: TLabel
          Left = 16
          Top = 123
          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 DBE1: TDBEdit
          Left = 72
          Top = 40
          Width = 105
          Height = 22
          Cursor = crNo
          AutoSelect = False
          Color = clInfoBk
          Ctl3D = False
          DataField = 'READER_NO'
          DataSource = DMbook.DSreader
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentCtl3D = False
          ParentFont = False
          ReadOnly = True
          TabOrder = 0
        end
        object DBE2: TDBEdit
          Left = 72
          Top = 79
          Width = 105
          Height = 22
          Cursor = crNo
          AutoSelect = False
          Color = clInfoBk
          Ctl3D = False
          DataField = 'READER_ID'
          DataSource = DMbook.DSreader
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentCtl3D = False
          ParentFont = False
          ReadOnly = True
          TabOrder = 1
        end
        object DBE3: TDBEdit
          Left = 72
          Top = 121
          Width = 105
          Height = 22
          Cursor = crNo
          AutoSelect = False
          Color = clInfoBk
          Ctl3D = False
          DataField = 'READER_NAME'
          DataSource = DMbook.DSreader
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentCtl3D = False
          ParentFont = False
          ReadOnly = True
          TabOrder = 2
        end
        object DBE4: TDBEdit
          Left = 72
          Top = 161
          Width = 105
          Height = 22
          Cursor = crNo
          AutoSelect = False
          Color = clInfoBk
          Ctl3D = False
          DataField = 'READER_DEPT'
          DataSource = DMbook.DSreader
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentCtl3D = False
          ParentFont = False
          ReadOnly = True
          TabOrder = 3
        end
        object DBE5: TDBEdit
          Left = 72
          Top = 202
          Width = 105
          Height = 19
          Cursor = crNo
          AutoSelect = False
          Color = clInfoBk
          Ctl3D = False
          DataField = 'READER_DODATE'
          DataSource = DMbook.DSreader
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentCtl3D = False
          ParentFont = False
          ReadOnly = True
          TabOrder = 4
        end
      end
      object GroupBox4: TGroupBox
        Left = 208
        Top = 112
        Width = 177
        Height = 241
        Caption = #24050#20511#26377#30340#20070
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clTeal
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 2
        object Label22: TLabel
          Left = 8
          Top = 27
          Width = 54
          Height = 16
          AutoSize = False
          Caption = '  '#20070#21495'        '
          Color = clInfoBk
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentColor = False
          ParentFont = False
        end
        object Label23: TLabel
          Left = 80
          Top = 27
          Width = 57
          Height = 16
          AutoSize = False
          Caption = #20070#21517'           '
          Color = clInfoBk
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentColor = False
          ParentFont = False
        end
        object LBbook: TListBox
          Left = 8
          Top = 48
          Width = 161
          Height = 185
          Cursor = crIBeam
          Color = clInfoBk
          Ctl3D = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -16
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ItemHeight = 20
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 0
        end
      end
    end
    object GroupBox2: TGroupBox
      Left = 405
      Top = 0
      Width = 387
      Height = 373
      Align = alClient