udata.dfm

一个很好的员工档案管理系统源码 有无限制树

object DM: TDM
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  OnDestroy = DataModuleDestroy
  Left = 193
  Top = 104
  Height = 303
  Width = 550
  object acPer: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=rsgl.' +
      'mdb;Extended Properties="";Persist Security Info=False;Jet OLEDB' +
      ':System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Databas' +
      'e Password=780927+790621;Jet OLEDB:Engine Type=5;Jet OLEDB:Datab' +
      'ase Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB' +
      ':Global Bulk Transactions=1;Jet OLEDB:New Database Password="";J' +
      'et OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database' +
      '=False;Jet OLEDB:Don'#39't Copy Locale on Compact=False;Jet OLEDB:Co' +
      'mpact Without Replica Repair=False;Jet OLEDB:SFP=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 80
    Top = 8
  end
  object aqSta: TADOQuery
    Connection = acPer
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from stainfo')
    Left = 24
    Top = 64
  end
  object dsSta: TDataSource
    DataSet = aqSta
    Left = 24
    Top = 112
  end
  object aqDept: TADOQuery
    Connection = acPer
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from dept order by ornum')
    Left = 336
    Top = 64
  end
  object dsDept: TDataSource
    DataSet = aqDept
    Left = 336
    Top = 112
  end
  object aqExper: TADOQuery
    Connection = acPer
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from wexper')
    Left = 80
    Top = 64
  end
  object dsExper: TDataSource
    DataSet = aqExper
    Left = 80
    Top = 112
  end
  object aqTrain: TADOQuery
    Connection = acPer
    Parameters = <>
    SQL.Strings = (
      'select * from train')
    Left = 240
    Top = 64
  end
  object dsTrain: TDataSource
    DataSet = aqTrain
    Left = 240
    Top = 112
  end
  object aqStaf: TADOQuery
    Connection = acPer
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from stainfo')
    Left = 24
    Top = 184
  end
  object aqExperf: TADOQuery
    Connection = acPer
    CursorType = ctStatic
    DataSource = dsFrt
    Parameters = <>
    SQL.Strings = (
      'select * from wexper')
    Left = 80
    Top = 184
  end
  object aqTrainf: TADOQuery
    Connection = acPer
    CursorType = ctStatic
    DataSource = dsFrt
    Parameters = <>
    SQL.Strings = (
      'select * from train')
    Left = 240
    Top = 184
  end
  object aqStat: TADOQuery
    Connection = acPer
    Parameters = <>
    SQL.Strings = (
      'select count(id) from stainfo')
    Left = 152
    Top = 192
  end
  object dsFrt: TDataSource
    DataSet = aqStaf
    Left = 336
    Top = 184
  end
end