datamodule.dfm

本文件中还有JSP、php和delphi等源程序

object DM: TDM
  OldCreateOrder = False
  Left = 344
  Top = 238
  Height = 334
  Width = 419
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=C:\Da' +
      'taBase\BookManager.mdb;Mode=Share Deny None;Extended Properties=' +
      '"";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet O' +
      'LEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:Data' +
      'base Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLED' +
      'B:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";' +
      'Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Databas' +
      'e=False;Jet OLEDB:Don'#39't Copy Locale on Compact=False;Jet OLEDB:C' +
      'ompact Without Replica Repair=False;Jet OLEDB:SFP=False'
    LoginPrompt = False
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 48
    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 = 48
    Top = 56
  end
  object DataSource1: TDataSource
    AutoEdit = False
    DataSet = ADODataSetBookEdit
    Left = 48
    Top = 112
  end
  object ADODataSet2: TADODataSet
    Connection = ADOConnection1
    Parameters = <>
    Left = 48
    Top = 168
  end
  object ADODataSetLendBook: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    Left = 176
    Top = 56
  end
  object DataSourceLendBook: TDataSource
    DataSet = ADODataSetLendBook
    Left = 176
    Top = 112
  end
  object ADODataSetBookType: TADODataSet
    Parameters = <>
    Left = 176
    Top = 8
  end
  object DataSourceBookType: TDataSource
    DataSet = ADODataSetBookType
    Left = 176
    Top = 168
  end
  object ADODataSetBookQuery: TADODataSet
    Parameters = <>
    Left = 176
    Top = 232
  end
  object ADODataSetBookStockQuery: TADODataSet
    Parameters = <>
    Left = 314
    Top = 8
  end
  object ADODataSetReaderQuery: TADODataSet
    Parameters = <>
    Left = 314
    Top = 64
  end
  object ADODataSetLendBookQuery: TADODataSet
    Parameters = <>
    Left = 314
    Top = 120
  end
  object ADODataSetUserQuery: TADODataSet
    Parameters = <>
    Left = 48
    Top = 232
  end
end