📄 guanli.frm
字号:
Y2 = 8160
End
Begin VB.Label Label7
BackColor = &H00C0C0C0&
Caption = "课程号："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 6480
TabIndex = 42
Top = 5040
Width = 1215
End
Begin VB.Label Label6
BackColor = &H00C0C0C0&
Caption = "备注："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 6480
TabIndex = 39
Top = 6480
Width = 975
End
Begin VB.Label Label3
BackColor = &H00C0C0C0&
Caption = "成绩："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 6480
TabIndex = 37
Top = 6000
Width = 975
End
Begin VB.Label Label2
BackColor = &H00C0C0C0&
Caption = "课程名称："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 6480
TabIndex = 36
Top = 5520
Width = 1215
End
Begin VB.Line Line11
X1 = 480
X2 = 5400
Y1 = 3840
Y2 = 3840
End
Begin VB.Line Line10
X1 = 5400
X2 = 5400
Y1 = 3240
Y2 = 4440
End
Begin VB.Line Line9
X1 = 480
X2 = 5400
Y1 = 4440
Y2 = 4440
End
Begin VB.Line Line8
X1 = 480
X2 = 480
Y1 = 3240
Y2 = 4440
End
Begin VB.Line Line7
X1 = 480
X2 = 5400
Y1 = 3240
Y2 = 3240
End
Begin VB.Label Label5
BackColor = &H00C0C0C0&
Caption = "班级："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2880
TabIndex = 29
Top = 1920
Width = 975
End
Begin VB.Line Line6
X1 = 5400
X2 = 5400
Y1 = 6360
Y2 = 7080
End
Begin VB.Line Line5
X1 = 120
X2 = 5400
Y1 = 8040
Y2 = 8040
End
Begin VB.Line Line4
X1 = 120
X2 = 120
Y1 = 4920
Y2 = 8040
End
Begin VB.Line Line3
X1 = 360
X2 = 120
Y1 = 4920
Y2 = 4920
End
Begin VB.Label Label4
BackColor = &H00C0C0C0&
Caption = "学生成绩"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 360
TabIndex = 27
Top = 4800
Width = 855
End
Begin VB.Line Line2
X1 = 5400
X2 = 5400
Y1 = 4920
Y2 = 8040
End
Begin VB.Line Line1
X1 = 1080
X2 = 5400
Y1 = 4920
Y2 = 4920
End
Begin VB.Label Label1
BackColor = &H00C0C0C0&
Caption = "备注："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 11
Left = 5880
TabIndex = 10
Top = 2640
Width = 1095
End
Begin VB.Label Label1
BackColor = &H00C0C0C0&
Caption = "学号："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 10
Left = 120
TabIndex = 9
Top = 360
Width = 1095
End
Begin VB.Label Label1
BackColor = &H00C0C0C0&
Caption = "邮政编码："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 9
Left = 120
TabIndex = 8
Top = 1080
Width = 1095
End
Begin VB.Label Label1
BackColor = &H00C0C0C0&
Caption = "院系："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 8
Left = 120
TabIndex = 7
Top = 1800
Width = 1215
End
Begin VB.Label Label1
BackColor = &H00C0C0C0&
Caption = "电话号码："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 7
Left = 120
TabIndex = 6
Top = 2520
Width = 1095
End
Begin VB.Label Label1
BackColor = &H00C0C0C0&
Caption = "专业："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 6
Left = 5880
TabIndex = 5
Top = 1920
Width = 1095
End
Begin VB.Label Label1
BackColor = &H00C0C0C0&
Caption = "出生年月："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 5
Left = 2880
TabIndex = 4
Top = 1080
Width = 1095
End
Begin VB.Label Label1
BackColor = &H00C0C0C0&
Caption = "民族："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 4
Left = 8040
TabIndex = 3
Top = 360
Width = 855
End
Begin VB.Label Label1
BackColor = &H00C0C0C0&
Caption = "地址："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 3
Left = 5880
TabIndex = 2
Top = 1080
Width = 1095
End
Begin VB.Label Label1
BackColor = &H00C0C0C0&
Caption = "性别："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 1
Left = 5880
TabIndex = 1
Top = 360
Width = 1095
End
Begin VB.Label Label1
BackColor = &H00C0C0C0&
Caption = "姓名："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 0
Left = 2880
TabIndex = 0
Top = 360
Width = 975
End
End
Attribute VB_Name = "guanli"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim rs As ADODB.Recordset
Dim rs1 As ADODB.Recordset
Dim txtSQL As String
Dim MsgText As String
Dim mybookmark As Variant
Dim mcclean As Boolean
Private Sub Command1_Click()
On Error GoTo errh
If Combo4.Text <> "" Then
If Combo2.Text <> "" Then
If Text1.Text <> "" Then
If Text13.Text <> "" Then
If Combo3.Text <> "" Then
If checkclass Then
If checkcourse Then
If match = True Then
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("课程号").Value = Combo4.Text
Adodc1.Recordset.Fields("学号").Value = Text1.Text
Adodc1.Recordset.Fields("成绩").Value = Text13.Text
Adodc1.Recordset.Fields("课程名称").Value = Combo2.Text
Adodc1.Recordset.Fields("备注").Value = Combo3.Text
Adodc1.Recordset.Update
MsgBox "添加成功!"
Combo4.Text = ""
Combo2.Text = ""
Combo3.Text = ""
'Text2.Text = ""
Text13.Text = ""
Else
MsgBox "成绩和备注不匹配,请核对!"
End If
Else
MsgBox "没有这个课程,不能添加!"
Combo3.Text = ""
Text13.Text = ""
Combo4.Text = ""
Combo2.Text = ""
Combo4.SetFocus
End If
Else
MsgBox "这个成绩已经有了,不能再添加!"
End If
Else
MsgBox "备注不能为空,请输入备注!"
Combo3.SetFocus
End If
Else
MsgBox "成绩不能为空,请输入成绩!"
Text13.SetFocus
End If
Else
MsgBox "学号不能为空,请输入学号!"
Text1.SetFocus
End If
Else
MsgBox "课程名称不能为空,请输入课程名称!"
Combo2.SetFocus
End If
Else
MsgBox "课程号不能为空,请输入课程号!"
Combo4.SetFocus
End If
Exit Sub
errh:
MsgBox Err.Description
End Sub
Private Sub CmdBolish_Click()
On Error GoTo AddErr
If Not mcclean Then
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command10.Enabled = True
Else
MsgBox "什么也没修改,无所谓取消不取消!", vbOKOnly + vbExclamation, "警告"
End If
Exit Sub
AddErr:
MsgBox Err.Description
End Sub
Private Sub CmdUpdata_Click()
If mcclean = True Then
MsgBox "请先修改学生信息", vbOKOnly + vbExclamation, "警告"
Exit Sub
Else
If Text1.Text = "" Then
MsgBox "请输入学号!", vbOKOnly + vbExclamation, "警告"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -