booktypefrm.dfm

基于Interbase的图书管理系统

inherited BooktypeForm: TBooktypeForm
  Left = 176
  Top = 133
  Width = 814
  Height = 478
  Caption = #12310#26032#22686#20070#31867#12311
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  inherited SBcommbtn: TSpeedButton
    OnClick = SBcommbtnClick
  end
  inherited Bevel1: TBevel
    Top = 63
    Width = 806
  end
  inherited Buttonpanel: TPanel
    Width = 806
    Height = 63
    inherited BBtnPrint: TBitBtn
      OnClick = BBtnPrintClick
    end
    inherited BBtnCancel: TBitBtn
      OnClick = BBtnCancelClick
    end
  end
  inherited Pnlcompontparent: TPanel
    Top = 65
    Width = 806
    Height = 379
    object Splitter1: TSplitter
      Left = 369
      Top = 0
      Width = 4
      Height = 379
      Cursor = crHSplit
    end
    object GroupBox1: TGroupBox
      Left = 0
      Top = 0
      Width = 369
      Height = 379
      Align = alLeft
      Caption = #22270#20070#22823#31867#32534#36753#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 = 121
        Height = 16
        AutoSize = False
        Caption = #24050#26377#30340#22823#31867#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 = 200
        Top = 48
        Width = 113
        Height = 16
        AutoSize = False
        Caption = #26032#22686#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 Label3: TLabel
        Left = 200
        Top = 131
        Width = 129
        Height = 16
        AutoSize = False
        Caption = #26032#22686#22823#31867#30340#21517#31216#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object LBbigtype: TListBox
        Left = 16
        Top = 72
        Width = 145
        Height = 265
        Cursor = crHandPoint
        Style = lbOwnerDrawFixed
        Color = clInfoBk
        Ctl3D = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ItemHeight = 20
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 0
      end
      object edBigtypename: TEdit
        Left = 208
        Top = 168
        Width = 121
        Height = 28
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        MaxLength = 20
        ParentFont = False
        TabOrder = 1
        OnKeyPress = edBigtypenameKeyPress
      end
      object BtBAddbigtype: TBitBtn
        Left = 208
        Top = 217
        Width = 75
        Height = 25
        Cursor = crHandPoint
        Caption = #26032#22686
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGreen
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 2
        OnClick = BtBAddbigtypeClick
      end
      object BtBbigcancel: TBitBtn
        Left = 208
        Top = 263
        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 = BtBbigcancelClick
      end
      object BtBdelBigtype: TBitBtn
        Left = 208
        Top = 309
        Width = 75
        Height = 25
        Cursor = crHandPoint
        Caption = #21024#38500
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGreen
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 4
        OnClick = BtBdelBigtypeClick
      end
      object CBbigtype: TComboBox
        Left = 208
        Top = 85
        Width = 121
        Height = 28
        Cursor = crHandPoint
        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 = 5
        Items.Strings = (
          'A'
          'B'
          'C'
          'D'
          'E'
          'F'
          'G'
          'H'
          'I'
          'J'
          'K'
          'L'
          'M'
          'N'
          'O'
          'P'
          'Q'
          'R'
          'S'
          'T'
          'U'
          'V'
          'W'
          'X'
          'Y'
          'Z')
      end
    end
    object GroupBox2: TGroupBox
      Left = 373
      Top = 0
      Width = 433
      Height = 379
      Align = alClient
      Caption = #22270#20070#23567#31867#32534#36753#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 = 37
        Width = 129
        Height = 16
        AutoSize = False
        Caption = #36873#25321#22823#31867#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 = 115
        Width = 209
        Height = 16
        AutoSize = False
        Caption = #25152#36873#22823#31867#20013#24050#23384#22312#30340#23567#31867#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 = 240
        Top = 38
        Width = 145
        Height = 16
        AutoSize = False
        Caption = #26032#22686#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 Label7: TLabel
        Left = 240
        Top = 114
        Width = 145
        Height = 16
        AutoSize = False
        Caption = #26032#22686#23567#31867#30340#21517#31216#65306
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object CBbigtypelist: TComboBox
        Left = 32
        Top = 72
        Width = 193
        Height = 24
        Cursor = crHandPoint
        Style = csDropDownList
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ItemHeight = 16
        ParentFont = False
        TabOrder = 0
        OnChange = CBbigtypelistChange
      end
      object LBsmalltype: TListBox
        Left = 32
        Top = 150
        Width = 193
        Height = 187
        Cursor = crHandPoint
        Style = lbOwnerDrawFixed
        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 = 1
      end
      object Edsmalltype: TEdit
        Left = 252
        Top = 71
        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 = 2
        OnKeyPress = EdsmalltypeKeyPress
      end
      object Edsmalltypename: TEdit
        Left = 255
        Top = 149
        Width = 121
        Height = 28
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        MaxLength = 20
        ParentFont = False
        TabOrder = 3
        OnKeyPress = EdsmalltypenameKeyPress
      end
      object BtBaddSmalltype: TBitBtn
        Left = 258
        Top = 205
        Width = 75
        Height = 25
        Cursor = crHandPoint
        Caption = #26032#22686
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGreen
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 4
        OnClick = BtBaddSmalltypeClick
      end
      object BtBsmallcancel: TBitBtn
        Left = 258
        Top = 256
        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 = 5
        OnClick = BtBsmallcancelClick
      end
      object BtBdelsmalltype: TBitBtn
        Left = 259
        Top = 307
        Width = 75
        Height = 25
        Cursor = crHandPoint
        Caption = #21024#38500
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGreen
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 6
        OnClick = BtBdelsmalltypeClick
      end
    end
  end
end