📄 frmcourseupdate.frm
字号:
Width = 165
End
Begin VB.Image imgTitleHelp
Height = 210
Left = 7920
Picture = "frmcourseupdate.frx":10DA
Stretch = -1 'True
Top = 120
Width = 210
End
Begin VB.Image imgTitleclose
Height = 195
Left = 8640
Picture = "frmcourseupdate.frx":1324
ToolTipText = "Close"
Top = 120
Width = 195
End
Begin VB.Image imgTitleRestore
Height = 195
Left = 7680
Picture = "frmcourseupdate.frx":156E
ToolTipText = "Maximize (Disabled)"
Top = 120
Visible = 0 'False
Width = 195
End
Begin VB.Image imgTitleMaximize
Height = 195
Left = 7320
Picture = "frmcourseupdate.frx":17B8
ToolTipText = "Maximize (Disabled)"
Top = 120
Visible = 0 'False
Width = 195
End
Begin VB.Label lblTitle
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "修改课程信息"
BeginProperty Font
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 240
Left = 4080
TabIndex = 20
Top = 360
Width = 1530
End
Begin VB.Image imgTitleMain
Height = 450
Left = 1920
Picture = "frmcourseupdate.frx":1A02
Stretch = -1 'True
Top = 0
Width = 285
End
Begin VB.Image imgWindowBottom
Height = 450
Left = 2160
Picture = "frmcourseupdate.frx":214C
Stretch = -1 'True
Top = 0
Width = 285
End
Begin VB.Image imgWindowRight
Height = 450
Left = 2520
Picture = "frmcourseupdate.frx":2896
Stretch = -1 'True
Top = 0
Width = 285
End
Begin VB.Image imgWindowLeft
Height = 450
Left = 3240
Picture = "frmcourseupdate.frx":2FE0
Stretch = -1 'True
Top = 0
Width = 285
End
Begin VB.Image imgTitleLeft
Height = 450
Left = 120
Picture = "frmcourseupdate.frx":372A
Top = 0
Width = 285
End
Begin VB.Image imgTitleRight
Height = 450
Left = 480
Picture = "frmcourseupdate.frx":3E74
Top = 0
Width = 285
End
Begin VB.Image imgWindowBottomLeft
Height = 450
Left = 840
Picture = "frmcourseupdate.frx":45BE
Top = 0
Width = 285
End
Begin VB.Image imgWindowBottomRight
Height = 450
Left = 1320
Picture = "frmcourseupdate.frx":4D08
Top = 0
Width = 285
End
Begin VB.Image Imageicon
Height = 315
Left = 4200
Picture = "frmcourseupdate.frx":5452
Stretch = -1 'True
Top = 0
Width = 315
End
End
Attribute VB_Name = "frmcourseupdate"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim mrc As ADODB.Recordset '用于记录集
Dim myBookmark As Variant
Dim mcclean As Boolean '用于标记是否修改了数据
Dim sign As Integer '用于标记是点击修改还是点击添加
Private Sub Form_Load()
MakeWindow Me
Dim txtSQL As String
Dim MsgText As String
Text(0).Enabled = False
Text(1).Enabled = False
Text(2).Enabled = False
Text(3).Enabled = False
txtSQL = "select * from course "
Set mrc = MyDB.ExecuteSQL(txtSQL, MsgText)
mrc.MoveFirst
Call viewData
myBookmark = mrc.Bookmark
mcclean = True
sign = 0
End Sub
Public Sub viewData()
Text(0).Text = mrc.Fields(0)
Text(1).Text = mrc.Fields(1)
Text(2).Text = mrc.Fields(2)
Text(3).Text = mrc.Fields(3)
End Sub
Private Sub SmartNetXpButton1_Click()
mrc.MoveFirst
Call viewData
End Sub
Private Sub SmartNetXpButton2_Click()
mrc.MovePrevious
If mrc.BOF Then
mrc.MoveLast
End If
Call viewData
End Sub
Private Sub SmartNetXpButton3_Click()
mrc.MoveNext
If mrc.EOF Then
mrc.MoveFirst
End If
Call viewData
End Sub
Private Sub SmartNetXpButton4_Click()
mrc.MoveLast
Call viewData
End Sub
Private Sub SmartNetXpButton5_Click()
mcclean = False
sign = 1 '表示点击修改
SmartNetXpButton1.Enabled = False
SmartNetXpButton2.Enabled = False
SmartNetXpButton3.Enabled = False
SmartNetXpButton4.Enabled = False
Text(0).Enabled = True
Text(1).Enabled = True
Text(2).Enabled = True
Text(3).Enabled = True
myBookmark = mrc.Bookmark
End Sub
Private Sub SmartNetXpButton6_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim txtSQL As String
Dim MsgText As String
Dim mrcc As ADODB.Recordset
If mcclean Then
MsgBox "请先点击修改或添加按钮！", vbOKOnly + vbExclamation, "警告"
Exit Sub
End If
If Not Testtxt(Text(0).Text) Then
MsgBox "请输入课程号！", vbOKOnly + vbExclamation, "警告"
Text(0).SetFocus
Exit Sub
End If
If Not Testtxt(Text(1).Text) Then
MsgBox "请输入课程名！", vbOKOnly + vbExclamation, "警告"
Text(1).SetFocus
Exit Sub
End If
If Not Testtxt(Text(2).Text) Then
MsgBox "请输入课程所需学时！", vbOKOnly + vbExclamation, "警告"
Text(2).SetFocus
Exit Sub
End If
If Not Testtxt(Text(3).Text) Then
MsgBox "请输入课程的学分！", vbOKOnly + vbExclamation, "警告"
Text(3).SetFocus
Exit Sub
End If
If sign = 1 Then mrc.Delete
txtSQL = "select * from course where Cno = '" & Trim(Text(0).Text) & "'"
Set mrcc = MyDB.ExecuteSQL(txtSQL, MsgText)
If mrcc.EOF = False Then
MsgBox "该课程已存在，不需要在添加，请重新输入！", vbOKOnly + vbExclamation, "警告"
mrcc.Close
Text(0).SetFocus
Exit Sub
Else
mrcc.Close
mrc.AddNew
mrc.Fields(0) = Trim(Text(0).Text)
mrc.Fields(1) = Trim(Text(1).Text)
mrc.Fields(2) = Trim(Text(2).Text)
mrc.Fields(3) = Trim(Text(3).Text)
mrc.Update
MsgBox "修改信息成功！", vbOKOnly + vbExclamation, "提示"
mrc.Bookmark = myBookmark
Call viewData
SmartNetXpButton1.Enabled = True
SmartNetXpButton2.Enabled = True
SmartNetXpButton3.Enabled = True
SmartNetXpButton4.Enabled = True
Text(0).Enabled = False
Text(1).Enabled = False
Text(2).Enabled = False
Text(3).Enabled = False
mcclean = True
End If
End Sub
Private Sub SmartNetXpButton7_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Not mcclean Then
SmartNetXpButton1.Enabled = True
SmartNetXpButton2.Enabled = True
SmartNetXpButton3.Enabled = True
SmartNetXpButton4.Enabled = True
Text(0).Enabled = False
Text(1).Enabled = False
Text(2).Enabled = False
Text(3).Enabled = False
mrc.Bookmark = myBookmark
Call viewData
Else
MsgBox "你没有修改数据！", vbOKOnly + vbExclamation, "警告"
Exit Sub
End If
mcclean = True
End Sub
Private Sub SmartNetXpButton8_Click()
mcclean = False
sign = 0 '表示点击添加
SmartNetXpButton1.Enabled = False
SmartNetXpButton2.Enabled = False
SmartNetXpButton3.Enabled = False
SmartNetXpButton4.Enabled = False
Text(0).Enabled = True
Text(1).Enabled = True
Text(2).Enabled = True
Text(3).Enabled = True
Text(0).Text = ""
Text(1).Text = ""
Text(2).Text = ""
Text(3).Text = ""
myBookmark = mrc.Bookmark
End Sub
Private Sub Text_KeyPress(Index As Integer, KeyAscii As Integer)
If Index < 3 Then
If KeyAscii = 13 Then Text(Index + 1).SetFocus
End If
End Sub
Private Sub SmartNetXpButton9_Click()
myBookmark = mrc.Bookmark
str2$ = MsgBox("是否删除当前记录？", vbOKCancel, "删除当前记录")
If str2$ = vbOK Then
mrc.MoveNext
If mrc.EOF Then
mrc.MoveFirst
myBookmark = mrc.Bookmark
mrc.MoveLast
mrc.Delete
mrc.Bookmark = myBookmark
Call viewData
Else
myBookmark = mrc.Bookmark
mrc.MovePrevious
mrc.Delete
mrc.Bookmark = myBookmark
Call viewData
End If
Else
mrc.Bookmark = myBookmark
Call viewData
End If
End Sub
Private Sub imgTitleclose_Click()
intNumField = -2
Unload Me
End Sub
Private Sub imgTitleLeft_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
DoDrag Me
End Sub
Private Sub imgTitleMain_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
DoDrag Me
End Sub
Private Sub imgTitleMinimize_Click()
Me.WindowState = 1
End Sub
Private Sub imgTitleRight_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
DoDrag Me
End Sub
Private Sub lblTitle_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
DoDrag Me
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -