📄 虚拟班级窗口.frm
字号:
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 495
Left = 2760
TabIndex = 1
Top = 480
Width = 2415
End
Begin VB.TextBox Txtclassname
BackColor = &H00FFFFFF&
BeginProperty Font
Name = "楷体_GB2312"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 495
Left = 8160
TabIndex = 3
Top = 480
Width = 2535
End
Begin MSDataGridLib.DataGrid Dgdmajor
Bindings = "虚拟班级窗口.frx":0018
Height = 4215
Left = 360
TabIndex = 18
Top = 2400
Width = 6855
_ExtentX = 12091
_ExtentY = 7435
_Version = 393216
AllowUpdate = -1 'True
BackColor = 16777215
ColumnHeaders = -1 'True
ForeColor = 0
HeadLines = 1
RowHeight = 22
FormatLocked = -1 'True
BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "楷体_GB2312"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "楷体_GB2312"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "专业编号表"
ColumnCount = 2
BeginProperty Column00
DataField = "specid"
Caption = "专业编号"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column01
DataField = "specname"
Caption = "专业名称"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
SplitCount = 1
BeginProperty Split0
AllowFocus = 0 'False
BeginProperty Column00
ColumnWidth = 1500.095
EndProperty
BeginProperty Column01
ColumnWidth = 3795.024
EndProperty
EndProperty
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
Caption = "班级名称："
BeginProperty Font
Name = "楷体_GB2312"
Size = 21.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 495
Left = 5760
TabIndex = 22
Top = 480
Width = 2895
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "班级人数："
BeginProperty Font
Name = "楷体_GB2312"
Size = 21.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 495
Left = 5760
TabIndex = 21
Top = 1320
Width = 2535
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "专业编号："
BeginProperty Font
Name = "楷体_GB2312"
Size = 21.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 615
Left = 120
TabIndex = 20
Top = 600
Width = 2775
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "班级编号："
BeginProperty Font
Name = "楷体_GB2312"
Size = 21.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 615
Left = 120
TabIndex = 19
Top = 1320
Width = 2535
End
End
Begin VB.Frame Frame3
BackColor = &H00FFC0C0&
Height = 1575
Left = 120
TabIndex = 16
Top = 7080
Width = 12735
Begin VB.CommandButton Command1
BackColor = &H00FFC0C0&
Caption = "添加"
BeginProperty Font
Name = "楷体_GB2312"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 240
MaskColor = &H00FFFFFF&
Style = 1 'Graphical
TabIndex = 9
Top = 600
Width = 1215
End
Begin VB.CommandButton Cmdadd
BackColor = &H00FFC0C0&
Caption = "保存"
BeginProperty Font
Name = "楷体_GB2312"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 2280
Style = 1 'Graphical
TabIndex = 10
Top = 600
Width = 1215
End
Begin VB.CommandButton Cmdexit
BackColor = &H00FFC0C0&
Cancel = -1 'True
Caption = "退出"
BeginProperty Font
Name = "楷体_GB2312"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 9840
Style = 1 'Graphical
TabIndex = 14
Top = 600
Width = 1215
End
Begin VB.CommandButton Cmdmodify
BackColor = &H00FFC0C0&
Caption = "编辑"
BeginProperty Font
Name = "楷体_GB2312"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 4200
Style = 1 'Graphical
TabIndex = 11
Top = 600
Width = 1215
End
Begin VB.CommandButton cmdfind
BackColor = &H00FFC0C0&
Caption = "查找"
BeginProperty Font
Name = "楷体_GB2312"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 8040
MaskColor = &H00FFFFFF&
Style = 1 'Graphical
TabIndex = 13
Top = 600
UseMaskColor = -1 'True
Width = 1215
End
Begin VB.CommandButton Cmddelete
BackColor = &H00FFC0C0&
Caption = "删除"
BeginProperty Font
Name = "楷体_GB2312"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 6120
Style = 1 'Graphical
TabIndex = 12
Top = 600
Width = 1215
End
End
Begin VB.Frame Frame2
BackColor = &H00FFC0C0&
Caption = "班级编号说明："
BeginProperty Font
Name = "楷体_GB2312"
Size = 26.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 1935
Left = 120
TabIndex = 0
Top = 8760
Width = 12735
Begin VB.Label Label7
BackStyle = 0 'Transparent
Caption = "班级编号规则为专业在年级中的编号+班级号。"
BeginProperty Font
Name = "楷体_GB2312"
Size = 24
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 855
Left = 120
TabIndex = 15
Top = 960
Width = 9735
End
End
End
Attribute VB_Name = "Frmclass"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim temp As New ADODB.Recordset
Public db As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim strSQL As String
Dim strSQL1 As String
Private Sub Cmddelete_Click()
rst.Delete
rst.Requery
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -