📄 设置年级课程.frm
字号:
VERSION 5.00
Begin VB.Form Form12
Caption = "设置年级课程"
ClientHeight = 6360
ClientLeft = 60
ClientTop = 450
ClientWidth = 8610
LinkTopic = "Form12"
MDIChild = -1 'True
Picture = "设置年级课程.frx":0000
ScaleHeight = 6360
ScaleWidth = 8610
WindowState = 2 'Maximized
Begin VB.ListBox lstselectcourse
BackColor = &H00E0E0E0&
Height = 2220
ItemData = "设置年级课程.frx":49221
Left = 5160
List = "设置年级课程.frx":49223
TabIndex = 7
Top = 1440
Width = 1815
End
Begin VB.ListBox lstallcourse
BackColor = &H00E0E0E0&
Height = 2220
ItemData = "设置年级课程.frx":49225
Left = 1200
List = "设置年级课程.frx":49227
TabIndex = 6
Top = 1440
Width = 1695
End
Begin VB.CommandButton cmdexit
BackColor = &H00C0C0C0&
Caption = "退出设置"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 5400
Style = 1 'Graphical
TabIndex = 5
Top = 4200
Width = 1455
End
Begin VB.CommandButton cmdmodify
BackColor = &H00C0C0C0&
Caption = "确认添加"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 3240
Style = 1 'Graphical
TabIndex = 4
Top = 4200
Width = 1335
End
Begin VB.CommandButton cmdset
BackColor = &H00C0C0C0&
Caption = "设置课程"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 1200
Style = 1 'Graphical
TabIndex = 3
Top = 4200
Width = 1215
End
Begin VB.CommandButton cmddelete
BackColor = &H00C0C0C0&
Caption = "<--"
Height = 495
Left = 3360
TabIndex = 2
Top = 2760
Width = 1095
End
Begin VB.CommandButton cmdadd
BackColor = &H00C0C0C0&
Caption = "-->"
Height = 495
Left = 3360
TabIndex = 1
Top = 1680
Width = 1095
End
Begin VB.ComboBox cbograde
BackColor = &H00E0E0E0&
Height = 300
Left = 2760
TabIndex = 0
Top = 360
Width = 2655
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "选择年级"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 495
Left = 1440
TabIndex = 10
Top = 360
Width = 1095
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "所有课程"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 495
Left = 1200
TabIndex = 9
Top = 1080
Width = 1335
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "已选择的课程"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 375
Left = 5280
TabIndex = 8
Top = 1080
Width = 1695
End
End
Attribute VB_Name = "Form12"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim sflag As Boolean
Private Sub cmdadd_Click()
Dim i As Integer
If lstallcourse.ListIndex <> -1 Then
sflag = 0
For i = 1 To lstselectcourse.ListCount
If Trim(lstallcourse.List(lstallcourse.ListIndex)) = Trim(lstselectcourse.List(i)) Then
sflag = 1
End If
Next
If sflag = 0 Then
lstselectcourse.AddItem (lstallcourse.List(lstallcourse.ListIndex))
lstallcourse.Move (lstallcourse.ListCount)
End If
End If
End Sub
Private Sub cmddelete_Click()
If lstselectcourse.ListIndex <> -1 Then
lstselectcourse.RemoveItem (lstselectcourse.ListIndex)
lstselectcourse.Enabled = True
End If
End Sub
Private Sub cmdexit_Click()
FrmMain.StatusBarmy.Panels.Item(1).Text = ""
Unload Me
End Sub
Private Sub cmdmodify_Click()
Dim i As Integer
Dim mrc As Adodb.Recordset
Dim txtsql As String
Dim msgtext As String
txtsql = "select * from gradecourse_info where grade='" & Trim(cbograde.Text) & "'"
Set mrc = executesql(txtsql, msgtext)
If mrc.EOF Then
For i = 1 To lstselectcourse.ListCount
mrc.AddNew
mrc.Fields(0) = Trim(cbograde.Text)
mrc.Fields(1) = Trim(lstselectcourse.List(i - 1))
mrc.Update
Next
mrc.Close
FrmMain.StatusBarmy.Panels.Item(1).Text = "课程设置成功!"
Else
txtsql = "delete from gradecourse_info where grade='" & Trim(cbograde.Text) & "'"
Set mrc = executesql(txtsql, msgtext)
txtsql = "select * from gradecourse_info "
Set mrc = executesql(txtsql, msgtext)
For i = 1 To lstselectcourse.ListCount
mrc.AddNew
mrc.Fields(0) = Trim(cbograde.Text)
mrc.Fields(1) = Trim(lstselectcourse.List(i - 1))
mrc.Update
Next
mrc.Close
FrmMain.StatusBarmy.Panels.Item(1).Text = "课程设置成功!"
End If
End Sub
Private Sub cmdset_Click()
Dim mrc As Adodb.Recordset
Dim txtsql As String
Dim msgtext As String
Dim i As Integer
lstallcourse.Enabled = True
lstselectcourse.Enabled = True
cmddelete.Enabled = True
cmdmodify.Enabled = True
cmdadd.Enabled = True
lstallcourse.Clear
lstselectcourse.Clear
txtsql = "select * from course_info"
Set mrc = executesql(txtsql, msgtext)
While (mrc.EOF = False)
lstallcourse.AddItem mrc.Fields(1)
mrc.MoveNext
Wend
mrc.Close
End Sub
Private Sub Form_Load()
cbograde.AddItem ""
cbograde.AddItem "大一"
cbograde.AddItem "大二"
cbograde.AddItem "大三"
cbograde.AddItem "大四"
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -