lend.dfm

一个还不错的Delphi编程源码,是一个图书管理系统,比较简单,通俗易懂

object lendform: Tlendform
  Left = 192
  Top = 107
  Width = 544
  Height = 375
  Caption = #20511#38405#31649#29702
  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 GroupBox1: TGroupBox
    Left = 16
    Top = 40
    Width = 505
    Height = 273
    TabOrder = 0
    object StaticText9: TStaticText
      Left = 40
      Top = 16
      Width = 28
      Height = 17
      Caption = #20070#21495
      TabOrder = 0
    end
    object ComboBox1: TComboBox
      Left = 96
      Top = 16
      Width = 145
      Height = 21
      ItemHeight = 13
      TabOrder = 1
      OnChange = ComboBox1Change
      OnKeyDown = ComboBox1KeyDown
    end
    object StaticText10: TStaticText
      Left = 40
      Top = 56
      Width = 28
      Height = 17
      Caption = #20070#21517
      TabOrder = 2
    end
    object DBName: TDBEdit
      Left = 96
      Top = 56
      Width = 377
      Height = 21
      DataSource = DataSource1
      TabOrder = 3
    end
    object StaticText11: TStaticText
      Left = 40
      Top = 80
      Width = 28
      Height = 17
      Caption = #20316#32773
      TabOrder = 4
    end
    object DBAuthor: TDBEdit
      Left = 96
      Top = 80
      Width = 169
      Height = 21
      DataSource = DataSource1
      TabOrder = 5
    end
    object StaticText12: TStaticText
      Left = 40
      Top = 104
      Width = 40
      Height = 17
      Caption = #20986#29256#31038
      TabOrder = 6
    end
    object DBPress: TDBEdit
      Left = 96
      Top = 104
      Width = 209
      Height = 21
      DataSource = DataSource1
      TabOrder = 7
    end
    object StaticText13: TStaticText
      Left = 296
      Top = 80
      Width = 52
      Height = 17
      Caption = #20986#29256#26085#26399
      TabOrder = 8
    end
    object DBOutDate: TDBEdit
      Left = 352
      Top = 80
      Width = 121
      Height = 21
      DataSource = DataSource1
      TabOrder = 9
    end
    object StaticText14: TStaticText
      Left = 320
      Top = 104
      Width = 28
      Height = 17
      Caption = #20215#26684
      TabOrder = 10
    end
    object DBCost: TDBEdit
      Left = 352
      Top = 104
      Width = 121
      Height = 21
      DataSource = DataSource1
      TabOrder = 11
    end
    object StaticText15: TStaticText
      Left = 40
      Top = 136
      Width = 28
      Height = 17
      Caption = #22791#27880
      TabOrder = 12
    end
    object DBMemo: TDBMemo
      Left = 96
      Top = 128
      Width = 377
      Height = 73
      DataSource = DataSource1
      TabOrder = 13
    end
    object TGroupBox
      Left = 16
      Top = 40
      Width = 481
      Height = 7
      TabOrder = 14
    end
    object TGroupBox
      Left = 8
      Top = 208
      Width = 481
      Height = 7
      TabOrder = 15
    end
    object StaticText2: TStaticText
      Left = 40
      Top = 224
      Width = 52
      Height = 17
      Caption = #20511#20070#35777#21495
      TabOrder = 16
    end
    object StaticText3: TStaticText
      Left = 272
      Top = 224
      Width = 76
      Height = 17
      Caption = #25345#26377#20070#31821#25968#30446
      TabOrder = 17
    end
    object StaticText4: TStaticText
      Left = 32
      Top = 248
      Width = 88
      Height = 17
      Caption = #25345#26377#26102#38388#65288#22825#65289
      TabOrder = 18
    end
    object StaticText5: TStaticText
      Left = 272
      Top = 248
      Width = 28
      Height = 17
      Caption = #32602#37329
      TabOrder = 19
    end
    object ReaderIDEdit: TEdit
      Left = 120
      Top = 224
      Width = 121
      Height = 21
      TabOrder = 20
      OnChange = ReaderIDEditChange
    end
    object TotalEdit: TEdit
      Left = 352
      Top = 224
      Width = 121
      Height = 21
      Enabled = False
      TabOrder = 21
    end
    object OwnTimeEdit: TEdit
      Left = 120
      Top = 248
      Width = 121
      Height = 21
      Enabled = False
      TabOrder = 22
    end
    object FineEdit: TEdit
      Left = 352
      Top = 248
      Width = 121
      Height = 21
      Enabled = False
      TabOrder = 23
    end
  end
  object GroupBox2: TGroupBox
    Left = 16
    Top = 0
    Width = 505
    Height = 41
    TabOrder = 1
    object StaticText1: TStaticText
      Left = 16
      Top = 16
      Width = 52
      Height = 17
      Caption = #22270#20070#20511#36824
      TabOrder = 0
    end
  end
  object Button1: TButton
    Left = 264
    Top = 320
    Width = 75
    Height = 25
    Caption = #20511#20986'&L'
    TabOrder = 2
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 344
    Top = 320
    Width = 75
    Height = 25
    Caption = #24402#36824'&B'
    TabOrder = 3
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 424
    Top = 320
    Width = 75
    Height = 25
    Caption = #20851#38381
    TabOrder = 4
    OnClick = Button3Click
  end
  object tempADOQuery1: TQuery
    Left = 216
    Top = 8
  end
  object TEMPADOQuery2: TQuery
    Left = 256
    Top = 8
  end
  object DataSource1: TDataSource
    DataSet = DataModuleADO.ADOTable1
    Left = 304
    Top = 8
  end
end