unit11.~dfm

图书管理系统设计程序

object borrow: Tborrow
  Left = 275
  Top = 168
  Width = 576
  Height = 598
  Caption = #20511#20070
  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 PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 569
    Height = 547
    ActivePage = TabSheet2
    Align = alClient
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #20511#20986
      object Button1: TButton
        Left = 104
        Top = 168
        Width = 105
        Height = 41
        Caption = #30830#23450#20511#20986
        TabOrder = 0
        OnClick = Button1Click
      end
      object Button2: TButton
        Left = 288
        Top = 168
        Width = 105
        Height = 41
        Caption = #36820#22238
        TabOrder = 1
        OnClick = Button2Click
      end
      object GroupBox2: TGroupBox
        Left = 56
        Top = 16
        Width = 449
        Height = 137
        TabOrder = 2
        object Label1: TLabel
          Left = 72
          Top = 16
          Width = 100
          Height = 20
          AutoSize = False
          Caption = #35835#32773#35777#21495#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label2: TLabel
          Left = 64
          Top = 56
          Width = 129
          Height = 20
          AutoSize = False
          Caption = #22270#20070#24207#21015#21495#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label3: TLabel
          Left = 72
          Top = 93
          Width = 118
          Height = 20
          AutoSize = False
          Caption = #20511#20070#26085#26399#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Edit3: TEdit
          Left = 248
          Top = 92
          Width = 121
          Height = 21
          TabOrder = 0
        end
        object Edit2: TEdit
          Left = 248
          Top = 56
          Width = 121
          Height = 21
          TabOrder = 1
        end
        object Edit1: TEdit
          Left = 248
          Top = 16
          Width = 121
          Height = 21
          TabOrder = 2
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = #20511#38405
      ImageIndex = 1
      object Button3: TButton
        Left = 104
        Top = 168
        Width = 105
        Height = 41
        Caption = #30830#23450#20511#38405
        TabOrder = 0
        OnClick = Button3Click
      end
      object Button4: TButton
        Left = 288
        Top = 168
        Width = 105
        Height = 41
        Caption = #36820#22238
        TabOrder = 1
        OnClick = Button4Click
      end
      object GroupBox1: TGroupBox
        Left = 56
        Top = 16
        Width = 449
        Height = 137
        TabOrder = 2
        object Label4: TLabel
          Left = 72
          Top = 16
          Width = 100
          Height = 20
          AutoSize = False
          Caption = #35835#32773#35777#21495#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label5: TLabel
          Left = 64
          Top = 56
          Width = 177
          Height = 20
          AutoSize = False
          Caption = #22270#20070#24207#21015#21495#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label6: TLabel
          Left = 72
          Top = 93
          Width = 100
          Height = 20
          AutoSize = False
          Caption = #20511#20070#26085#26399#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Edit6: TEdit
          Left = 248
          Top = 92
          Width = 121
          Height = 21
          TabOrder = 0
        end
        object Edit5: TEdit
          Left = 248
          Top = 56
          Width = 121
          Height = 21
          TabOrder = 1
        end
        object Edit4: TEdit
          Left = 248
          Top = 16
          Width = 121
          Height = 21
          TabOrder = 2
        end
      end
    end
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 256
    Width = 561
    Height = 120
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object DataSource1: TDataSource
    DataSet = ADODataSet1
    Left = 276
    Top = 480
  end
  object DataSource2: TDataSource
    DataSet = ADODataSet4
    Left = 164
    Top = 480
  end
  object ADODataSet1: TADODataSet
    Connection = DataModule3.ADOConnection1
    CommandText = 'select * from borrow'
    Parameters = <>
    Left = 332
    Top = 480
  end
  object ADODataSet2: TADODataSet
    Connection = DataModule3.ADOConnection1
    CommandText = 'select * from per_book'
    Parameters = <>
    Left = 388
    Top = 480
  end
  object ADODataSet3: TADODataSet
    Connection = DataModule3.ADOConnection1
    CommandText = 'select * from reader'
    Parameters = <>
    Left = 444
    Top = 480
  end
  object ADODataSet4: TADODataSet
    Connection = DataModule3.ADOConnection1
    CommandText = 'select * from reading'
    Parameters = <>
    Left = 220
    Top = 480
  end
end