bookidfrm.~dfm

基于Interbase的图书管理系统

inherited bookidForm: TbookidForm
  Left = 168
  Top = 91
  Height = 462
  Caption = #12310#22270#20070#32534#21495#12311
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited Bevel1: TBevel
    Top = 64
  end
  inherited Buttonpanel: TPanel
    Height = 64
    inherited BBtnID: TBitBtn
      OnClick = BBtnIDClick
    end
    inherited BBtnPrint: TBitBtn
      OnClick = BBtnPrintClick
    end
    inherited BBtnCancel: TBitBtn
      OnClick = BBtnCancelClick
    end
  end
  inherited Pnlcompontparent: TPanel
    Top = 66
    Height = 362
    object Splitter1: TSplitter
      Left = 289
      Top = 0
      Width = 4
      Height = 362
      Cursor = crHSplit
    end
    object GroupBox1: TGroupBox
      Left = 0
      Top = 0
      Width = 289
      Height = 362
      Align = alLeft
      Caption = #22270#20070#32534#21495#20135#29983#26694
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clPurple
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      object BtBbookid: TBitBtn
        Left = 168
        Top = 328
        Width = 83
        Height = 25
        Cursor = crHandPoint
        Caption = #20135#29983#20070#21495
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGreen
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
        OnClick = BtBbookidClick
      end
      object BtBcancel: TBitBtn
        Left = 48
        Top = 328
        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 = 1
        OnClick = BtBcancelClick
      end
      object GroupBox3: TGroupBox
        Left = 16
        Top = 32
        Width = 257
        Height = 129
        Caption = #36873#25321#22823#31867
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clMaroon
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 2
        object Label1: TLabel
          Left = 16
          Top = 40
          Width = 81
          Height = 16
          AutoSize = False
          Caption = #22823#31867#32534#21495#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 = 80
          Width = 73
          Height = 16
          AutoSize = False
          Caption = #22823#31867#31867#21517#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object LBbig: TLabel
          Left = 104
          Top = 80
          Width = 6
          Height = 20
          Color = clInfoBk
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -16
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentColor = False
          ParentFont = False
        end
        object CBbig: TComboBox
          Left = 104
          Top = 32
          Width = 121
          Height = 28
          Style = csDropDownList
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -16
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ItemHeight = 20
          ParentFont = False
          TabOrder = 0
          OnChange = CBbigChange
          OnKeyPress = CBbigKeyPress
        end
      end
      object GroupBox4: TGroupBox
        Left = 16
        Top = 168
        Width = 257
        Height = 153
        Caption = #36873#25321#23567#31867
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clMaroon
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 3
        object Label3: TLabel
          Left = 16
          Top = 32
          Width = 81
          Height = 16
          AutoSize = False
          Caption = #23567#31867#32534#21495#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label12: TLabel
          Left = 16
          Top = 72
          Width = 81
          Height = 16
          AutoSize = False
          Caption = #23567#31867#31867#21517#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object LBsmall: TLabel
          Left = 104
          Top = 72
          Width = 6
          Height = 20
          Color = clInfoBk
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -16
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentColor = False
          ParentFont = False
        end
        object Label13: TLabel
          Left = 8
          Top = 112
          Width = 89
          Height = 16
          AutoSize = False
          Caption = #23567#31867#20070#32534#21495#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object CBsmall: TComboBox
          Left = 104
          Top = 24
          Width = 121
          Height = 28
          Style = csDropDownList
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -16
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ItemHeight = 20
          ParentFont = False
          TabOrder = 0
          OnChange = CBsmallChange
          OnKeyPress = CBsmallKeyPress
        end
        object EdNo: TEdit
          Left = 104
          Top = 104
          Width = 121
          Height = 28
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -16
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          MaxLength = 3
          ParentFont = False
          TabOrder = 1
          OnKeyPress = EdNoKeyPress
        end
      end
    end
    object GroupBox2: TGroupBox
      Left = 293
      Top = 0
      Width = 488
      Height = 362
      Align = alClient
      Caption = #22270#20070#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 Label4: TLabel
        Left = 24
        Top = 40
        Width = 36
        Height = 16
        AutoSize = False
        Caption = #20070#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 = 24
        Top = 72
        Width = 36
        Height = 16
        AutoSize = False
        Caption = #20070#21517#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 = 24
        Top = 112
        Width = 36
        Height = 16
        AutoSize = False
        Caption = #20316#32773#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 = 264
        Top = 112
        Width = 36
        Height = 16
        AutoSize = False
        Caption = #20070#20215#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 = 24
        Top = 144
        Width = 65
        Height = 16
        AutoSize = False
        Caption = #20986#29256#31038#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label9: TLabel
        Left = 24
        Top = 184
        Width = 36
        Height = 16
        AutoSize = False
        Caption = #25968#37327#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label10: TLabel
        Left = 264
        Top = 32
        Width = 73
        Height = 16
        AutoSize = False
        Caption = #20837#24211#26085#26399#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label11: TLabel
        Left = 24
        Top = 240
        Width = 36
        Height = 16
        AutoSize = False
        Caption = #22791#27880#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label14: TLabel
        Left = 264
        Top = 192
        Width = 73
        Height = 16
        AutoSize = False
        Caption = #20986#29256#26085#26399#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Edbookid: TEdit
        Left = 96
        Top = 32
        Width = 121
        Height = 28
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        MaxLength = 8
        ParentFont = False
        TabOrder = 0
        OnExit = EdbookidExit
        OnKeyPress = EdbookidKeyPress
      end
      object Edbookname: TEdit
        Left = 96
        Top = 64
        Width = 369
        Height = 28
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        MaxLength = 25
        ParentFont = False
        TabOrder = 1
        OnKeyPress = EdbooknameKeyPress
      end
      object Edpenster: TEdit
        Left = 96
        Top = 104
        Width = 121
        Height = 28
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        MaxLength = 10
        ParentFont = False
        TabOrder = 2
        OnKeyPress = EdpensterKeyPress
      end
      object Edprice: TEdit
        Left = 328
        Top = 104
        Width = 113
        Height = 28
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 3
        OnKeyPress = EdpriceKeyPress
      end
      object Edpublish: TEdit
        Left = 96
        Top = 136
        Width = 369
        Height = 28
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        MaxLength = 25
        ParentFont = False
        TabOrder = 4
        OnKeyPress = EdpublishKeyPress
      end
      object Ednumber: TEdit
        Left = 96
        Top = 184
        Width = 121
        Height = 28
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 5
        OnKeyPress = EdnumberKeyPress
      end
      object DTPdate: TDateTimePicker
        Left = 344
        Top = 24
        Width = 121
        Height = 28
        Cursor = crHandPoint
        CalAlignment = dtaLeft
        Date = 37212.3148323032
        Time = 37212.3148323032
        DateFormat = dfShort
        DateMode = dmComboBox
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        Kind = dtkDate
        ParseInput = False
        ParentFont = False
        TabOrder = 6
      end
      object Mremark: TMemo
        Left = 96
        Top = 240
        Width = 369
        Height = 105
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        Lines.Strings = (
          '')
        ParentFont = False
        TabOrder = 7
      end
      object Edit1: TEdit
        Left = 440
        Top = 104
        Width = 24
        Height = 28
        Color = clScrollBar
        ReadOnly = True
        TabOrder = 8
        Text = '$'
      end
      object DTPpublishdate: TDateTimePicker
        Left = 344
        Top = 184
        Width = 121
        Height = 28
        Cursor = crHandPoint
        CalAlignment = dtaLeft
        Date = 37212.3148323032
        Time = 37212.3148323032
        DateFormat = dfShort
        DateMode = dmComboBox
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        Kind = dtkDate
        ParseInput = False
        ParentFont = False
        TabOrder = 9
        OnKeyPress = DTPpublishdateKeyPress
      end
    end
  end
end