📄 formain.frm
字号:
TabIndex = 39
Top = 645
Width = 810
End
Begin VB.Label Label14
Caption = "家庭地址"
Height = 195
Left = 105
TabIndex = 37
Top = 285
Width = 840
End
End
Begin VB.Frame Frame3
Caption = "学生信息"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 1305
Left = 45
TabIndex = 4
Top = 1395
Width = 6315
Begin VB.TextBox TextID
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
Enabled = 0 'False
ForeColor = &H80000011&
Height = 270
Left = 4875
TabIndex = 44
Text = "TextID"
ToolTipText = "系统自动编号"
Top = 930
Width = 1245
End
Begin VB.TextBox TextAddQS
Height = 270
Left = 840
TabIndex = 36
Text = "TextAddQS"
Top = 915
Width = 2355
End
Begin VB.TextBox TextZW
Height = 270
Left = 1725
TabIndex = 34
Text = "TextZW"
Top = 570
Width = 1140
End
Begin VB.TextBox TextTelQS
Height = 285
Left = 3765
TabIndex = 32
Text = "TextTelQS"
Top = 570
Width = 1785
End
Begin VB.TextBox TextNum
Height = 270
Left = 480
TabIndex = 30
Text = "TextNum"
Top = 570
Width = 810
End
Begin VB.TextBox TextZY
Height = 285
Left = 3735
TabIndex = 28
Text = "TextZY"
Top = 240
Width = 1815
End
Begin VB.TextBox TextClass
Height = 270
Left = 870
TabIndex = 26
Text = "TextClass"
Top = 240
Width = 1995
End
Begin VB.Label Label17
Caption = "系统自动编号"
ForeColor = &H80000011&
Height = 195
Left = 3630
TabIndex = 43
Top = 990
Width = 1230
End
Begin VB.Label Label13
Caption = "寝室地址"
Height = 195
Left = 60
TabIndex = 35
Top = 930
Width = 870
End
Begin VB.Label Label12
Caption = "职务"
Height = 210
Left = 1335
TabIndex = 33
Top = 615
Width = 480
End
Begin VB.Label Label11
Caption = "寝室电话"
Height = 165
Left = 2955
TabIndex = 31
Top = 615
Width = 810
End
Begin VB.Label Label10
Caption = "学号"
Height = 195
Left = 75
TabIndex = 29
Top = 615
Width = 480
End
Begin VB.Label Label9
Caption = "专业名称"
Height = 180
Left = 2910
TabIndex = 27
Top = 300
Width = 750
End
Begin VB.Label Label8
Caption = "班级名称"
Height = 180
Left = 60
TabIndex = 25
Top = 270
Width = 825
End
End
Begin VB.Frame Frame2
Caption = "基本信息"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 1275
Left = 45
TabIndex = 3
Top = 135
Width = 6315
Begin VB.TextBox TextCJZ
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
Enabled = 0 'False
Height = 270
Left = 4935
TabIndex = 53
ToolTipText = "创建者"
Top = 525
Width = 1140
End
Begin VB.TextBox TextQQ
Height = 270
Left = 4380
TabIndex = 24
Text = "TextQQ"
Top = 840
Width = 1770
End
Begin VB.TextBox TextEMail
Height = 270
Left = 795
TabIndex = 22
Text = "TextEMail"
Top = 840
Width = 2925
End
Begin VB.TextBox TextMo
Height = 285
Left = 3210
TabIndex = 20
Text = "TextMo"
Top = 510
Width = 1395
End
Begin VB.TextBox TextTel
Height = 270
Left = 810
TabIndex = 18
Text = "TextTel"
Top = 540
Width = 1560
End
Begin VB.Frame Frame7
BeginProperty Font
Name = "宋体"
Size = 5.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 4650
TabIndex = 14
Top = 120
Width = 1425
Begin VB.OptionButton Option4
Caption = "否"
ForeColor = &H000000FF&
Height = 210
Left = 750
TabIndex = 16
Top = 120
Width = 510
End
Begin VB.OptionButton Option3
Caption = "是"
ForeColor = &H000000FF&
Height = 210
Left = 135
TabIndex = 15
Top = 120
Width = 495
End
End
Begin VB.Frame Frame6
BeginProperty Font
Name = "宋体"
Size = 5.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2025
TabIndex = 11
Top = 120
Width = 1110
Begin VB.OptionButton Option2
Caption = "女"
Height = 210
Left = 525
TabIndex = 13
Top = 120
Width = 510
End
Begin VB.OptionButton Option1
Caption = "男"
Height = 210
Left = 60
TabIndex = 12
Top = 135
Width = 450
End
End
Begin VB.TextBox TextName
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 480
TabIndex = 10
Text = "TextName"
Top = 240
Width = 1020
End
Begin VB.Label Label7
Caption = "QQ号码"
Height = 225
Left = 3795
TabIndex = 23
Top = 870
Width = 705
End
Begin VB.Label Label6
Caption = "电子邮箱"
Height = 180
Left = 45
TabIndex = 21
Top = 870
Width = 780
End
Begin VB.Label Label5
Caption = "移动手机"
Height = 195
Left = 2445
TabIndex = 19
Top = 570
Width = 825
End
Begin VB.Label Label4
Caption = "固定电话"
Height = 225
Left = 45
TabIndex = 17
Top = 585
Width = 750
End
Begin VB.Label Label3
Caption = "信息是否公开:"
ForeColor = &H000000FF&
Height = 255
Left = 3360
TabIndex = 9
Top = 225
Width = 1365
End
Begin VB.Label Label2
Caption = "性别"
Height = 225
Left = 1515
TabIndex = 8
Top = 255
Width = 585
End
Begin VB.Label Label1
Caption = "姓名"
Height = 255
Left = 60
TabIndex = 7
Top = 285
Width = 615
End
End
Begin VB.Image ComDel
Height = 300
Left = 4140
Picture = "ForMain.frx":0A04
Top = 5760
Width = 1125
End
Begin VB.Image Image15
Height = 360
Left = 5415
Picture = "ForMain.frx":1C16
ToolTipText = "修改同学资料"
Top = 5730
Width = 990
End
End
Begin MSComctlLib.TreeView TreeView
Height = 5940
Left = -15
TabIndex = 0
ToolTipText = "双击查看同学资料"
Top = 1215
Width = 2370
_ExtentX = 4180
_ExtentY = 10478
_Version = 393217
Style = 7
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Image Image11
Height = 495
Left = 4770
Picture = "ForMain.frx":2F18
Top = 525
Width = 3525
End
Begin VB.Image Image14
Height = 7320
Left = 2385
Picture = "ForMain.frx":8A9E
Top = 525
Width = 105
End
Begin VB.Image Image13
Height = 495
Left = 3585
Picture = "ForMain.frx":B8A0
Top = 525
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -