📄 frmstudentcourse.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Begin VB.Form frmStudentCourse
Caption = "学生课程管理"
ClientHeight = 6210
ClientLeft = 3945
ClientTop = 4095
ClientWidth = 9180
Icon = "frmStudentCourse.frx":0000
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 6210
ScaleWidth = 9180
WindowState = 2 'Maximized
Begin VB.PictureBox Picture1
Appearance = 0 'Flat
ForeColor = &H80000008&
Height = 495
Left = 1800
ScaleHeight = 465
ScaleWidth = 6825
TabIndex = 3
Top = 4920
Width = 6855
Begin VB.CommandButton Command3
Caption = "修改成绩"
Height = 495
Left = 4800
TabIndex = 6
Top = 0
Width = 2055
End
Begin VB.CommandButton Command2
Caption = "删除课程"
Height = 495
Left = 2400
TabIndex = 5
Top = 0
Width = 2055
End
Begin VB.CommandButton Command1
Caption = "添加课程"
Default = -1 'True
Height = 495
Left = 0
TabIndex = 4
Top = 0
Width = 2055
End
End
Begin MSDataGridLib.DataGrid DataGrid1
Height = 3855
Left = 120
TabIndex = 1
Top = 720
Width = 4215
_ExtentX = 7435
_ExtentY = 6800
_Version = 393216
AllowUpdate = -1 'True
HeadLines = 1
RowHeight = 18
BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "学生信息"
ColumnCount = 2
BeginProperty Column00
DataField = ""
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 = ""
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
MarqueeStyle = 3
Locked = -1 'True
BeginProperty Column00
EndProperty
BeginProperty Column01
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList ImageList1
Left = 8640
Top = 2280
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 5
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmStudentCourse.frx":0BF2
Key = "Find"
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmStudentCourse.frx":17F4
Key = "New"
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmStudentCourse.frx":23F6
Key = "Make"
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmStudentCourse.frx":36D8
Key = "Delete"
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmStudentCourse.frx":486A
Key = "Exit"
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 660
Left = 0
TabIndex = 0
Top = 0
Width = 9180
_ExtentX = 16193
_ExtentY = 1164
ButtonWidth = 1032
ButtonHeight = 1005
AllowCustomize = 0 'False
Appearance = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 6
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Find"
ImageKey = "Find"
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "New"
ImageKey = "New"
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Make"
ImageKey = "Make"
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Delete"
ImageKey = "Delete"
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Exit"
ImageKey = "Exit"
EndProperty
EndProperty
End
Begin MSDataGridLib.DataGrid DataGrid2
Height = 3855
Left = 4440
TabIndex = 2
Top = 720
Width = 4215
_ExtentX = 7435
_ExtentY = 6800
_Version = 393216
AllowUpdate = -1 'True
HeadLines = 1
RowHeight = 18
BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "学生已选课程信息"
ColumnCount = 2
BeginProperty Column00
DataField = ""
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 = ""
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
MarqueeStyle = 3
Locked = -1 'True
BeginProperty Column00
EndProperty
BeginProperty Column01
EndProperty
EndProperty
End
End
Attribute VB_Name = "frmStudentCourse"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public rsStudent As New ADODB.Recordset
Public rsCourse As New ADODB.Recordset
Public rsStuCourse As New ADODB.Recordset
Public sql As String
Public StuNO As String
Public CosNO As String
Private Sub Command1_Click()
frmStudentCourseMsg.Show
End Sub
Private Sub Command2_Click()
i = MsgBox("确实要删除么?", vbOKCancel + vbInformation, "消息")
If i = 1 Then
sql = "delete from stucourse where stuno = '" + StuNO + "' AND cosno = '" + CosNO + "'"
cn.exeSQL sql, rsStuCourse
rsCourse.Requery
End If
End Sub
Private Sub Command3_Click()
frmGrade.Show
End Sub
Private Sub DataGrid1_DblClick()
StuNO = rsStudent.Fields("stuno").Value
Course
End Sub
Private Sub DataGrid2_DblClick()
CosNO = rsCourse.Fields("cosno").Value
End Sub
Private Sub Form_Load()
'cn.OpenDB
sql = "select stuno,stuname from studentinfo"
cn.exeSQL sql, rsStudent
Set DataGrid1.DataSource = rsStudent
End Sub
Private Sub Form_Resize()
With DataGrid1
.Top = Toolbar1.height
.Left = 0
.Width = Me.ScaleWidth / 3
.height = Me.ScaleHeight - 2000
End With
With DataGrid2
.Top = Toolbar1.height
.Left = DataGrid1.Width
.Width = Me.ScaleWidth / 3 * 2
.height = Me.ScaleHeight - 2000
End With
With Picture1
.Top = Me.ScaleHeight - 1000
.Left = Me.ScaleWidth - 8000
End With
End Sub
Private Sub Course()
sql = "select stuname,cosno,cosname,grade from studentcourse where stuno = '" + StuNO + "'"
cn.exeSQL sql, rsCourse
Set DataGrid2.DataSource = rsCourse
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -