datafrm.dfm

基于Interbase的图书管理系统

object dataForm: TdataForm
  Left = 266
  Top = 140
  Width = 745
  Height = 459
  BorderIcons = []
  Caption = #12310#21151#33021#19982#25968#25454#12311
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 305
    Top = 0
    Width = 4
    Height = 425
    Cursor = crHSplit
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 305
    Height = 425
    Align = alLeft
    Caption = #21151#33021#35774#23450
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clPurple
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 132
      Width = 169
      Height = 16
      AutoSize = False
      Caption = #35774#23450#20511#20070#25968#37327'/'#27599#20154#27425#65306'        '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 16
      Top = 82
      Width = 169
      Height = 16
      AutoSize = False
      Caption = #35774#23450#40664#35748#20511#20070#20511#26399'('#22825')'#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 = 16
      Top = 183
      Width = 177
      Height = 16
      AutoSize = False
      Caption = #36807#26399#25187#28857#19968#33324#24773#20917'/'#22825#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 = 233
      Width = 161
      Height = 16
      AutoSize = False
      Caption = #36807#26399#25187#28857#29305#27530#24773#20917'/'#22825#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 = 283
      Width = 150
      Height = 16
      AutoSize = False
      Caption = #35774#23450#35835#32773#24320#22987#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 Label15: TLabel
      Left = 16
      Top = 334
      Width = 138
      Height = 16
      AutoSize = False
      Caption = #35774#23450#22791#20221#25552#31034#26102#38388#65306'          '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object BBOK: TBitBtn
      Left = 30
      Top = 380
      Width = 75
      Height = 25
      Cursor = crHandPoint
      Caption = #30830#35748
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      OnClick = BBOKClick
    end
    object BBcancel: TBitBtn
      Left = 114
      Top = 380
      Width = 75
      Height = 25
      Cursor = crHandPoint
      Caption = #21462#28040
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      OnClick = BBcancelClick
    end
    object Ed1: TEdit
      Left = 180
      Top = 127
      Width = 97
      Height = 24
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      Text = 'Ed1'
      OnKeyPress = Ed1KeyPress
    end
    object Ed2: TEdit
      Left = 180
      Top = 77
      Width = 97
      Height = 24
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
      Text = 'Ed2'
      OnKeyPress = Ed1KeyPress
    end
    object Ed3: TEdit
      Left = 180
      Top = 177
      Width = 97
      Height = 24
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 4
      Text = 'Ed3'
      OnKeyPress = Ed1KeyPress
    end
    object Ed4: TEdit
      Left = 180
      Top = 227
      Width = 97
      Height = 24
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 5
      Text = 'Ed4'
      OnKeyPress = Ed1KeyPress
    end
    object Ed5: TEdit
      Left = 180
      Top = 277
      Width = 97
      Height = 24
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 6
      Text = 'Ed5'
      OnKeyPress = Ed1KeyPress
    end
    object BBclose01: TBitBtn
      Left = 198
      Top = 380
      Width = 75
      Height = 25
      Cursor = crHandPoint
      Caption = #36820#22238
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 7
      OnClick = BBclose01Click
    end
    object MEd6: TMaskEdit
      Left = 183
      Top = 328
      Width = 94
      Height = 24
      EditMask = '!90:00:00;1;'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      MaxLength = 8
      ParentFont = False
      TabOrder = 8
      Text = '23:00:00'
    end
    object CBborrowday: TCheckBox
      Left = 16
      Top = 40
      Width = 257
      Height = 17
      Caption = #20351#29992#40664#35748#35774#23450#30340#20511#20070#20511#26399'    '
      Checked = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      State = cbChecked
      TabOrder = 9
    end
  end
  object GroupBox2: TGroupBox
    Left = 309
    Top = 0
    Width = 428
    Height = 425
    Align = alClient
    Caption = #25968#25454#35774#23450
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clPurple
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    object BBclose02: TBitBtn
      Left = 318
      Top = 381
      Width = 75
      Height = 25
      Cursor = crHandPoint
      Caption = #36820#22238
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      OnClick = BBclose01Click
    end
    object BBdown: TBitBtn
      Left = 224
      Top = 381
      Width = 75
      Height = 25
      Cursor = crHandPoint
      Caption = #19979#19968#27493
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      OnClick = BBdownClick
    end
    object BBup: TBitBtn
      Left = 132
      Top = 381
      Width = 75
      Height = 25
      Cursor = crHandPoint
      Caption = #19978#19968#27493
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      OnClick = BBupClick
    end
    object BBstart: TBitBtn
      Left = 24
      Top = 381