📄 自动生成课程表.frm
字号:
End
Begin VB.TextBox Txtclassroomid
BeginProperty Font
Name = "楷体_GB2312"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 600
Left = 3000
TabIndex = 10
Top = 3720
Width = 2895
End
Begin VB.TextBox Txtteacherid
BackColor = &H00FFFFFF&
BeginProperty Font
Name = "楷体_GB2312"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 585
Left = 3000
TabIndex = 8
Top = 2640
Width = 2895
End
Begin VB.TextBox Txtcourseid
BeginProperty Font
Name = "楷体_GB2312"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 600
Left = 3000
TabIndex = 6
Top = 1560
Width = 2895
End
Begin VB.TextBox Txtclassid
BeginProperty Font
Name = "楷体_GB2312"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 585
Left = 3000
TabIndex = 4
Top = 600
Width = 2895
End
Begin VB.CommandButton Command2
BackColor = &H00FFC0C0&
Caption = "自动生成课表"
BeginProperty Font
Name = "楷体_GB2312"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 480
Style = 1 'Graphical
TabIndex = 1
Top = 9720
Width = 2535
End
Begin VB.CommandButton Command1
BackColor = &H00FFC0C0&
Caption = "退出本界面"
BeginProperty Font
Name = "楷体_GB2312"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Index = 0
Left = 7680
Style = 1 'Graphical
TabIndex = 0
Top = 9720
Width = 2295
End
Begin MSDataGridLib.DataGrid DGclass
Bindings = "自动生成课程表.frx":0067
Height = 3255
Left = 6840
TabIndex = 13
Top = 360
Width = 5415
_ExtentX = 9551
_ExtentY = 5741
_Version = 393216
AllowUpdate = -1 'True
HeadLines = 1
RowHeight = 22
FormatLocked = -1 'True
BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "楷体_GB2312"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "楷体_GB2312"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "班级编号对照表"
ColumnCount = 2
BeginProperty Column00
DataField = "ClassID"
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 = "ClassName"
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
BeginProperty Column00
ColumnWidth = 2039.811
EndProperty
BeginProperty Column01
ColumnWidth = 3000.189
EndProperty
EndProperty
End
Begin VB.Label Label7
BackColor = &H00FFC0C0&
Caption = "时间片："
BeginProperty Font
Name = "楷体_GB2312"
Size = 21.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 495
Left = 600
TabIndex = 11
Top = 4800
Width = 2055
End
Begin VB.Label Label6
BackColor = &H00FFC0C0&
Caption = "教室编号："
BeginProperty Font
Name = "楷体_GB2312"
Size = 21.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 615
Left = 600
TabIndex = 9
Top = 3720
Width = 2415
End
Begin VB.Label Label5
BackColor = &H00FFC0C0&
Caption = "教师编号："
BeginProperty Font
Name = "楷体_GB2312"
Size = 21.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 615
Left = 600
TabIndex = 7
Top = 2640
Width = 2415
End
Begin VB.Label Label4
BackColor = &H00FFC0C0&
Caption = "课程编号："
BeginProperty Font
Name = "楷体_GB2312"
Size = 21.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 495
Left = 600
TabIndex = 5
Top = 1680
Width = 2655
End
Begin VB.Label Label3
BackColor = &H00FFC0C0&
Caption = "班级编号："
BeginProperty Font
Name = "楷体_GB2312"
Size = 21.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 615
Left = 600
TabIndex = 3
Top = 600
Width = 2415
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H00FFC0C0&
BackStyle = 0 'Transparent
BeginProperty Font
Name = "宋体"
Size = 26.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 615
Left = 3000
TabIndex = 2
Top = 2640
Width = 2895
End
End
Attribute VB_Name = "Frmmakecourse"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim temp As New ADODB.Recordset
Public db As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim strSQL As String
Dim strSQL1 As String
'连接到数据库
Private Function ConenctToDatabase() As Boolean
On Error GoTo ErrorHandler
Dim DBName As String, ServerAdd As String, UserName As String, UserPwd As String
'设置连接信息字符串的参数
ServerAdd = "IMAGE"
DBName = "Paike.mdb"
UserName = ""
UserPwd = ""
'连接数据库
Set db = New ADODB.Connection
db.ConnectionTimeout = 10
db.CursorLocation = adUseServer
'db.ConnectionString = "uid=" & UserName & ";pwd=" & UserPwd & _
";driver={SQL Server};server=" & ServerAdd & _
";database=" & DBName & ";dsn=''"
db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\" & DBName
db.Open
'返回值
ConenctToDatabase = True
Exit Function
ErrorHandler:
MsgBox "连接到数据库出错", vbCritical, "出现错误"
Exit Function
End Function
Private Sub Cmddelete_Click()
rst.Delete
rst.Requery
If rst.RecordCount() = 0 Then '累计记录个数
clearfield
hidebutton
MsgBox "数据库中已经没有记录了！"
Exit Sub
End If
rst.MoveNext
If rst.EOF = True Then
rst.MoveLast
End If
filltext '填充文本框
Adotemptable.Refresh
End Sub
Private Sub Cmdexit_Click()
db.Close
Unload Me
frmmain.Show vbModal
End Sub
Private Sub cmdfirst_Click()
rst.MoveFirst
filltext
End Sub
Private Sub Cmdlast_Click()
rst.MoveLast
filltext
End Sub
Private Sub Cmdmodify_Click()
Dim strSQLclass As String
Dim strSQLclassroom As String
Dim strSQLcourse As String
Dim strSQLteacher As String
strSQLclass = "SELECT classID FROM bclass"
strSQLclassroom = "SELECT classroomID FROM bclassRoom"
strSQLcourse = "SELECT courseID FROM bcourse"
strSQLteacher = "SELECT teacherID FROM bteacher"
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' '
' 检查编号的合法性，首先编号不能为空，其次编号应该在对应库中 '
' 存在。 ,
'
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -