📄 frmcourse.frm
字号:
DataField = "CourseYXJ"
Caption = "课程优先级"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column03
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 Column04
DataField = "CourseFlag"
Caption = "CourseFlag"
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 = 1995.024
EndProperty
BeginProperty Column01
ColumnWidth = 2505.26
EndProperty
BeginProperty Column02
Object.Visible = 0 'False
ColumnWidth = 1995.024
EndProperty
BeginProperty Column03
ColumnWidth = 2489.953
EndProperty
BeginProperty Column04
Object.Visible = 0 'False
ColumnWidth = 1995.024
EndProperty
EndProperty
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 = 1080
TabIndex = 20
Top = 3600
Width = 2895
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 = 495
Left = 1080
TabIndex = 17
Top = 2640
Width = 2535
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
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 = 1080
TabIndex = 16
Top = 1560
Width = 2415
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
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 = 1080
TabIndex = 15
Top = 600
Width = 2535
End
End
End
Attribute VB_Name = "frmcourse"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim temp As New ADODB.Recordset
Dim db As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim strSQL 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
Adodc1.Refresh
clearfield
Txtcourseid.SetFocus
hidebutton
MsgBox "数据库中已经没有记录了！"
Exit Sub
End If
rst.MoveNext
If rst.EOF = True Then
rst.MoveLast
End If
filltext
Adodc1.Refresh
End Sub
Private Sub Cmdexit_Click()
db.Close
frmcourse.Hide
frmmain.Show vbModal
End Sub
Private Sub cmdfind_Click()
Dim findstr As String
findstr = InputBox("请输入要查找的课程名称:", "查找提示窗口")
rst.find "courseName='" & findstr & "'"
If rst.EOF = True Then
MsgBox "没有要查询的数据！"
Exit Sub
End If
filltext
End Sub
Private Sub cmdfirst_Click()
rst.MoveFirst
filltext
End Sub
Private Sub Cmdlast_Click()
rst.MoveLast
filltext
End Sub
Private Sub Cmdmodify_Click()
strSQL = "SELECT courseID FROM bcourse"
If txtid.Text = "" Then
MsgBox "请输入课程优先级编号！"
txtid.SetFocus
Exit Sub
End If
temp.Open strSQL, db, adOpenStatic, adLockOptimistic
temp.Filter = "courseID='" & txtid.Text & "'"
temp.Requery
If temp.RecordCount <> 0 Then
MsgBox ("这个专业方向编号已存在，编辑操作失败！")
temp.Close
Exit Sub
End If
temp.Close
fillrecord
rst.Update
Adodc1.Refresh
Txtcourseid.SetFocus
Set rst = db.OpenRecordset("select * from bCourse")
End Sub
Private Sub Cmdnext_Click()
rst.MoveNext
If rst.EOF Then
MsgBox "这是最后一个记录了！"
rst.MoveLast
End If
filltext
End Sub
Private Sub Cmdprevious_Click()
rst.MovePrevious
If rst.BOF Then
MsgBox "这是第一个记录了!"
rst.MoveFirst
End If
filltext
End Sub
Private Sub Cmdadd_Click()
strSQL = "SELECT courseID FROM bcourse"
If Txtcourseid.Text = "" Then
MsgBox "请输入课程优先级编号！"
Txtcourseid.SetFocus
Exit Sub
End If
temp.Open strSQL, db, adOpenStatic, adLockOptimistic
temp.Filter = "courseID='" & Txtcourseid.Text & "'"
temp.Requery
If temp.RecordCount <> 0 Then
MsgBox ("这个专业方向编号已存在，编辑操作失败！")
temp.Close
Exit Sub
End If
temp.Close
If rst.RecordCount() <> 0 Then
rst.MoveLast
End If
rst.AddNew
fillrecord
rst.Update
rst.Requery
Adodc1.Refresh
Txtcourseid.SetFocus
End Sub
Private Sub Command1_Click()
clearfield
Txtcourseid.SetFocus
Adodc1.Refresh
End Sub
Private Sub DataGrid1_Click()
Txtcourseid.Text = DataGrid1.Columns(0)
Txtcoursename.Text = DataGrid1.Columns(1)
Cmbcoursetype.Text = DataGrid1.Columns(2).Text
ComboCourseYXJ.Text = DataGrid1.Columns(3).Text
End Sub
Public Sub filltext()
Txtcourseid.Text = rst.Fields("CourseID")
Txtcoursename.Text = rst.Fields("CourseName")
ComboCourseYXJ.Text = rst.Fields("courseYXJ")
If rst.Fields("classid") = "" Then
TxtClassID.Text = ""
Else
TxtClassID.Text = rst.Fields("classid")
End If
End Sub
Public Sub clearfield()
Txtcourseid.Text = ""
Txtcoursename.Text = ""
Cmbcoursetype.Text = ""
ComboCourseYXJ.Text = ""
End Sub
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Paike.mdb;Persist Security Info=False"
Dim strSQL As String
strSQL = "SELECT * FROM bCourse"
ConenctToDatabase
rst.Open strSQL, db, adOpenKeyset, adLockOptimistic
If rst.RecordCount() = 0 Then
clearfield
hidebutton
Else
showbutton
rst.MoveFirst
filltext
End If
ComboCourseYXJ.AddItem "1"
ComboCourseYXJ.AddItem "2"
ComboCourseYXJ.AddItem "3"
End Sub
Public Sub hidebutton()
Cmddelete.Enabled = False
Cmdnext.Enabled = False
cmdfind.Enabled = False
cmdfirst.Enabled = False
Cmdlast.Enabled = False
Cmdmodify.Enabled = False
Cmdprevious.Enabled = False
End Sub
Public Sub showbutton()
Cmddelete.Enabled = True
Cmdnext.Enabled = True
cmdfind.Enabled = True
cmdfirst.Enabled = True
Cmdlast.Enabled = True
Cmdmodify.Enabled = True
Cmdprevious.Enabled = True
End Sub
Public Sub fillrecord()
rst.Fields("CourseID") = Txtcourseid.Text
rst.Fields("CourseName") = Txtcoursename.Text
rst.Fields("CourseKindNum") = Cmbcoursetype.Text
rst.Fields("CourseYXJ") = ComboCourseYXJ.Text
rst.Fields("classid") = TxtClassID.Text
End Sub
Private Sub Txtcourseid_Click()
Adodc1.Refresh
End Sub
Private Sub Txtcourseid_GotFocus()
If rst.RecordCount <> 0 Then
showbutton
Else
hidebutton
End If
Adodc1.Refresh
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -