experience.cls

vb+sql 的企业人事管理系统 c/s模式 适合初学者使用

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Experience"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 Id  TinyInt Id
'2 Emp_Id  Int 员工id号
'3 Start_Date  Varchar 10  开始日期
'4 End_Date  Varchar 10  终止日期
'5 School_Org  Varchar 50  学校/单位
'6 Title Varchar 20  职务

Public Id As Integer
Public Emp_Id As Long
Public Start_Date, End_Date As String
Public School_Org As String
Public Title As String

Public Sub Init()
  Id = 0
  Emp_Id = 0
  Start_Date = ""
  End_Date = ""
  School_Org = ""
  Title = ""
End Sub

'删除Experience数据
Public Sub DeleteById(ByVal TmpEmpId As Long, _
                      ByVal TmpId As Integer)
  DB_Connect
  
  SqlStmt = "DELETE FROM Experience WHERE Id=" _
          + Trim(Str(TmpId)) + " And Emp_Id=" _
          + Trim(Str(TmpEmpId))
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
End Sub

'删除Experience数据
Public Sub DeleteByEmpId(ByVal TmpEmpId As Long)
  DB_Connect
  
  SqlStmt = "DELETE FROM Experience WHERE EmpId=" + Trim(Str(TmpEmpId))
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
End Sub

Public Function GetInfo(ByVal TmpEmpId As Long, _
                        ByVal TmpId As Long) As Boolean
  If TmpId <= 0 Or TmpEmpId <= 0 Then
    GetInfo = False
    Exit Function
  End If
  
  Id = TmpId
  Emp_Id = TmpEmpId
  
  DB_Connect
  
  SqlStmt = "SELECT * FROM Experience WHERE Id=" _
          + Trim(Str(TmpId)) + " And Emp_Id=" _
          + Trim(Str(Emp_Id))
  OdbcExt (SqlStmt)

  If SQLFetch(Hstmt) = SQL_NO_DATA_FOUND Then
    GetInfo = False
    Exit Function
  Else
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 3, 1, ColVal, Lench(ColVal), pcblench)
    Start_Date = TrimStr(ColVal)
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 4, 1, ColVal, Lench(ColVal), pcblench)
    End_Date = TrimStr(ColVal)

    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 5, 1, ColVal, Lench(ColVal), pcblench)
    School_Org = TrimStr(ColVal)
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 6, 1, ColVal, Lench(ColVal), pcblench)
    Title = TrimStr(ColVal)
  End If
    
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  GetInfo = True
  DB_Disconnect
End Function

Public Function GetNewId() As Long
  Dim TmpId As Long
  
  DB_Connect
    
  SqlStmt = "SELECT Id FROM Experience ORDER BY Id"
  OdbcExt (SqlStmt)
  i = 1
  Do While SQLFetch(Hstmt) <> SQL_NO_DATA_FOUND
    ColVal = String(40, 0)
    Rc = SQLGetData(Hstmt, 1, 1, ColVal, Len(ColVal), pcblen)
    TmpId = Val(ColVal)
    If TmpId = i Then
      i = i + 1
    Else
      GetNewId = i
      Rc = SQLFreeStmt(Hstmt, SQL_DROP)
      DB_Disconnect
      Exit Function
    End If
  Loop
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  DB_Disconnect
  
  GetNewId = i
End Function

Public Sub Insert(ByVal TmpEmpId As Long)
  Id = GetNewId()
  
  DB_Connect
  
  SqlStmt = "INSERT INTO Experience Values(" _
     + Trim(Str(Id)) + "," + Trim(Str(TmpEmpId)) _
     + ",'" + Trim(Start_Date) + "','" + Trim(End_Date) + "','" _
     + Trim(School_Org) + "','" + Trim(Title) + "')"
  OdbcExt (SqlStmt)
    
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub

Public Sub Update(ByVal OriEmpId As Long, _
                  ByVal OriId As Long)
  DB_Connect
  
  SqlStmt = "Update Experience Set Start_Date='" + Trim(Start_Date) _
          + "',End_Date='" + Trim(End_Date) + "',School_Org='" _
          + Trim(School_Org) + "',Title='" + Trim(Title) _
          + "' WHERE Emp_Id=" + Trim(Str(OriEmpId)) _
          + " And Id=" + Trim(Str(OriId))
          
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub