📄 mme.frm
字号:
VERSION 5.00
Object = "{D07CD9D2-ECE9-493F-86F2-186659945889}#1.0#0"; "Xpbutton.ocx"
Begin VB.Form mme
BackColor = &H0000FF00&
BorderStyle = 0 'None
Caption = "神龙科技(网吧库管)"
ClientHeight = 510
ClientLeft = 150
ClientTop = 435
ClientWidth = 13410
LinkTopic = "Form1"
LockControls = -1 'True
ScaleHeight = 510
ScaleWidth = 13410
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
Begin VB.Timer Timer1
Interval = 100
Left = 9690
Top = 30
End
Begin 工程1.xpcmdbutton xpcmdbutton1
Height = 330
Index = 0
Left = 150
TabIndex = 0
Top = 75
Width = 1050
_ExtentX = 1852
_ExtentY = 582
Caption = "xpcmdbutton1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin 工程1.xpcmdbutton xpcmdbutton1
Height = 330
Index = 1
Left = 1242
TabIndex = 1
Top = 75
Width = 1050
_ExtentX = 1852
_ExtentY = 582
Caption = "xpcmdbutton2"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin 工程1.xpcmdbutton xpcmdbutton1
Height = 330
Index = 2
Left = 2334
TabIndex = 2
Top = 75
Width = 1050
_ExtentX = 1852
_ExtentY = 582
Caption = "xpcmdbutton2"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin 工程1.xpcmdbutton xpcmdbutton1
Height = 330
Index = 3
Left = 3426
TabIndex = 3
Top = 75
Width = 1050
_ExtentX = 1852
_ExtentY = 582
Caption = "xpcmdbutton2"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin 工程1.xpcmdbutton xpcmdbutton1
Height = 330
Index = 4
Left = 4518
TabIndex = 4
Top = 75
Width = 1050
_ExtentX = 1852
_ExtentY = 582
Caption = "xpcmdbutton2"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin 工程1.xpcmdbutton xpcmdbutton1
Height = 330
Index = 5
Left = 5610
TabIndex = 5
Top = 75
Width = 1050
_ExtentX = 1852
_ExtentY = 582
Caption = "xpcmdbutton2"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin 工程1.xpcmdbutton xpcmdbutton1
Height = 330
Index = 6
Left = 6702
TabIndex = 6
Top = 75
Width = 1050
_ExtentX = 1852
_ExtentY = 582
Caption = "xpcmdbutton2"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin 工程1.xpcmdbutton xpcmdbutton1
Height = 330
Index = 7
Left = 7794
TabIndex = 7
Top = 75
Width = 1050
_ExtentX = 1852
_ExtentY = 582
Caption = "xpcmdbutton2"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin 工程1.xpcmdbutton xpcmdbutton1
Height = 330
Index = 8
Left = 8886
TabIndex = 8
Top = 75
Width = 1050
_ExtentX = 1852
_ExtentY = 582
Caption = "xpcmdbutton2"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin 工程1.xpcmdbutton xpcmdbutton1
Height = 330
Index = 9
Left = 9978
TabIndex = 9
Top = 75
Width = 1050
_ExtentX = 1852
_ExtentY = 582
Caption = "xpcmdbutton2"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin 工程1.xpcmdbutton xpcmdbutton1
Height = 330
Index = 10
Left = 11070
TabIndex = 10
Top = 75
Width = 1050
_ExtentX = 1852
_ExtentY = 582
Caption = "xpcmdbutton2"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin 工程1.xpcmdbutton xpcmdbutton1
Height = 330
Index = 11
Left = 12165
TabIndex = 11
Top = 75
Width = 1050
_ExtentX = 1852
_ExtentY = 582
Caption = "xpcmdbutton2"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Image Image1
Height = 510
Left = -45
Picture = "mme.frx":0000
Stretch = -1 'True
Top = 0
Width = 13455
End
End
Attribute VB_Name = "mme"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim ll As Long
Private Sub Form_Load()
tim = 0
If username = "" Then loginfrm.Show
For i = 0 To 11
xpcmdbutton1(i).Caption = ""
Next
With loginfrm
xpcmdbutton1(0).Caption = .login.Caption
xpcmdbutton1(1).Caption = .rkdj.Caption
xpcmdbutton1(2).Caption = .ckdj.Caption
xpcmdbutton1(3).Caption = .kcxx.Caption
xpcmdbutton1(4).Caption = .addnew.Caption
xpcmdbutton1(5).Caption = .adduser.Caption
xpcmdbutton1(6).Caption = .meukcsetup.Caption
xpcmdbutton1(7).Caption = .mnupass.Caption
xpcmdbutton1(8).Caption = .jbdj.Caption
xpcmdbutton1(9).Caption = .exit.Caption
xpcmdbutton1(10).Caption = "隐藏"
If Trim(username) = "管理员" Then
xpcmdbutton1(11).Caption = "系统管理"
.mnuxt.Visible = True
Me.Width = 12 * xpcmdbutton1(0).Width + 50
.jbdj.Visible = False
xpcmdbutton1(8).Visible = False
xpcmdbutton1(8).Caption = ""
Else
Me.Width = 11 * xpcmdbutton1(0).Width + 50
.jbdj.Visible = True
xpcmdbutton1(8).Visible = True
End If
End With
For i = 0 To 11
With xpcmdbutton1(i)
.Left = xpcmdbutton1(0).Width * i + 20
.Top = xpcmdbutton1(0).Top
.Visible = IIf(.Caption = "", False, True)
End With
Next
Me.Top = 0
Me.Height = xpcmdbutton1(0).Height + 150
Me.Left = Screen.Width - Me.Width
tim = 0
If username = "" Then loginfrm.Show
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
ll = 0
Me.Height = xpcmdbutton1(0).Height + 150
tim = 0
If username = "" Then loginfrm.Show
End Sub
Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
ll = 0
Me.Height = xpcmdbutton1(0).Height + 150
tim = 0
If username = "" Then loginfrm.Show
End Sub
Private Sub Timer1_Timer()
ll = ll + 1
If ll > 50 Then Me.Height = 20
End Sub
Private Sub xpcmdbutton1_Click(Index As Integer)
tim = 0
If username = "" Then loginfrm.Show
Select Case Index
Case 0: Unload Me: loginfrm.Show
Case 1: Frmrk.Show
Case 2: Frmck.Show
Case 3: spxx.Show
Case 4: spdj.Show
Case 5: frmuser.Show
Case 6: frmzdkc.Show
Case 7: pass.Show
Case 8: jbdjs.Show
Case 9: End
Case 10: Me.Height = 20
Case 11: frmbb.Show
End Select
End Sub
Private Sub xpcmdbutton1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
ll = 0
Me.Height = xpcmdbutton1(0).Height + 150
tim = 0
If username = "" Then loginfrm.Show
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -