数据库技术之学生成绩管理系统程序设计.docx
- 文档编号:26308106
- 上传时间:2023-06-17
- 格式:DOCX
- 页数:10
- 大小:16.03KB
数据库技术之学生成绩管理系统程序设计.docx
《数据库技术之学生成绩管理系统程序设计.docx》由会员分享,可在线阅读,更多相关《数据库技术之学生成绩管理系统程序设计.docx(10页珍藏版)》请在冰豆网上搜索。
数据库技术之学生成绩管理系统程序设计
数据库技术之学生
成绩管理系统程序
设计
<数据库技术>课程设计
<学生成绩管理系统>程序
附录用户登陆窗口代码:
DimusernameAsString,userpassAsStringPrivateSubCommand1_Click()Adodc1.Recordset.MoveFirstAdodc1.Recordset.Find("userID='"&Text1&"'")IfAdodc1.Recordset.EOFThen
MsgBox"无此用户,请重新输入!
"
ExitSub
Else
abc=Adodc1.Recordset.Fields
(1)
IfText2=Trim(abc)Then
登陆"
MsgBox"欢迎使用本系统,点击进入!
",vbOKOnly,"Me.Hide
Form2.Show
Else
MsgBox"用户名或密码不正确,请重新输入!
"
Text1=""
Text2=""
ExitSub
EndIf
EndIf
EndSub
PrivateSubCommand2_Click()
End
EndSub
添加记录代码:
PrivateSubCommand1_Click()
Adodc1.Recordset.AddNew
Text1=
InputBox("
请输入学生学号","添加学号")
Text2=
InputBox("
请输入学生姓名","添加姓名")
Text3=
InputBox("
请输入学生性别","添加性别")
Text4=
InputBox("
请输入学生年龄","添加年龄")
IfNotIsNumeric(Text4)Then
MsgBox"请输入数值"
Text4.SetFocus
EndIf
确认添加")
Text5=InputBox("请输入学生系别","添加系别")resu=MsgBox("确认添加到数据库",vbOKCancel,"Ifresu=vbOKThen
Adodc1.Recordset.Update
Else
Adodc1.Recordset.Delete
EndIf
EndSub
PrivateSubCommand2_Click()
Me.Hide
Form2.Show
EndSub
学生查询代码:
PrivateSubCommand1_Click()
IfText1=""Then
MsgBox"请输入查询条件"
Text1.SetFocus
EndIf
IfOption1.Value=TrueThen
Adodc1.Recordset.Find("sno='"&Text1&"'")
IfAdodc1.Recordset.EOFThenMsgBox"没有该学生
ElseIfOption2.Value=TrueThen
Adodc1.Recordset.Find("sname='"&Text1&"'")
IfAdodc1.Recordset.EOFThenMsgBox"没有该学生"
EndIf
EndSub
PrivateSubOption1_Click()
Text2=""
Adodc1.Recordset.MoveFirst
EndSub
PrivateSubOption2_Click()
Text1=""
Adodc1.Recordset.MoveFirst
EndSub成绩查询代码:
PrivateSubCommand1_Click()
IfText4=""Then
MsgBox"请输入查询的学号"
Text4.SetFocus
EndIf
Adodc1.Recordset.MoveFirstabcd="Sno='"&Text4&"'"
Adodc1.Recordset.Find(abcd)
IfAdodc1.Recordset.EOFThen
MsgBox"没有该学生记录"
Text4.SetFocus
EndIf
EndSub
PrivateSubText4_Change()
IfLen(Text4)>0Then
Command1.Enabled=True
Else
Command1.Enabled=False
EndIf
EndSub
修改记录代码:
PrivateSubAdodc1_MoveComplete(ByValadReasonAsADODB.EventReasonEnum,ByValpErrorAsADODB.Error,adStatusAsADODB.EventStatusEnum,ByValpRecordsetAsADODB.Recordset)
Adodc1.Caption=Adodc1.Recordset.AbsolutePosition&"/"
&Adodc1.Recordset.RecordCount
EndSub
PrivateSubCommand1_Click(IndexAsInteger)
SelectCaseIndex
Case0
Adodc1.Recordset.MoveFirst'一条
Case1
Adodc1.Recordset.MovePrevious'一条
IfAdodc1.Recordset.BOF
Adodc1.Recordset.MoveFirst
Case2
Adodc1.Recordset.MoveNext'
IfAdodc1.Recordset.EOF
Adodc1.Recordset.MoveLast
Case3
Adodc1.Recordset.MoveLast'后一条
Case4
DimmnoAsString
mno=InputBox("请输入学号","查找窗")存到变量内
Adodc1.Recordset.MoveFirst'录指针到第一条记录上
第
上
Then下一条
Then
最
将输入值
移动记
Adodc1.Recordset.Find("sno='"&mno&"'")'
用.Find方法查找指定科目
IfAdodc1.Recordset.EOFThenMsgBox"无此学号!
"&Adodc1.Recordset.AbsolutePosition,,"提示"
EndSelect
EndSub
PrivateSubCommand2_Click()
Adodc1.Recordset.Update
EndSub
成绩添加代码:
PrivateSubCommand1_Click()
DimadcAsString
Adodc1.Recordset.AddNew
a:
Text1=InputBox("输入学生学号","添加成绩")
mm=Len(Text1)
Fori=1Tomm
abc=Mid(Text1,i,1)
Ifabc<"0"Orabc>"9"Then
MsgBox"输入格式不正确请重新输入"
GoToa
EndIf
Nexti
b:
Text2=InputBox("输入课程号","添加成绩")
mm=Len(Text2)
Fori=1Tomm
abc=Mid(Text2,i,1)
Ifabc<"0"Orabc>"9"Then
MsgBox"输入格式不正确请重新输入"
GoTob
EndIf
Nexti
c:
Text3=InputBox("输入学生成绩","添加成绩")
mm=Len(Text3)
Fori=1Tomm
abc=Mid(Text3,i,1)
Ifabc<"0"Orabc>"9"Then
MsgBox"输入格式不正确请重新输入"
GoToa
EndIf
Nexti
resu=MsgBox("确认添加数据库?
?
",vbOKOnly,"确认添加")Ifresu=vbOKThen
Adodc1.Recordset.Update
Else
Text1=""
Text2=""
Text3=""
EndIf
EndSub
学生档案管理代码:
PrivateSubCommand1_Click(IndexAsInteger)
SelectCaseIndex
Case0
Adodc1.Recordset.MoveFirst'一条
Case1
上
Then
下一条
Then
Adodc1.Recordset.MovePrevious'一条
IfAdodc1.Recordset.BOF
Adodc1.Recordset.MoveFirst
Case2
Adodc1.Recordset.MoveNext'
IfAdodc1.Recordset.EOF
Adodc1.Recordset.MoveLast
Case3
Adodc1.Recordset.MoveLast'后一条
Case4
'将输入值
移动记
无此学号!
"&
DimmnoAsString
mno=InputBox("请输入学号","查找窗")
存到变量内
Adodc1.Recordset.MoveFirst'录指针到第一条记录上
Adodc1.Recordset.Find("sno='"&mno&"'")'
用.Find方法查找指定科目
IfAdodc1.Recordset.EOFThenMsgBox"
Adodc1.Recordset.AbsolutePosition,,"提示
EndSelect
EndSub
PrivateSubCommand2_Click()
DimabcdAsString
Dimfind1
a:
IfOption1.Value=Option2.ValueThen
MsgBox"请选择查询条件!
"
ExitSub
EndIf
IfText6.Text=""Then
MsgBox"请输入查询条件"
Text1.SetFocus
ExitSub
EndIf
IfOption1.Value=TrueThen
Adodc1.Recordset.Find("sno='"&Text6&"'")
IfAdodc1.Recordset.EOFThenMsgBox"没有该学生"
ElseIfOption2.Value=TrueThen
Adodc1.Recordset.Find("sname='"&Text6&"'")
IfAdodc1.Recordset.EOFThenMsgBox"没有该学生"
EndIf
EndSub
PrivateSubCommand3_Click()
IfOption3.Value=TrueThen
Adodc1.Recordset.Update
Text1.Locked=True
Text2.Locked=True
Text3.Locked=True
Text4.Locked=True
Text5.Locked=True
Else
Adodc1.Recordset.Delete
Adodc1.Recordset.UpdateEndIf
EndSub
PrivateSubOption1_Click()Text6=""Adodc1.Recordset.MoveFirstEndSub
PrivateSubOption2_Click()Text6=""Adodc1.Recordset.MoveFirstEndSub
PrivateSubOption3_Click()Command3.Enabled=TrueText1.Locked=FalseText2.Locked=FalseText3.Locked=FalseText4.Locked=FalseText5.Locked=FalseEndSub
PrivateSubOption4_Click()Command3.Enabled=TrueEndSub
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 数据库技术 学生 成绩管理系统 程序设计