unit8.dfm

可以显示数据库中图书的信息以及读者的信息

object Form8: TForm8
  Left = 208
  Top = 164
  Width = 661
  Height = 480
  Caption = #27969#36890#31649#29702
  Color = clMoneyGreen
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = Formclose
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 641
    Height = 433
    ActivePage = TabSheet5
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #22270#20070#20511#38405
      object Label9: TLabel
        Left = 128
        Top = 360
        Width = 48
        Height = 13
        Caption = #25805#20316#21592'  '
      end
      object GroupBox1: TGroupBox
        Left = 8
        Top = 8
        Width = 617
        Height = 57
        Caption = #35835#32773#20449#24687
        TabOrder = 0
        object Label1: TLabel
          Left = 16
          Top = 24
          Width = 51
          Height = 13
          Caption = #26465#24418#30721'   '
        end
        object Label2: TLabel
          Left = 240
          Top = 24
          Width = 34
          Height = 13
          Caption = #22995#21517'  '
        end
        object Label3: TLabel
          Left = 368
          Top = 24
          Width = 34
          Height = 13
          Caption = #31867#22411'  '
        end
        object Label4: TLabel
          Left = 496
          Top = 24
          Width = 62
          Height = 13
          Caption = #21487#20511#20876#25968'  '
        end
        object Edit1: TEdit
          Left = 72
          Top = 24
          Width = 121
          Height = 21
          Color = clSkyBlue
          TabOrder = 0
        end
        object DBEdit3: TDBEdit
          Left = 560
          Top = 24
          Width = 41
          Height = 21
          Color = clBtnFace
          DataSource = DataSource1
          ReadOnly = True
          TabOrder = 1
        end
        object DBEdit1: TDBEdit
          Left = 272
          Top = 24
          Width = 81
          Height = 21
          Color = clBtnFace
          DataSource = DataSource1
          ReadOnly = True
          TabOrder = 2
        end
        object DBEdit2: TDBEdit
          Left = 400
          Top = 24
          Width = 81
          Height = 21
          Color = clBtnFace
          DataSource = DataSource1
          ReadOnly = True
          TabOrder = 3
        end
        object Button3: TButton
          Left = 192
          Top = 24
          Width = 33
          Height = 25
          Caption = 'OK'
          TabOrder = 4
          OnClick = Button3Click
        end
      end
      object GroupBox2: TGroupBox
        Left = 8
        Top = 72
        Width = 361
        Height = 57
        Caption = #22270#20070#20511#38405#24773#20917
        TabOrder = 1
        object Label5: TLabel
          Left = 16
          Top = 24
          Width = 48
          Height = 13
          Caption = #26465#24418#30721'  '
        end
        object Edit2: TEdit
          Left = 80
          Top = 24
          Width = 121
          Height = 21
          Color = clSkyBlue
          TabOrder = 0
        end
        object Button4: TButton
          Left = 240
          Top = 24
          Width = 33
          Height = 25
          Caption = 'OK'
          TabOrder = 1
          OnClick = Button4Click
        end
      end
      object StringGrid1: TStringGrid
        Left = 16
        Top = 144
        Width = 601
        Height = 201
        ColCount = 9
        FixedColor = clSkyBlue
        RowCount = 8
        TabOrder = 2
        ColWidths = (
          64
          76
          85
          141
          122
          69
          75
          74
          104)
        RowHeights = (
          24
          24
          24
          24
          24
          24
          24
          24)
      end
      object Button2: TButton
        Left = 440
        Top = 88
        Width = 97
        Height = 33
        Caption = #30830#35748#20511#38405
        TabOrder = 3
        OnClick = Button2Click
      end
      object Edit6: TEdit
        Left = 184
        Top = 360
        Width = 121
        Height = 21
        Color = clSkyBlue
        TabOrder = 4
      end
    end
    object TabSheet2: TTabSheet
      Caption = #22270#20070#24402#36824
      ImageIndex = 1
      object Label6: TLabel
        Left = 24
        Top = 24
        Width = 79
        Height = 13
        Caption = #35835#32773#26465#24418#30721'   '
      end
      object Label7: TLabel
        Left = 360
        Top = 24
        Width = 82
        Height = 13
        Caption = #22270#20070#26465#24418#30721'    '
      end
      object Label8: TLabel
        Left = 232
        Top = 24
        Width = 34
        Height = 13
        Caption = #22995#21517'  '
      end
      object Label10: TLabel
        Left = 64
        Top = 344
        Width = 48
        Height = 13
        Caption = #25805#20316#21592'  '
      end
      object Edit3: TEdit
        Left = 96
        Top = 24
        Width = 113
        Height = 21
        Color = clSkyBlue
        TabOrder = 0
      end
      object Edit4: TEdit
        Left = 432
        Top = 24
        Width = 97
        Height = 21
        Color = clSkyBlue
        TabOrder = 1
      end
      object Edit5: TEdit
        Left = 264
        Top = 24
        Width = 73
        Height = 21
        Color = clSkyBlue
        TabOrder = 2
      end
      object Button1: TButton
        Left = 552
        Top = 24
        Width = 57
        Height = 25
        Caption = #25628#32034
        TabOrder = 3
        OnClick = Button1Click
      end
      object DBGrid1: TDBGrid
        Left = 24
        Top = 72
        Width = 585
        Height = 241
        Color = clSkyBlue
        DataSource = DataSource1
        ReadOnly = True
        TabOrder = 4
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = #20511#38405#32534#21495
            Visible = True
          end
          item
            Expanded = False
            FieldName = #22270#20070#26465#24418#30721
            Visible = True
          end
          item
            Expanded = False
            FieldName = #20070#21517
            Visible = True
          end
          item
            Expanded = False
            FieldName = #35835#32773#26465#24418#30721
            Visible = True
          end
          item
            Expanded = False
            FieldName = #22995#21517
            Visible = True
          end
          item
            Expanded = False
            FieldName = #20511#38405#26102#38388
            Visible = True
          end
          item
            Expanded = False
            FieldName = #24212#36824#26102#38388
            Visible = True
          end
          item
            Expanded = False
            FieldName = #32493#20511#27425#25968
            Visible = True
          end
          item
            Expanded = False
            FieldName = #29366#24577
            Visible = True
          end
          item
            Expanded = False
            FieldName = #25805#20316#21592
            Visible = True
          end>
      end
      object Button5: TButton
        Left = 360
        Top = 344
        Width = 97
        Height = 25
        Caption = #24402#36824#27492#20070
        TabOrder = 5
        OnClick = Button5Click
      end
      object Edit7: TEdit
        Left = 128
        Top = 344
        Width = 121
        Height = 21
        Color = clSkyBlue
        TabOrder = 6
      end
    end
    object TabSheet4: TTabSheet
      Caption = #20652#36824#36890#30693
      ImageIndex = 3
      object Label11: TLabel
        Left = 16
        Top = 24
        Width = 79
        Height = 13
        Caption = #35835#32773#26465#24418#30721'   '
      end
      object Label12: TLabel
        Left = 232
        Top = 24
        Width = 34
        Height = 13
        Caption = #22995#21517'  '
      end
      object Label13: TLabel
        Left = 360
        Top = 24
        Width = 79
        Height = 13
        Caption = #22270#20070#26465#24418#30721'   '
      end
      object Edit8: TEdit
        Left = 88
        Top = 24
        Width = 121
        Height = 21
        Color = clSkyBlue
        TabOrder = 0
      end
      object Edit9: TEdit
        Left = 264
        Top = 24
        Width = 73
        Height = 21
        Color = clSkyBlue
        TabOrder = 1
      end
      object Edit10: TEdit
        Left = 432
        Top = 24
        Width = 97
        Height = 21
        Color = clSkyBlue
        TabOrder = 2
      end
      object Button6: TButton
        Left = 552
        Top = 24
        Width = 57
        Height = 25
        Caption = #25628#32034
        TabOrder = 3
        OnClick = Button6Click
      end
      object StringGrid2: TStringGrid
        Left = 24
        Top = 72
        Width = 585
        Height = 281
        Color = clSkyBlue
        ColCount = 10
        RowCount = 10
        TabOrder = 4
        RowHeights = (
          24
          24
          24
          24
          24
          24
          24
          24
          24
          24)
      end
    end
    object TabSheet5: TTabSheet
      Caption = #22270#20070#32602#27454
      ImageIndex = 4
      object Label14: TLabel
        Left = 32
        Top = 24
        Width = 79
        Height = 13
        Caption = #35835#32773#26465#24418#30721'   '
      end
      object Label15: TLabel
        Left = 248
        Top = 24
        Width = 34
        Height = 13
        Caption = #22995#21517'  '
      end
      object Label16: TLabel
        Left = 368
        Top = 24
        Width = 79
        Height = 13
        Caption = #22270#20070#26465#24418#30721'   '
      end
      object Label17: TLabel
        Left = 48
        Top = 352
        Width = 65
        Height = 13
        Caption = #23454#25910#37329#39069'   '
      end
      object Label18: TLabel
        Left = 200
        Top = 352
        Width = 14
        Height = 13
        Caption = #20803
      end
      object Edit11: TEdit
        Left = 104
        Top = 24
        Width = 121
        Height = 21
        Color = clSkyBlue
        TabOrder = 0
      end
      object Edit12: TEdit
        Left = 280
        Top = 24
        Width = 73
        Height = 21
        Color = clSkyBlue
        TabOrder = 1
      end
      object Edit13: TEdit
        Left = 440
        Top = 24
        Width = 97
        Height = 21
        Color = clSkyBlue
        TabOrder = 2
      end
      object Button7: TButton
        Left = 552
        Top = 24
        Width = 57
        Height = 25
        Caption = #25628#32034
        TabOrder = 3
        OnClick = Button7Click
      end
      object Button8: TButton
        Left = 280
        Top = 352
        Width = 105
        Height = 25
        Caption = #30830#35748#25910#22238#32602#27454
        TabOrder = 4
        OnClick = Button8Click
      end
      object Edit14: TEdit
        Left = 120
        Top = 352
        Width = 73
        Height = 21
        Color = clSkyBlue
        TabOrder = 5
      end
      object DBGrid2: TDBGrid
        Left = 24
        Top = 64
        Width = 585
        Height = 265
        Color = clSkyBlue
        DataSource = DataSource1
        TabOrder = 6
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = #32602#27454#32534#21495
            Visible = True
          end
          item
            Expanded = False
            FieldName = #22270#20070#26465#24418#30721
            Visible = True
          end
          item
            Expanded = False
            FieldName = #20070#21517
            Visible = True
          end
          item
            Expanded = False
            FieldName = #35835#32773#26465#24418#30721
            Visible = True
          end
          item
            Expanded = False
            FieldName = #22995#21517
            Visible = True
          end
          item
            Expanded = False
            FieldName = #32602#27454#26085#26399
            Visible = True
          end
          item
            Expanded = False
            FieldName = #24212#32602#37329#39069
            Visible = True
          end
          item
            Expanded = False
            FieldName = #26159#21542#20132#27454
            Visible = True
          end
          item
            Expanded = False
            FieldName = #22791#27880
            Visible = True
          end>
      end
    end
  end
  object ADOQuery1: TADOQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog='#22270#20070#31649#29702#31995#32479'sy'
    Parameters = <>
    Left = 344
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 392
  end
  object ADOQuery2: TADOQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog='#22270#20070#31649#29702#31995#32479'sy'
    Parameters = <>
    Left = 432
  end
end