book_add.~dfm

图书管理系统本地数据库实现

object Form4: TForm4
  Left = 239
  Top = 139
  BorderStyle = bsDialog
  Caption = '新增图书'
  ClientHeight = 421
  ClientWidth = 636
  Color = clActiveCaption
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010002002020100000000000E80200002600000010101000000000002801
    00000E0300002800000020000000400000000100040000000000800200000000
    0000000000000000000000000000000000000000800000800000008080008000
    00008000800080800000C0C0C000808080000000FF0000FF000000FFFF00FF00
    0000FF00FF00FFFF0000FFFFFF00000008000800000000000000000000000000
    007F70000800000000000000000000000007F7F7F00008000000000000000000
    00E07F7F7F7F7000080000000000000000CE0000F7F7F7F7F000000000000000
    80ECFEE800007F7F7F7F0E00000000000ECEFEEEEEE80000F7F7F00000000000
    0CECFEEEEEEEEEE800007F00000000000ECEFEEEEEEEEEEEEEE8000000000000
    0CECFEEEEEEEEEEEEEEEEEE0000000000ECFEEEEEEEEEEEEEEEEEEE000000000
    0CEFEEEEEEEEEEEEEEEEEEE0000000080ECFEEEEEEEEEEEEEEEEEEE000000000
    ECEFEEEEEEEEEEEEEEEEEEE000000000CECFEEEEEEEEEEEEEEEEEE0800000000
    ECEFEEEEEEEEEEEEEEEEEE0000000000CEFEEEEEEEEEEEEEEEEEEE0000000000
    ECFEEEEEEEEEEEEEEEEEEE0000000000CEFEEE4444EEEEEEEEEEEE0000000000
    ECFEEE44444444EEEEEEEE0000000080CEFEEE444444444444EEE0800000000C
    ECFEEE444444444444EEE0000000000ECEFEEE444444444444EEE0000000000C
    EFEEEEEEEE44444444EEE0990000000ECFEEEEEEEEEEEE4444EEE09900000000
    EFEEEEEEEEEEEEEEEEEEE090800000000FFFFEEEEEEEEEEEEEEE089000000000
    00000FFFFEEEEEEEEEEE099000000000000080000FFFFEEEEEEE000000000000
    0000000080000FFFFEEE00000000000000000000000080000FFF000000000000
    0000000000000000800000000000F83FFFFFF803FFFFF8003FFFF80003FFF800
    001FF000001FF000001FF000001FF000000FF000000FF000000FF000000FE000
    000FE000000FE000000FE000001FE000001FE000001FE000001FE000001FC000
    001FC000003FC0000007C0000007C0000007E0000007F000000FF800000FFF00
    000FFFF0007FFFFF007FFFFFF07F280000001000000020000000010004000000
    0000C00000000000000000000000000000000000000000000000000080000080
    000000808000800000008000800080800000C0C0C000808080000000FF0000FF
    000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0000000008000000000000
    F7F000080000000E0007F7F00000080CFEE00007F080000EFEEEEEE0000000EC
    FEEEEEEEEE0080CEFEEEEEEEEE0000EFEEEEEEEEE0800ECFEEEEEEEEE0000CEF
    E44CEEEEE0000EFEE444444E08000CFEE444444E000080FFEEEEC44E09000800
    FFFFEEE0908000080000FFF000000000000800000000C0FF0000C00F0000C003
    0000800100008001000080010000000100000001000000030000000300000003
    0000000100000001000080010000E0030000FE0F0000}
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 16
    Top = 16
    Width = 63
    Height = 14
    Caption = '图书编号: '
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '华文新魏'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 328
    Top = 16
    Width = 35
    Height = 14
    Caption = '书名: '
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '华文新魏'
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 16
    Top = 40
    Width = 63
    Height = 14
    Caption = '图书类别: '
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '华文新魏'
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 328
    Top = 48
    Width = 35
    Height = 14
    Caption = '册数: '
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '华文新魏'
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel
    Left = 24
    Top = 80
    Width = 35
    Height = 14
    Caption = '作者: '
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '华文新魏'
    Font.Style = []
    ParentFont = False
  end
  object Label6: TLabel
    Left = 24
    Top = 112
    Width = 35
    Height = 14
    Caption = '语言: '
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '华文新魏'
    Font.Style = []
    ParentFont = False
  end
  object Label7: TLabel
    Left = 24
    Top = 184
    Width = 49
    Height = 14
    Caption = '关键词: '
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '华文新魏'
    Font.Style = []
    ParentFont = False
  end
  object Label8: TLabel
    Left = 208
    Top = 120
    Width = 63
    Height = 14
    Caption = '出版年份: '
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '华文新魏'
    Font.Style = []
    ParentFont = False
  end
  object Label9: TLabel
    Left = 16
    Top = 136
    Width = 63
    Height = 14
    Caption = '出版月份: '
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '华文新魏'
    Font.Style = []
    ParentFont = False
  end
  object Label10: TLabel
    Left = 208
    Top = 144
    Width = 63
    Height = 14
    Caption = '入馆日期: '
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '华文新魏'
    Font.Style = []
    ParentFont = False
  end
  object Label11: TLabel
    Left = 32
    Top = 216
    Width = 35
    Height = 14
    Caption = '书号: '
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '华文新魏'
    Font.Style = []
    ParentFont = False
  end
  object Label12: TLabel
    Left = 32
    Top = 240
    Width = 28
    Height = 14
    Caption = '备注'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '华文新魏'
    Font.Style = []
    ParentFont = False
  end
  object Label13: TLabel
    Left = 16
    Top = 344
    Width = 56
    Height = 14
    Caption = '借阅许可'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = '华文新魏'
    Font.Style = []
    ParentFont = False
  end
  object DBNavigator1: TDBNavigator
    Left = 0
    Top = 383
    Width = 636
    Height = 38
    DataSource = local_base.Book_Source
    Align = alBottom
    TabOrder = 0
  end
  object DBEdit1: TDBEdit
    Left = 80
    Top = 16
    Width = 225
    Height = 27
    DataField = 'BOOK_ID'
    DataSource = local_base.Book_Source
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = '华文新魏'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
  end
  object DBEdit2: TDBEdit
    Left = 376
    Top = 8
    Width = 249
    Height = 27
    DataField = 'BOOKNAME'
    DataSource = local_base.Book_Source
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = '华文新魏'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
  end
  object DBEdit3: TDBEdit
    Left = 80
    Top = 40
    Width = 105
    Height = 27
    DataField = 'CLASS_ID'
    DataSource = local_base.Book_Source
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = '华文新魏'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
  end
  object DBEdit4: TDBEdit
    Left = 376
    Top = 40
    Width = 249
    Height = 27
    DataField = 'COPY_NO'
    DataSource = local_base.Book_Source
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = '华文新魏'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
  end
  object DBEdit5: TDBEdit
    Left = 80
    Top = 80
    Width = 329
    Height = 27
    DataField = 'AUTHORS'
    DataSource = local_base.Book_Source
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = '华文新魏'
    Font.Style = []
    ParentFont = False
    TabOrder = 5
  end
  object DBEdit6: TDBEdit
    Left = 80
    Top = 112
    Width = 121
    Height = 27
    DataField = 'LANGUAGE'
    DataSource = local_base.Book_Source
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = '华文新魏'
    Font.Style = []
    ParentFont = False
    TabOrder = 6
  end
  object DBEdit7: TDBEdit
    Left = 272
    Top = 112
    Width = 137
    Height = 27
    DataField = 'PUB_YEAR'
    DataSource = local_base.Book_Source
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = '华文新魏'
    Font.Style = []
    ParentFont = False
    TabOrder = 7
  end
  object DBEdit8: TDBEdit
    Left = 80
    Top = 136
    Width = 121
    Height = 27
    DataField = 'PUB_MONTH'
    DataSource = local_base.Book_Source
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = '华文新魏'
    Font.Style = []
    ParentFont = False
    TabOrder = 8
  end
  object DBEdit9: TDBEdit
    Left = 272
    Top = 136
    Width = 137
    Height = 27
    DataField = 'IN_DATE'
    DataSource = local_base.Book_Source
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = '华文新魏'
    Font.Style = []
    ParentFont = False
    TabOrder = 9
  end
  object DBEdit10: TDBEdit
    Left = 80
    Top = 184
    Width = 329
    Height = 27
    DataField = 'KEYWORD'
    DataSource = local_base.Book_Source
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = '华文新魏'
    Font.Style = []
    ParentFont = False
    TabOrder = 10
  end
  object DBEdit11: TDBEdit
    Left = 80
    Top = 208
    Width = 329
    Height = 27
    DataField = 'ISBN'
    DataSource = local_base.Book_Source
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = '华文新魏'
    Font.Style = []
    ParentFont = False
    TabOrder = 11
  end
  object Photo: TDBImage
    Left = 416
    Top = 72
    Width = 209
    Height = 265
    DataField = 'COVER'
    DataSource = local_base.Book_Source
    Stretch = True
    TabOrder = 12
    OnClick = PhotoClick
  end
  object DBLookupComboBox1: TDBLookupComboBox
    Left = 184
    Top = 40
    Width = 121
    Height = 27
    DataField = 'CLASS_ID'
    DataSource = local_base.Book_Source
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = '华文新魏'
    Font.Style = []
    KeyField = 'CLASS_ID'
    ListField = 'CLASSNAME'
    ListSource = local_base.BOOKCLASS_SOURCE
    ParentFont = False
    TabOrder = 13
  end
  object Memo1: TMemo
    Left = 80
    Top = 240
    Width = 329
    Height = 97
    Lines.Strings = (
      '  ')
    TabOrder = 14
  end
  object DBEdit12: TDBEdit
    Left = 80
    Top = 344
    Width = 25
    Height = 27
    DataField = 'ON_LOAN'
    DataSource = local_base.Book_Source
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = '华文新魏'
    Font.Style = []
    ParentFont = False
    TabOrder = 15
  end
  object OpenPictureDialog1: TOpenPictureDialog
    Left = 8
    Top = 192
  end
end