📄 frmstudent.frm
字号:
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Begin VB.Form frmStudent
Caption = "Form1"
ClientHeight = 7680
ClientLeft = 60
ClientTop = 450
ClientWidth = 8595
LinkTopic = "Form1"
ScaleHeight = 7680
ScaleWidth = 8595
StartUpPosition = 3 '窗口缺省
Begin TabDlg.SSTab SSTab1
Height = 6495
Left = 0
TabIndex = 3
Top = 1080
Width = 8535
_ExtentX = 15055
_ExtentY = 11456
_Version = 393216
Tab = 2
TabHeight = 520
TabCaption(0) = "添加学生学籍"
TabPicture(0) = "frmStudent.frx":0000
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "Frame1"
Tab(0).Control(1)= "DataGrid1"
Tab(0).ControlCount= 2
TabCaption(1) = "查询修改学生学籍"
TabPicture(1) = "frmStudent.frx":001C
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Frame3"
Tab(1).Control(1)= "Frame2"
Tab(1).Control(2)= "DataGrid2"
Tab(1).ControlCount= 3
TabCaption(2) = "注销学生学籍"
TabPicture(2) = "frmStudent.frx":0038
Tab(2).ControlEnabled= -1 'True
Tab(2).Control(0)= "DataGrid3"
Tab(2).Control(0).Enabled= 0 'False
Tab(2).Control(1)= "Frame4"
Tab(2).Control(1).Enabled= 0 'False
Tab(2).Control(2)= "Frame5"
Tab(2).Control(2).Enabled= 0 'False
Tab(2).ControlCount= 3
Begin VB.Frame Frame5
Caption = "查询条件"
Height = 1215
Left = 120
TabIndex = 90
Top = 360
Width = 8415
Begin VB.OptionButton Option1
Caption = "学号："
Height = 255
Left = 120
TabIndex = 98
Top = 360
Width = 855
End
Begin VB.OptionButton Option2
Caption = "姓名："
Height = 255
Left = 2640
TabIndex = 97
Top = 360
Width = 855
End
Begin VB.CheckBox CheckDel
Caption = "班级："
Height = 300
Left = 5160
TabIndex = 96
Top = 360
Width = 855
End
Begin VB.TextBox txtXJdelNum
Height = 270
Left = 960
TabIndex = 95
Top = 360
Width = 1575
End
Begin VB.TextBox txtXJdelName
Height = 270
Left = 3480
TabIndex = 94
Top = 360
Width = 1575
End
Begin VB.ComboBox txtXJdelBJ
Height = 300
Left = 6000
TabIndex = 93
Top = 360
Width = 1575
End
Begin VB.CommandButton cmdXJdelFind
Caption = "查 询"
Height = 375
Left = 1320
TabIndex = 92
Top = 720
Width = 1455
End
Begin VB.CommandButton Command7
Caption = "全 部"
Height = 375
Left = 4440
TabIndex = 91
Top = 720
Width = 1455
End
End
Begin VB.Frame Frame4
Caption = "学生信息"
Height = 2655
Left = 120
TabIndex = 65
Top = 1560
Width = 8415
Begin VB.CommandButton Command4
Caption = "上 一 条"
Height = 375
Left = 6720
TabIndex = 78
Top = 240
Width = 1335
End
Begin VB.CommandButton Command3
Caption = "下 一 条"
Height = 375
Left = 6720
TabIndex = 77
Top = 1080
Width = 1335
End
Begin VB.CommandButton cmdXJdel
Caption = "注 销"
Height = 375
Left = 6720
TabIndex = 76
Top = 1920
Width = 1335
End
Begin VB.TextBox txtXJdelINFO
Height = 270
Index = 0
Left = 840
TabIndex = 75
Top = 360
Width = 2055
End
Begin VB.TextBox txtXJdelINFO
Height = 270
Index = 1
Left = 840
TabIndex = 74
Top = 720
Width = 2055
End
Begin VB.TextBox txtXJdelINFO
Height = 270
Index = 2
Left = 840
TabIndex = 73
Top = 1080
Width = 2055
End
Begin VB.TextBox txtXJdelINFO
Height = 270
Index = 3
Left = 840
TabIndex = 72
Top = 1440
Width = 2055
End
Begin VB.TextBox txtXJdelINFO
Height = 270
Index = 4
Left = 840
TabIndex = 71
Top = 1800
Width = 2055
End
Begin VB.TextBox txtXJdelINFO
Height = 270
Index = 5
Left = 1080
TabIndex = 70
Top = 2160
Width = 1815
End
Begin VB.TextBox txtXJdelINFO
Height = 270
Index = 6
Left = 4320
TabIndex = 69
Top = 360
Width = 2055
End
Begin VB.TextBox txtXJdelINFO
Height = 270
Index = 7
Left = 4320
TabIndex = 68
Top = 720
Width = 2055
End
Begin VB.TextBox txtXJdelINFO
Height = 270
Index = 8
Left = 4320
TabIndex = 67
Top = 1080
Width = 2055
End
Begin VB.TextBox txtXJdelINFO
Height = 1095
Index = 9
Left = 3840
TabIndex = 66
Top = 1440
Width = 2535
End
Begin VB.Label Label32
Caption = "学号："
Height = 255
Left = 240
TabIndex = 89
Top = 360
Width = 615
End
Begin VB.Label Label31
Caption = "姓名："
Height = 255
Left = 240
TabIndex = 88
Top = 720
Width = 615
End
Begin VB.Label Label30
Caption = "性别："
Height = 255
Left = 240
TabIndex = 87
Top = 1080
Width = 615
End
Begin VB.Label Label29
Caption = "专业："
Height = 255
Left = 240
TabIndex = 86
Top = 1440
Width = 615
End
Begin VB.Label Label28
Caption = "班级："
Height = 255
Left = 240
TabIndex = 85
Top = 1800
Width = 615
End
Begin VB.Label Label27
Caption = "政治面貌："
Height = 255
Left = 240
TabIndex = 84
Top = 2160
Width = 975
End
Begin VB.Label Label26
Caption = "出生日期："
Height = 255
Left = 3360
TabIndex = 83
Top = 360
Width = 975
End
Begin VB.Label Label25
Caption = "家庭住址："
Height = 255
Left = 3360
TabIndex = 82
Top = 720
Width = 975
End
Begin VB.Label Label24
Caption = "联系方式："
Height = 255
Left = 3360
TabIndex = 81
Top = 1080
Width = 975
End
Begin VB.Label Label23
Caption = "备注："
Height = 255
Left = 3360
TabIndex = 80
Top = 1440
Width = 615
End
Begin VB.Label Label22
Height = 255
Left = 3360
TabIndex = 79
Top = 1800
Width = 975
End
End
Begin VB.Frame Frame3
Caption = "查询条件"
Height = 1335
Left = -75000
TabIndex = 55
Top = 360
Width = 8535
Begin VB.OptionButton Opt1
Caption = "学号："
Height = 255
Left = 120
TabIndex = 63
Top = 360
Width = 855
End
Begin VB.TextBox txtXuehao
Height = 270
Left = 960
TabIndex = 62
Top = 360
Width = 1335
End
Begin VB.OptionButton Opt2
Caption = "姓名："
Height = 255
Left = 2640
TabIndex = 61
Top = 360
Width = 855
End
Begin VB.TextBox txtName
Height = 270
Left = 3480
TabIndex = 60
Top = 360
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -