?? 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 40 用戶名
'2 Pwd Varchar 40 密碼
Public UserName As String
Public Pwd As String
Public Sub Init()
UserName = ""
Pwd = ""
End Sub
'刪除Users數(shù)據(jù)
Public Sub Delete(ByVal TmpUser As String)
If Format(TmpUser, "<") = "admin" 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
Init
Exit Function
Else
ColVal = String(400, 0)
Rc = SQLGetData(Hstmt, 2, 1, ColVal, Lench(ColVal), pcblen)
Pwd = 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
SqlStmt = "SELECT * FROM Users WHERE UserName='" + Trim(TmpUser) + "'"
OdbcExt (SqlStmt)
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 + -