?? 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 + -