ubookslogin.dfm

一.解压到某一目录后

object xzBooksLogin: TxzBooksLogin
  OldCreateOrder = False
  Pooled = False
  Left = 193
  Top = 132
  Height = 230
  Width = 267
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\MyDelphiApp\'#23567#29664#31199#20070 +
      #31649#29702#31995#32479'\sysDB.mdb;Persist Security Info=False'
    KeepConnection = False
    LoginPrompt = False
    Mode = cmRead
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 72
    Top = 24
  end
  object ADODataSet1: TADODataSet
    Connection = ADOConnection1
    CommandText = 'Select id,pw from '#25805#20316#20154#21592' where Name= :aName'
    Parameters = <
      item
        Name = 'aName'
        DataType = ftString
        Size = 1
        Value = '0'
      end>
    Left = 72
    Top = 80
  end
end