umodule.dfm

本程序是人事管理系统.对数据进行的操作有数据更新数据查询数据删除.本程序利用DataModuleado操作数据库,通过ado+Sqlserver数据库达成人事系统的建立.

object DataModule1: TDataModule1
  OldCreateOrder = False
  Left = 65519
  Top = 108
  Height = 511
  Width = 635
  object Database: TDatabase
    AliasName = 'MISData'
    Connected = True
    DatabaseName = 'C03'
    LoginPrompt = False
    Params.Strings = (
      'SERVER NAME=red:MISDB'
      'USER NAME=MISDBA'
      'OPEN MODE=READ/WRITE'
      'SCHEMA CACHE SIZE=8'
      'LANGDRIVER='
      'SQLQRYMODE='
      'SQLPASSTHRU MODE=SHARED AUTOCOMMIT'
      'SCHEMA CACHE TIME=-1'
      'MAX ROWS=-1'
      'BATCH COUNT=200'
      'ENABLE SCHEMA CACHE=FALSE'
      'SCHEMA CACHE DIR='
      'ENABLE BCD=FALSE'
      'BLOBS TO CACHE=64'
      'BLOB SIZE=32'
      'PASSWORD=PASSWORD')
    SessionName = 'Default'
    Left = 24
    Top = 8
  end
  object T_user: TTable
    Active = True
    DatabaseName = 'C03'
    TableName = 'PERSON'
    Left = 24
    Top = 56
  end
  object T_add_user: TTable
    Active = True
    DatabaseName = 'C03'
    TableName = 'PERSON'
    Left = 24
    Top = 112
  end
  object DS_add_user: TDataSource
    DataSet = T_add_user
    Left = 104
    Top = 112
  end
  object T_counter: TTable
    DatabaseName = 'C03'
    TableName = 'COUNTER'
    Left = 24
    Top = 176
  end
  object T_department: TTable
    DatabaseName = 'C03'
    TableName = 'DEPARTMENT'
    Left = 24
    Top = 224
  end
  object DS_department: TDataSource
    DataSet = T_department
    Left = 104
    Top = 224
  end
  object T_job: TTable
    DatabaseName = 'C03'
    TableName = 'JOB'
    Left = 24
    Top = 280
  end
  object T_edu_level: TTable
    DatabaseName = 'C03'
    TableName = 'EDU_LEVEL'
    Left = 24
    Top = 328
  end
  object DS_job: TDataSource
    DataSet = T_job
    Left = 104
    Top = 280
  end
  object DS_edu_level: TDataSource
    DataSet = T_edu_level
    Left = 104
    Top = 328
  end
  object T_change: TTable
    DatabaseName = 'C03'
    TableName = 'PERSONNEL'
    Left = 224
    Top = 224
  end
  object DS_user: TDataSource
    DataSet = T_user
    Left = 104
    Top = 56
  end
  object T_user_2: TTable
    DatabaseName = 'C03'
    TableName = 'PERSON'
    Left = 224
    Top = 280
  end
  object DS_user_2: TDataSource
    DataSet = T_user_2
    Left = 296
    Top = 280
  end
  object T_change_list: TTable
    DatabaseName = 'C03'
    TableName = 'PERSONNEL'
    Left = 224
    Top = 336
  end
  object DS_change_list: TDataSource
    DataSet = T_change_list
    Left = 296
    Top = 336
  end
end