?? salary.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 = "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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -