?? users.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 = "Users"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'1 UserName Varchar 50 用戶名
'2 Pwd Varchar 50 密碼
'3 EmpName Varchar 50 員工姓名
Public UserName As String
Public Pwd As String
Public empname As String
Public Sub Init()
UserName = ""
Pwd = ""
End Sub
'刪除Users數據
Public Sub Delete(ByVal TmpUser As String)
If TmpUser = "" Then
Exit Sub
End If
DB_Connect
SqlStmt = "DELETE FROM Users WHERE UserName='" _
+ Trim(TmpUser) + "'"
OdbcExt (SqlStmt)
Rc = SQLFreeStmt(Hstmt, SQL_DROP)
DB_Disconnect
End Sub
Public Function GetInfo(ByVal TmpUser As String) As Boolean
UserName = TmpUser
DB_Connect
SqlStmt = "SELECT * FROM Users WHERE UserName='" _
+ Trim(TmpUser) + "'"
OdbcExt (SqlStmt)
If SQLFetch(Hstmt) = SQL_NO_DATA_FOUND Then
GetInfo = False
Exit Function
Else
ColVal = String(400, 0)
Rc = SQLGetData(Hstmt, 2, 1, ColVal, Lench(ColVal), pcblen)
Pwd = TrimStr(ColVal)
ColVal = String(400, 0)
Rc = SQLGetData(Hstmt, 3, 1, ColVal, Lench(ColVal), pcblen)
empname = TrimStr(ColVal)
End If
Rc = SQLFreeStmt(Hstmt, SQL_DROP)
GetInfo = True
DB_Disconnect
End Function
Public Function In_DB(ByVal TmpUser As String) As Boolean
'連接數據庫
DB_Connect
'設置SQL語句,讀取指定的用戶名
SqlStmt = "SELECT * FROM Users WHERE UserName='" _
+ Trim(TmpUser) + "'"
'執行SQL語句
OdbcExt (SqlStmt)
'如果結果集中有數據,則返回True;否則返回False
If SQLFetch(Hstmt) = SQL_NO_DATA_FOUND Then
In_DB = False
Else
In_DB = True
End If
Rc = SQLFreeStmt(Hstmt, SQL_DROP)
'斷開與數據庫的連接
DB_Disconnect
End Function
Public Sub Insert()
DB_Connect
SqlStmt = "INSERT INTO Users Values('" _
+ Trim(UserName) + "','" + Trim(Pwd) _
+ "')"
OdbcExt (SqlStmt)
Rc = SQLFreeStmt(Hstmt, SQL_DROP)
DB_Disconnect
End Sub
Public Sub Update(ByVal TmpUser As String)
DB_Connect
SqlStmt = "Update Users Set UserName='" + Trim(UserName) _
+ "',Pwd='" + Trim(Pwd) _
+ "' WHERE UserName='" + Trim(TmpUser) + "'"
OdbcExt (SqlStmt)
Rc = SQLFreeStmt(Hstmt, SQL_DROP)
DB_Disconnect
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -