datamodule.dfm

一个图书馆管理程序

object DM: TDM
  OldCreateOrder = False
  Left = 344
  Top = 238
  Height = 334
  Width = 419
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=book'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    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