uhs.dfm

图书管理系统,采用delphi开发工具,是个小型的管理系统,该压缩文件只提供源代码

object xzBooksHS: TxzBooksHS
  OldCreateOrder = False
  Pooled = False
  Left = 193
  Top = 129
  Height = 240
  Width = 455
  object ADOConnection1: TADOConnection
    KeepConnection = False
    LoginPrompt = False
    Mode = cmReadWrite
    Left = 72
    Top = 32
  end
  object adsJSB: TADODataSet
    Connection = ADOConnection1
    CommandText = 'select * from '#20511#20070#34920' where jyrdh=:aid'
    Parameters = <
      item
        Name = 'aid'
        DataType = ftString
        Size = 1
        Value = '0'
      end>
    Left = 72
    Top = 88
  end
  object adsBooks: TADODataSet
    Connection = ADOConnection1
    CommandText = 'select * from '#22270#20070#24211' where id= :aid'
    Parameters = <
      item
        Name = 'aid'
        DataType = ftString
        Size = 1
        Value = '0'
      end>
    Left = 168
    Top = 88
  end
  object adsJSB4BookID: TADODataSet
    Connection = ADOConnection1
    CommandText = 'select * from '#20511#20070#34920' where bookid=:aid'
    Parameters = <
      item
        Name = 'aid'
        Size = -1
        Value = Null
      end>
    Left = 72
    Top = 144
  end
  object adsTimes: TADODataSet
    Connection = ADOConnection1
    CommandText = 'Select Times from '#22270#20070#24211' where id= :aid'
    Parameters = <
      item
        Name = 'aid'
        DataType = ftString
        Size = 1
        Value = '0'
      end>
    Left = 248
    Top = 88
  end
  object adsMoney: TADODataSet
    Connection = ADOConnection1
    CommandText = 'select MTJG from '#31199#20511#24418#24335' where id = :aid'
    Parameters = <
      item
        Name = 'aid'
        DataType = ftString
        Size = 1
        Value = '0'
      end>
    Left = 248
    Top = 144
  end
  object adsUserJSXS: TADODataSet
    Connection = ADOConnection1
    CommandText = 'select JSXS from users where ID = :aid'
    Parameters = <
      item
        Name = 'aid'
        DataType = ftString
        Size = 1
        Value = '0'
      end>
    Left = 168
    Top = 144
  end
  object adsUserBooks: TADODataSet
    Connection = ADOConnection1
    CommandText = 'select cs from '#20511#20070#34920' where jyrdh= :aid'
    Parameters = <
      item
        Name = 'aid'
        DataType = ftString
        Size = 1
        Value = '0'
      end>
    Left = 336
    Top = 88
  end
end