dm.dfm

Delphi写的权限管理源代码

object FrmDm: TFrmDm
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 488
  Top = 362
  Height = 300
  Width = 348
  object ConnPolice: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Password="";Data Source=its.mdb' +
      ';Persist Security Info=True'
    LoginPrompt = False
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 24
    Top = 24
  end
  object QSetVisible: TADOQuery
    Connection = ConnPolice
    Parameters = <>
    Left = 96
    Top = 96
  end
  object QLogin: TADOQuery
    Connection = ConnPolice
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from jy')
    Left = 96
    Top = 24
  end
end