📄 main_mima.frm
字号:
VERSION 5.00
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Begin VB.Form main_mima
BorderStyle = 0 'None
Caption = "Form1"
ClientHeight = 3900
ClientLeft = 5310
ClientTop = 4095
ClientWidth = 6435
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
Picture = "main_mima.frx":0000
ScaleHeight = 3900
ScaleWidth = 6435
ShowInTaskbar = 0 'False
Begin VB.Frame Frame1
Caption = "Frame1"
Height = 1035
Left = 150
TabIndex = 8
Top = 210
Visible = 0 'False
Width = 1965
Begin VB.TextBox Textime
Height = 270
Left = 180
TabIndex = 9
Top = 645
Width = 1230
End
Begin MSAdodcLib.Adodc Adodc1
Height = 330
Left = 195
Top = 210
Visible = 0 'False
Width = 1545
_ExtentX = 2725
_ExtentY = 582
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
End
Begin VB.TextBox Text1
BackColor = &H00C0FFFF&
Height = 300
IMEMode = 3 'DISABLE
Left = 2385
PasswordChar = "*"
TabIndex = 6
Text = "111"
Top = 2040
Width = 2805
End
Begin VB.ComboBox czy
BackColor = &H00C0FFFF&
Height = 300
Left = 2370
TabIndex = 7
Text = "Combo1"
Top = 1185
Width = 2805
End
Begin VB.Label LabExit
BackStyle = 0 'Transparent
Height = 300
Left = 3840
TabIndex = 5
Top = 2640
Width = 810
End
Begin VB.Label LabLogin
BackStyle = 0 'Transparent
Height = 300
Left = 2280
TabIndex = 4
Top = 2655
Width = 810
End
Begin VB.Label czyjb
BackColor = &H00C0FFFF&
Caption = "Label4"
Height = 300
Left = 2370
TabIndex = 3
Top = 1560
Width = 2805
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "密 码"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 1380
TabIndex = 2
Top = 2055
Width = 930
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "员工类别"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 1380
TabIndex = 1
Top = 1635
Width = 900
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "员 工"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 1380
TabIndex = 0
Top = 1245
Width = 930
End
Begin VB.Image Image2
Height = 300
Left = 2295
Picture = "main_mima.frx":51C64
Top = 2640
Width = 810
End
Begin VB.Image Image1
Height = 300
Left = 3840
Picture = "main_mima.frx":52978
Top = 2640
Width = 810
End
End
Attribute VB_Name = "main_mima"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim TIM, a As Integer '定义整型变量
Dim myval, key, list As String '定义字符串变量
Private Sub czy_Click()
If czy.text <> "" Then '如果员工名不为空
list = czy.text '把员工名赋给变量list
Sql = "select * from 权限信息表 where 操作员姓名='" + list + "'" '查询该员工的信息
Call FunAdo(Adodc1, Sql) '调用ADO的执行函数
Adodc1.Refresh '刷新记录集
If Adodc1.Recordset.RecordCount > 0 Then '如果记录集不为空
czyjb.Caption = Trim(Adodc1.Recordset.Fields("员工级别")) '显示员工级别
End If '结束if语句
End If '结束if语句
End Sub
Private Sub Form_Activate()
'初始化设置
Me.Caption = App.Title & " 版本： V" & App.Major & "." & App.Minor & "." & App.Revision
Sql = "select * from 权限信息表 " '查询权限信息
Call FunAdo(Adodc1, Sql) '调用ADO的执行函数
If Adodc1.Recordset.RecordCount = 0 Then '
MsgBox ("您还没有设置操作员密码和权限，请设置员工密码和权限!") '提示错误
Me.Show '显示登录窗体
Else
frm_main.qtgl.Enabled = False '设置前台管理菜单不可用
frm_main.ktgl.Enabled = False '设置开台管理菜单不可用
frm_main.mdgl.Enabled = False '设置买单管理菜单不可用
frm_main.rjzfx.Enabled = False '设置日结算分析菜单不可用
frm_main.rjsgl.Enabled = False '设置日结算管理菜单不可用
frm_main.htgl.Enabled = False '设置后台管理菜单不可用
frm_main.czgl.Enabled = False '设置财政管理菜单不可用
frm_main.xtcs.Enabled = False '设置系统初始菜单不可用
frm_main.xtgl.Enabled = False '设置系统管理菜单不可用
frm_main.Toolbar1.Buttons(3).Enabled = False '设置工具栏不可用
frm_main.Toolbar1.Buttons(5).Enabled = False '设置工具栏不可用
frm_main.Toolbar1.Buttons(7).Enabled = False '设置工具栏不可用
frm_main.Toolbar1.Buttons(9).Enabled = False '设置工具栏不可用
frm_main.Toolbar1.Buttons(12).Enabled = False '设置工具栏不可用
frm_main.Toolbar1.Buttons(14).Enabled = False '设置工具栏不可用
frm_main.Toolbar1.Buttons(16).Enabled = False '设置工具栏不可用
'添加操作员列表
Adodc1.Recordset.MoveFirst 'ADO的记录集指针移到第一条记录
For i = 0 To Adodc1.Recordset.RecordCount - 1 '循环添加Adodc的列表项
key = Trim(Adodc1.Recordset.Fields("操作员姓名")) '把记录集中操作员姓名赋给变量key
czy.AddItem (key) '添加列表项
Adodc1.Recordset.MoveNext 'ADO的记录指针移到下一条记录
Next i
Adodc1.Recordset.MoveFirst 'ADO的记录集指针移到第一条记录
czy.text = Trim(Adodc1.Recordset.Fields("操作员姓名")) '显示第一条记录的员工名称
czyjb.Caption = Trim(Adodc1.Recordset.Fields("员工级别")) '显示第一条记录的员工的级别
End If
End Sub
Private Sub Form_Load()
Sql = "select * from 权限信息表"
Call FunAdo(Adodc1, Sql)
End Sub
Private Sub Form_Unload(Cancel As Integer)
frm_main.Enabled = True
End Sub
Private Sub Label1_Click()
End
End Sub
Private Sub LabExit_Click()
End
End Sub
Private Sub LabLogin_Click()
Dim MESSAGE As String
Textime.text = TIM
Sql = "select * from 权限信息表 where 操作员姓名 = '" + Trim(czy.text) + "'" '查询记录集
Call FunAdo(Adodc1, Sql) '调用ADO的执行函数
Adodc1.Refresh '刷新ADO的记录集
If Adodc1.Recordset.RecordCount = 0 Then
MsgBox ("您还没有设置操作员密码和权限，请设置员工密码和权限!") '显示错误信息
Me.Show '显示本窗体
TIM = TIM + 1 '错误登录次数加1
If TIM = 3 Then '如果登录次数等于3
MESSAGE = MsgBox("密码输入错误,请向系统管理员查询!", 0, "") '提示错误
If MESSAGE = vbOK Then End '结束程序
End If '结束If语句
Exit Sub '跳出Sub过程
End If '结束If语句
'判断操作员及密码
If czy.text <> "" And text1.text = Trim(Adodc1.Recordset.Fields("密码")) Then '如果密码正确
Load frm_main '载入主窗体
frm_main.Show '显示主窗体
'设置操作员权限
If Trim(Adodc1.Recordset.Fields("权限")) = "A" Then '如果用户的权限为A
frm_main.qtgl.Enabled = True '前台管理菜单可用
frm_main.ktgl.Enabled = True
frm_main.mdgl.Enabled = True
frm_main.rjzfx.Enabled = True
frm_main.rjsgl.Enabled = True
frm_main.htgl.Enabled = True
frm_main.czgl.Enabled = True
frm_main.xtcs.Enabled = True
frm_main.xtgl.Enabled = True
frm_main.Toolbar1.Buttons(3).Enabled = True
frm_main.Toolbar1.Buttons(5).Enabled = True
frm_main.Toolbar1.Buttons(7).Enabled = True
frm_main.Toolbar1.Buttons(9).Enabled = True
frm_main.Toolbar1.Buttons(11).Enabled = True
frm_main.Toolbar1.Buttons(12).Enabled = True
frm_main.Toolbar1.Buttons(14).Enabled = True
frm_main.Toolbar1.Buttons(16).Enabled = True
End If
If Trim(Adodc1.Recordset.Fields("权限")) = "B" Then
frm_main.qtgl.Enabled = True
frm_main.ktgl.Enabled = True
frm_main.mdgl.Enabled = True
frm_main.rjzfx.Enabled = True
frm_main.rjsgl.Enabled = True
frm_main.htgl.Enabled = True
frm_main.czgl.Enabled = True
frm_main.xtcs.Enabled = True
frm_main.Toolbar1.Buttons(3).Enabled = True
frm_main.Toolbar1.Buttons(5).Enabled = True
frm_main.Toolbar1.Buttons(7).Enabled = True
frm_main.Toolbar1.Buttons(9).Enabled = True
frm_main.Toolbar1.Buttons(12).Enabled = True
frm_main.Toolbar1.Buttons(14).Enabled = True
End If
If InStr(Trim(Adodc1.Recordset.Fields("权限")), "K") > 0 Then '如果员工有开台管理的权限
frm_main.qtgl.Enabled = True '前台管理菜单可用
frm_main.ktgl.Enabled = True '开台管理菜单可用
frm_main.Toolbar1.Buttons(7).Enabled = True '开台管理工具栏可用
End If '结束If语句
If InStr(Trim(Adodc1.Recordset.Fields("权限")), "S") > 0 Then
frm_main.qtgl.Enabled = True
frm_main.mdgl.Enabled = True
frm_main.Toolbar1.Buttons(9).Enabled = True
End If
If InStr(Trim(Adodc1.Recordset.Fields("权限")), "R") > 0 Then
frm_main.qtgl.Enabled = True
frm_main.rjsgl.Enabled = True
frm_main.Toolbar1.Buttons(3).Enabled = True
End If
If InStr(Trim(Adodc1.Recordset.Fields("权限")), "J") > 0 Then
frm_main.qtgl.Enabled = True
frm_main.rjzfx.Enabled = True
frm_main.Toolbar1.Buttons(5).Enabled = True
End If
If InStr(Trim(Adodc1.Recordset.Fields("权限")), "Q") > 0 Then
frm_main.qtgl.Enabled = True
frm_main.ktgl.Enabled = True
frm_main.mdgl.Enabled = True
frm_main.rjzfx.Enabled = True
frm_main.rjsgl.Enabled = True
frm_main.Toolbar1.Buttons(9).Enabled = True
frm_main.Toolbar1.Buttons(3).Enabled = True
frm_main.Toolbar1.Buttons(5).Enabled = True
frm_main.Toolbar1.Buttons(7).Enabled = True
End If
If InStr(Trim(Adodc1.Recordset.Fields("权限")), "H") > 0 Then
frm_main.htgl.Enabled = True
frm_main.xtcs.Enabled = True
End If
If InStr(Trim(Adodc1.Recordset.Fields("权限")), "C") > 0 Then
frm_main.czgl.Enabled = True
End If
If InStr(Trim(Adodc1.Recordset.Fields("权限")), "Y") > 0 Then
frm_main.Toolbar1.Buttons(12).Enabled = True
frm_main.Toolbar1.Buttons(14).Enabled = True
End If
frm_main.St1.Panels(3).text = czy.text
Unload Me
Else '如果密码不正确
If TIM = 3 Then '如果登录次数等于3
MESSAGE = MsgBox("密码输入错误,请向系统管理员查询!", 0, "") '提示错误
If MESSAGE = vbOK Then End '结束程序
End If
If czy.text = "" Then '如果没有选择操作员
MsgBox ("请选择员工名称!") '提示选择操作员
Else '如果选择了员工名称
If text1.text <> Adodc1.Recordset.Fields("密码") Then '如果密码不正确
MsgBox ("密码错误,请重新输入密码!") '提示密码错误
TIM = TIM + 1 '登录次数加1
text1.SetFocus '设置Text1获得焦点
End If '结束If语句
End If '结束If语句
End If '结束If语句
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -