data.dfm

来自「利用Delphi6.0和MS Server2000为主要开发工具」· DFM 代码 · 共 99 行

object fm_data: Tfm_data
  OldCreateOrder = False
  Left = 296
  Top = 261
  Height = 287
  Width = 623
  object pro_book: TDataSetProvider
    DataSet = AQ_book
    Constraints = True
    Options = [poAllowCommandText]
    Left = 32
    Top = 128
  end
  object pro_borrow: TDataSetProvider
    DataSet = AQ_borrow
    Constraints = True
    Options = [poAllowCommandText]
    Left = 104
    Top = 128
  end
  object pro_logon: TDataSetProvider
    DataSet = AQ_logon
    Constraints = True
    Options = [poAllowCommandText]
    Left = 168
    Top = 128
  end
  object AQ_book: TADOQuery
    Connection = FmMain.ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from book')
    Left = 32
    Top = 80
  end
  object AQ_borrow: TADOQuery
    Connection = FmMain.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from v_borrow')
    Left = 104
    Top = 72
  end
  object AQ_logon: TADOQuery
    Connection = FmMain.ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from logon')
    Left = 168
    Top = 80
  end
  object AQ_user: TADOQuery
    Connection = FmMain.ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from users')
    Left = 232
    Top = 72
  end
  object pro_user: TDataSetProvider
    DataSet = AQ_user
    Constraints = True
    Options = [poAllowCommandText]
    Left = 240
    Top = 136
  end
  object AQ_card: TADOQuery
    Connection = FmMain.ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from cards')
    Left = 296
    Top = 72
  end
  object pro_card: TDataSetProvider
    DataSet = AQ_card
    Constraints = True
    Options = [poAllowCommandText]
    Left = 304
    Top = 136
  end
  object pro_student: TDataSetProvider
    DataSet = AQ_student
    Constraints = True
    Options = [poAllowCommandText]
    Left = 376
    Top = 136
  end
  object AQ_student: TADOQuery
    Connection = FmMain.ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from student')
    Left = 376
    Top = 72
  end
end