📄 frmlogin.frm
字号:
VERSION 5.00
Object = "{50CBA22D-9024-11D1-AD8F-8E94A5273767}#8.6#0"; "TRANIMG2.OCX"
Begin VB.Form frmLogin
BorderStyle = 3 'Fixed Dialog
Caption = "登录"
ClientHeight = 3570
ClientLeft = 3990
ClientTop = 3390
ClientWidth = 6150
Icon = "frmLogin.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2109.272
ScaleMode = 0 'User
ScaleWidth = 5774.517
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.PictureBox Picture1
Height = 1455
Left = 2280
ScaleHeight = 1395
ScaleWidth = 3675
TabIndex = 9
Top = 120
Width = 3735
Begin DevPowerTransImg.TransImg TransImg2
Height = 495
Left = 200
TabIndex = 12
Top = 400
Width = 3255
_ExtentX = 5741
_ExtentY = 873
AutoSize = 0 'False
MaskColor = 16777215
Transparent = -1 'True
Picture = "frmLogin.frx":0442
End
Begin VB.Image Image1
Height = 1455
Left = 0
Picture = "frmLogin.frx":5AB0
Stretch = -1 'True
Top = 0
Width = 3675
End
End
Begin VB.CommandButton cmdOK
Caption = "确定"
Default = -1 'True
Height = 390
Left = 4560
TabIndex = 0
ToolTipText = "进入系统"
Top = 2280
Width = 1278
End
Begin VB.CommandButton cmdCancel
Cancel = -1 'True
Caption = "取消"
Height = 390
Left = 4560
TabIndex = 1
ToolTipText = "退出系统"
Top = 2880
Width = 1278
End
Begin DevPowerTransImg.TransImg TransImg5
Height = 1575
Left = 120
TabIndex = 10
Top = 120
Width = 2055
_ExtentX = 3625
_ExtentY = 2778
AutoSize = 0 'False
MaskColor = 16777215
Transparent = -1 'True
Picture = "frmLogin.frx":9188
End
Begin VB.CommandButton Command13
Caption = "Command13"
Height = 1695
Left = 0
TabIndex = 11
Top = 0
Width = 6135
End
Begin VB.Frame Frame1
Height = 1695
Left = 120
TabIndex = 2
Top = 1680
Width = 4035
Begin VB.TextBox txtPassword
Height = 300
IMEMode = 3 'DISABLE
Left = 2160
PasswordChar = "*"
TabIndex = 4
ToolTipText = "键入口令字"
Top = 1080
Width = 1575
End
Begin VB.ComboBox Combo1
Height = 300
ItemData = "frmLogin.frx":1437A
Left = 2160
List = "frmLogin.frx":14387
Style = 2 'Dropdown List
TabIndex = 3
ToolTipText = "选择操作员"
Top = 480
Width = 1575
End
Begin DevPowerTransImg.TransImg TransImg1
Height = 495
Left = 240
TabIndex = 8
Top = 360
Width = 615
_ExtentX = 1085
_ExtentY = 873
AutoSize = 0 'False
MaskColor = 16777215
Transparent = -1 'True
Picture = "frmLogin.frx":143A3
End
Begin VB.Label Label1
Caption = "用 户"
Height = 195
Left = 360
TabIndex = 7
Top = 960
Width = 555
End
Begin VB.Label lblLabels
Caption = "口令(&P):"
Height = 270
Index = 1
Left = 1200
TabIndex = 6
Top = 1125
Width = 1080
End
Begin VB.Label lblLabels
Caption = "名称(&U):"
Height = 270
Index = 0
Left = 1200
TabIndex = 5
Top = 525
Width = 1080
End
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
Public CZYXM As String
Public CZYBC As Integer
Dim DATJDGL As Database
Dim RECCZY As Recordset
Dim STRPASSWORD As String
Dim RECMAXBC As Recordset
Dim RECWJBC As Recordset
Dim RTN
Private Sub cmdCancel_Click()
'设置全局变量为 false
'不提示失败的登录
LoginSucceeded = False
Unload Me
End Sub
Private Sub cmdOK_Click() '检查正确的密码
Dim TJ As String
Dim STRJB As String
TJ = "姓名='" + Trim(Combo1.Text) + "'"
RECCZY.FindFirst (TJ)
If Not RECCZY.NoMatch Then
STRPASSWORD = IIf(IsNull(RECCZY("密码")), "", RECCZY("密码"))
Else
RTN = SetWindowPos(Me.hwnd, -2, 0, 0, 0, 0, 3)
MsgBox "请选择合法操作员!", vbInformation + vbMsgBoxSetForeground, "提示信息"
RTN = SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, 3)
Combo1.SetFocus
Exit Sub
End If
If txtPassword = STRPASSWORD Then
'将代码放在这里传递
'成功到 calling 函数
'设置全局变量时最容易的
CZYXM = Combo1.Text
LoginSucceeded = True
Load SMAIN
SMAIN.mnuYD.Visible = IIf(RECCZY("房间预订") Or RECCZY("会计主管"), True, False)
SMAIN.mnuRZ.Visible = IIf(RECCZY("入住登记") Or RECCZY("会计主管"), True, False)
SMAIN.mnuLIST.Visible = IIf(RECCZY("打印报表") Or RECCZY("会计主管"), True, False)
SMAIN.mnuZW.Visible = IIf(RECCZY("财务权限") Or RECCZY("会计主管"), True, False)
SMAIN.MNUSZ_FJ.Enabled = IIf(RECCZY("系统设置") Or RECCZY("会计主管"), True, False)
SMAIN.MNUSZ_CWFG.Enabled = RECCZY("会计主管")
SMAIN.mnuFILE_CSH.Enabled = RECCZY("会计主管")
' MAIN.mnuFILE_RESTORE.Enabled = IIf(RECCZY("帐套管理") Or RECCZY("会计主管"), True, False)
SMAIN.StatusBar1.Panels(1).Text = "操作员:" & CZYXM + " 总班次:" + CStr(CZYBC)
SMAIN.StatusBar1.Panels(2).Text = "日期:" & Format(Now, "LONG DATE")
SMAIN.Show
Unload frmLogin
Else
RTN = SetWindowPos(Me.hwnd, -2, 0, 0, 0, 0, 3)
MsgBox "无效的密码，请重试!", vbCritical + vbMsgBoxSetForeground, "登录"
RTN = SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, 3)
txtPassword.SetFocus
SendKeys "{Home}+{End}"
End If
End Sub
Private Sub Combo1_Change()
txtPassword.Text = ""
txtPassword.Refresh
End Sub
Private Sub Form_Load()
Set DATJDGL = OpenDatabase(App.Path & "\DATA\JDGL.MDB")
Set RECCZY = DATJDGL.OpenRecordset("操作员", dbOpenDynaset)
Set RECWJBC = DATJDGL.OpenRecordset("SELECT 交班表.班次, 交班表.交班 From 交班表 WHERE (((交班表.交班)=False))", dbOpenDynaset)
Set RECMAXBC = DATJDGL.OpenRecordset("SELECT DISTINCTROW Max([交班表].[班次]) AS 班次 FROM 交班表", dbOpenDynaset)
'定义当前操作员班次
If RECWJBC.RecordCount = 0 Then
If RECMAXBC.RecordCount = 0 Then
RECWJBC.AddNew
RECWJBC("班次") = 1
RECWJBC.Update
CZYBC = 1
Else
CZYBC = IIf(IsNull(RECMAXBC("班次")), 0, RECMAXBC("班次")) + 1
RECWJBC.AddNew
RECWJBC("班次") = CZYBC
RECWJBC.Update
End If
Else
CZYBC = RECWJBC("班次")
End If
If RECCZY.RecordCount > 0 Then RECCZY.MoveFirst
Combo1.Clear
Do While Not RECCZY.EOF
Combo1.AddItem (RECCZY("姓名"))
RECCZY.MoveNext
Loop
'把窗口放在最前面
RTN = SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, 3)
End Sub
Private Sub Form_Unload(Cancel As Integer)
DATJDGL.Close
Unload frmSplash
End Sub
Private Sub txtPassword_GotFocus()
Dim TJ As String
TJ = "姓名='" + Trim(Combo1.Text) + "'"
RECCZY.FindFirst (TJ)
If Not RECCZY.NoMatch Then
STRPASSWORD = IIf(IsNull(RECCZY("密码")), "", RECCZY("密码"))
Else
STRPASSWORD = "未选择有效操作员"
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -