unit_readadd.dfm

图书管理系统。可以实现简单的图书管理

object readeradd: Treaderadd
  Left = 169
  Top = 172
  Width = 529
  Height = 315
  Caption = #35835#32773#20449#24687#30340#28155#21152
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 8
    Top = 3
    Width = 505
    Height = 158
    Color = clInfoBk
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object GroupBox1: TGroupBox
    Left = 10
    Top = 168
    Width = 505
    Height = 113
    Caption = #20511#38405#32773#20449#24687
    TabOrder = 1
    object Label1: TLabel
      Left = 16
      Top = 24
      Width = 48
      Height = 13
      Caption = #20511#38405#35777#21495
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 16
      Top = 56
      Width = 48
      Height = 13
      Caption = #35835#32773#22995#21517
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 216
      Top = 24
      Width = 24
      Height = 13
      Caption = #24615#21035
    end
    object Label4: TLabel
      Left = 216
      Top = 56
      Width = 24
      Height = 13
      Caption = #21333#20301
    end
    object Label5: TLabel
      Left = 16
      Top = 88
      Width = 48
      Height = 13
      Caption = #32852#31995#26041#24335
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 360
      Top = 24
      Width = 24
      Height = 13
      Caption = #32423#21035
    end
    object Edit1: TEdit
      Left = 72
      Top = 24
      Width = 121
      Height = 21
      Color = clInfoBk
      TabOrder = 0
      OnChange = Edit1Change
    end
    object Edit2: TEdit
      Left = 72
      Top = 56
      Width = 121
      Height = 21
      Color = clInfoBk
      TabOrder = 1
    end
    object ComboBox1: TComboBox
      Left = 248
      Top = 24
      Width = 65
      Height = 21
      Color = clInfoBk
      ItemHeight = 13
      TabOrder = 2
      Items.Strings = (
        #30007
        #22899)
    end
    object ComboBox2: TComboBox
      Left = 392
      Top = 24
      Width = 81
      Height = 21
      Color = clInfoBk
      ItemHeight = 13
      TabOrder = 3
      OnKeyPress = ComboBox2KeyPress
      Items.Strings = (
        #26412#31185#23398
        #25945#24072
        #30740#31350#29983)
    end
    object Edit3: TEdit
      Left = 72
      Top = 88
      Width = 121
      Height = 21
      Color = clInfoBk
      TabOrder = 4
    end
    object Edit4: TEdit
      Left = 248
      Top = 56
      Width = 225
      Height = 21
      Color = clInfoBk
      TabOrder = 5
    end
  end
  object BitBtn1: TBitBtn
    Left = 408
    Top = 252
    Width = 75
    Height = 25
    Caption = #20445'   '#23384
    ModalResult = 1
    TabOrder = 2
    OnClick = BitBtn1Click
    Glyph.Data = {
      B6040000424DB604000000000000B60000002800000020000000200000000100
      08000000000000040000120B0000120B00002000000020000000CF9760001A16
      1000E7C89C00E4E2DF0032312F000E0D0A0080800000B2B3780026262200F8F8
      F700EEEEED00BABB9B0096989300D5D7D6004246470076797A001FAAEF005254
      55006AADEC0049739D00AFB2B5008EB6E000BECFE2005A8AC900A7BDD900D5E0
      F30023356C0028419700141A34002C46D400FFFFFF0000000000060606060606
      06061403030D0C0C060606060606060606060606060606060606060606060606
      060A1615150A0A0C0C0606060606060606060606060606060606060606060606
      161210101017030A0C060606060606060606060606060606060606060606060D
      121010131A1B120A0C060606060606060606060606060606060606060606140D
      1010170F17131214060606060606060606060606060606060606060606061415
      10180A1E09031106060606060606060606060606060606060606060606060612
      1509091111111111110606060606060606060606060606060606060606060606
      0D1111091E1E1E090D1111060606060606060606060606060606060606060606
      111E1E1E1E1E1E1E181313060606060101010606060606060606060606060606
      0A1E1E1E1E1E1E1E141A13111106010101010606060606060606060606061212
      191E1E1E1E1E1E1E141F141E0A0C1A0E01010606060606060606060606061512
      181909091E1E1E1E0D11090A1517171717141818060606060606060606061512
      12171215190909091E111E161313131313131313171718060606060606061512
      1212181717171215181811191713131313131313131317150606060606060615
      12121215151815151517161E1513131313131313131313171806060606060606
      121212121D171215181818160A17131313131313131313131206060606060606
      12121212121D1D1B1B1D1D1B1314121713131313131313131206060606061713
      12121212121D1D1A1A1B1B1C1A1D0F1815171313131317121614060606061313
      12121212121D1B1A131B1B1D1D1A1F110619161515121518140D060101010101
      17121212171C1A1D1D1D1D1B140C011F060D09140F0F0D0A0B14010101010105
      1712121211011D1B1B1A1C080A1E0F05010D090C1F0803090F0E06010101040E
      15151D1A051C1A050C030C01140D050401140309030A1E0908011F1F1F1F1F1F
      09161D1A0501051F14090D04040A0304050C141E030C0A1E0F0E1F0202020000
      1F1D1D1B0501011F0F0D050F1F0F0C01080B140A041F11091E0D1F021F021F00
      1F1D1D1D0E05010508031E0C1F05050511060B03041F111E1E0D1F0214020000
      1F1D1D1706010501050E14110505050406060603140F0D0A0D0C1F021D021F00
      1F061D0606060E05050505010501110606060606070D030C06061F0202020000
      1F060606060606060E0101010E060606060606060606060606061F020F0F0F02
      1F060606060606060606060606060606060606060606060606061F0202020202
      1F06060606060606060606060606060606060606060606060606061F1F1F1F1F
      0606060606060606060606060606060606060606060606060606061F06060606
      0606060606060606060606060606060606060606060606060606}
  end
  object DataSource1: TDataSource
    DataSet = DataModule1.ADOTable2
    Left = 40
  end
end