udata.dfm

这是一个门禁系统的应用程序,用 delphi编写,希望与大家交流.

object dmPer: TdmPer
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  OnDestroy = DataModuleDestroy
  Left = 193
  Top = 104
  Height = 212
  Width = 399
  object acPer: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=permi' +
      's.mdb;Extended Properties="";Persist Security Info=False;Jet OLE' +
      'DB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Datab' +
      'ase Password=780927+790621;Jet OLEDB:Engine Type=5;Jet OLEDB:Dat' +
      'abase Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLE' +
      'DB:Global Bulk Transactions=1;Jet OLEDB:New Database Password=""' +
      ';Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Databa' +
      'se=False;Jet OLEDB:Don'#39't Copy Locale on Compact=False;Jet OLEDB:' +
      'Compact Without Replica Repair=False;Jet OLEDB:SFP=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 8
    Top = 8
  end
  object aqSta: TADOQuery
    Connection = acPer
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from stainfo')
    Left = 64
    Top = 8
  end
  object dsSta: TDataSource
    DataSet = aqSta
    Left = 64
    Top = 56
  end
  object aqDep: TADOQuery
    Connection = acPer
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from dept order by ornum')
    Left = 304
    Top = 8
  end
  object dsDep: TDataSource
    DataSet = aqDep
    Left = 304
    Top = 56
  end
  object aqExper: TADOQuery
    Connection = acPer
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from wexper')
    Left = 104
    Top = 8
  end
  object dsExper: TDataSource
    DataSet = aqExper
    Left = 104
    Top = 56
  end
  object aqFami: TADOQuery
    Connection = acPer
    Parameters = <>
    SQL.Strings = (
      'select * from family')
    Left = 144
    Top = 8
  end
  object dsFami: TDataSource
    DataSet = aqFami
    Left = 144
    Top = 56
  end
  object aqAP: TADOQuery
    Connection = acPer
    Parameters = <>
    SQL.Strings = (
      'select * from aandp')
    Left = 184
    Top = 8
  end
  object dsAP: TDataSource
    DataSet = aqAP
    Left = 184
    Top = 56
  end
  object aqTrain: TADOQuery
    Connection = acPer
    Parameters = <>
    SQL.Strings = (
      'select * from train')
    Left = 224
    Top = 8
  end
  object dsTrain: TDataSource
    DataSet = aqTrain
    Left = 224
    Top = 56
  end
  object aqStaf: TADOQuery
    Connection = acPer
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from stainfo')
    Left = 64
    Top = 128
  end
  object aqExperf: TADOQuery
    Connection = acPer
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from wexper')
    Left = 104
    Top = 128
  end
  object aqAPf: TADOQuery
    Connection = acPer
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from aandp')
    Left = 184
    Top = 128
  end
  object aqFamif: TADOQuery
    Connection = acPer
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from family')
    Left = 144
    Top = 128
  end
  object aqTrainf: TADOQuery
    Connection = acPer
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from train')
    Left = 224
    Top = 128
  end
  object aqStat: TADOQuery
    Connection = acPer
    Parameters = <>
    SQL.Strings = (
      'select count(id) from stainfo')
    Left = 264
    Top = 8
  end
  object aqSDep: TADOQuery
    Connection = acPer
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from dept order by ornum')
    Left = 344
    Top = 8
  end
  object dsSDep: TDataSource
    DataSet = aqSDep
    Left = 344
    Top = 56
  end
end