uquery.dfm

图书管理系统Delphi源代码

object xzBooksQuery: TxzBooksQuery
  OldCreateOrder = False
  Pooled = False
  Left = 193
  Top = 132
  Height = 412
  Width = 416
  object ADOConnection1: TADOConnection
    KeepConnection = False
    LoginPrompt = False
    Mode = cmRead
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 80
    Top = 16
  end
  object adsUerBooks: TADODataSet
    Connection = ADOConnection1
    CommandText = 'select JYR,BookName,DJ,CS from '#20511#20070#34920' where JYRDH=:aid'
    Parameters = <
      item
        Name = 'aid'
        DataType = ftString
        Size = 1
        Value = '0'
      end>
    Left = 56
    Top = 88
  end
  object adsBooksFromJSB: TADODataSet
    Connection = ADOConnection1
    CommandText = 'Select BookName,JYR,DJ,CS from '#20511#20070#34920' where BookID=:aid'
    Parameters = <
      item
        Name = 'aid'
        DataType = ftString
        Size = 1
        Value = '0'
      end>
    Left = 152
    Top = 88
  end
  object adsBooksFromBooks: TADODataSet
    Connection = ADOConnection1
    CommandText = 
      'select Name,Author,Pub,Money,RKRQ,YJC,Times from '#22270#20070#24211' where id=:a' +
      'id'
    Parameters = <
      item
        Name = 'aid'
        DataType = ftString
        Size = 1
        Value = '0'
      end>
    Left = 272
    Top = 88
  end
  object dspUserBooks: TDataSetProvider
    DataSet = adsUerBooks
    Constraints = True
    ResolveToDataSet = True
    Options = [poAllowCommandText]
    Left = 56
    Top = 160
  end
  object dspBooksFromJSB: TDataSetProvider
    DataSet = adsBooksFromJSB
    Constraints = True
    ResolveToDataSet = True
    Options = [poAllowCommandText]
    Left = 152
    Top = 160
  end
  object dspBooksFromBooks: TDataSetProvider
    DataSet = adsBooksFromBooks
    Constraints = True
    ResolveToDataSet = True
    Options = [poAllowCommandText]
    Left = 272
    Top = 160
  end
  object adoUser: TADODataSet
    Connection = ADOConnection1
    CommandText = 'Select top :Number * from User where ID=:aid'
    Parameters = <
      item
        Name = 'Number'
        Size = -1
        Value = Null
      end
      item
        Name = 'aid'
        DataType = ftString
        Size = 1
        Value = '0'
      end>
    Left = 152
    Top = 248
  end
  object dspUser: TDataSetProvider
    DataSet = adoUser
    Constraints = True
    Left = 152
    Top = 304
  end
  object adsJSB: TADODataSet
    Connection = ADOConnection1
    CommandText = 'select top :Number JYR,BookName,DJ,CS from '#20511#20070#34920' where id=:aid'
    Parameters = <
      item
        Name = 'Number'
        Size = -1
        Value = Null
      end
      item
        Name = 'aid'
        DataType = ftString
        Size = 2
        Value = '-1'
      end>
    Left = 56
    Top = 248
  end
  object adsBooks: TADODataSet
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    Left = 272
    Top = 248
  end
  object dspJSB: TDataSetProvider
    DataSet = adsJSB
    Constraints = True
    Left = 56
    Top = 312
  end
  object dspBooks: TDataSetProvider
    DataSet = adsBooks
    Constraints = True
    ResolveToDataSet = True
    Options = [poAllowCommandText]
    Left = 272
    Top = 312
  end
end