booksearch.~dfm

实现图书馆数据库管理功能

        CCFFFFFFFFCCCCFFCCCCFFCCCCFFCCCC000000000000FFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFCC
        CCFFCCCCFFCCCCFFCCCC000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000
        00FFCCCC000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
      ParentFont = False
    end
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 76
    Width = 457
    Height = 156
    Color = clSkyBlue
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 1
    object Label2: TLabel
      Left = 24
      Top = 17
      Width = 48
      Height = 12
      Caption = #20070#31821#32534#21495
    end
    object Label3: TLabel
      Left = 24
      Top = 45
      Width = 48
      Height = 12
      Caption = #20070#31821#21517#31216
    end
    object Label4: TLabel
      Left = 25
      Top = 73
      Width = 48
      Height = 12
      Caption = #20070#31821#31867#21035
    end
    object Label5: TLabel
      Left = 264
      Top = 69
      Width = 36
      Height = 12
      Caption = #20986#29256#31038
    end
    object Label6: TLabel
      Left = 263
      Top = 19
      Width = 36
      Height = 12
      Caption = #32034#20070#21495
    end
    object Label7: TLabel
      Left = 264
      Top = 45
      Width = 48
      Height = 12
      Caption = #20316#32773#21517#31216
    end
    object Label8: TLabel
      Left = 116
      Top = 103
      Width = 12
      Height = 12
      Caption = #20174
    end
    object Label9: TLabel
      Left = 276
      Top = 101
      Width = 12
      Height = 12
      Caption = #21040
    end
    object Bevel1: TBevel
      Left = 24
      Top = 117
      Width = 414
      Height = 10
      Shape = bsBottomLine
    end
    object Edit1: TEdit
      Left = 89
      Top = 13
      Width = 121
      Height = 20
      BevelKind = bkSoft
      BorderStyle = bsNone
      TabOrder = 0
      Text = 'Edit1'
    end
    object Edit2: TEdit
      Left = 89
      Top = 40
      Width = 121
      Height = 20
      BevelKind = bkSoft
      BorderStyle = bsNone
      TabOrder = 1
      Text = 'Edit2'
    end
    object Edit4: TEdit
      Left = 318
      Top = 67
      Width = 121
      Height = 20
      BevelKind = bkSoft
      BorderStyle = bsNone
      TabOrder = 2
      Text = 'Edit4'
    end
    object Edit5: TEdit
      Left = 318
      Top = 14
      Width = 121
      Height = 20
      BevelKind = bkSoft
      BorderStyle = bsNone
      TabOrder = 3
      Text = 'Edit5'
    end
    object Edit6: TEdit
      Left = 318
      Top = 41
      Width = 121
      Height = 20
      BevelKind = bkSoft
      BorderStyle = bsNone
      TabOrder = 4
      Text = 'Edit6'
    end
    object CheckBox1: TCheckBox
      Left = 24
      Top = 101
      Width = 81
      Height = 17
      Caption = #30331#35760#26085#26399
      TabOrder = 5
    end
    object DateTimePicker1: TDateTimePicker
      Left = 137
      Top = 98
      Width = 126
      Height = 20
      BevelInner = bvNone
      BevelOuter = bvNone
      BevelKind = bkFlat
      CalAlignment = dtaLeft
      Date = 37769.9147090162
      Time = 37769.9147090162
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 6
    end
    object DateTimePicker2: TDateTimePicker
      Left = 302
      Top = 97
      Width = 138
      Height = 20
      BevelOuter = bvRaised
      CalAlignment = dtaLeft
      Date = 37769.9148210995
      Time = 37769.9148210995
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 7
    end
    object CheckBox2: TCheckBox
      Left = 24
      Top = 133
      Width = 97
      Height = 17
      Caption = #25191#34892#27169#31946#26597#35810
      TabOrder = 8
    end
    object ComboBox1: TComboBox
      Left = 88
      Top = 68
      Width = 124
      Height = 20
      BevelKind = bkSoft
      BevelOuter = bvNone
      ItemHeight = 12
      TabOrder = 9
      Text = #35745#31639#26426
    end
  end
  object GroupBox2: TGroupBox
    Left = 468
    Top = 110
    Width = 151
    Height = 157
    Caption = #26597#35810#20449#24687
    Color = clCream
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 2
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 235
    Width = 610
    Height = 246
    Color = clSkyBlue
    Ctl3D = False
    DataSource = DataSource1
    FixedColor = clMoneyGreen
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    Options = [dgEditing, dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 3
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clOlive
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object PopupMenu1: TPopupMenu
    AutoPopup = False
    Images = ImageList1
    OwnerDraw = True
    Left = 136
    object d1: TMenuItem
      Break = mbB