📄 modtable.frm
字号:
TabIndex = 5
Text = "第八节"
Top = 1440
Width = 1095
End
Begin VB.TextBox Text80
Height = 495
Left = 10080
TabIndex = 4
Text = "第九、十节"
Top = 1440
Width = 1095
End
Begin VB.TextBox Text82
Height = 495
Left = 1800
TabIndex = 3
Text = " 上 午 "
Top = 960
Width = 3975
End
Begin VB.TextBox Text83
Height = 495
Left = 5760
TabIndex = 2
Text = " 下 午"
Top = 960
Width = 4335
End
Begin VB.TextBox Text84
Height = 495
Left = 10080
TabIndex = 1
Text = " 晚自习"
Top = 960
Width = 1095
End
Begin VB.TextBox Text64
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 495
Left = 5640
TabIndex = 0
Top = 240
Width = 2415
End
Begin VB.Label Label1
Caption = "Label1"
Height = 495
Left = 5760
TabIndex = 77
Top = 2400
Width = 975
End
Begin VB.Label Label2
Caption = "班"
BeginProperty Font
Name = "宋体"
Size = 21.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Left = 4680
TabIndex = 76
Top = 240
Width = 495
End
Begin VB.Label Label3
Caption = "课程表"
BeginProperty Font
Name = "宋体"
Size = 21.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 495
Left = 8280
TabIndex = 75
Top = 240
Width = 1455
End
End
Attribute VB_Name = "modtable"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim mybookmark As Variant
Private Sub Command10_Click()
Unload Me
End Sub
Private Sub Command1_Click()
Command2.Enabled = True
Command3.Enabled = False
dream.MoveFirst '移动到数据集的第一条记录
Call viewdata '调用显示数据的函数
MsgBox "这是条一条记录!", 48, "注意!"
End Sub
Private Sub Command12_Click()
If Command12.Caption = "搜索(&S)" Then
If Not Testtxt(Text13.Text) Then
MsgBox "请输入学号！", 48, "提示"
Text13.SetFocus
Else
txtSQL = "select * from coutable where 学号 like '%" & Text13.Text & "' OR 姓名 like '" & Text13.Text & "'"
Set dream = ExecuteSQL(txtSQL, Msgtext)
Call viewdata
End If
End If
End Sub
Private Sub Command2_Click()
Command3.Enabled = True
dream.MoveNext '数据集向后移动一条记录
If dream.EOF Then '判断是否终止位置
dream.MoveFirst
End If
Call viewdata
End Sub
Private Sub Command3_Click()
Command2.Enabled = True
dream.MovePrevious '数据集向前移动一条记录
If dream.BOF Then '判断是否到起始位置
dream.MoveLast
End If
Call viewdata
End Sub
Private Sub Command4_Click()
Command3.Enabled = True
Command2.Enabled = False
dream.MoveLast '移动到数据集的最后一条记录
Call viewdata
MsgBox "这是最后一条记录!", 48, "注意!"
End Sub
Private Sub Command5_Click()
If Command5.Caption = "编辑(&M)" Then
Text7.Enabled = True
Text8.Enabled = True
Text9.Enabled = True
Text10.Enabled = True
Text11.Enabled = True
Text12.Enabled = True
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
mybookmark = dream.Bookmark '记下当前记录位置
End If
End Sub
Private Sub Command6_Click()
mybookmark = dream.Bookmark
str2$ = MsgBox("是否删除当前记录？", vbOKCancel, "删除当前记录")
If str2$ = vbOK Then
dream.MoveNext
If dream.EOF Then 'recordset is empty?
dream.MoveFirst
mybookmark = dream.Bookmark 'sign current position
dream.MoveLast
dream.Delete
dream.Close
txtSQL = "select * from coutable"
Set dream = ExecuteSQL(txtSQL, Msgtext)
dream.MoveLast
Call viewdata
Else
mybookmark = dream.Bookmark 'sign current position
dream.MovePrevious
dream.Delete
dream.Close
txtSQL = "select * from coutable"
Set dream = ExecuteSQL(txtSQL, Msgtext)
dream.MoveLast
Call viewdata
End If
Else
dream.Bookmark = mybookmark 'return primary position
Call viewdata
End If
End Sub
Private Sub Command7_Click()
' If gintPmode = 1 Then
txtSQL = "select * from coutable where 班级='" & Trim(Text1.Text) & "'"
Set mrc = ExecuteSQL(txtSQL, Msgtext)
If dream.EOF = False Then
MsgBox "已经存在此学号的记录,删除学生的旧信息吗？", vbOKCancel + vbExclamation, "警告"
txtSQL = "delete from coutable where 班级='" & Trim(Text1.Text) & "'"
Set dream = ExecuteSQL(txtSQL, Msgtext)
Text1.SetFocus
Exit Sub
End If
dream.Close
txtSQL = "select * from coutable "
Set dream = ExecuteSQL(txtSQL, Msgtext)
dream.Bookmark = mybookmark 'return to current modifty position
dream.AddNew
'===================
dream.Fields(0) = Trim(Text7.Text)
dream.Fields(1) = Trim(Text8.Text)
dream.Fields(2) = Trim(Text9.Text)
dream.Fields(3) = Trim(Text10.Text)
dream.Fields(4) = Trim(Text11.Text)
dream.Fields(5) = Trim(Text12.Text)
dream.Fields(6) = Trim(Text13.Text)
dream.Fields(7) = Trim(Text14.Text)
dream.Fields(8) = Trim(Text15.Text)
dream.Fields(9) = Trim(Text16.Text)
dream.Fields(10) = Text17.Text
dream.Fields(11) = Text20.Text
dream.Fields(12) = Text21.Text
dream.Fields(13) = Text22.Text
dream.Fields(14) = Text23.Text
dream.Fields(15) = Text24.Text
dream.Fields(16) = Text25.Text
dream.Fields(17) = Text26.Text
dream.Fields(18) = Text27.Text
dream.Fields(19) = Text28.Text
dream.Fields(20) = Text29.Text
dream.Fields(21) = Text30.Text
dream.Fields(22) = Text31.Text
dream.Fields(23) = Text32.Text
dream.Fields(24) = Text33.Text
dream.Fields(25) = Text34.Text
dream.Fields(26) = Text35.Text
dream.Fields(27) = Text36.Text
dream.Fields(28) = Text37.Text
dream.Fields(29) = Text38.Text
dream.Fields(30) = Text39.Text
dream.Fields(31) = Text40.Text
dream.Fields(32) = Text41.Text
dream.Fields(33) = Text42.Text
dream.Fields(34) = Text43.Text
dream.Fields(35) = Text44.Text
dream.Fields(36) = Text45.Text
dream.Fields(37) = Text46.Text
dream.Fields(38) = Text47.Text
dream.Fields(39) = Text48.Text
dream.Fields(40) = Text49.Text
dream.Fields(41) = Text50.Text
dream.Fields(42) = Text51.Text
dream.Fields(43) = Text52.Text
dream.Fields(44) = Text53.Text
dream.Fields(45) = Text54.Text
dream.Fields(46) = Text55.Text
dream.Fields(47) = Text56.Text
dream.Fields(48) = Text57.Text
dream.Fields(49) = Text58.Text
dream.Fields(50) = Text59.Text
dream.Fields(51) = Text60.Text
dream.Fields(52) = Text61.Text
dream.Fields(53) = Text62.Text
'===================
dream.Fields(0) = Trim(Text1.Text)
dream.Fields(1) = Trim(Text2.Text)
dream.Fields(2) = Trim(Text3.Text)
dream.Fields(3) = Trim(Text4.Text)
dream.Fields(4) = Trim(Text5.Text)
dream.Fields(5) = Trim(Text6.Text)
dream.Fields(6) = Trim(Text7.Text)
dream.Fields(7) = Trim(Text8.Text)
dream.Fields(8) = Trim(Text9.Text)
dream.Fields(9) = Trim(Text10.Text)
dream.Fields(10) = Trim(Text11.Text)
dream.Fields(11) = Trim(Text12.Text)
dream.Fields(12) = Trim(Text13.Text)
dream.Fields(13) = Trim(Text14.Text)
dream.Fields(14) = Trim(Text15.Text)
dream.Update
dream.Close
' End If
End Sub
Private Sub Command9_Click()
dream.Bookmark = mybookmark
Call viewdata
End Sub
Private Sub Form_Load()
'========================================================
txtSQL = "select * from coutable "
Set dream = ExecuteSQL(txtSQL, Msgtext) 'excute query opertion
If dream.EOF = False Then
dream.MoveFirst 'move first
Call viewdata 'display records
mybookmark = dream.Bookmark
Else
MsgBox "没有纪录！", vbOKOnly + vbExclamation, "警告"
Exit Sub
End If
mcbookmark = dream.Bookmark '记下当前记录的位置
Text1.Enabled = False
Text2.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
Text8.Enabled = False
Text9.Enabled = False
Text10.Enabled = False
Text11.Enabled = False
Text12.Enabled = False
modtable.Caption = "修改课程表信息.....[" + Format(Date, "yyyy年mm月dd日]")
End Sub
Public Sub viewdata() '由于程序中各处需要显示数据，定义函数ViewData
Text7.Text = dream.Fields(0)
Text8.Text = dream.Fields(1)
Text9.Text = dream.Fields(2)
Text10.Text = dream.Fields(3)
Text11.Text = dream.Fields(4)
Text12.Text = dream.Fields(5)
Text13.Text = dream.Fields(6)
Text14.Text = dream.Fields(7)
Text15.Text = dream.Fields(8)
Text16.Text = dream.Fields(9)
Text17.Text = dream.Fields(10)
Text20.Text = dream.Fields(11)
Text21.Text = dream.Fields(12)
Text22.Text = dream.Fields(13)
Text23.Text = dream.Fields(14)
Text24.Text = dream.Fields(15)
Text25.Text = dream.Fields(16)
Text26.Text = dream.Fields(17)
Text27.Text = dream.Fields(18)
Text28.Text = dream.Fields(19)
Text29.Text = dream.Fields(20)
Text30.Text = dream.Fields(21)
Text31.Text = dream.Fields(22)
Text32.Text = dream.Fields(23)
Text33.Text = dream.Fields(24)
Text34.Text = dream.Fields(25)
Text35.Text = dream.Fields(26)
Text36.Text = dream.Fields(27)
Text37.Text = dream.Fields(28)
Text38.Text = dream.Fields(29)
Text39.Text = dream.Fields(30)
Text40.Text = dream.Fields(31)
Text41.Text = dream.Fields(32)
Text42.Text = dream.Fields(33)
Text43.Text = dream.Fields(34)
Text44.Text = dream.Fields(35)
Text45.Text = dream.Fields(36)
Text46.Text = dream.Fields(37)
Text47.Text = dream.Fields(38)
Text48.Text = dream.Fields(39)
Text49.Text = dream.Fields(40)
Text50.Text = dream.Fields(41)
Text51.Text = dream.Fields(42)
Text52.Text = dream.Fields(43)
Text53.Text = dream.Fields(44)
Text54.Text = dream.Fields(45)
Text55.Text = dream.Fields(46)
Text56.Text = dream.Fields(47)
Text57.Text = dream.Fields(48)
Text58.Text = dream.Fields(49)
Text59.Text = dream.Fields(50)
Text60.Text = dream.Fields(51)
Text61.Text = dream.Fields(52)
Text62.Text = dream.Fields(53)
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -