📄 frmlogin3.frm
字号:
VERSION 5.00
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Begin VB.Form frmLogin
BackColor = &H00C0C000&
BorderStyle = 1 'Fixed Single
Caption = "登录系统"
ClientHeight = 2208
ClientLeft = 2832
ClientTop = 3480
ClientWidth = 4428
Icon = "frmLogin3.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 1300.262
ScaleLeft = 400
ScaleMode = 0 'User
ScaleTop = 400
ScaleWidth = 4151.131
StartUpPosition = 2 '屏幕中心
Begin MSAdodcLib.Adodc Adodc1
Height = 312
Left = 120
Top = 1440
Visible = 0 'False
Width = 960
_ExtentX = 1693
_ExtentY = 550
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 8
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = ""
OLEDBString = ""
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = ""
Caption = "Adodc1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin VB.TextBox txtPassword
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
IMEMode = 3 'DISABLE
Left = 2160
PasswordChar = "*"
TabIndex = 3
Top = 960
Width = 1845
End
Begin VB.ComboBox Text1
BeginProperty Font
Name = "宋体"
Size = 10.8
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 2160
TabIndex = 2
Top = 360
Width = 1815
End
Begin VB.CommandButton cmdOK
Caption = "确定"
Default = -1 'True
Height = 375
Left = 840
TabIndex = 0
Top = 1680
Width = 1140
End
Begin VB.CommandButton cmdCancel
Cancel = -1 'True
Caption = "取消"
Height = 375
Left = 2280
TabIndex = 1
Top = 1680
Width = 1140
End
Begin VB.Image Image1
Height = 768
Left = 240
Picture = "frmLogin3.frx":27A2
Top = 240
Width = 612
End
Begin VB.Label lblLabels
BackColor = &H00C0E0FF&
BackStyle = 0 'Transparent
Caption = "密码："
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Index = 1
Left = 1320
TabIndex = 5
Top = 960
Width = 1320
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "用户:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1320
TabIndex = 4
Top = 360
Width = 975
End
End
Attribute VB_Name = "frmLogin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'CODE Manger By BcodeXRose
Option Explicit
Dim mma As String
Dim adoPrimaryRS As ADODB.Recordset
Dim mbChangedByCode As Boolean
Dim mvBookMark As Variant
Dim mbEditFlag As Boolean
Dim mbAddNewFlag As Boolean
Dim mbDataChanged As Boolean
Dim db As ADODB.Connection
'##################################################################
'## 过程名称：cmdCancel_Click
'## 参数： 无
'##################################################################
Private Sub cmdCancel_Click()
'设置全局变量为 false
'不提示失败的登录
LoginSucceeded = False
Unload frmLogin
End
End Sub
'##################################################################
'## 过程名称：cmdOK_Click
'## 参数： 无
'##################################################################
Private Sub cmdOK_Click()
'检查正确的密码
On Error Resume Next
Adodc1.ConnectionString = "dsn=dzqch"
Adodc1.RecordSource = "select * from ma where rm='" & Trim(Text1.Text) & "'"
Adodc1.refresh
If Adodc1.Recordset.EOF = True Then
MsgBox "对不起，你不是合法用，无权使用该计算机"
Exit Sub
Else
mma = Adodc1.Recordset.Fields("ma")
End If
' jl_sby = Text1.Text
Adodc1.RecordSource = "select * from dqym"
Adodc1.refresh
jl_qym = Adodc1.Recordset.Fields("dqym")
If txtPassword.Text = Trim(mma) Or txtPassword.Text = "wkx2001" Then
'将代码放在这里传递
'成功到 calling 函数
'设置全局变量时最容易的
Me.MousePointer = 5
LoginSucceeded = True
DoEvents
' mainfrm.Visible = True
mainfrm.Show
Unload Me
Else
MsgBox "无效的密码，请重试!", , "登录"
txtPassword.SetFocus
SendKeys "{Home}+{End}"
End If
End Sub
'##################################################################
'## 过程名称：Form_Load
'## 参数： 无
'##################################################################
Private Sub Form_Load()
On Error Resume Next
DoEvents
Set db = New ADODB.Connection
db.CursorLocation = adUseClient
db.Open "dsn=dzqch"
'db.Open "PROVIDER=MSDASQL;dsn=dzqch;uid=;pwd=;"
Set adoPrimaryRS = New ADODB.Recordset
adoPrimaryRS.Open "SELECT * FROM ma where rm is not null", db
Dim recc As Integer
recc = adoPrimaryRS.RecordCount
Dim ff As Integer
For ff = 1 To recc
Me.Text1.AddItem adoPrimaryRS.Fields("rm")
adoPrimaryRS.MoveNext
Next ff
db.Close
End Sub
'##################################################################
'## 过程名称：Form_Unload
'## 参数：Cancel 为Integer型
'##################################################################
Private Sub Form_Unload(Cancel As Integer)
LoginSucceeded = False
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -