dmfrom.dfm

人事管理系统 开发工具是VB+access 比较简单

object DM: TDM
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 235
  Top = 175
  Height = 236
  Width = 333
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=H:\'#20316#19994 +
      '\'#23398#29983#31995#32479'\'#26700#38754'11\db1.mdb;Mode=Share Deny None;Extended Properties="";P' +
      'ersist Security Info=False;Jet OLEDB:System database="";Jet OLED' +
      'B:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engi' +
      'ne Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Par' +
      'tial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:N' +
      'ew Database Password="";Jet OLEDB:Create System Database=False;J' +
      'et OLEDB:Encrypt Database=False;Jet OLEDB:Don'#39't Copy Locale on C' +
      'ompact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet ' +
      'OLEDB:SFP=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 32
    Top = 16
  end
  object self: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'self'
    Left = 112
    Top = 16
  end
  object ds_self: TDataSource
    DataSet = self
    Left = 112
    Top = 64
  end
  object stu: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    IndexFieldNames = 'sid'
    MasterFields = 'id'
    MasterSource = ds_self
    TableName = 'stu'
    Left = 176
    Top = 16
  end
  object da_stu: TDataSource
    DataSet = stu
    Left = 176
    Top = 72
  end
  object work: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    IndexFieldNames = 'sid'
    MasterFields = 'id'
    MasterSource = ds_self
    TableName = 'wor'
    Left = 224
    Top = 24
  end
  object da_work: TDataSource
    DataSet = work
    Left = 224
    Top = 72
  end
  object pa: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    IndexFieldNames = 'sid'
    MasterFields = 'id'
    MasterSource = ds_self
    TableName = 'pa'
    Left = 264
    Top = 24
  end
  object da_pa: TDataSource
    DataSet = pa
    Left = 264
    Top = 72
  end
  object jc: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    IndexFieldNames = 'sid'
    MasterFields = 'id'
    MasterSource = ds_self
    TableName = 'jc'
    Left = 56
    Top = 72
  end
  object da_jc: TDataSource
    DataSet = jc
    Left = 56
    Top = 120
  end
  object fz: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    IndexFieldNames = 'sid'
    MasterFields = 'id'
    MasterSource = ds_self
    TableName = 'fz'
    Left = 120
    Top = 120
  end
  object da_fz: TDataSource
    DataSet = fz
    Left = 160
    Top = 120
  end
  object temp: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    AfterOpen = tempAfterOpen
    Parameters = <>
    SQL.Strings = (
      'select * '
      'from self')
    Left = 232
    Top = 136
  end
  object da_adosel: TDataSource
    DataSet = temp
    Left = 280
    Top = 136
  end
end