datamodule.dfm

用delphi开发的人事管理系统

object DataModule1: TDataModule1
  OldCreateOrder = False
  Left = 455
  Top = 181
  Height = 430
  Width = 382
  object Database: TDatabase
    AliasName = 'renshi'
    DatabaseName = 'sa'
    LoginPrompt = False
    Params.Strings = (
      'USER NAME=sa'
      'PASSWORD=19800127')
    SessionName = 'Default'
    Left = 24
    Top = 8
  end
  object T_user: TTable
    DatabaseName = 'sa'
    FieldDefs = <
      item
        Name = 'ID'
        Attributes = [faRequired, faFixed]
        DataType = ftString
        Size = 6
      end
      item
        Name = 'PASSWD'
        Attributes = [faRequired, faFixed]
        DataType = ftString
        Size = 20
      end
      item
        Name = 'AUTHORITY'
        Attributes = [faFixed]
        DataType = ftString
        Size = 1
      end
      item
        Name = 'NAME'
        DataType = ftString
        Size = 10
      end
      item
        Name = 'SEX'
        Attributes = [faRequired, faFixed]
        DataType = ftString
        Size = 1
      end
      item
        Name = 'BIRTHDAY'
        DataType = ftDateTime
      end
      item
        Name = 'DEPARTMENT'
        Attributes = [faFixed]
        DataType = ftString
        Size = 3
      end
      item
        Name = 'JOB'
        Attributes = [faFixed]
        DataType = ftString
        Size = 3
      end
      item
        Name = 'EDU_LEVEL'
        Attributes = [faFixed]
        DataType = ftString
        Size = 1
      end
      item
        Name = 'SPECIALTY'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'ADDRESS'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'TEL'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'EMAIL'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'STATE'
        Attributes = [faFixed]
        DataType = ftString
        Size = 1
      end
      item
        Name = 'REMARK'
        DataType = ftMemo
        Size = 1
      end>
    IndexDefs = <
      item
        Name = 'PERSON_ID'
        Fields = 'ID'
        Options = [ixUnique]
      end>
    StoreDefs = True
    TableName = 'dbo.PERSON'
    Left = 24
    Top = 56
  end
  object T_add_user: TTable
    DatabaseName = 'sa'
    TableName = 'dbo.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 = 'sa'
    TableName = 'dbo.COUNTER'
    Left = 24
    Top = 176
  end
  object T_department: TTable
    DatabaseName = 'sa'
    TableName = 'dbo.DEPARTMENT'
    Left = 24
    Top = 224
  end
  object DS_department: TDataSource
    DataSet = T_department
    Left = 104
    Top = 224
  end
  object T_job: TTable
    DatabaseName = 'sa'
    TableName = 'dbo.JOB'
    Left = 24
    Top = 280
  end
  object T_edu_level: TTable
    DatabaseName = 'sa'
    TableName = 'dbo.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 = 'sa'
    TableName = 'dbo.PERSONNEL'
    Left = 224
    Top = 224
  end
  object DS_user: TDataSource
    DataSet = T_user
    Left = 104
    Top = 56
  end
  object T_user_2: TTable
    DatabaseName = 'sa'
    TableName = 'dbo.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 = 'sa'
    TableName = 'dbo.PERSONNEL'
    Left = 224
    Top = 336
  end
  object DS_change_list: TDataSource
    DataSet = T_change_list
    Left = 296
    Top = 336
  end
  object T_changed: TTable
    DatabaseName = 'sa'
    TableName = 'dbo.PERSONNEL_CHANGE'
    Left = 224
    Top = 176
  end
  object DS_changed: TDataSource
    DataSet = T_changed
    Left = 304
    Top = 176
  end
end