?? module2.bas
字號:
Attribute VB_Name = "Module2"
Public db As New ADODB.Connection
Public usname As String
Sub openrs(rs As ADODB.Recordset, sqlstr As String)
Set rs.ActiveConnection = db
rs.CursorLocation = adUseServer
rs.CursorType = adOpenDynamic
rs.LockType = adLockOptimistic
rs.Source = sqlstr
rs.Open
End Sub
Function getpasswd(username As String) As String
getpasswd = ""
Dim rspass As New ADODB.Recordset
Call openrs(rspass, "select psbit,psd1,psd2,psd3,psd4,psd5,psd6 from passd where user='" + username + "'")
If rspass.EOF() And rspass.BOF() Then
getpasswd = Chr(13)
rspass.Close
Set rspass = Nothing
Exit Function
End If
Dim i As Integer
For i = 1 To rspass!psbit
getpasswd = getpasswd & Chr(rspass.Fields(i).Value Xor 188)
Next i
rspass.Close
Set rspass = Nothing
End Function
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -