📄 frmadmin.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "Msflxgrd.ocx"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form frmadmin
Caption = "管理窗口"
ClientHeight = 5715
ClientLeft = 4020
ClientTop = -45
ClientWidth = 5685
Icon = "frmadmin.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 5715
ScaleWidth = 5685
StartUpPosition = 2 '屏幕中心
Begin TabDlg.SSTab SSTab1
Height = 6250
Left = 0
TabIndex = 0
Top = 0
Width = 5750
_ExtentX = 10134
_ExtentY = 11033
_Version = 393216
Tabs = 4
TabsPerRow = 4
TabHeight = 520
TabCaption(0) = "学生表"
TabPicture(0) = "frmadmin.frx":0E42
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Frame2"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "frame1"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).ControlCount= 2
TabCaption(1) = "课程表"
TabPicture(1) = "frmadmin.frx":0E5E
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Frame4"
Tab(1).Control(1)= "Frame3"
Tab(1).ControlCount= 2
TabCaption(2) = "选课表"
TabPicture(2) = "frmadmin.frx":0E7A
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "Frame6"
Tab(2).Control(1)= "Frame5"
Tab(2).ControlCount= 2
TabCaption(3) = "教师表"
TabPicture(3) = "frmadmin.frx":0E96
Tab(3).ControlEnabled= 0 'False
Tab(3).Control(0)= "Frame7"
Tab(3).Control(1)= "Frame8"
Tab(3).ControlCount= 2
Begin VB.Frame Frame8
Caption = "单纪录显示"
Height = 2415
Left = -74880
TabIndex = 24
Top = 3240
Width = 5500
Begin VB.CommandButton cancel4
Caption = "取消"
Enabled = 0 'False
Height = 350
Left = 3960
TabIndex = 68
Top = 1440
Width = 700
End
Begin VB.CommandButton last4
Caption = "尾纪录"
Height = 350
Left = 3960
TabIndex = 64
Top = 1920
Width = 700
End
Begin VB.CommandButton next4
Caption = "后一条"
Height = 350
Left = 2880
TabIndex = 63
Top = 1920
Width = 700
End
Begin VB.CommandButton prev4
Caption = "前一条"
Height = 350
Left = 1680
TabIndex = 62
Top = 1920
Width = 700
End
Begin VB.CommandButton first4
Caption = "首纪录"
Height = 350
Left = 600
TabIndex = 61
Top = 1920
Width = 700
End
Begin VB.CommandButton find4
Caption = "查找"
Height = 350
Left = 3120
TabIndex = 60
Top = 1440
Width = 700
End
Begin VB.CommandButton alter4
Caption = "修改"
Height = 350
Left = 2280
TabIndex = 59
Top = 1440
Width = 700
End
Begin VB.CommandButton delt4
Caption = "删除"
Height = 350
Left = 1440
TabIndex = 58
Top = 1440
Width = 700
End
Begin VB.CommandButton add4
Caption = "新增"
Height = 350
Left = 600
TabIndex = 57
Top = 1440
Width = 700
End
Begin VB.TextBox texttname
DataField = "tname"
DataSource = "Data4"
Height = 270
Left = 3720
TabIndex = 54
Top = 550
Width = 1000
End
Begin VB.TextBox texttno
DataField = "tno"
DataSource = "Data4"
Height = 270
IMEMode = 3 'DISABLE
Left = 1320
TabIndex = 53
Top = 550
Width = 1000
End
Begin VB.Label Label12
Caption = "教师姓名"
Height = 255
Left = 2880
TabIndex = 56
Top = 645
Width = 975
End
Begin VB.Label Label11
Caption = "教师编号"
Height = 255
Left = 480
TabIndex = 55
Top = 615
Width = 735
End
End
Begin VB.Frame Frame7
Height = 2800
Left = -74880
TabIndex = 23
Top = 360
Width = 5500
Begin VB.Data Data4
Caption = "Data4"
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 285
Left = 240
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "teacher"
Top = 1200
Visible = 0 'False
Width = 3495
End
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid4
Bindings = "frmadmin.frx":0EB2
Height = 2505
Left = 100
TabIndex = 27
Top = 195
Width = 5295
_ExtentX = 9340
_ExtentY = 4419
_Version = 393216
Cols = 1
FixedCols = 0
SelectionMode = 1
AllowUserResizing= 1
End
End
Begin VB.Frame Frame6
Caption = "单纪录显示"
Height = 2415
Left = -74880
TabIndex = 22
Top = 3240
Width = 5500
Begin VB.TextBox textxcname
Height = 270
Left = 3120
TabIndex = 79
Top = 900
Width = 1335
End
Begin VB.TextBox Textxcno
DataField = "cno"
DataSource = "Data3"
Height = 270
Left = 840
TabIndex = 78
Top = 900
Width = 1215
End
Begin VB.TextBox textxsname
Height = 270
Left = 3120
TabIndex = 77
Top = 440
Width = 1335
End
Begin VB.TextBox textxsno
DataField = "sno"
DataSource = "Data3"
Height = 270
Left = 840
TabIndex = 76
Top = 440
Width = 1215
End
Begin VB.ComboBox cnoCombox
Height = 300
Left = 840
Sorted = -1 'True
TabIndex = 70
Text = "snamecombox"
Top = 900
Visible = 0 'False
Width = 1455
End
Begin VB.ComboBox snoCombox
Height = 300
ItemData = "frmadmin.frx":0EC6
Left = 840
List = "frmadmin.frx":0EC8
Sorted = -1 'True
TabIndex = 69
Text = "snocombox"
Top = 440
Visible = 0 'False
Width = 1455
End
Begin VB.CommandButton cancel3
Caption = "取消"
Enabled = 0 'False
Height = 350
Left = 3960
TabIndex = 67
Top = 1440
Width = 700
End
Begin VB.CommandButton last3
Caption = "尾纪录"
Height = 350
Left = 3960
TabIndex = 49
Top = 1920
Width = 700
End
Begin VB.CommandButton next3
Caption = "后一条"
Height = 350
Left = 2880
TabIndex = 48
Top = 1920
Width = 700
End
Begin VB.CommandButton prev3
Caption = "前一条"
Height = 350
Left = 1680
TabIndex = 47
Top = 1920
Width = 700
End
Begin VB.CommandButton first3
Caption = "首纪录"
Height = 350
Left = 600
TabIndex = 46
Top = 1920
Width = 700
End
Begin VB.CommandButton find3
Caption = "查找"
Height = 350
Left = 3120
TabIndex = 45
Top = 1440
Width = 700
End
Begin VB.CommandButton alter3
Caption = "修改"
Height = 350
Left = 2280
TabIndex = 44
Top = 1440
Width = 700
End
Begin VB.CommandButton delt3
Caption = "删除"
Height = 350
Left = 1440
TabIndex = 43
Top = 1440
Width = 700
End
Begin VB.CommandButton add3
Caption = "新增"
Height = 350
Left = 600
TabIndex = 42
Top = 1440
Width = 700
End
Begin VB.TextBox grade
DataField = "grade"
DataSource = "Data3"
Height = 270
Left = 4800
TabIndex = 41
Top = 900
Width = 405
End
Begin VB.Label Label15
Caption = "姓 名"
Height = 255
Left = 2520
TabIndex = 81
Top = 500
Width = 615
End
Begin VB.Label Label14
Caption = "课程号"
Height = 255
Left = 240
TabIndex = 80
Top = 960
Width = 615
End
Begin VB.Label Label10
Caption = "成 绩"
Height = 255
Left = 4800
TabIndex = 52
Top = 500
Width = 495
End
Begin VB.Label Label9
Caption = "课程名"
Height = 255
Left = 2520
TabIndex = 51
Top = 960
Width = 615
End
Begin VB.Label Label8
Caption = "学 号"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -