unit8.dfm

这个是我自主研发的图书管理系统的应用

object Form8: TForm8
  Left = 192
  Top = 114
  Width = 696
  Height = 480
  Caption = #22270#20070#29366#24577#26597#35810
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 224
    Top = 32
    Width = 185
    Height = 41
    Caption = #22270#20070#29366#24577#26597#35810
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clFuchsia
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
  end
  object Panel2: TPanel
    Left = 16
    Top = 88
    Width = 657
    Height = 161
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object Label1: TLabel
      Left = 16
      Top = 32
      Width = 132
      Height = 20
      Caption = #36755#20837#26597#35810#20869#23481':        '
      Color = clBtnFace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clTeal
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentColor = False
      ParentFont = False
    end
    object Edit1: TEdit
      Left = 152
      Top = 32
      Width = 161
      Height = 28
      TabOrder = 0
    end
    object RadioButton1: TRadioButton
      Left = 16
      Top = 96
      Width = 113
      Height = 17
      Caption = #20070#21517#26597#35810
      TabOrder = 1
    end
    object RadioButton2: TRadioButton
      Left = 136
      Top = 96
      Width = 113
      Height = 17
      Caption = #20316#32773#26597#35810
      TabOrder = 2
    end
    object RadioButton3: TRadioButton
      Left = 256
      Top = 96
      Width = 121
      Height = 17
      Caption = #20986#29256#31038#26597#35810'   '
      TabOrder = 3
    end
    object Panel3: TPanel
      Left = 376
      Top = 0
      Width = 265
      Height = 81
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      object CheckBox1: TCheckBox
        Left = 8
        Top = 32
        Width = 97
        Height = 17
        Caption = #21253#21547#22270#20070#31867#22411'   '
        TabOrder = 0
      end
      object ComboBox1: TComboBox
        Left = 112
        Top = 32
        Width = 145
        Height = 21
        ItemHeight = 13
        TabOrder = 1
        OnChange = ComboBox1Change
      end
    end
    object Button1: TButton
      Left = 400
      Top = 112
      Width = 75
      Height = 25
      Caption = #26597#25214' '
      TabOrder = 5
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 536
      Top = 112
      Width = 97
      Height = 25
      BiDiMode = bdLeftToRight
      Caption = #36820#22238#31995#32479'   '
      ParentBiDiMode = False
      TabOrder = 6
      OnClick = Button2Click
    end
  end
  object ListView1: TListView
    Left = 16
    Top = 256
    Width = 657
    Height = 161
    Columns = <
      item
        Caption = #26465#24418#30721
        Width = 80
      end
      item
        Alignment = taCenter
        Caption = #20070#21517
        Width = 120
      end
      item
        Alignment = taCenter
        Caption = #20316#32773
        Width = 90
      end
      item
        Alignment = taCenter
        Caption = #20986#29256#31038
        Width = 200
      end
      item
        Alignment = taCenter
        Caption = #20511#38405#32773
        Width = 80
      end>
    GridLines = True
    ReadOnly = True
    RowSelect = True
    TabOrder = 2
    ViewStyle = vsReport
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 427
    Width = 688
    Height = 19
    Panels = <
      item
        Width = 200
      end
      item
        Width = 50
      end>
  end
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=Library;Data Source=.'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 24
    Top = 32
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 104
    Top = 32
  end
  object ADOQuery2: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 456
    Top = 32
  end
  object ADOQuery3: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 504
    Top = 32
  end
end