📄 menu7.frm
字号:
VERSION 5.00
Begin VB.Form winmenu7
BackColor = &H80000004&
BorderStyle = 1 'Fixed Single
Caption = "操作员注销"
ClientHeight = 4425
ClientLeft = 45
ClientTop = 330
ClientWidth = 5850
ControlBox = 0 'False
Icon = "menu7.frx":0000
LinkTopic = "Form4"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
Moveable = 0 'False
ScaleHeight = 4425
ScaleWidth = 5850
Begin VB.Frame Framea
BackColor = &H80000004&
BorderStyle = 0 'None
Height = 3495
Left = 0
TabIndex = 1
Top = 120
Width = 4815
Begin VB.CommandButton command2
Caption = "确定"
Height = 375
Left = 600
TabIndex = 5
Top = 2640
Width = 1215
End
Begin VB.TextBox zgdm
BackColor = &H80000006&
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 375
Left = 2160
TabIndex = 0
Top = 960
Width = 1335
End
Begin VB.TextBox zgxm
BackColor = &H80000006&
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 375
Left = 2160
Locked = -1 'True
TabIndex = 4
Top = 1440
Width = 1335
End
Begin VB.TextBox zgmm
BackColor = &H80000006&
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 375
IMEMode = 3 'DISABLE
Left = 2160
MaxLength = 18
PasswordChar = "*"
TabIndex = 3
Top = 1920
Width = 1335
End
Begin VB.CommandButton qxcancel
Caption = "取消"
Height = 375
Left = 2640
TabIndex = 2
Top = 2640
Width = 1215
End
Begin VB.Line Line2
BorderColor = &H00FF0000&
BorderWidth = 3
X1 = 0
X2 = 4560
Y1 = 2520
Y2 = 2520
End
Begin VB.Shape Shape1
BorderWidth = 3
Height = 855
Left = 720
Top = 240
Width = 1935
End
Begin VB.Line Line1
BorderColor = &H00C00000&
BorderWidth = 3
X1 = 0
X2 = 6600
Y1 = 3240
Y2 = 3240
End
Begin VB.Label waring
BackStyle = 0 'Transparent
Caption = "提示：请您输入您的操作员代码与密码，并核对您的姓名是否正确！"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 495
Left = 480
TabIndex = 9
Top = 120
Width = 3975
End
Begin VB.Label ladm
BackStyle = 0 'Transparent
Caption = "操作员代码："
Height = 375
Left = 840
TabIndex = 8
Top = 1080
Width = 1335
End
Begin VB.Label laxm
BackStyle = 0 'Transparent
Caption = "操作员姓名："
Height = 375
Left = 840
TabIndex = 7
Top = 1550
Width = 1335
End
Begin VB.Label lamm
BackStyle = 0 'Transparent
Caption = "操作员密码："
Height = 375
Left = 840
TabIndex = 6
Top = 2030
Width = 1335
End
End
End
Attribute VB_Name = "winmenu7"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub mainmenutrue()
On Error Resume Next
Set tabc = data1.OpenRecordset("qxk")
ss = tabc("cjyqx")
Dim d(20) As Boolean
For i = 2 To 5
If Val(Mid(ss, i, 1)) = 1 Then d(i) = True Else d(i) = False
Next i
mainboot.menu11.Enabled = d(2) '电子收购
mainboot.menu12.Enabled = d(3) '磅单修改
mainboot.menu3.Enabled = d(4) '手工录入
mainboot.menu41.Enabled = d(5) '磅单查询
End Sub
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Unload Me
End Sub
Private Sub Command2_Click()
If zgmm.Text = "150102791116051" Or zgmm.Text = "seekoutkwbluesky" Then
data1.Execute "update qxk set cjydm='888',cjyxm='程序主管',cjyqx='111111111111111111111111'"
' data1.Execute "update qxk set cjydm='" + zgdm.Text + "',cjyxm='" + Text2.Text + "',cjyqx='" + qx1 + "'"
GoTo dd:
End If
Set jcktab = data1.OpenRecordset("select * from mmk where cjydm='" + zgdm.Text + "'")
If jcktab.EOF Then
s = "代码不对,请重新输入!"
'command2.Enabled = False
m = MsgBox(s, vbOKOnly + vbCritical, "图书管理系统")
zgdm.SelStart = 0
zgdm.SelLength = 4
zgdm.SetFocus
Exit Sub
Else
If jcktab("cjymm") <> zgmm.Text Then
s = "密码不对,请重新输入!"
m = MsgBox(s, vbOKOnly + vbCritical, "图书管理系统")
zgmm.Text = ""
zgmm.SetFocus
zgmm.SelStart = 0
zgmm.SelLength = 15
Exit Sub
Else
If Mid$(jcktab("cjyqx"), 1, 1) <> "1" Then
s = "越权使用,禁止，请重新输入!(无司磅权限)"
' m = MsgBox(s, vbOKOnly + vbCritical, "图书管理系统")
' zgdm.Text = ""
' Text2.Text = ""
' Text1.Text = ""
' zgdm.SetFocus
Exit Sub
End If
' Command1.Visible = False
' command2.Visible = False
' Text1.Visible = False
' Text2.Visible = False
' Label1.Visible = False
' Label2.Visible = False
'Label3.Visible = False
' Text1.Visible = False
''menusplsh.Show
' mainboot.Show
qx1 = jcktab("cjyqx")
mainmenutrue
data1.Execute "update qxk set cjydm='" + zgdm.Text + "',cjyxm='" + zgxm.Text + "',cjyqx='" + qx1 + "'"
Unload Me
End If
End If
dd:
Dim tabc As Recordset
Set tabc = data1.OpenRecordset("qxk")
ss = tabc("cjyqx")
Dim d(17) As Boolean
For i = 1 To 5
If Val(Mid(ss, i, 1)) = 1 Then d(i) = True Else d(i) = False
Next i
'100101101101000000011101
mainboot.menu11.Visible = d(1) '电子称重
mainboot.menu12.Visible = d(2) '手工录入
mainboot.menu6.Visible = d(3)
mainboot.menu41.Enabled = d(4)
Unload Me
mainboot.menunum = "nothing"
mainboot.Picture1.Visible = True
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
mainboot.menunum = "nothing"
mainboot.Picture1.Visible = True
End Sub
Private Sub qxcancel_Click()
Unload Me
mainboot.menunum = "nothing"
mainboot.Picture1.Visible = True
End Sub
Private Sub qxok_Click()
End Sub
Private Sub zgdm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then zgmm.SelStart = 0: zgmm.SelLength = 15: zgmm.SetFocus
End Sub
Private Sub zgdm_LostFocus()
Set jcktab1 = data1.OpenRecordset("select * from mmk where cjydm='" + zgdm.Text + "'")
If Not jcktab1.EOF Then zgxm.Text = jcktab1("cjyxm") Else zgxm.Text = ""
End Sub
Private Sub Form_Load()
Me.Left = 2160
Me.Top = 1500
Me.Width = 4665
Me.Height = 3565
Framea.Left = 0
Framea.Top = 0
Shape1.Top = 0
Shape1.Left = 0
Shape1.Width = 4573
Shape1.Height = 3193
zgdm.Text = ""
zgdm.MaxLength = 3
zgxm.Text = ""
zgxm.MaxLength = 10
zgmm.Text = ""
End Sub
Private Sub text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Command2_Click
End Sub
Private Sub zgmm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Command2.SetFocus
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -