📄 教学计划统一管理界面.frm
字号:
Top = 6960
Width = 2655
End
Begin VB.Label Label4
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 = 615
Index = 1
Left = 480
TabIndex = 28
Top = 4800
Width = 2655
End
Begin VB.Label Label4
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 = 615
Index = 2
Left = 480
TabIndex = 27
Top = 5520
Width = 2655
End
Begin VB.Label Label8
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 = 615
Left = 480
TabIndex = 26
Top = 480
Width = 2655
End
Begin VB.Label Label1
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 = 615
Left = 480
TabIndex = 25
Top = 2640
Width = 2655
End
End
Begin VB.Label Label10
Alignment = 2 'Center
BeginProperty Font
Name = "隶书"
Size = 26.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 1575
Left = -74400
TabIndex = 37
Top = 1200
Width = 12855
End
Begin VB.Label Label6
Alignment = 2 'Center
BackStyle = 0 'Transparent
BeginProperty Font
Name = "隶书"
Size = 26.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 1575
Left = 840
TabIndex = 35
Top = 960
Width = 12615
End
End
End
Attribute VB_Name = "frmwholeteachplan"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim week As Integer
Dim temp As DAO.Recordset
Dim db1 As DAO.Database
Dim rst1 As DAO.Recordset
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim qry As DAO.QueryDef
Private Sub Command1_Click()
Unload Me
frmmain.Show vbModal
End Sub
Private Sub Command2_Click()
Unload Me
frmmain.Show vbModal
End Sub
Private Sub Command3_Click()
Label6.Caption = "正在进行数据处理，请稍等！"
Set db1 = DBEngine.Workspaces(0).OpenDatabase("d:\coursetable.mdb")
Set rst1 = db1.OpenRecordset("select * from teachplan")
Set db = DBEngine.Workspaces(0).OpenDatabase("d:\basic.mdb")
Set rst = db.OpenRecordset("select * from teachplan")
If rst.RecordCount() <> 0 Then
rst.MoveFirst
Do Until rst.EOF()
rst1.AddNew
rst1.Fields("coursetype") = rst.Fields("coursetype")
rst1.Fields("gradeid") = rst.Fields("gradeid")
rst1.Fields("majorid") = rst.Fields("majorid")
rst1.Fields("classid") = rst.Fields("classid")
rst1.Fields("courseid") = rst.Fields("courseid")
rst1.Fields("totalhour") = rst.Fields("totalhour")
rst1.Fields("begintime") = rst.Fields("begintime")
rst1.Fields("endtime") = rst.Fields("endtime")
rst1.Fields("weekhour") = rst.Fields("weekhour")
rst1.Fields("weeksign") = rst.Fields("weeksign")
rst1.Fields("teacherid") = rst.Fields("teacherid")
rst1.Update
rst.MoveNext
Loop
End If
Label6.Caption = "数据处理理完成！"
End Sub
Private Sub Command4_Click()
Label10.Caption = "正在进行数据处理，请稍等！"
Set db = DBEngine.Workspaces(0).OpenDatabase("d:\basic.mdb")
Set rst = db.OpenRecordset("select * from teachplan")
If rst.RecordCount() <> 0 Then
rst.MoveFirst
Do Until rst.EOF
rst.Delete
rst.MoveNext
Loop
End If
Set db1 = DBEngine.Workspaces(0).OpenDatabase("d:\coursetable.mdb")
Set rst1 = db1.OpenRecordset("select * from teachplan")
If rst1.RecordCount() <> 0 Then
rst1.MoveFirst
Do Until rst1.EOF
rst1.Delete
rst1.MoveNext
Loop
End If
Label10.Caption = "数据处理完成！"
End Sub
Private Sub Command5_Click()
clearfield
Cmbcoursetype.SetFocus
Adodcteachplan.Refresh
End Sub
Private Sub Form_Load()
Set db = DBEngine.Workspaces(0).OpenDatabase("d:\basic.mdb")
Set rst = db.OpenRecordset("select * from teachplan")
If rst.RecordCount() <> 0 Then
showbutton
rst.MoveFirst
Cmbcoursetype.Text = rst.Fields("coursetype")
Cmbgradeid.Text = rst.Fields("gradeid")
Txtmajorid.Text = rst.Fields("majorid")
Txtclassid.Text = rst.Fields("classid")
Txtcourseid.Text = rst.Fields("courseid")
Cmbtotal.Text = rst.Fields("totalhour")
Cmbegintime.Text = rst.Fields("begintime")
Cmbendtime.Text = rst.Fields("endtime")
Cmbsign.Text = rst.Fields("weeksign")
txteacherid.Text = rst.Fields("teacherid")
Else
hidebutton
clearfield
End If
Cmbgradeid.AddItem Year(Date)
Cmbgradeid.AddItem Year(Date) - 1
Cmbtotal.AddItem 60
Cmbtotal.AddItem 40
Cmbtotal.AddItem 20
Cmbtotal.AddItem 10
Cmbsign.AddItem "1"
Cmbsign.AddItem "2"
Cmbsign.AddItem "3"
Cmbegintime.AddItem 1
Cmbegintime.AddItem 11
Cmbendtime.AddItem 10
Cmbendtime.AddItem 13
Cmbendtime.AddItem 16
Cmbendtime.AddItem 18
Cmbendtime.AddItem 20
Cmbcoursetype.AddItem "1"
Cmbcoursetype.AddItem "2"
Cmbcoursetype.AddItem "3"
Cmbcoursetype.AddItem "4"
DataGridmajor.Visible = False
DataGridcourse.Visible = False
DataGridteacher.Visible = False
DataGridclass.Visible = False
Frame3.Visible = True
Txtmajorid.Visible = True
Txtclassid.Visible = True
Label6.Caption = "点击<导入教学计划>按钮可以将教学计划导入系统"
Label10.Caption = "点击<删除教学计划>按钮可以将教学计划库清空"
End Sub
Private Sub Cmbcoursetype_Click()
Txtclassid.Visible = True
Txtmajorid.Visible = True
Frame3.Visible = True
DataGridteacher.Visible = False
DataGridclass.Visible = False
DataGridmajor.Visible = False
DataGridcourse.Visible = False
Adodcteachplan.Refresh
End Sub
Private Sub Cmbgradeid_Change()
Adodcmajor.RecordSource = "select majorid,majorname from major where gradeid='" & Cmbgradeid.Text & "'"
Adodcmajor.Refresh
End Sub
Private Sub Cmbgradeid_Click()
If Cmbcoursetype.Text = "3" Or Cmbcoursetype.Text = "1" Then
Txtclassid.Text = ""
Txtmajorid.Visible = True
Txtclassid.Visible = False
Else
If Cmbcoursetype.Text = "2" Then
Txtmajorid.Visible = False
Txtclassid.Visible = False
Txtmajorid.Text = ""
Txtclassid.Text = ""
Else
Txtclassid.Visible = True
Txtmajorid.Visible = True
End If
End If
End Sub
Private Sub Cmddelete_Click()
Set rst = db.OpenRecordset("select * from teachplan")
' Set qry = db.CreateQueryDef("")
'qry.SQL = "select * from teachplan where gradeid='" & Cmbgradeid.Text & "'and majorid='" & Txtmajorid.Text & "'and courseid='" & Txtcourseid.Text & "'"
' Set rst = qry.OpenRecordset()
rst.Filter = "gradeid='" & Cmbgradeid.Text & "'and majorid='" & Txtmajorid.Text & "'and courseid='" & Txtcourseid.Text & "'"
Set rst = rst.OpenRecordset()
rst.Delete
Set rst = db.OpenRecordset("select * from teachplan")
If rst.RecordCount() <> 0 Then
If rst.EOF = True Then
rst.MoveFirst
Else
rst.MoveNext
End If
filltext
Else
MsgBox "数据库中已经没有记录了！"
clearfield
hidebutton
Cmbcoursetype.SetFocus
End If
Txtmajorid.Visible = True
Txtclassid.Visible = True
Adodcteachplan.Refresh
End Sub
Private Sub Cmdexit_Click()
Unload Me
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -