bookeditfrm.dfm

基于Interbase的图书管理系统

inherited BookEditForm: TBookEditForm
  Left = 231
  Top = 123
  Width = 740
  Height = 503
  Caption = #12310#20070#24211#32500#25252#12311
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited Bevel1: TBevel
    Width = 732
  end
  inherited Buttonpanel: TPanel
    Width = 732
    inherited BBdelete: TBitBtn
      OnClick = BBdeleteClick
    end
    inherited BBfirst: TBitBtn
      OnClick = BBfirstClick
    end
    inherited BBprior: TBitBtn
      OnClick = BBpriorClick
    end
    inherited BBClose: TBitBtn
      Left = 583
    end
    inherited BBsearch: TBitBtn
      OnClick = BBsearchClick
    end
    inherited BBcancel: TBitBtn
      Left = 524
    end
    inherited BBnext: TBitBtn
      OnClick = BBnextClick
    end
    inherited BBlast: TBitBtn
      Left = 466
      OnClick = BBlastClick
    end
    inherited pnlState: TPanel
      Left = 655
    end
  end
  inherited Pnlcompontparent: TPanel
    Width = 732
    Height = 180
    Align = alTop
    Font.Color = clNavy
    Font.Height = -13
    Font.Style = [fsBold]
    object Label1: TLabel
      Left = 24
      Top = 24
      Width = 42
      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 Label2: TLabel
      Left = 232
      Top = 16
      Width = 45
      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 Label3: TLabel
      Left = 24
      Top = 64
      Width = 42
      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 Label4: TLabel
      Left = 24
      Top = 104
      Width = 45
      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 Label5: TLabel
      Left = 224
      Top = 64
      Width = 54
      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 Label6: TLabel
      Left = 216
      Top = 104
      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 Label7: TLabel
      Left = 216
      Top = 144
      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 Label8: TLabel
      Left = 6
      Top = 144
      Width = 73
      Height = 16
      AutoSize = False
      Caption = #20837#24211#25968#37327#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 = 528
      Top = 16
      Width = 45
      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 DBEdit1: TDBEdit
      Left = 80
      Top = 16
      Width = 121
      Height = 21
      Color = clInfoBk
      DataField = 'BOOK_ID'
      DataSource = DMbook.DSbook
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnKeyPress = DBEdit1KeyPress
    end
    object DBEdit2: TDBEdit
      Left = 80
      Top = 56
      Width = 121
      Height = 21
      Color = clInfoBk
      DataField = 'BOOK_PENSTER'
      DataSource = DMbook.DSbook
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnKeyPress = DBEdit5KeyPress
    end
    object DBEdit3: TDBEdit
      Left = 80
      Top = 96
      Width = 121
      Height = 21
      Color = clInfoBk
      DataField = 'BOOK_PRICE'
      DataSource = DMbook.DSbook
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnExit = DBEdit3Exit
      OnKeyPress = DBEdit3KeyPress
    end
    object DBEdit4: TDBEdit
      Left = 80
      Top = 136
      Width = 121
      Height = 21
      Color = clInfoBk
      DataField = 'BOOK_NUMBER'
      DataSource = DMbook.DSbook
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      OnExit = DBEdit4Exit
      OnKeyPress = DBEdit4KeyPress
    end
    object DBEdit5: TDBEdit
      Left = 288
      Top = 16
      Width = 225
      Height = 21
      Color = clInfoBk
      DataField = 'BOOK_NAME'
      DataSource = DMbook.DSbook
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      OnKeyPress = DBEdit5KeyPress
    end
    object DBEdit6: TDBEdit
      Left = 288
      Top = 56
      Width = 225
      Height = 21
      Color = clInfoBk
      DataField = 'BOOK_PUBLISH'
      DataSource = DMbook.DSbook
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 5
      OnKeyPress = DBEdit5KeyPress
    end
    object DBMemo1: TDBMemo
      Left = 568
      Top = 16
      Width = 201
      Height = 145
      Color = clInfoBk
      DataField = 'BOOK_REMARK'
      DataSource = DMbook.DSbook
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 6
    end
    object DBEdit7: TDBEdit
      Left = 288
      Top = 96
      Width = 121
      Height = 21
      Color = clInfoBk
      DataField = 'BOOK_PUBDATE'
      DataSource = DMbook.DSbook
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 7
      OnExit = DBEdit7Exit
      OnKeyPress = DBEdit3KeyPress
    end
    object DBEdit8: TDBEdit
      Left = 288
      Top = 136
      Width = 121
      Height = 21
      Color = clInfoBk
      DataField = 'BOOK_DATE'
      DataSource = DMbook.DSbook
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 8
      OnExit = DBEdit8Exit
      OnKeyPress = DBEdit3KeyPress
    end
    object DBEdit9: TDBEdit
      Left = 424
      Top = 96
      Width = 121
      Height = 21
      DataField = 'BOOK_RESIDE'
      DataSource = DMbook.DSbook
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 9
      Visible = False
    end
  end
  object DBGbook: TDBGrid [4]
    Left = 0
    Top = 241
    Width = 732
    Height = 228
    Align = alClient
    Color = clCream
    DataSource = DMbook.DSbook
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgConfirmDelete, dgCancelOnExit]
    ParentFont = False
    ReadOnly = True
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clBlue
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'BOOK_ID'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Title.Caption = '  '#20070'  '#21495
        Title.Color = clGrayText
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clBlue
        Title.Font.Height = -13
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = [fsBold]
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'BOOK_NAME'
        Title.Caption = '   '#20070'     '#21517
        Title.Color = clGrayText
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clBlue
        Title.Font.Height = -13
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = [fsBold]
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'BOOK_PENSTER'
        Title.Caption = ' '#20316'  '#32773
        Title.Color = clGrayText
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clBlue
        Title.Font.Height = -13
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = [fsBold]
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'BOOK_PUBLISH'
        Title.Caption = ' '#20986'  '#29256'  '#31038
        Title.Color = clGrayText
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clBlue
        Title.Font.Height = -13
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = [fsBold]
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'BOOK_PUBDATE'
        Title.Caption = #20986#29256#26085#26399
        Title.Color = clGrayText
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clBlue
        Title.Font.Height = -13
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = [fsBold]
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'BOOK_PRICE'
        Title.Caption = '    '#20070'   '#20215
        Title.Color = clGrayText
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clBlue
        Title.Font.Height = -13
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = [fsBold]
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'BOOK_NUMBER'
        Title.Caption = #20837#24211#25968#37327
        Title.Color = clGrayText
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clBlue
        Title.Font.Height = -13
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = [fsBold]
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'BOOK_DATE'
        Title.Caption = #20837#24211#26085#26399' '
        Title.Color = clGrayText
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clBlue
        Title.Font.Height = -13
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = [fsBold]
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'BOOK_RESIDE'
        Title.Caption = #26410#20511#20986#25968#37327
        Title.Color = clGrayText
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clBlue
        Title.Font.Height = -13
        Title.Font.Name = 'MS Sans Serif'
        Title.Font.Style = [fsBold]
        Visible = True
      end>
  end
end