?? frmlogin.frm
字號:
VERSION 5.00
Object = "{F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0"; "MSDATLST.OCX"
Begin VB.Form frmLogin
BorderStyle = 3 'Fixed Dialog
Caption = "登錄"
ClientHeight = 1545
ClientLeft = 2835
ClientTop = 3480
ClientWidth = 3750
Icon = "frmLogin.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 912.837
ScaleMode = 0 'User
ScaleWidth = 3521.047
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin MSDataListLib.DataCombo DCboUserName
Bindings = "frmLogin.frx":0442
DataSource = "DEjxc"
Height = 330
Left = 1350
TabIndex = 0
Top = 120
Width = 2295
_ExtentX = 4048
_ExtentY = 582
_Version = 393216
Style = 2
ListField = "user_id"
BoundColumn = "user_pass"
Text = ""
Object.DataMember = "ComUsers"
End
Begin VB.CommandButton cmdOK
Caption = "確定"
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 390
Left = 510
TabIndex = 2
Top = 1005
Width = 1140
End
Begin VB.CommandButton cmdCancel
Cancel = -1 'True
Caption = "取消"
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 390
Left = 2100
TabIndex = 5
Top = 1020
Width = 1140
End
Begin VB.TextBox txtPassword
Height = 330
IMEMode = 3 'DISABLE
Left = 1350
PasswordChar = "*"
TabIndex = 1
Top = 525
Width = 2295
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "用戶編號(&U):"
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 0
Left = 105
TabIndex = 3
Top = 150
Width = 1260
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "密碼(&P):"
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 1
Left = 105
TabIndex = 4
Top = 540
Width = 840
End
End
Attribute VB_Name = "frmLogin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public LoginSucceeded As Boolean
Private Sub cmdCancel_Click()
'設置全局變量為 false
'不提示失敗的登錄
LoginSucceeded = False
Hide
End Sub
Private Sub cmdOK_Click()
Dim msgtext As String
Dim txtsql As String
Dim mrc As ADODB.Recordset
'檢查正確的密碼
If Not IsNull(DCboUserName.SelectedItem) Then
If txtPassword = DCboUserName.BoundText Then
'將代碼放在這里傳遞
'成功到 calling 函數
'設置全局變量時最容易的
LoginSucceeded = True
strCurUser = DCboUserName.text
txtsql = "select * from userinfo"
Set mrc = ExecuteSQL(txtsql, msgtext)
If mrc.EOF Then
struserinfoname = "海媚軟件"
struserinfoaddress = "福州"
struserinfotell = "0591-8888888"
Else
struserinfoname = "" & mrc.Fields(1)
struserinfoaddress = "" & mrc.Fields(3)
struserinfotell = "" & mrc.Fields(2)
struserinfodemo = "" & mrc.Fields(4)
End If
Hide
Else
MsgBox "無效的密碼,請重試!", , "登錄"
txtPassword.SetFocus
SendKeys "{Home}+{End}"
End If
Else
MsgBox "請選擇用戶名!", , "登錄"
DCboUserName.SetFocus
End If
End Sub
Private Sub DCboUserName_KeyDown(KeyCode As Integer, Shift As Integer)
EnterToTab KeyCode
End Sub
Private Sub txtPassword_KeyDown(KeyCode As Integer, Shift As Integer)
EnterToTab KeyCode
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -