employeedao.cls

即时通讯

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "employeeDAO"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'**************************************
'*    模 块 名 称 :员工管理模块中的数据据库操作
'*    功 能 描 述 :员工管理模块中的数据据库操作
'*    程序员姓名  : 石春晓
'*    最后修改人  : 石春晓
'*    最后修改时间:2005/09/03
'**************************************
Option Explicit
'**************************************
'*    功 能 描 述 :取得所有员工的列表
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function FindAll(recSet As ADODB.Recordset, id As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    FindAll = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "Employee_findAll"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters(1) = id
    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            FindAll = True
        Else
            FindAll = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    FindAll = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :新增一条员工数据
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  新增成功
'*                 False          -  新增失败
'**************************************
Public Function NewEmployee(recSet As ADODB.Recordset, _
                              name As String, password As String, sex As String, birthday As String, _
                              nation As String, native As String, bloodtype As String, id As String, _
                              stature As String, avoirdupois As String, homeaddress As String, studyresume As String _
                              , specialty As Date, finishschool As String, polityvisage As String, languagesort As String _
                              , languagelevel As String, computerability As String, marrystate As String, familystate As String _
                              , localdepartment As String, job As String, jobname As String, startdate As Date _
                              , officephone As String, familyphone As String, mobile As String, email As String _
                              , instancynotice As String, postcode As String, address As String, healthstate As String _
                              , memo As String, pictureid As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    NewEmployee = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "EmployeeRecord_add"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = name              ' 参数
    cmdProc.Parameters(2) = password          ' 参数
    cmdProc.Parameters(3) = sex               ' 参数
    cmdProc.Parameters(4) = birthday          ' 参数
    cmdProc.Parameters(5) = nation            ' 参数
    cmdProc.Parameters(6) = native            ' 参数
    cmdProc.Parameters(7) = bloodtype         ' 参数
    cmdProc.Parameters(8) = id                ' 参数
    cmdProc.Parameters(9) = stature           ' 参数
    cmdProc.Parameters(10) = avoirdupois      ' 参数
    cmdProc.Parameters(11) = homeaddress      ' 参数
    cmdProc.Parameters(12) = studyresume      ' 参数
    cmdProc.Parameters(13) = specialty        ' 参数
    cmdProc.Parameters(14) = finishschool     ' 参数
    cmdProc.Parameters(15) = polityvisage     ' 参数
    cmdProc.Parameters(16) = languagesort     ' 参数
    cmdProc.Parameters(17) = languagelevel    ' 参数
    cmdProc.Parameters(18) = computerability  ' 参数
    cmdProc.Parameters(19) = marrystate       ' 参数
    cmdProc.Parameters(20) = familystate      ' 参数
    cmdProc.Parameters(21) = localdepartment  ' 参数
    cmdProc.Parameters(22) = job              ' 参数
    cmdProc.Parameters(23) = jobname          ' 参数
    cmdProc.Parameters(24) = startdate        ' 参数
    cmdProc.Parameters(25) = officephone      ' 参数
    cmdProc.Parameters(26) = familyphone      ' 参数
    cmdProc.Parameters(27) = mobile           ' 参数
    cmdProc.Parameters(28) = email            ' 参数
    cmdProc.Parameters(29) = instancynotice   ' 参数
    cmdProc.Parameters(30) = postcode         ' 参数
    cmdProc.Parameters(31) = address          ' 参数
    cmdProc.Parameters(32) = healthstate      ' 参数
    cmdProc.Parameters(33) = memo             ' 参数
    cmdProc.Parameters(34) = pictureid             ' 参数
    
    ' 执行命令 把查询到的结果放在recSet中
    MainForm.g_application.m_databaseCon.m_adoConnection.BeginTrans    ' 开始事务
    
    On Error GoTo Cwcl
       cmdProc.Execute

   
   MainForm.g_application.m_databaseCon.m_adoConnection.CommitTrans   ' 结束事务
    Exit Function
    
Cwcl:
    MainForm.g_application.m_databaseCon.m_adoConnection.RollbackTrans   ' 回滚事务
    NewEmployee = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :修改一条员工数据
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  新增成功
'*                 False          -  新增失败
'**************************************
Public Function ModifyEmployee(recSet As ADODB.Recordset, _
                              name As String, password As String, sex As String, birthday As String, _
                              nation As String, native As String, bloodtype As String, id As String, _
                              stature As String, avoirdupois As String, homeaddress As String, studyresume As String _
                              , specialty As Date, finishschool As String, polityvisage As String, languagesort As String _
                              , languagelevel As String, computerability As String, marrystate As String, personalWeb As String _
                              , localdepartment As String, job As String, jobname As String, startdate As String _
                              , officephone As String, familyphone As String, mobile As String, email As String _
                              , instancynotice As String, postcode As String, address As String, healthstate As String _
                              , memo As String, pictureid As String, employeeid As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    Dim fieldType As String
    
    ModifyEmployee = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "EmployeeRecord_modify"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    
    cmdProc.Parameters(1) = name              ' 参数
    cmdProc.Parameters(2) = password          ' 参数
    cmdProc.Parameters(3) = sex               ' 参数
    cmdProc.Parameters(4) = birthday          ' 参数
    cmdProc.Parameters(5) = nation            ' 参数
    cmdProc.Parameters(6) = native            ' 参数
    cmdProc.Parameters(7) = bloodtype         ' 参数
    cmdProc.Parameters(8) = id                ' 参数
    cmdProc.Parameters(9) = stature           ' 参数
    cmdProc.Parameters(10) = avoirdupois      ' 参数
    cmdProc.Parameters(11) = homeaddress      ' 参数
    cmdProc.Parameters(12) = studyresume      ' 参数
    cmdProc.Parameters(13) = specialty        ' 参数
    cmdProc.Parameters(14) = finishschool     ' 参数
    cmdProc.Parameters(15) = polityvisage     ' 参数
    cmdProc.Parameters(16) = languagesort     ' 参数
    cmdProc.Parameters(17) = languagelevel    ' 参数
    cmdProc.Parameters(18) = computerability  ' 参数
    cmdProc.Parameters(19) = marrystate       ' 参数
    
    fieldType = cmdProc.Parameters(20).Type
    fieldType = cmdProc.Parameters(19).Type
    cmdProc.Parameters(20) = personalWeb      ' 参数

    
    cmdProc.Parameters(21) = localdepartment  ' 参数
    cmdProc.Parameters(22) = job              ' 参数
    cmdProc.Parameters(23) = jobname          ' 参数
    cmdProc.Parameters(24) = startdate        ' 参数
    cmdProc.Parameters(25) = officephone      ' 参数
    cmdProc.Parameters(26) = familyphone      ' 参数
    cmdProc.Parameters(27) = mobile           ' 参数
    cmdProc.Parameters(28) = email            ' 参数
    cmdProc.Parameters(29) = instancynotice   ' 参数
    cmdProc.Parameters(30) = postcode         ' 参数
    cmdProc.Parameters(31) = address          ' 参数
    cmdProc.Parameters(32) = healthstate      ' 参数
    cmdProc.Parameters(33) = memo             ' 参数
    cmdProc.Parameters(34) = pictureid             ' 参数
    cmdProc.Parameters(35) = employeeid       ' 参数
    ' 执行命令 把查询到的结果放在recSet中
    MainForm.g_application.m_databaseCon.m_adoConnection.BeginTrans    ' 开始事务
    
    On Error GoTo Cwcl
           cmdProc.Execute
           ModifyEmployee = True

    MainForm.g_application.m_databaseCon.m_adoConnection.CommitTrans   ' 结束事务
    ModifyEmployee = True
    Exit Function
    
Cwcl:
    MainForm.g_application.m_databaseCon.m_adoConnection.RollbackTrans   ' 回滚事务
    ModifyEmployee = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :根据员工编号取得所有员工的列表
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function FindById(recSet As ADODB.Recordset, houseId As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    FindById = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "EmployeeRecord_findById"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = houseId             ' 参数
    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            FindById = True
        Else
            FindById = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    FindById = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :根据员工编号从表中删除一条员工记录
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function DeleteById(recSet As ADODB.Recordset, houseId As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    DeleteById = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "EmployeeRecord_delete"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = houseId             ' 参数
    cmdProc.Parameters(2) = "1"             ' 参数