📄 modstudbad.frm
字号:
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 495
Left = 6360
TabIndex = 4
Top = 720
Width = 3015
End
Begin VB.TextBox Text3
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 495
Left = 1440
TabIndex = 2
Top = 1320
Width = 2655
End
Begin VB.TextBox Text4
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 495
Left = 1440
TabIndex = 3
Top = 1920
Width = 2655
End
Begin VB.ComboBox Combo9
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 360
Left = 6360
TabIndex = 5
Top = 1320
Width = 3015
End
Begin VB.TextBox Text6
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 1575
Left = 1440
TabIndex = 14
Top = 4560
Width = 7935
End
Begin VB.Label Label17
Caption = "请输入学号查询 "
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 360
TabIndex = 46
Top = 240
Width = 2055
End
Begin VB.Label Label7
Caption = " 照 片"
Height = 375
Left = 10200
TabIndex = 36
Top = 2520
Width = 1215
End
Begin VB.Label Label25
Caption = "Label7"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 3480
TabIndex = 35
Top = 3480
Width = 1215
End
Begin VB.Label Label1
Caption = "编号"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 360
TabIndex = 31
Top = 720
Width = 615
End
Begin VB.Label Label2
Caption = "学号"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 5040
TabIndex = 30
Top = 720
Width = 735
End
Begin VB.Label Label3
Caption = "姓名"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 360
TabIndex = 29
Top = 1320
Width = 735
End
Begin VB.Label Label4
Caption = "性别"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 5040
TabIndex = 28
Top = 1320
Width = 735
End
Begin VB.Label Label5
Caption = "班级"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 360
TabIndex = 27
Top = 1920
Width = 735
End
Begin VB.Label Label6
Caption = "详细描述"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 360
TabIndex = 26
Top = 4560
Width = 975
End
Begin VB.Label Label8
Caption = "日期"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5040
TabIndex = 25
Top = 2040
Width = 735
End
End
Attribute VB_Name = "modbad"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim mybookmark As Variant
Private Sub Command1_Click()
Command1.Enabled = True
Command3.Enabled = False
dream.MoveFirst '移动到数据集的第一条记录
Call viewdata '调用显示数据的函数
MsgBox "这是条一条记录!", 48, "注意!"
End Sub
Private Sub Command10_Click()
studentmdi.StatusBar1.Panels.Item(1).Text = " "
Unload Me
End Sub
Private Sub Command2_Click()
Command3.Enabled = True
Command2.Enabled = True
Command1.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()
Command1.Enabled = True
Command2.Enabled = False
dream.MoveLast '移动到数据集的最后一条记录
Call viewdata
MsgBox "这是最后一条记录!", 48, "注意!"
End Sub
Private Sub Command12_Click()
If Command12.Caption = "搜索(&Q)" Then
If Not Testtxt(Text7.Text) Then
MsgBox "请输入学号！", 48, "提示"
Text7.SetFocus
Else
'in order to fuhe query
txtSQL = "select * from studbad where 学号 like '%" & Text7.Text & "' OR 姓名 like '" & Text7.Text & "'"
Set dream = ExecuteSQL(txtSQL, Msgtext)
Call viewdata
End If
End If
End Sub
Private Sub Command5_Click()
If Command5.Caption = "编辑(&M)" Then
Text1.Enabled = True
Text2.Enabled = True
Text3.Enabled = True
Text4.Enabled = True
Text5.Enabled = True
Text6.Enabled = True
Combo1.Enabled = True
Combo2.Enabled = True
Combo3.Enabled = True
Combo4.Enabled = True
Combo5.Enabled = True
Combo6.Enabled = True
Combo7.Enabled = True
Combo9.Enabled = True
mybookmark = dream.Bookmark '记下当前记录位置
End If
End Sub
Public Sub viewdata() '由于程序中各处需要显示数据，定义函数ViewData
Text1.Text = dream.Fields(0)
Text2.Text = dream.Fields(1)
Text3.Text = dream.Fields(2)
Combo9.Text = dream.Fields(3)
Text4.Text = dream.Fields(4)
Text5.Text = dream.Fields(5)
Combo1.Text = dream.Fields(6)
Combo2.Text = dream.Fields(7)
Combo3.Text = dream.Fields(8)
Combo4.Text = dream.Fields(9)
Combo5.Text = dream.Fields(10)
Combo6.Text = dream.Fields(11)
Combo7.Text = dream.Fields(12)
Text6.Text = dream.Fields(13)
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 studbad"
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 studbad"
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()
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
If dream.EOF = False Then
MsgBox "真的要更新吗？", vbOKCancel + vbExclamation, "警告"
'record current position
dream.Bookmark = mybookmark 'return to current modifty position
dream.Delete
txtSQL = "select * from studbad "
Set dream = ExecuteSQL(txtSQL, Msgtext)
dream.Bookmark = mybookmark 'return to current modifty position
dream.AddNew
dream.Fields(0) = Trim(Text1.Text)
dream.Fields(1) = Trim(Text2.Text)
dream.Fields(2) = Trim(Text3.Text)
dream.Fields(3) = Trim(Combo9.Text)
dream.Fields(4) = Trim(Text4.Text)
dream.Fields(5) = Trim(Text5.Text)
dream.Fields(6) = Trim(Combo1.Text)
dream.Fields(7) = Trim(Combo2.Text)
dream.Fields(8) = Trim(Combo3.Text)
dream.Fields(9) = Trim(Combo4.Text)
dream.Fields(10) = Trim(Combo5.Text)
dream.Fields(11) = Trim(Combo6.Text)
dream.Fields(12) = Trim(Combo7.Text)
dream.Fields(13) = Trim(Text6.Text)
dream.UpdateBatch
dream.Close
MsgBox "修改学生处分信息成功！", vbOKOnly, " 提示！"
End If
End Sub
Private Sub Command9_Click()
dream.Bookmark = mybookmark
Call viewdata
End Sub
Private Sub Form_Load()
txtSQL = "select * from studbad "
Set dream = ExecuteSQL(txtSQL, Msgtext) '执行查询操作
dream.MoveFirst '移到第一条记录
Call viewdata '显示记录
mcbookmark = dream.Bookmark '记下当前记录的位置
Combo9.AddItem "男"
Combo9.AddItem "女"
Combo1.AddItem "是"
Combo1.AddItem "否"
Combo2.AddItem "是"
Combo2.AddItem "否"
Combo3.AddItem "是"
Combo3.AddItem "否"
Combo4.AddItem "是"
Combo4.AddItem "否"
Combo5.AddItem "是"
Combo5.AddItem "否"
Combo6.AddItem "是"
Combo6.AddItem "否"
Combo7.AddItem "是"
Combo7.AddItem "否"
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
Text4.Enabled = False
Text5.Enabled = False
Text6.Enabled = False
Combo1.Enabled = False
Combo2.Enabled = False
Combo3.Enabled = False
Combo4.Enabled = False
Combo5.Enabled = False
Combo6.Enabled = False
Combo7.Enabled = False
Combo9.Enabled = False
modbad.Caption = "修改学生处分[" + Format(Date, "yyyy年mm月dd日") + Format(Time, "hh点mm分ss秒]")
studentmdi.StatusBar1.Panels.Item(1).Text = "修改学生处分信息"
End Sub
Private Sub Text7_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Call Command12_Click
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -