ubookreg.dfm

来自「三层图书管理系统」· DFM 代码 · 共 50 行

object xzBooksBookReg: TxzBooksBookReg
  OldCreateOrder = False
  Pooled = False
  Left = 193
  Top = 132
  Height = 227
  Width = 248
  object ADOConnection1: TADOConnection
    KeepConnection = False
    LoginPrompt = False
    Mode = cmReadWrite
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 72
    Top = 16
  end
  object ADODataSet1: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from '#22270#20070#24211' where 1=2'
    Parameters = <>
    Left = 72
    Top = 72
  end
  object adoBookIsActive: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = 'select * from '#22270#20070#24211' where id=:aid'
    Parameters = <
      item
        Name = 'aid'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '0'
      end>
    Left = 160
    Top = 72
  end
  object dspBookIsActive: TDataSetProvider
    DataSet = adoBookIsActive
    Constraints = True
    ResolveToDataSet = True
    Options = [poAllowCommandText]
    Left = 160
    Top = 136
  end
end