📄 frmclass.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form Frmclass
BorderStyle = 1 'Fixed Single
Caption = "班级设置"
ClientHeight = 4815
ClientLeft = 45
ClientTop = 330
ClientWidth = 6120
Icon = "Frmclass.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4815
ScaleWidth = 6120
StartUpPosition = 1 '所有者中心
Begin VB.CommandButton Command3
Cancel = -1 'True
Caption = "关闭（&C）"
Height = 375
Left = 4200
TabIndex = 5
Top = 4320
Width = 1035
End
Begin VB.Frame Frame1
Caption = "请选择"
Height = 3975
Left = 3420
TabIndex = 7
Top = 120
Width = 2595
Begin VB.ComboBox Combo1
Height = 300
Left = 120
Style = 2 'Dropdown List
TabIndex = 1
Top = 1380
Width = 2355
End
Begin VB.TextBox Text1
Alignment = 1 'Right Justify
Height = 315
Left = 120
Locked = -1 'True
TabIndex = 0
Text = "2000"
Top = 600
Width = 1815
End
Begin VB.TextBox Text3
Alignment = 1 'Right Justify
Height = 315
Left = 120
Locked = -1 'True
TabIndex = 2
Text = "2"
Top = 2400
Width = 1575
End
Begin VB.CommandButton Command1
Caption = "添加（&A）"
Default = -1 'True
Height = 375
Left = 120
TabIndex = 3
Top = 3120
Width = 1035
End
Begin VB.CommandButton Command2
Caption = "删除（&D）"
Height = 375
Left = 1440
TabIndex = 4
Top = 3120
Width = 975
End
Begin MSComCtl2.UpDown UpDown2
Height = 315
Left = 1920
TabIndex = 8
Top = 600
Width = 240
_ExtentX = 450
_ExtentY = 556
_Version = 393216
Value = 2000
BuddyControl = "Text1"
BuddyDispid = 196612
OrigLeft = 1380
OrigTop = 660
OrigRight = 1620
OrigBottom = 975
Max = 3000
Min = 1990
SyncBuddy = -1 'True
BuddyProperty = 0
Enabled = -1 'True
End
Begin MSComCtl2.UpDown UpDown1
Height = 315
Left = 1680
TabIndex = 9
Top = 2400
Width = 240
_ExtentX = 450
_ExtentY = 556
_Version = 393216
Value = 2
BuddyControl = "Text3"
BuddyDispid = 196613
OrigLeft = 1380
OrigTop = 2340
OrigRight = 1620
OrigBottom = 2655
Max = 9
Min = 1
SyncBuddy = -1 'True
BuddyProperty = 0
Enabled = -1 'True
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "Label4"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 180
Left = 300
TabIndex = 13
Top = 1740
Width = 540
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "班级编号："
Height = 180
Left = 240
TabIndex = 12
Top = 2100
Width = 900
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "入学年份："
Height = 180
Left = 240
TabIndex = 11
Top = 360
Width = 900
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "专业代码："
Height = 180
Left = 240
TabIndex = 10
Top = 1140
Width = 900
End
End
Begin MSComctlLib.ListView ListView
Height = 4575
Left = 120
TabIndex = 6
Top = 120
Width = 3195
_ExtentX = 5636
_ExtentY = 8070
LabelEdit = 1
Sorted = -1 'True
LabelWrap = -1 'True
HideSelection = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 0
End
End
Attribute VB_Name = "Frmclass"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim SelectUserNum As String
Dim zhuanye(5) As String
Private Sub Combo1_Click()
Label4.Caption = zhuanye(Combo1.ListIndex)
End Sub
Private Sub Command1_Click()
Dim nianfenid, zhuanyeid, banjiid, ClassNum As String
nianfenid = Right(Text1.Text, 2)
zhuanyeid = Combo1.Text
banjiid = Text3.Text
Dim rs As New ADODB.Recordset, sqlstr As String
ClassNum = nianfenid & zhuanyeid & banjiid
sqlstr = "select * from Class where ID='" & ClassNum & "'"
rs.Open sqlstr, con, 1, 1
If Not rs.EOF Then
MsgBox "已经存在班级你所添加的班级代码：" & ClassNum, vbInformation
Exit Sub
End If
rs.Close: Set rs = Nothing
sqlstr = "insert into Class(ID) values('" & ClassNum & "')"
con.Execute sqlstr
MsgBox "成功加入班级" & ClassNum & "！", 32
Call LoadData
End Sub
Private Sub Command2_Click()
If ListView.SelectedItem.Selected Then
'提示是否进行删除操作
If MsgBox("确定要删除" & ListView.SelectedItem.Text & "？" & Chr(13) & "如果此班有学生资料则不可以删除！", vbYesNo + 32 + vbDefaultButton2) = vbYes Then
SelectUserNum = Left(ListView.SelectedItem.Text, 6)
Dim rs As New ADODB.Recordset, sqlstr As String
'在此之前必须查询是否在学生表中存在该班级的资料
sqlstr = "select * from StuInfo where SID like '" & SelectUserNum & "__'"
rs.Open sqlstr, con, 1, 1
If Not rs.EOF Then
MsgBox "该班级已经存在学生资料，请先清除学生资料！", vbInformation
Exit Sub
End If
rs.Close: Set rs = Nothing
sqlstr = "delete from Class where ID='" & SelectUserNum & "'"
con.Execute sqlstr
Call LoadData
Else
Exit Sub
End If
End If
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Form_Load()
Call LoadData
'加载数据到下拉列表
Dim rs As New ADODB.Recordset, sqlstr As String
sqlstr = "select * from Major order by ID"
rs.Open sqlstr, con, 1, 1
Combo1.Clear
Dim i As Integer
i = 0
Do While Not rs.EOF
Combo1.AddItem rs.Fields("ID")
zhuanye(i) = rs.Fields("Name")
i = i + 1
rs.MoveNext
Loop
Combo1.ListIndex = 0
rs.Close: Set rs = Nothing
Dim clmX As ColumnHeader
Set clmX = ListView.ColumnHeaders.Add(, , "班级", ListView.Width - 100)
Label4.Caption = zhuanye(0)
End Sub
Private Sub LoadData()
'配置好列表框中的项目
Dim rs As New ADODB.Recordset, sqlstr As String
Dim classname As String
sqlstr = "select * from class"
rs.Open sqlstr, con, 1, 1
ListView.ListItems.Clear
ListView.View = lvwReport
Do While Not rs.EOF
classid = rs.Fields("ID") & "班"
Set Listit = ListView.ListItems.Add(, , classid)
rs.MoveNext
Loop
Set rs = Nothing
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -