📄 main_xtgl_qxgl.frm
字号:
ForeColor = &H00000000&
Height = 285
Index = 4
Left = 225
TabIndex = 25
Top = 641
Width = 1170
End
Begin VB.CheckBox Check1
Caption = "结账分析"
ForeColor = &H00000000&
Height = 285
Index = 3
Left = 225
TabIndex = 24
Top = 1413
Width = 1230
End
Begin VB.CheckBox Check1
Caption = "收银管理"
ForeColor = &H00000000&
Height = 285
Index = 1
Left = 1425
TabIndex = 22
Top = 1035
Width = 1095
End
Begin VB.CheckBox Check1
Caption = "开台管理"
ForeColor = &H00000000&
Height = 285
Index = 0
Left = 225
TabIndex = 21
Top = 255
Width = 1155
End
End
Begin VB.Frame Frame6
Height = 720
Left = 15
TabIndex = 13
Top = 3390
Width = 5565
Begin VB.CommandButton Comdel
Caption = "删除操作员"
Height = 330
Left = 3825
TabIndex = 16
Top = 240
Width = 1605
End
Begin VB.CommandButton Commod
Caption = "修改操作员"
Height = 330
Left = 1950
TabIndex = 15
Top = 240
Width = 1605
End
Begin VB.CommandButton Comadd
Caption = "添加新操作员"
Height = 330
Left = 90
TabIndex = 14
Top = 240
Width = 1605
End
End
Begin VB.Frame Frame2
Caption = "Frame2"
Height = 645
Left = 1125
TabIndex = 5
Top = 300
Visible = 0 'False
Width = 2010
Begin MSAdodcLib.Adodc Adodc1
Height = 330
Left = 255
Top = 225
Width = 1380
_ExtentX = 2434
_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
End
Attribute VB_Name = "main_xtgl_qxgl"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'定义数据集对象
Dim rs1 As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset
Dim rs3 As New ADODB.Recordset
Dim rs4 As New ADODB.Recordset
Dim myval, str1 As String '定义字符串变量
Dim i As Integer '定义整型变量
Private Sub Form_Activate()
Option1.Value = True
'添加员工列表
rs1.Open "select 员工姓名 from 员工信息表 group by 员工姓名", cnn, adOpenKeyset, adLockOptimistic
If rs1.BOF = False Then rs1.MoveFirst
For i = 0 To rs1.RecordCount - 1
Combo1.AddItem (Trim(rs1.Fields("员工姓名")))
rs1.MoveNext
Next i
If Combo1.ListCount > 0 Then Combo1.ListIndex = 0
rs1.Close
'添加员工级别列表
rs2.Open "select 级别名称 from 员工级别表 group by 级别名称", cnn, adOpenKeyset, adLockOptimistic
If rs2.BOF = False Then rs2.MoveFirst
For i = 0 To rs2.RecordCount - 1
Combo2.AddItem (Trim(rs2.Fields("级别名称")))
rs2.MoveNext
Next i
If Combo2.ListCount > 0 Then Combo2.ListIndex = 0
rs2.Close
For i = 0 To 7
Check1(i).Enabled = False
Next i
Me.Caption = Me.Caption & " " & frm_main.St1.Panels(3).text
End Sub
Private Sub Combo1_Click()
rs3.Open "select * from 员工信息表 where 员工姓名='" + Trim(Combo1.text) + "'", cnn, adOpenKeyset, adLockOptimistic
If rs3.RecordCount > 0 Then
Text1.text = Trim(rs3.Fields("员工编号"))
Combo2.text = Trim(rs3.Fields("员工级别"))
End If
rs3.Close
End Sub
Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then Text2.SetFocus
End Sub
Private Sub Form_Load()
Sql = "select * from 权限信息表"
Call FunAdo(Adodc1, Sql)
End Sub
Private Sub Option1_Click() '选择基本操作员
If Option1.Value = True Then
For i = 0 To 7
Check1(i).Enabled = False
Next i
End If
End Sub
Private Sub Option2_Click() '选择高级操作员
If Option2.Value = True Then
For i = 0 To 7
Check1(i).Enabled = False
Next i
End If
End Sub
Private Sub Option3_Click() '选择自定义
If Option3.Value = True Then
For i = 0 To 7
Check1(i).Enabled = True
Next i
End If
End Sub
Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then Combo2.SetFocus '回车combo2获得焦点
End Sub
Private Sub ComSave_Click() '保存操作员信息
rs4.Open "select * from 权限信息表 where 操作员姓名='" + Trim(Combo1.text) + "'", cnn, adOpenKeyset, adLockOptimistic
If rs4.RecordCount > 0 Then
myval = MsgBox("确定要修改该操作员吗？", vbYesNo)
If myval = vbYes Then
rs4.Fields("操作员姓名") = Trim(Combo1.text)
rs4.Fields("编号") = Trim(Text1.text)
rs4.Fields("密码") = Trim(Text2.text)
rs4.Fields("员工级别") = Trim(Combo2.text)
rs4.Update '更新数据库
Adodc1.Refresh
End If
Else
If Combo1.text <> "" Then
myval = MsgBox("确定要保存该操作员吗？", vbYesNo)
If myval = vbYes Then
rs4.AddNew
rs4.Fields("操作员姓名") = Trim(Combo1.text)
rs4.Fields("编号") = Trim(Text1.text)
rs4.Fields("密码") = Trim(Text2.text)
rs4.Fields("员工级别") = Trim(Combo2.text)
rs4.Update '更新数据库
Adodc1.Refresh
End If
End If
End If
rs4.Close
Frame1.Visible = False
Frame4.Enabled = True
cmdOK.Enabled = True
End Sub
Private Sub ComAdd_Click() '允许添加
Text2.text = ""
Frame1.Visible = True: Combo1.Enabled = True
Text1.Enabled = True: Text2.Enabled = True
Frame4.Enabled = False
cmdOK.Enabled = False
End Sub
Private Sub Comcancel_Click() '取消操作
Frame1.Visible = False
Frame4.Enabled = True
Frame4.Enabled = True
cmdOK.Enabled = True
End Sub
Private Sub Comdel_Click() '删除操作员
If Adodc1.Recordset.RecordCount > 0 Then
myval = MsgBox("确定要删除该操作员吗？", vbYesNo)
If myval = vbYes Then
Adodc1.Recordset.Delete
Adodc1.Refresh
End If
Else
MsgBox "没有要删除的记录！"
End If
End Sub
Private Sub Commod_Click() '修改操作员信息
If Adodc1.Recordset.RecordCount > 0 Then
Frame1.Visible = True
Combo1.text = Trim(Adodc1.Recordset.Fields("操作员姓名"))
Text1.text = Trim(Adodc1.Recordset.Fields("编号"))
Text2.text = Trim(Adodc1.Recordset.Fields("密码"))
Combo2.text = Trim(Adodc1.Recordset.Fields("员工级别"))
Frame4.Enabled = False
cmdOK.Enabled = False
Else
MsgBox "没有要修改的记录！"
End If
End Sub
Private Sub cmdOK_Click() '为操作员设置权限
If Adodc1.Recordset.RecordCount > 0 Then
If Check1(0).Value = 1 Then str1 = str1 & "K"
If Check1(1).Value = 1 Then str1 = str1 & "S"
If Check1(2).Value = 1 Then str1 = str1 & "R"
If Check1(3).Value = 1 Then str1 = str1 & "J"
If Check1(4).Value = 1 Then str1 = str1 & "Q"
If Check1(5).Value = 1 Then str1 = str1 & "H"
If Check1(6).Value = 1 Then str1 = str1 & "C"
If Check1(7).Value = 1 Then str1 = str1 & "Y"
rs1.Open "select * from 权限信息表 where 编号='" + Trim(Adodc1.Recordset.Fields("编号")) + "'", cnn, adOpenKeyset, adLockOptimistic
If rs1.RecordCount > 0 Then
If Option1.Value = True Then
rs1.Fields("权限") = "A"
rs1.Update
End If
If Option2.Value = True Then
rs1.Fields("权限") = "B"
rs1.Update
End If
If Option3.Value = True Then
rs1.Fields("权限") = str1
rs1.Update
End If
MsgBox "设置权限已成功完成！"
Else
MsgBox "请添加操作员并设置权限！"
End If
rs1.Close
Adodc1.Refresh
Else
MsgBox "系统当前无记录！"
End If
End Sub
Private Sub comend_Click()
frm_main.Enabled = True
Unload Me
End Sub
Private Sub Form_Unload(Cancel As Integer)
frm_main.Enabled = True
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -