?? frmlogin.frm
字號:
VERSION 5.00
Begin VB.Form frmLogin
BorderStyle = 1 'Fixed Single
Caption = "系統登錄"
ClientHeight = 4095
ClientLeft = 2400
ClientTop = 2385
ClientWidth = 6045
Icon = "frmLogin.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
Picture = "frmLogin.frx":0442
ScaleHeight = 4095
ScaleWidth = 6045
StartUpPosition = 2 '屏幕中心
Tag = "登錄"
Begin VB.ComboBox ComboUser
BackColor = &H00C0E0FF&
Height = 300
ItemData = "frmLogin.frx":5426
Left = 1163
List = "frmLogin.frx":5428
TabIndex = 4
Top = 2640
Width = 1365
End
Begin VB.ComboBox ComboDep
BackColor = &H00C0E0FF&
Height = 300
ItemData = "frmLogin.frx":542A
Left = 1163
List = "frmLogin.frx":542C
TabIndex = 0
Top = 1920
Width = 1365
End
Begin VB.CommandButton cmdOK
Caption = "確定"
Default = -1 'True
BeginProperty Font
Name = "楷體_GB2312"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 310
Left = 1743
TabIndex = 2
Tag = "確定"
Top = 3360
Width = 1000
End
Begin VB.CommandButton cmdCancel
Cancel = -1 'True
Caption = "取消"
BeginProperty Font
Name = "楷體_GB2312"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 310
Left = 3258
TabIndex = 3
Tag = "取消"
Top = 3360
Width = 1000
End
Begin VB.TextBox TxtPswd
BackColor = &H00C0E0FF&
Height = 300
IMEMode = 3 'DISABLE
Left = 3473
PasswordChar = "*"
TabIndex = 1
Top = 2295
Width = 1365
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "請輸入密碼"
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 210
Left = 3630
TabIndex = 7
Top = 2010
Width = 1050
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "請選擇用戶"
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 210
Left = 1320
TabIndex = 6
Top = 2370
Width = 1050
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "請選擇部門"
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 210
Left = 1320
TabIndex = 5
Top = 1650
Width = 1050
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "廈門寧利標簽打印管理軟件"
BeginProperty Font
Name = "楷體_GB2312"
Size = 21.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 435
Left = 240
TabIndex = 8
Top = 660
Width = 5580
End
End
Attribute VB_Name = "frmLogin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As Long
Dim rsTemp As ADODB.Recordset
Public OK As Boolean
Private Sub cmdCancel_Click()
OK = False
rsTemp.Close
Set rsTemp = Nothing
Me.Hide
End Sub
Private Sub cmdOK_Click()
Dim Curpass As String
Dim DiskSerial As String
DiskSerial = DriveSerial("C:\") '獲取C盤驅動器的序列號
'MsgBox "C盤序列號=" + DiskSerial, , "信息窗" '給用戶安裝時，先獲取序列號
'If DiskSerial <> "C601-OE7" Then '本盤序列號為 "55A1-9F5"
' MsgBox "對不起！您是非法用戶，請不要使用本軟件！", vbOKOnly + vbCritical, "警告"
' End
'End If
'檢查正確密碼
If ComboUser.Text = "" Then
MsgBox "請選擇用戶名！", 0 + 64, "登錄"
Exit Sub
Else
rsTemp.Close
rsTemp.Open "Select * From 用戶權限", cnSys
rsTemp.Find "用戶帳號='" & ComboUser.Text & "'"
curpassword = rsTemp("用戶密碼")
'將密碼還原成原來的字符,在此一定要采用加 "" 的方式
Curpass = Decrypt("" + curpassword + "")
If TxtPswd.Text = Curpass Then '去掉空格比較
OK = True
' SystemDir = "C:\OrganMis" '設置系統初始值
UserDepart = Trim(ComboDep.Text) '用戶部門
UserName = Trim(ComboUser.Text) '用戶姓名
UserRole = Trim(rsTemp("用戶角色"))
bDelDisp = False
moduledex = 11 '記下模塊總數-1
Me.Hide
Else
MsgBox "密碼錯誤，再試一次！", 0 + 16, "登錄"
TxtPswd.SetFocus
TxtPswd.SelStart = 0
TxtPswd.SelLength = Len(TxtPswd.Text)
End If
End If
End Sub
Private Sub ComboDep_Click()
'根據選擇的部門列出人員名稱
Dim vntTemp As Variant
rsTemp.Close
rsTemp.Open "Select Distinct 用戶帳號 From 用戶權限 Where 部門='" & Trim(ComboDep.Text) & "'", cnSys
ComboUser.Clear
Do While Not rsTemp.EOF
vntTemp = rsTemp("用戶帳號")
If IsNull(vntTemp) Then vntTemp = ""
ComboUser.AddItem CStr(vntTemp)
rsTemp.MoveNext
Loop
End Sub
Private Sub Form_Load()
Dim vntTemp As Variant
'初始化列表框
Set rsTemp = New ADODB.Recordset '初始化數據庫
rsTemp.CursorType = adOpenKeyset
rsTemp.LockType = adLockOptimistic
rsTemp.Open "Select Distinct 部門 From 用戶權限", cnSys
Do While Not rsTemp.EOF
vntTemp = rsTemp("部門")
If IsNull(vntTemp) Then vntTemp = ""
ComboDep.AddItem CStr(vntTemp)
rsTemp.MoveNext
Loop
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -