salary.cls

企业人员管理 前台是vb 后台是用sql server2000做的

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Salary"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 Staff_Id  Int 员工编号
'2 Base_Sal  Int 基本工资
'3 Bonus  Int 奖金
'4 Total_Sal Int 20  总工资

Public Staff_Id As Long
Public Base_Sal, Bonus As Long
Public Total_Sal As Long

Public Sub Init()
  Staff_Id = 0
  Base_Sal = 0
  Bonus = 0
  Total_Sal = 0
End Sub

'删除单个数据
Public Sub DeleteById(ByVal TmpId As Integer)
  '连接数据库
  DB_Connect
  'SQL语句
  SqlStmt = "DELETE FROM Salary WHERE Staff_Id=" + Trim(Str(TmpId))
  '执行SQL语句
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  '断开与数据库的连接
  DB_Disconnect
End Sub

Public Function GetInfo(ByVal TmpId As Long) As Boolean
  Staff_Id = TmpId
  
  DB_Connect
  
  SqlStmt = "SELECT * FROM Salary WHERE Staff_Id=" + Trim(Str(TmpId))
  OdbcExt (SqlStmt)

  If SQLFetch(Hstmt) = SQL_NO_DATA_FOUND Then
    GetInfo = False
    Init
    Exit Function
  Else
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 2, 1, ColVal, Lench(ColVal), pcblench)
    Base_Sal = Val(TrimStr(ColVal))
    
    ColVal = String(400, 0)
    Rc = SQLGetData(Hstmt, 3, 1, ColVal, Lench(ColVal), pcblench)
    Bonus = Val(TrimStr(ColVal))

    Total_Sal = Base_Sal + Bonus
    
  End If
    
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  
  GetInfo = True
  DB_Disconnect
End Function

Public Sub Insert()
  DB_Connect
  
  SqlStmt = "INSERT INTO Salary (Staff_Id, Base_Sal, Bonus" _
     + " ) Values(" + Trim(Str(Staff_Id)) _
     + "," + Trim(Str(Base_Sal)) + "," + Trim(Str(Bonus)) _
    + ")"
  OdbcExt (SqlStmt)
    
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub

Public Sub Update(ByVal OriId As Long)
  DB_Connect
  
  SqlStmt = "Update Salary Set Base_Sal='" + Trim(Str(Base_Sal)) _
          + "',Bonus='" + Trim(Str(Bonus)) _
          + "' WHERE Staff_Id=" + Trim(Str(OriId))
          
  OdbcExt (SqlStmt)
  Rc = SQLFreeStmt(Hstmt, SQL_DROP)
  DB_Disconnect
End Sub