数据库课程设计学分管理系统Word文件下载.docx

数据库课程设计学分管理系统Word文件下载.docx

《数据库课程设计学分管理系统Word文件下载.docx》由会员分享，可在线阅读，更多相关《数据库课程设计学分管理系统Word文件下载.docx（17页珍藏版）》请在冰豆网上搜索。

1题目要求·

3

2程序截图·

4

3程序代码·

10

4课程设计心得·

26

题目要求：

设计一个学分管理系统。

假设每位学生必须完成基础课50学分，专业课50学分，选修课24学分，人文类课程8学分和实验性课程20学分才能毕业。

实现下列功能：

1．录入某位学生的学分信息

2．给定学号，显示某位学生的学分完成情况；

3．给定班号，显示该班所有学生的学分完成情况；

4．给定学号，修改该学生的学分信息；

5．按照某类课程的学分高低进行排序；

给定学号，对该学生能否毕业进行确定。

登陆界面如下：

主界面如下：

进行插入操作：

按班号显示操作：

查询结果界面如下：

进行按学号进行查询的界面：

查询结果如下：

排序界面：

查询学生是否能够毕业：

删除操作：

代码如下：

Module1：

PubliccnAsNew

PublicrsAsNew

Form1：

PublicrsAs

Subdisp（）

Set=rs

Fori=0To-1

Text1（i）.Text=（i）.Value

Next

EndSub

Subrenew（）

Setrs=New

"

dsn=123;

uid=sa;

pwd="

select*fromcredit"

cn,adOpenStatic,adLockOptimistic

disp

PrivateSubFrame1_DragDrop（SourceAsControl,XAsSingle,YAsSingle）

PrivateSubCommand1_Click（）

Fori=0To7

Text1（i）.Text="

"

Next

Text1（0）.SetFocus

Text1

（1）.Enabled=True

Text1

（2）.Enabled=True

=True

PrivateSubCommand10_Click（）

IfThen

msg=MsgBox（"

已达到第一条"

48+0,"

提示"

）

EndIf

disp

EndSub

PrivateSubCommand11_Click（）

insert_str="

insertintocreditvalues（'

&

Text1（0）.Text&

'

'

Text1

（1）.Text&

Text1

（2）.Text&

Text1（3）.Text&

Text1（4）.Text&

Text1（5）.Text&

Text1（6）.Text&

Text1（7）.Text&

）"

IfText1（0）.Text<

>

（0）Then

（insert_str）

MsgBox"

插入成功"

Else

MsgBox"

重复输入数据"

EndIf

renew

PrivateSubCommand12_Click（）

PrivateSubCommand13_Click（）

update_str="

updatecreditsetbasic='

major='

soption='

speople='

sexperiment='

wheresno='

（update_str）

无此内容"

PrivateSubCommand14_Click（）

sno1=InputBox（"

请输入要删除学生的学号：

"

查询"

200,100）

delete_str="

deletefromcreditwheresno="

sno1

Ifsno1<

Then

If=0Then

输入学号不正确"

（delete_str）

error"

PrivateSubCommand15_Click（）

PrivateSubCommand2_Click（）

PrivateSubCommand3_Click（）

PrivateSubCommand4_Click（）

Text1（0）.SetFocus

Text1

（1）.Enabled=False

Text1

（2）.Enabled=False

PrivateSubCommand5_Click（）

PrivateSubCommand6_Click（）

Dima（4）AsInteger

请输入学生的学号：

Setrs=New

select*fromcreditwheresno='

sno1&

i=0

Forj=3To-1

a（i）=Val（j）.Value）

i=i+1

Ifa（0）>

=50Anda

（1）>

=50Anda

（2）>

=24Anda（3）>

=8Anda（4）>

=20Then

该学生已修满学分，可以毕业"

该学生由于未修满学分，不能毕业"

PrivateSubCommand7_Click（）

PrivateSubCommand8_Click（）

PrivateSubCommand9_Click（）

已达到最后一条"

PrivateSubForm_Load（）

Setcn=New

=False

Form2：

classno=InputBox（"

请输入学生的班号"

'

Setrs1=New

select*fromcreditwheresclass='

classno&

If>

0Then

Set=rs

无此记录！

Form3：

sno=InputBox（"

请输入学生的学号"

sno&

Form4：

PrivateSubOption1_Click（）

subject=InputBox（"

请输入课程名：

Ifsubject="

basic"

Orsubject="

major"

soption"

speople"

sexperiment"

select*fromcreditorderby"

subject,cn,adOpenStatic,adLockOptimistic

msg=MsgBox（"

PrivateSubOption2_Click（）

Th