clsexperience.cls

这是一个利用VB编写的中小企业ERP。功能比较全

Version 1.0 Class
Begin
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
End
Attribute VB_Name = "ClsExperience"
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)
    '连接数据库
    MyDB.openDB
    
    SqlStmt = "DELETE FROM Experience WHERE Id=" _
               + Trim(Str(TmpId)) + " And Emp_Id=" _
               + Trim(Str(TmpEmpId))
    '执行SQL语句
    Dim Isexe As Boolean
    Dim rsExperience As ADODB.Recordset
    Isexe = MyDB.exeSql(SqlStmt, rsExperience, True)
    
    '断开与数据库的连接
    MyDB.closeDB
End Sub

'删除Experience数据

Public Sub DeleteByEmpId(ByVal TmpEmpId As Long)
    '连接数据库
    MyDB.openDB
    
    SqlStmt = "DELETE FROM Experience WHERE EmpId=" + Trim(Str(TmpEmpId))
    '执行SQL语句
    Dim Isexe As Boolean
    Dim rsExperience As ADODB.Recordset
    Isexe = MyDB.exeSql(SqlStmt, rsExperience, True)
    '断开与数据库的连接
    MyDB.closeDB
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
    
    '连接数据库
    MyDB.openDB
    
    SqlStmt = "SELECT * FROM Experience WHERE Id=" _
               + Trim(Str(TmpId)) + " And Emp_Id=" _
               + Trim(Str(Emp_Id))
    '执行SQL语句
    Dim Isexe As Boolean
    Dim rsExperience As ADODB.Recordset
    Isexe = MyDB.exeSql(SqlStmt, rsExperience, True)
    
    If rsExperience.RecordCount = 0 Then
        GetInfo = False
        Exit Function
    Else
        
        Start_Date = rsExperience.Fields("Start_Date")
        
        
        End_Date = rsExperience.Fields("End_Date")
        
        
        School_Org = rsExperience.Fields("School_Org")
        
        
        Title = rsExperience.Fields("Title")
    End If
    
    
    
    GetInfo = True
    '断开与数据库的连接
    MyDB.closeDB
End Function

Public Function GetNewId() As Long
    Dim TmpId As Long
    
    '连接数据库
    MyDB.openDB
    
    SqlStmt = "SELECT Id FROM Experience ORDER BY Id"
    
    
    '执行SQL语句
    Dim Isexe As Boolean
    Dim rsExperience As ADODB.Recordset
    Isexe = MyDB.exeSql(SqlStmt, rsExperience, True)
    
    i = 1
    Do While rsExperience.EOF = False
        
        TmpId = rsExperience.Fields("Id")
        If TmpId = i Then
            i = i + 1
        Else
            GetNewId = i
            '断开与数据库的连接
            MyDB.closeDB
            Exit Function
        End If
        rsExperience.MoveNext
    Loop
    '断开与数据库的连接
    MyDB.closeDB
    
    GetNewId = i
End Function

Public Sub Insert(ByVal TmpEmpId As Long)
    Id = GetNewId()
    '连接数据库
    MyDB.openDB
    
    SqlStmt = "INSERT INTO Experience Values(" _
               + Trim(Str(Id)) + "," + Trim(Str(TmpEmpId)) _
               + ",'" + Trim(Start_Date) + "','" + Trim(End_Date) + "','" _
               + Trim(School_Org) + "','" + Trim(Title) + "')"
    '执行SQL语句
    Dim Isexe As Boolean
    Dim rsExperience As ADODB.Recordset
    Isexe = MyDB.exeSql(SqlStmt, rsExperience, True)
    
    '断开与数据库的连接
    MyDB.closeDB
End Sub

Public Sub Update(ByVal OriEmpId As Long, _
                  ByVal OriId As Long)
    '连接数据库
    MyDB.openDB
    
    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))
    
    '执行SQL语句
    Dim Isexe As Boolean
    Dim rsExperience As ADODB.Recordset
    Isexe = MyDB.exeSql(SqlStmt, rsExperience, True)
    
    '断开与数据库的连接
    MyDB.closeDB
End Sub