datamodule.dfm

来自「一个图书管理系统」· DFM 代码 · 共 98 行

object DM: TDM
  OldCreateOrder = False
  Left = 192
  Top = 252
  Height = 334
  Width = 734
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=F:\My' +
      'Delphi\'#22270#20070#31649#29702'\DataBase\BookManager.mdb;Mode=Share Deny None;Extend' +
      'ed Properties="";Persist Security Info=False;Jet OLEDB:System da' +
      'tabase="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password' +
      '="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Je' +
      't OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transact' +
      'ions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create Syste' +
      'm Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don'#39 +
      't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica' +
      ' Repair=False;Jet OLEDB:SFP=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 40
    Top = 8
  end
  object ADODataSetBookEdit: TADODataSet
    AutoCalcFields = False
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 
      ' select book_info.*  from Book_info,book_stock  where book_info.' +
      'bookid = book_stock.bookid  and book_stock.booklast=1 order by b' +
      'ook_info.bookid asc'
    Parameters = <>
    Left = 40
    Top = 56
  end
  object DataSource1: TDataSource
    AutoEdit = False
    DataSet = ADODataSetBookEdit
    Left = 40
    Top = 104
  end
  object ADODataSet2: TADODataSet
    Connection = ADOConnection1
    Parameters = <>
    Left = 40
    Top = 168
  end
  object ADODataSetLendBook: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    Left = 160
    Top = 56
  end
  object DataSourceLendBook: TDataSource
    DataSet = ADODataSetLendBook
    Left = 160
    Top = 136
  end
  object ADODataSetBookType: TADODataSet
    Parameters = <>
    Left = 288
    Top = 40
  end
  object DataSourceBookType: TDataSource
    DataSet = ADODataSetBookType
    Left = 288
    Top = 96
  end
  object ADODataSetBookQuery: TADODataSet
    Parameters = <>
    Left = 400
    Top = 56
  end
  object ADODataSetBookStockQuery: TADODataSet
    Parameters = <>
    Left = 496
    Top = 88
  end
  object ADODataSetReaderQuery: TADODataSet
    Parameters = <>
    Left = 592
    Top = 112
  end
  object ADODataSetLendBookQuery: TADODataSet
    Parameters = <>
    Left = 632
    Top = 160
  end
  object ADODataSetUserQuery: TADODataSet
    Parameters = <>
    Left = 80
    Top = 240
  end
end