uxzbooksjiebook.dfm

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

object xzBooksJieBook: TxzBooksJieBook
  OldCreateOrder = False
  Pooled = False
  Left = 193
  Top = 132
  Height = 276
  Width = 429
  object ADOConnection1: TADOConnection
    KeepConnection = False
    LoginPrompt = False
    Mode = cmReadWrite
    Left = 80
    Top = 48
  end
  object adoBooks: TADODataSet
    Connection = ADOConnection1
    CommandText = 'select * from '#22270#20070#24211' where id= :aID'
    Parameters = <
      item
        Name = 'aID'
        DataType = ftString
        Size = 3
        Value = '001'
      end>
    Left = 80
    Top = 112
  end
  object adoGetUserName: TADODataSet
    Connection = ADOConnection1
    CommandText = 'select Name,JSXS from users where id=:aid'
    Parameters = <
      item
        Name = 'aid'
        DataType = ftString
        Size = 2
        Value = '01'
      end>
    Left = 80
    Top = 168
  end
  object adoJS: TADODataSet
    Connection = ADOConnection1
    CommandText = 'select * from '#20511#20070#34920' where 1=2'
    Parameters = <>
    Left = 160
    Top = 112
  end
  object adoJSXS: TADODataSet
    Connection = ADOConnection1
    CommandText = 'select jsxs from Users where id = :aid'
    Parameters = <
      item
        Name = 'aid'
        DataType = ftString
        Size = 2
        Value = '01'
      end>
    Left = 272
    Top = 112
  end
  object adoJSBS: TADODataSet
    Connection = ADOConnection1
    CommandText = 'select * from '#20511#20070#34920' where jyrdh= :aid'
    Parameters = <
      item
        Name = 'aid'
        Size = -1
        Value = Null
      end>
    Left = 360
    Top = 112
  end
  object adoMax: TADODataSet
    Connection = ADOConnection1
    CommandText = 'select Max from '#31199#20511#24418#24335' where id= :aid'
    Parameters = <
      item
        Name = 'aid'
        DataType = ftInteger
        Size = 2
        Value = 0
      end>
    Left = 272
    Top = 168
  end
end