📄 frmpaike.frm
字号:
Width = 8295
Begin VB.CheckBox Check55
Caption = "周五第五节"
Height = 255
Left = 6480
TabIndex = 25
Top = 3120
Width = 1335
End
Begin VB.CheckBox Check54
Caption = "周五第四节"
Height = 255
Left = 6480
TabIndex = 24
Top = 2400
Width = 1335
End
Begin VB.CheckBox Check53
Caption = "周五第三节"
Height = 255
Left = 6480
TabIndex = 23
Top = 1740
Width = 1335
End
Begin VB.CheckBox Check52
Caption = "周五第二节"
Height = 255
Left = 6480
TabIndex = 22
Top = 1050
Width = 1335
End
Begin VB.CheckBox Check45
Caption = "周四第五节"
Height = 255
Left = 4920
TabIndex = 21
Top = 3120
Width = 1335
End
Begin VB.CheckBox Check44
Caption = "周四第四节"
Height = 255
Left = 4920
TabIndex = 20
Top = 2400
Width = 1335
End
Begin VB.CheckBox Check43
Caption = "周四第三节"
Height = 255
Left = 4920
TabIndex = 19
Top = 1740
Width = 1335
End
Begin VB.CheckBox Check42
Caption = "周四第二节"
Height = 255
Left = 4920
TabIndex = 18
Top = 1050
Width = 1335
End
Begin VB.CheckBox Check25
Caption = "周二第五节"
Height = 255
Left = 1800
TabIndex = 13
Top = 3120
Width = 1335
End
Begin VB.CheckBox Check24
Caption = "周二第四节"
Height = 255
Left = 1800
TabIndex = 12
Top = 2400
Width = 1335
End
Begin VB.CheckBox Chech23
Caption = "周二第三节"
Height = 255
Left = 1800
TabIndex = 11
Top = 1740
Width = 1335
End
Begin VB.CheckBox Check22
Caption = "周二第二节"
Height = 255
Left = 1800
TabIndex = 10
Top = 1050
Width = 1335
End
Begin VB.CheckBox Check51
Caption = "周五第一节"
Height = 255
Left = 6480
TabIndex = 9
Top = 360
Width = 1335
End
Begin VB.CheckBox Check41
Caption = "周四第一节"
Height = 255
Left = 4920
TabIndex = 8
Top = 360
Width = 1335
End
Begin VB.CheckBox Check31
Caption = "周三第一节"
Height = 255
Left = 3360
TabIndex = 7
Top = 360
Width = 1335
End
Begin VB.CheckBox Check21
Caption = "周二第一节"
Height = 255
Left = 1800
TabIndex = 6
Top = 360
Width = 1335
End
Begin VB.CheckBox Check15
Caption = "周一第五节"
Height = 255
Left = 240
TabIndex = 5
Top = 3120
Width = 1335
End
Begin VB.CheckBox Check14
Caption = "周一第四节"
Height = 255
Left = 240
TabIndex = 4
Top = 2430
Width = 1335
End
Begin VB.CheckBox Check13
Caption = "周一第三节"
Height = 255
Left = 240
TabIndex = 3
Top = 1740
Width = 1335
End
Begin VB.CheckBox Check12
Caption = "周一第二节"
Height = 255
Left = 240
TabIndex = 2
Top = 1050
Width = 1335
End
Begin VB.CheckBox Check11
Caption = "周一第一节"
Height = 255
Left = 240
TabIndex = 1
Top = 360
Width = 1335
End
End
Begin VB.Label lbDatabase
Caption = "Label3"
Height = 255
Left = 9120
TabIndex = 29
Top = 1200
Width = 3135
End
End
Attribute VB_Name = "frmPaiKe"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim strZYName As String
'取消
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Set db = OpenDatabase(App.Path & "\db.mdb")
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from 专业班级表"
lbDatabase.Caption = "专业班级表"
Adodc1.Refresh
End Sub
'退出
Private Sub Command4_Click()
Unload Me
End Sub
'确定
Private Sub Command5_Click()
If lbDatabase.Caption = "专业班级表" Then
If Text1.Text <> "" Then
Dim strbiao As String
strbiao = strZYName + "专业教学计划表"
Set db = OpenDatabase(App.Path & "\db.mdb")
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select " & strbiao & ".课程号,课程信息表.课程名," & strbiao & ".选课学期," & strbiao & ".学时数," & strbiao & ".考核方式 from " & strbiao & ",课程信息表 where " & strbiao & ".课程号=课程信息表.课程号"
lbDatabase.Caption = strbiao
Adodc1.Refresh
Else
MsgBox "班级编号不能为空!请双击选择！"
End If
ElseIf lbDatabase.Caption = strZYName & "专业教学计划表" Then
If Text2.Text <> "" Then
Set db = OpenDatabase(App.Path & "\db.mdb")
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from 教师信息表"
lbDatabase.Caption = "教师信息表"
Adodc1.Refresh
Else
MsgBox "课程名称不能为空!请双击选择！"
End If
ElseIf lbDatabase.Caption = "教师信息表" Then
If Text3.Text <> "" Then
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from 教室信息表"
lbDatabase.Caption = "教室信息表"
Adodc1.Refresh
Else
MsgBox "专业教师不能为空!请双击选择！"
End If
End If
End Sub
Private Sub DataGrid1_DblClick()
If lbDatabase.Caption = "专业班级表" Then
Text1.Text = Adodc1.Recordset!班级编号
strZYName = Adodc1.Recordset!专业名
End If
If lbDatabase.Caption = strZYName & "专业教学计划表" Then
Text2.Text = Adodc1.Recordset!课程名
End If
If lbDatabase.Caption = "教师信息表" Then
Text3.Text = Adodc1.Recordset!姓名
End If
If lbDatabase.Caption = "教室信息表" Then
Text4.Text = Adodc1.Recordset!编号
End If
End Sub
Private Sub Form_Load()
strboolok = False
Set db = OpenDatabase(App.Path & "\db.mdb")
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from 专业班级表"
lbDatabase.Caption = "专业班级表"
Adodc1.Refresh
End Sub
'开始排课
Private Sub Command1_Click()
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -