datamodule.dfm

图书借阅管理系统

object DataModule1: TDataModule1
  OldCreateOrder = False
  Left = 519
  Top = 386
  Height = 332
  Width = 476
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 88
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Data/lib.mdb;Persis' +
      't Security Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 24
    Top = 8
  end
  object ADOQuery1: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    AfterInsert = ADOQuery1AfterInsert
    AfterEdit = ADOQuery1AfterEdit
    AfterPost = ADOQuery1AfterPost
    AfterCancel = ADOQuery1AfterCancel
    Parameters = <>
    SQL.Strings = (
      'select * from reader ')
    Left = 144
  end
  object DataSource2: TDataSource
    DataSet = ADOTable1
    Left = 24
    Top = 112
  end
  object ADOTable1: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    IndexFieldNames = #23398#21495
    MasterFields = #23398#21495
    MasterSource = DataSource4
    TableName = 'lendbook'
    Left = 96
    Top = 40
  end
  object ADOTable2: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    IndexFieldNames = #23398#21495
    MasterFields = #23398#21495
    MasterSource = DataSource4
    TableName = 'Lend'
    Left = 304
    Top = 108
  end
  object DataSource3: TDataSource
    DataSet = ADOTable2
    Left = 168
    Top = 144
  end
  object ADOQuery2: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from Reader')
    Left = 76
    Top = 124
  end
  object DataSource4: TDataSource
    DataSet = ADOQuery2
    Left = 276
    Top = 104
  end
  object ADOQuery3: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    AfterInsert = ADOQuery3AfterInsert
    AfterEdit = ADOQuery3AfterEdit
    AfterPost = ADOQuery3AfterPost
    AfterCancel = ADOQuery3AfterCancel
    AfterScroll = ADOQuery3AfterScroll
    Parameters = <>
    SQL.Strings = (
      'select * from book')
    Left = 88
    Top = 220
  end
  object DataSource5: TDataSource
    DataSet = ADOQuery3
    Left = 48
    Top = 224
  end
  object ADOQuery4: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from Lend')
    Left = 308
    Top = 24
  end
  object DataSource6: TDataSource
    DataSet = ADOQuery4
    Left = 296
    Top = 24
  end
  object ADOQuery5: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select Lend.'#23398#21495' as '#23398#21495',Reader.'#22995#21517' as '#22995#21517',Lend.'#20070#21495' as '#20070#21495',Book.'#20070#21517' as '#20070#21517 +
        ',Lend.'#20511#20070#26085#26399' as '#20511#20070#26085#26399' from Lend,Book,Reader where Lend.'#36824#20070#26085#26399'=Null an' +
        'd Lend.'#23398#21495'=Reader.'#23398#21495' and Book.'#20070#21495'=Lend.'#20070#21495'; ')
    Left = 144
    Top = 56
  end
  object ADOQuery6: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from Reader')
    Left = 212
    Top = 200
  end
  object DataSource7: TDataSource
    DataSet = ADOQuery6
    Left = 188
    Top = 200
  end
  object DataSource8: TDataSource
    DataSet = ADOQuery7
    Left = 288
    Top = 216
  end
  object ADOQuery7: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from lendbook')
    Left = 304
    Top = 216
  end
  object AdoPass: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from admin')
    Left = 408
    Top = 72
  end
  object AdopassDS: TDataSource
    DataSet = AdoPass
    Left = 356
    Top = 72
  end
  object ADOAdmin: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    AfterInsert = ADOAdminAfterInsert
    AfterEdit = ADOAdminAfterEdit
    AfterPost = ADOAdminAfterPost
    Parameters = <>
    SQL.Strings = (
      'select * from admin')
    Left = 408
    Top = 156
  end
  object DataAdmin: TDataSource
    DataSet = ADOAdmin
    Left = 360
    Top = 164
  end
end