📄 frmstuinfo.frm
字号:
VERSION 5.00
Begin VB.Form frmstuinfo
BackColor = &H80000014&
BorderStyle = 0 'None
ClientHeight = 3525
ClientLeft = 0
ClientTop = 0
ClientWidth = 5055
Icon = "frmstuinfo.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3525
ScaleWidth = 5055
ShowInTaskbar = 0 'False
StartUpPosition = 1 '所有者中心
Begin VB.Label StuInfo
AutoSize = -1 'True
BackColor = &H80000014&
Height = 180
Index = 11
Left = 1080
TabIndex = 23
Top = 2400
Width = 90
End
Begin VB.Label StuInfo
AutoSize = -1 'True
BackColor = &H80000014&
Height = 180
Index = 10
Left = 1080
TabIndex = 22
Top = 1560
Width = 90
End
Begin VB.Label StuInfo
AutoSize = -1 'True
BackColor = &H80000014&
Height = 180
Index = 9
Left = 3360
TabIndex = 21
Top = 1560
Width = 90
End
Begin VB.Label StuInfo
AutoSize = -1 'True
BackColor = &H80000014&
Height = 180
Index = 8
Left = 1080
TabIndex = 20
Top = 1920
Width = 90
End
Begin VB.Label StuInfo
AutoSize = -1 'True
BackColor = &H80000014&
Height = 180
Index = 7
Left = 3360
TabIndex = 19
Top = 1200
Width = 90
End
Begin VB.Label StuInfo
AutoSize = -1 'True
BackColor = &H80000014&
Height = 180
Index = 6
Left = 1080
TabIndex = 18
Top = 1200
Width = 90
End
Begin VB.Label StuInfo
AutoSize = -1 'True
BackColor = &H80000014&
Height = 180
Index = 5
Left = 1080
TabIndex = 17
Top = 840
Width = 90
End
Begin VB.Label StuInfo
AutoSize = -1 'True
BackColor = &H80000014&
Height = 180
Index = 4
Left = 1080
TabIndex = 16
Top = 480
Width = 90
End
Begin VB.Label StuInfo
AutoSize = -1 'True
BackColor = &H80000014&
Height = 180
Index = 3
Left = 3360
TabIndex = 15
Top = 840
Width = 90
End
Begin VB.Label StuInfo
AutoSize = -1 'True
BackColor = &H80000014&
Height = 180
Index = 2
Left = 3360
TabIndex = 14
Top = 480
Width = 90
End
Begin VB.Label StuInfo
AutoSize = -1 'True
BackColor = &H80000014&
Height = 180
Index = 1
Left = 3360
TabIndex = 13
Top = 120
Width = 90
End
Begin VB.Label StuInfo
AutoSize = -1 'True
BackColor = &H80000014&
Height = 180
Index = 0
Left = 1080
TabIndex = 12
Top = 120
Width = 90
End
Begin VB.Label Label
AutoSize = -1 'True
BackColor = &H80000014&
Caption = "备 注"
Height = 180
Index = 11
Left = 120
TabIndex = 11
Top = 2760
Width = 630
End
Begin VB.Label Label
AutoSize = -1 'True
BackColor = &H80000014&
Caption = "联系电话"
Height = 180
Index = 8
Left = 120
TabIndex = 10
Top = 1560
Width = 720
End
Begin VB.Label Label
AutoSize = -1 'True
BackColor = &H80000014&
Caption = "邮政编码"
Height = 180
Index = 9
Left = 2400
TabIndex = 9
Top = 1560
Width = 720
End
Begin VB.Label Label
AutoSize = -1 'True
BackColor = &H80000014&
Caption = "寝室号码"
Height = 180
Index = 7
Left = 2400
TabIndex = 8
Top = 1200
Width = 720
End
Begin VB.Line Line16
BorderColor = &H8000000D&
X1 = 5040
X2 = -2760
Y1 = 1440
Y2 = 1440
End
Begin VB.Label Label
AutoSize = -1 'True
BackColor = &H80000014&
Caption = "家庭住址"
Height = 180
Index = 10
Left = 120
TabIndex = 7
Top = 1920
Width = 720
End
Begin VB.Line Line15
BorderColor = &H8000000D&
X1 = 0
X2 = 5040
Y1 = 1080
Y2 = 1080
End
Begin VB.Label Label
AutoSize = -1 'True
BackColor = &H80000014&
Caption = "出生年月"
Height = 180
Index = 6
Left = 120
TabIndex = 6
Top = 1200
Width = 720
End
Begin VB.Label Label
AutoSize = -1 'True
BackColor = &H80000014&
Caption = "民 族"
Height = 180
Index = 4
Left = 120
TabIndex = 5
Top = 840
Width = 720
End
Begin VB.Label Label
AutoSize = -1 'True
BackColor = &H80000014&
Caption = "籍 贯"
Height = 180
Index = 2
Left = 120
TabIndex = 4
Top = 480
Width = 720
End
Begin VB.Label Label
AutoSize = -1 'True
BackColor = &H80000014&
Caption = "政治面貌"
Height = 180
Index = 5
Left = 2400
TabIndex = 3
Top = 840
Width = 720
End
Begin VB.Label Label
AutoSize = -1 'True
BackColor = &H80000014&
Caption = "性 别"
Height = 180
Index = 3
Left = 2400
TabIndex = 2
Top = 480
Width = 720
End
Begin VB.Line Line12
BorderColor = &H8000000D&
X1 = 5040
X2 = 0
Y1 = 1800
Y2 = 1800
End
Begin VB.Line Line11
BorderColor = &H8000000D&
X1 = 5040
X2 = 0
Y1 = 3480
Y2 = 3480
End
Begin VB.Line Line10
BorderColor = &H8000000D&
X1 = 5040
X2 = -600
Y1 = 2160
Y2 = 2160
End
Begin VB.Line Line9
BorderColor = &H8000000D&
X1 = 5040
X2 = 5040
Y1 = 0
Y2 = 3480
End
Begin VB.Label Label
AutoSize = -1 'True
BackColor = &H80000014&
Caption = "姓 名"
Height = 180
Index = 1
Left = 2400
TabIndex = 1
Top = 120
Width = 720
End
Begin VB.Line Line8
BorderColor = &H8000000D&
X1 = 3240
X2 = 3240
Y1 = 0
Y2 = 1800
End
Begin VB.Label Label
AutoSize = -1 'True
BackColor = &H80000014&
Caption = "学 号"
Height = 180
Index = 0
Left = 120
TabIndex = 0
Top = 120
Width = 720
End
Begin VB.Line Line7
BorderColor = &H8000000D&
X1 = 2280
X2 = 2280
Y1 = 0
Y2 = 1800
End
Begin VB.Line Line6
BorderColor = &H8000000D&
X1 = 960
X2 = 960
Y1 = -480
Y2 = 3480
End
Begin VB.Line Line4
BorderColor = &H8000000D&
X1 = 0
X2 = 0
Y1 = 0
Y2 = 3480
End
Begin VB.Line Line3
BorderColor = &H8000000D&
X1 = 0
X2 = 5040
Y1 = 0
Y2 = 0
End
Begin VB.Line Line2
BorderColor = &H8000000D&
X1 = 0
X2 = 5040
Y1 = 720
Y2 = 720
End
Begin VB.Line Line1
BorderColor = &H8000000D&
X1 = 0
X2 = 5040
Y1 = 360
Y2 = 360
End
End
Attribute VB_Name = "frmstuinfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public Sub LoadStuInfo(StuNum As String)
On Error Resume Next
sqlstr = "select * from StuInfo where SID='" & StuNum & "'"
rs.Open sqlstr, con, 1, 1
StuInfo(0).Caption = rs.Fields("SID")
StuInfo(1).Caption = rs.Fields("SName")
StuInfo(2).Caption = rs.Fields("SGender")
StuInfo(3).Caption = rs.Fields("SZhengzhi")
StuInfo(4).Caption = rs.Fields("SPlace")
StuInfo(5).Caption = rs.Fields("SMinzu")
StuInfo(6).Caption = rs.Fields("SBirthday")
StuInfo(7).Caption = rs.Fields("SDormitory")
StuInfo(8).Caption = rs.Fields("SAddress")
StuInfo(9).Caption = rs.Fields("SCode")
StuInfo(10).Caption = rs.Fields("STel")
StuInfo(11).Caption = rs.Fields("SRemark")
rs.Close: Set rs = Nothing
Me.Show 1
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
Unload Me
End If
End Sub
Private Sub Label_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
Unload Me
End If
End Sub
Private Sub StuInfo_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
Unload Me
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -