lendbooku.dfm

包含详细的代码设计,实现图书管理系统功能.是一个很好的实例

object LendBookF: TLendBookF
  Left = 342
  Top = 143
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'LendBookF'
  ClientHeight = 394
  ClientWidth = 295
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'Times New Roman'
  Font.Style = []
  Icon.Data = {
    0000010001002020000000000000A80800001600000028000000200000004000
    0000010008000000000080040000000000000000000000010000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C000C0DC
    C000F0CAA600CCFFFF0099FFFF0066FFFF0033FFFF00FFCCFF00CCCCFF0099CC
    FF0066CCFF0033CCFF0000CCFF00FF99FF00CC99FF009999FF006699FF003399
    FF000099FF00FF66FF00CC66FF009966FF006666FF003366FF000066FF00FF33
    FF00CC33FF009933FF006633FF003333FF000033FF00CC00FF009900FF006600
    FF003300FF00FFFFCC00CCFFCC0099FFCC0066FFCC0066FFCC0033FFCC0000FF
    CC00FFCCCC00CCCCCC0099CCCC0066CCCC0033CCCC0000CCCC00FF99CC00CC99
    CC009999CC006699CC003399CC000099CC00FF66CC00CC66CC009966CC006666
    CC003366CC000066CC00FF33CC00CC33CC009933CC006633CC003333CC000033
    CC00FF00CC00CC00CC009900CC006600CC003300CC000000CC00FFFF9900CCFF
    990099FF990066FF990033FF990000FF9900FFCC9900CCCC990099CC990066CC
    990033CC990000CC9900FF999900CC9999009999990066999900339999000099
    9900FF669900CC66990099669900666699003366990000669900FF339900CC33
    990099339900663399003333990000339900FF009900CC009900990099006600
    99003300990000009900FFFF6600CCFF660099FF660066FF660033FF660000FF
    6600FFCC6600CCCC660099CC660066CC660033CC660000CC6600FF996600CC99
    660099996600669966003399660000996600FF666600CC666600996666006666
    66003366660000666600FF336600CC3366009933660066336600333366000033
    6600FF006600CC00660099006600660066003300660000006600FFFF3300CCFF
    330099FF330066FF330033FF330000FF3300FFCC3300CCCC330099CC330066CC
    330033CC330000CC3300FF993300CC9933009999330066993300339933000099
    3300FF663300CC66330099663300666633003366330000663300FF333300CC33
    330099333300663333003333330000333300FF003300CC003300990033006600
    33003300330000003300CCFF000099FF000066FF000033FF0000FFCC0000CCCC
    000099CC000066CC000033CC000000CC0000FF990000CC990000999900006699
    00003399000000990000FF660000CC6600009966000066660000006600003366
    0000FF330000CC33000099330000663300003333000000330000CC0000009900
    000066000000330000000000DD000000BB000000AA0000008800000077000000
    5500000044000000220000DD000000BB000000AA000000880000007700000055
    00000044000000220000DDDDDD00555555007777770077777700444444002222
    22001111110077000000550000004400000022000000F0FBFF00A4A0A0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    87878787875C000000000000000000000000000000005C878787878700000000
    875C5C5CF687878787875C0000000000005C8787878787F65C5C5C8700000000
    875C5C5CF65C313131313100000000000031313131315CF65C5C5C8700000000
    875C5C5CF65C313131FF3100000000000031FF3131315CF65C5C5C8700000000
    87F6F6F6F65C313131FF3100000000000031FF3131315CF6F6F6F68700000000
    5C875C5C5C5C313131FF3100000000000031FF3131315C5C5C5C875C00000000
    008731313131313131FF310000ECEFEC0031FF31313131313131870000000000
    008731313131313131FF3100CBBFFEBFCB31FF31313131313131870000000000
    008731313131313131FF31CBBFFE4FFEBFCB3131313131313131870000000000
    008731FFFFFFFFFFFFFFCBC5BFBFBFBFBFC5EFFFFFFFFFFFFF31870000000000
    005C3131313131313131D1C5C5C5C5C5C5C5D1313131313131315C0000000000
    000000000000000000ECD1CBCBCBCBCBCBCBD1EC000000000000000000000000
    000000000000000000EFD1D1D1D1D1D1D1D1D1EF000000000000000000000000
    000000000000000000B2D7D7D7D7D7D7D7D7D7B2000000000000000000000000
    000000000000000000B2D8D8D8D8D8D8D8D8D8B2000000000000000000000000
    000000000000000000B2D9D9D9D9D9D9D9D9D9EF000000000000000000000000
    000000000000000000EFDADACBCBDADADADADAEF000000000000000000000000
    005C3131313131313187DADAFF4FDADADADA00313131313131315C0000000000
    008731FFFFFFFFFFFFFFEFDADADADADADADAEFFFFFFFFFFFFF31870000000000
    008731313131313131FFECDADADADADADAD95C31313131313131870000000000
    008731313131313131FF31D7DADADADAD9ECFF31313131313131870000000000
    008731313131313131FF31F7D1DADADAEF31FF31313131313131870000000000
    5C875C5C5C5C313131FF3100000000000031FF3131315C5C5C5C875C00000000
    87F6F6F6F65C313131FF3100000000000031FF3131315CF6F6F6F68700000000
    875C5C5CF65C313131FF3100000000000031FF3131315CF65C5C5C8700000000
    875C5C5CF65C313131313100000000000031313131315CF65C5C5C8700000000
    875C5C5CF687878787875C0000000000005C8787878787F65C5C5C8700000000
    87878787875C000000000000000000000000000000005C878787878700000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000FFFF
    FFFFC0FFFF038007E0018003C0018003C0018003C0018003C0018003C001C002
    0003C0000003C0000003C0000003C0000003E0000007FFE003FFFFE003FFFFE0
    03FFFFE003FFE0000007C0000003C0000003C0000003C0000003C00000038003
    C0018003C0018003C0018003C0018003C0018007E001C0FFFF03FFFFFFFF}
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 15
  object GroupBox3: TGroupBox
    Left = 0
    Top = 0
    Width = 292
    Height = 361
    TabOrder = 12
  end
  object Edit2: TEdit
    Left = 88
    Top = 32
    Width = 185
    Height = 18
    BevelInner = bvLowered
    BevelKind = bkFlat
    BevelOuter = bvRaised
    BiDiMode = bdRightToLeftNoAlign
    BorderStyle = bsNone
    Color = clDefault
    Ctl3D = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    MaxLength = 10
    ParentBiDiMode = False
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 1
    OnChange = Edit2Change
    OnKeyPress = Edit1KeyPress
  end
  object StaticText1: TStaticText
    Left = 18
    Top = 14
    Width = 63
    Height = 16
    Caption = #35835#32773#21345#21495':'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 5
  end
  object Edit1: TEdit
    Left = 88
    Top = 11
    Width = 185
    Height = 18
    BevelInner = bvLowered
    BevelKind = bkFlat
    BevelOuter = bvRaised
    BiDiMode = bdRightToLeftNoAlign
    BorderStyle = bsNone
    Color = clDefault
    Ctl3D = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    MaxLength = 10
    ParentBiDiMode = False
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 0
    OnChange = Edit1Change
    OnKeyPress = Edit1KeyPress
  end
  object BitBtn2: TBitBtn
    Left = 60
    Top = 366
    Width = 69
    Height = 22
    Caption = #23436'  '#25104
    ModalResult = 1
    TabOrder = 3
    OnClick = BitBtn2Click
  end
  object BitBtn3: TBitBtn
    Left = 172
    Top = 366
    Width = 69
    Height = 22
    Caption = #20851'  '#38381
    TabOrder = 4
    OnClick = BitBtn3Click
  end
  object StaticText9: TStaticText
    Left = 16
    Top = 34
    Width = 65
    Height = 16
    Caption = #20070'    '#21495':'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 6
  end
  object StaticText2: TStaticText
    Left = 16
    Top = 55
    Width = 65
    Height = 16
    Caption = #20070'    '#21517':'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 7
  end
  object Edit3: TEdit
    Left = 88
    Top = 53
    Width = 185
    Height = 18
    BevelInner = bvLowered
    BevelKind = bkFlat
    BevelOuter = bvRaised
    BiDiMode = bdRightToLeftNoAlign
    BorderStyle = bsNone
    Color = clDefault
    Ctl3D = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    MaxLength = 10
    ParentBiDiMode = False
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 2
    OnKeyPress = Edit1KeyPress
  end
  object StaticText4: TStaticText
    Left = 11
    Top = 234
    Width = 108
    Height = 16
    Caption = #21452#20987#19978#38754#35201#20511#22270#20070
    Color = clBtnFace
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = #26999#20307'_GB2312'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    TabOrder = 9
  end
  object ListBox3: TListBox
    Left = 67
    Top = 205
    Width = 164
    Height = 132
    ItemHeight = 15
    TabOrder = 8
    Visible = False
  end
  object GroupBox1: TGroupBox
    Left = 6
    Top = 232
    Width = 281
    Height = 121
    Caption = #26412#27425#20511#20070
    TabOrder = 10
    object ListBox1: TListBox
      Left = 7
      Top = 13
      Width = 266
      Height = 100
      BevelInner = bvLowered
      BevelKind = bkFlat
      BevelOuter = bvRaised
      BorderStyle = bsNone
      Ctl3D = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ItemHeight = 12
      ParentCtl3D = False
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnDblClick = ListBox1DblClick
    end
  end
  object GroupBox2: TGroupBox
    Left = 6
    Top = 72
    Width = 281
    Height = 161
    Caption = #24211#20013#22270#20070
    TabOrder = 11
    object ListView1: TListView
      Left = 8
      Top = 19
      Width = 265
      Height = 134
      BevelInner = bvLowered
      BevelOuter = bvRaised
      BevelKind = bkFlat
      BorderStyle = bsNone
      Columns = <
        item
          Caption = #20070#21495
          Width = 120
        end
        item
          Caption = #20070#21517
          Width = 140
        end>
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      GridLines = True
      ReadOnly = True
      RowSelect = True
      ParentFont = False
      TabOrder = 0
      ViewStyle = vsReport
      OnClick = ListView1Click
      OnDblClick = ListView1DblClick
    end
  end
end