📄 main.frm
字号:
VERSION 5.00
Begin VB.Form main
BackColor = &H00FF8080&
BorderStyle = 1 'Fixed Single
Caption = "学生请假信息管理系统"
ClientHeight = 6495
ClientLeft = 2925
ClientTop = 2655
ClientWidth = 9480
BeginProperty Font
Name = "华文行楷"
Size = 21.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "main.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
Picture = "main.frx":014A
ScaleHeight = 6495
ScaleWidth = 9480
StartUpPosition = 2 '屏幕中心
Begin VB.PictureBox p1
BackColor = &H00FFFFFF&
Enabled = 0 'False
BeginProperty Font
Name = "仿宋_GB2312"
Size = 21.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 3975
Left = 600
Picture = "main.frx":D612
ScaleHeight = 3915
ScaleWidth = 2715
TabIndex = 0
Top = 1800
Width = 2775
End
Begin VB.Shape s1
BorderColor = &H000000FF&
Height = 360
Left = 4110
Shape = 4 'Rounded Rectangle
Top = 2280
Visible = 0 'False
Width = 1950
End
Begin VB.Shape S4
BorderColor = &H000000FF&
Height = 360
Left = 6480
Shape = 4 'Rounded Rectangle
Top = 2280
Visible = 0 'False
Width = 1950
End
Begin VB.Label lc1
BackColor = &H00FF8080&
BackStyle = 0 'Transparent
Caption = "管理员操作"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 0
Left = 4410
TabIndex = 9
Top = 5085
Width = 1455
End
Begin VB.Shape S7
BorderColor = &H000000FF&
Height = 360
Left = 4110
Shape = 4 'Rounded Rectangle
Top = 5040
Visible = 0 'False
Width = 1950
End
Begin VB.Label la1
BackColor = &H00FF8080&
BackStyle = 0 'Transparent
Caption = "班级基本信息"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 0
Left = 4230
TabIndex = 8
Top = 2325
Width = 1815
End
Begin VB.Label la2
BackColor = &H00FF8080&
BackStyle = 0 'Transparent
Caption = "学生基本信息"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 0
Left = 4230
TabIndex = 7
Top = 3240
Width = 1815
End
Begin VB.Label la3
BackColor = &H00FF8080&
BackStyle = 0 'Transparent
Caption = "请假登记表"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 0
Left = 4410
TabIndex = 6
Top = 4170
Width = 1455
End
Begin VB.Shape S2
BorderColor = &H000000FF&
Height = 360
Left = 4110
Shape = 4 'Rounded Rectangle
Top = 3195
Visible = 0 'False
Width = 1950
End
Begin VB.Shape S3
BorderColor = &H000000FF&
Height = 360
Left = 4110
Shape = 4 'Rounded Rectangle
Top = 4125
Visible = 0 'False
Width = 1950
End
Begin VB.Label lc2
BackColor = &H00FF8080&
BackStyle = 0 'Transparent
Caption = "退出程序"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 0
Left = 6855
TabIndex = 5
Top = 5085
Width = 1215
End
Begin VB.Shape S8
BorderColor = &H000000FF&
Height = 360
Left = 6480
Shape = 4 'Rounded Rectangle
Top = 5040
Visible = 0 'False
Width = 1950
End
Begin VB.Label lb3
BackColor = &H00FF8080&
BackStyle = 0 'Transparent
Caption = "请假情况查询"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 0
Left = 6615
TabIndex = 4
Top = 4170
Width = 1815
End
Begin VB.Label lb2
BackColor = &H00FF8080&
BackStyle = 0 'Transparent
Caption = "学生信息查询"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 0
Left = 6615
TabIndex = 3
Top = 3240
Width = 1815
End
Begin VB.Label lb1
BackColor = &H00FF8080&
BackStyle = 0 'Transparent
Caption = "班级信息查询"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 0
Left = 6615
TabIndex = 2
Top = 2325
Width = 1815
End
Begin VB.Shape S5
BorderColor = &H000000FF&
Height = 360
Left = 6480
Shape = 4 'Rounded Rectangle
Top = 3195
Visible = 0 'False
Width = 1950
End
Begin VB.Shape S6
BorderColor = &H000000FF&
Height = 360
Left = 6480
Shape = 4 'Rounded Rectangle
Top = 4125
Visible = 0 'False
Width = 1950
End
Begin VB.Label Label1
BackColor = &H00FF8080&
BackStyle = 0 'Transparent
Caption = "学生请假信息管理系统"
BeginProperty Font
Name = "华文行楷"
Size = 26.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 600
Left = 2155
TabIndex = 1
Top = 720
Width = 5290
End
End
Attribute VB_Name = "main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If X > s1.Left And X < s1.Left + s1.Width And Y > s1.Top And Y < s1.Top + s1.Height Then
s1.Visible = True
la1(0).ForeColor = &HFF&
Else:
s1.Visible = False
la1(0).ForeColor = &H0&
End If
If X > s2.Left And X < s2.Left + s2.Width And Y > s2.Top And Y < s2.Top + s2.Height Then
s2.Visible = True
la2(0).ForeColor = &HFF&
Else:
s2.Visible = False
la2(0).ForeColor = &H0&
End If
If X > s3.Left And X < s3.Left + s3.Width And Y > s3.Top And Y < s3.Top + s3.Height Then
s3.Visible = True
la3(0).ForeColor = &HFF&
P = 0 '看这里！！！！！！！！！！！！！！！！！！！！
Else:
s3.Visible = False
la3(0).ForeColor = &H0&
End If
If X > s7.Left And X < s7.Left + s7.Width And Y > s7.Top And Y < s7.Top + s7.Height Then
s7.Visible = True
lc1(0).ForeColor = &HFF&
Else:
s7.Visible = False
lc1(0).ForeColor = &H0&
End If
If X > S8.Left And X < S8.Left + S8.Width And Y > S8.Top And Y < S8.Top + S8.Height Then
S8.Visible = True
lc2(0).ForeColor = &HFF&
Else:
S8.Visible = False
lc2(0).ForeColor = &H0&
End If
If X > s4.Left And X < s4.Left + s4.Width And Y > s4.Top And Y < s4.Top + s4.Height Then
s4.Visible = True
lb1(0).ForeColor = &HFF&
Else:
s4.Visible = False
lb1(0).ForeColor = &H0&
End If
If X > s5.Left And X < s5.Left + s5.Width And Y > s5.Top And Y < s5.Top + s5.Height Then
s5.Visible = True
lb2(0).ForeColor = &HFF&
Else:
s5.Visible = False
lb2(0).ForeColor = &H0&
End If
If X > s6.Left And X < s6.Left + s6.Width And Y > s6.Top And Y < s6.Top + s6.Height Then
s6.Visible = True
lb3(0).ForeColor = &HFF&
Else:
s6.Visible = False
lb3(0).ForeColor = &H0&
End If
End Sub
Private Sub la1_Click(Index As Integer)
Me.Hide
a1.Show
End Sub
Private Sub la2_Click(Index As Integer)
Me.Hide
a2.Show
End Sub
Private Sub la3_Click(Index As Integer)
Me.Hide
P = 0
a3.Show
End Sub
Private Sub lb1_Click(Index As Integer)
Me.Hide
b1.Show
End Sub
Private Sub lb2_Click(Index As Integer)
Me.Hide
b2.Show
End Sub
Private Sub lb3_Click(Index As Integer)
Me.Hide
b3.Show
End Sub
Private Sub lc1_Click(Index As Integer)
Me.Hide
c1.Show
End Sub
Private Sub lc2_Click(Index As Integer)
Dim n As Integer
n = MsgBox("你确定退出本系统吗？", 32, "quit")
If n = 1 Then End
If n = 2 Then
Exit Sub
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -