📄 stu_edit.frm
字号:
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 3360
TabIndex = 55
Top = 2640
Width = 735
End
Begin VB.Label Label26
BackColor = &H00FFC0C0&
Caption = "学期2"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 2520
TabIndex = 54
Top = 2640
Width = 735
End
Begin VB.Label Label25
BackColor = &H00FFC0C0&
Caption = "学期1"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 1680
TabIndex = 53
Top = 2640
Width = 735
End
Begin VB.Label Label24
BackColor = &H00FFC0C0&
Caption = "综合测评成绩："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
TabIndex = 52
Top = 3000
Width = 1695
End
Begin VB.Label Label15
BackColor = &H00FFC0C0&
Caption = "班 级："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 6360
TabIndex = 32
Top = 120
Width = 855
End
Begin VB.Label Label12
BackColor = &H00FFC0C0&
Caption = "年"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3960
TabIndex = 30
Top = 720
Width = 495
End
Begin VB.Label Label14
BackColor = &H00FFC0C0&
Caption = "备注信息（不得多于100字）"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
TabIndex = 26
Top = 3600
Width = 3735
End
Begin VB.Label Label13
BackColor = &H00FFC0C0&
Caption = "职 务："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2400
TabIndex = 24
Top = 2160
Width = 855
End
Begin VB.Label Label11
BackColor = &H00FFC0C0&
Caption = "政治面貌："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4560
TabIndex = 22
Top = 2160
Width = 1335
End
Begin VB.Label Label10
BackColor = &H00FFC0C0&
Caption = "民 族："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
TabIndex = 20
Top = 2160
Width = 735
End
Begin VB.Label Label9
BackColor = &H00FFC0C0&
Caption = "专 业："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4560
TabIndex = 18
Top = 1440
Width = 975
End
Begin VB.Label Label8
BackColor = &H00FFC0C0&
Caption = "籍 贯："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2400
TabIndex = 16
Top = 1440
Width = 855
End
Begin VB.Label Label7
BackColor = &H00FFC0C0&
Caption = "生 源："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
TabIndex = 14
Top = 1440
Width = 855
End
Begin VB.Label Label6
BackColor = &H00FFC0C0&
Caption = "出生年月："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4560
TabIndex = 12
Top = 720
Width = 1215
End
Begin VB.Label Label5
BackColor = &H00FFC0C0&
Caption = "学 制："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2400
TabIndex = 10
Top = 720
Width = 855
End
Begin VB.Label Label4
BackColor = &H00FFC0C0&
Caption = "学 历："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
TabIndex = 8
Top = 720
Width = 855
End
Begin VB.Label Label3
BackColor = &H00FFC0C0&
Caption = "性 别："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 4560
TabIndex = 4
Top = 120
Width = 855
End
Begin VB.Label Label2
BackColor = &H00FFC0C0&
Caption = "姓 名："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2400
TabIndex = 2
Top = 120
Width = 975
End
Begin VB.Label Label1
BackColor = &H00FFC0C0&
Caption = "学 号："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 0
Top = 120
Width = 855
End
End
Attribute VB_Name = "Form5"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "RVB_UniqueId" ,"41FF01DC0085"
Attribute VB_Ext_KEY = "RVB_ModelStereotype" ,"Form"
Public actiontype As Integer '定义类型变量，区分动作种类
Dim txtSQL As String
Private txtSQL1 As String 'ExecuteSQL 的 SQL语句参数
Dim mrc As ADODB.Recordset
Private mrc1 As ADODB.Recordset '定义查询返回记录集
Dim inno As String '用来记录输入的学号
Dim i As Integer '定义循环变量
Dim MsgText As String
Private Sub Command1_Click() '添加按钮
actiontype = 1 '置类型变量为1，表明是执行添加操作
mrc.AddNew
Text1(0).Locked = False
Command1.Enabled = False '添加无效
Command2.Enabled = False '修改无效
Command3.Enabled = False '删除无效
Command4.Enabled = True '保存有效
Command5.Enabled = True '取消有效
Call Blank_all
Text1(0).SetFocus
End Sub
Private Sub Command2_Click() '修改按钮
inno = InputBox("请输入你要修改的学生学号：（9位）", "注意") '输入要想修改的学生学号
If inno <> "" Then
txtSQL1 = "select Stu_no from Stu_info where Stu_no=" & "'" & Trim(inno) & "'" '查询该学号对应的记录是否存在
Set mrc1 = ExecuteSQL(txtSQL1, MsgText) '执行查询，并将结果返回给mrc1
If mrc1.EOF Then '根据mrc1.EOF标志判断是否存在该记录
MsgBox "该学号不存在！", 0 + 48, "注意"
Command2.SetFocus '要求重新输入学号
mrc1.Close '关闭记录集
Exit Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -