📄 frmgradecourse.frm
字号:
VERSION 5.00
Object = "{CE671F01-259E-40DA-92FE-95803E2ECBB5}#1.0#0"; "SmartXPButton.ocx"
Object = "{0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0"; "MSHFLXGD.OCX"
Begin VB.Form FrmGradecourse
BackColor = &H00E7DFE7&
BorderStyle = 1 'Fixed Single
Caption = "年级课程设置"
ClientHeight = 5070
ClientLeft = 45
ClientTop = 435
ClientWidth = 7440
Icon = "FrmGradecourse.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 5070
ScaleWidth = 7440
Begin VB.ListBox List1
Height = 3420
ItemData = "FrmGradecourse.frx":1CFA
Left = 240
List = "FrmGradecourse.frx":1CFC
Style = 1 'Checkbox
TabIndex = 3
Top = 720
Width = 3135
End
Begin VB.ComboBox CboGraNo
Height = 300
Left = 1320
Style = 2 'Dropdown List
TabIndex = 2
Top = 240
Width = 2055
End
Begin SmartXPButton.XpButton cmdExit
Height = 495
Left = 4080
TabIndex = 1
Top = 4440
Width = 1335
_ExtentX = 2355
_ExtentY = 873
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "关闭(&E)"
CaptionMouseOverColor= 16711680
PictureBackColor= 15790320
PictureSmoothBackColor= 15790320
ButtonPicture = "FrmGradecourse.frx":1CFE
End
Begin SmartXPButton.XpButton cmdSave
Height = 495
Left = 2280
TabIndex = 0
Top = 4440
Width = 1335
_ExtentX = 2355
_ExtentY = 873
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "保存(&S)"
CaptionMouseOverColor= 16711680
PictureBackColor= 15790320
PictureSmoothBackColor= 15790320
ButtonPicture = "FrmGradecourse.frx":25D8
End
Begin MSHierarchicalFlexGridLib.MSHFlexGrid GraCouGrid
Height = 3375
Left = 3840
TabIndex = 4
Top = 720
Width = 3375
_ExtentX = 5953
_ExtentY = 5953
_Version = 393216
BackColorFixed = 15196135
BackColorBkg = 15196135
BackColorUnpopulated= 15196135
_NumberOfBands = 1
_Band(0).Cols = 2
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "年级编号："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 210
Left = 240
TabIndex = 6
Top = 285
Width = 1050
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "年级课程："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 210
Left = 3840
TabIndex = 5
Top = 285
Width = 1050
End
End
Attribute VB_Name = "FrmGradecourse"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'***************************************************
'* 学生系统管理系统 V1.0 *
'* 开发者：覃能华 *
'* 窗 体：年级课程设置窗体 *
'* 日 期：2003.12.26 *
'***************************************************
Dim concls As OpenRs
Private Sub CboGraNo_click()
concls.rsDK2 "select course_no,course_name from course_info where course_no in (select course_no from gradecourse_info where grade_no='" & CboGraNo.Text & "')"
If concls.rs2.EOF Then
GraCouGrid.Clear
GraCouGrid.FormatString = "| 课程编号 | 课程名称"
Else
Set GraCouGrid.DataSource = concls.rs2 '得到某年级所有的课程编号和名称
GraCouGrid.FormatString = "| 课程编号 | 课程名称"
End If
Dim i As Integer '''''''''''由年级课程表的记录得到list的选中''''''''''''''''''
For i = 0 To List1.ListCount - 1 '清空上一年级的选项
List1.Selected(i) = False
Next i
If concls.rs2.EOF = True Then
MsgBox "该年级没有开设课程,请开设课程！", vbOKOnly + vbInformation, "开设课程"
Else
concls.rs2.MoveFirst
End If
While concls.rs2.EOF = False
For i = 0 To List1.ListCount - 1
List1.ListIndex = i
If List1.Text = concls.rs2!course_name Then
List1.Selected(i) = True
End If
Next i
concls.rs2.MoveNext
Wend ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
GraCouGrid.FormatString = "| 课程编号 | 课程名称"
List1.ListIndex = -1
End Sub
Private Sub Cmdsave_Click()
If CboGraNo.Text = "" Then
MsgBox "年级编号不能为空！", vbOKOnly + vbInformation, "提示"
CboGraNo.SetFocus
Exit Sub
End If
concls.rsDK2 "select * from gradecourse_info"
concls.rsDK1 "select * from gradecourse_info where grade_no='" & CboGraNo.Text & "'"
If concls.rs1.RecordCount = 0 Then '判断这个年级的课程以作保存或更新
Dim i As Integer ''''''''''''''''''''''''''''''''''保 存'''''''''''''''''''''''''''''''
For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then
List1.ListIndex = i '指定选中的项目作保存项目
concls.rs2.AddNew
concls.rs2!grade_no = CboGraNo.Text
concls.rsDK1 "select * from course_info where course_name='" & List1.Text & "'"
concls.rs2!course_no = concls.rs1!course_no '以课程名称得到课程编号
concls.rs2.Update
End If
Next i
concls.rsDK2 "select course_no,course_name from course_info where course_no in (select course_no from gradecourse_info where grade_no='" & CboGraNo.Text & "')"
Set GraCouGrid.DataSource = concls.rs2
GraCouGrid.FormatString = "| 课程编号 | 课程名称"
List1.ListIndex = -1
Else '''''''''''''''''''''''''''''''''''''''''更新记录''''''''''''''''''''''''''''''''''''''
While concls.rs1.EOF = False
concls.rs1.Delete
concls.rs1.MoveFirst
Wend
For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then
List1.ListIndex = i '指定选中的项目作保存项目
concls.rs2.AddNew
concls.rs2!grade_no = CboGraNo.Text
concls.rsDK1 "select * from course_info where course_name='" & List1.Text & "'"
concls.rs2!course_no = concls.rs1!course_no '以课程名称得到课程编号
concls.rs2.Update
End If
Next i
If concls.rs2.EOF Then
GraCouGrid.Clear
GraCouGrid.FormatString = "| 课程编号 | 课程名称"
Else
concls.rsDK2 "select course_no,course_name from course_info where course_no in (select course_no from gradecourse_info where grade_no='" & CboGraNo.Text & "')"
Set GraCouGrid.DataSource = concls.rs2
GraCouGrid.FormatString = "| 课程编号 | 课程名称"
End If
MsgBox "记录已成功更新！", vbOKOnly + vbInformation, "年级课程设置"
List1.ListIndex = -1
End If
End Sub
Private Sub Form_Load()
Set concls = New OpenRs
GraCouGrid.FormatString = "| 课程编号 | 课程名称"
concls.rsDK2 "select * from course_info"
If concls.rs2.RecordCount = 0 Then
MsgBox "没有任何课程登记，请先登记课程！", vbOKOnly + vbInformation, "提示"
Exit Sub
End If
concls.rs2.MoveFirst
While concls.rs2.EOF = False
List1.AddItem concls.rs2!course_name
concls.rs2.MoveNext
Wend
concls.rsDK2 "select * from schoolgrade_info"
If concls.rs2.RecordCount = 0 Then
MsgBox "没有任何年级信息，请先登记年级！", vbOKOnly + vbInformation, "提示"
Exit Sub
End If
concls.rs2.MoveFirst
While concls.rs2.EOF = False
CboGraNo.AddItem concls.rs2!grade_no
concls.rs2.MoveNext
Wend
GraCouGrid.FormatString = "| 课程编号 | 课程名称"
List1.ListIndex = -1
End Sub
Private Sub cmdExit_Click()
Unload Me
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -