课程设计.docx
- 文档编号:12998721
- 上传时间:2023-06-10
- 格式:DOCX
- 页数:16
- 大小:710.84KB
课程设计.docx
《课程设计.docx》由会员分享,可在线阅读,更多相关《课程设计.docx(16页珍藏版)》请在冰点文库上搜索。
课程设计
《.NET程序设计》期末考试
(课程设计总结)
设计名称校友管理系统
组长杨自鹏
组员杨国强
指导教师付向东
班级 2014级计算机科学与技术
2016年6月28日
系统需求分析
目前,随着社会科技的高速发展,Internet逐渐融入人们的生活。
在这个高度网络化的社会中,网络通信成为相互联系的主要途径。
为了更好的建立联系以及及时更新信息,动态网页的发展迫在眉睫。
校友管理系统为校友之间相互联系提供了一个方便快捷的平台。
本文首先论述了校友管理系统的产生、现状和发展,以及SQLServer2005数据库管理系统的概况。
主要介绍了一个校友管理系统的实现过程:
包括系统的需求分析、系统设计、以及主要模块的详细设计。
主要模块的详细设计包括:
用户登陆模块、管理模块、留言模块、照片模块、查询模块等。
系统模块设计
本系统主要分为以下几个模块
图1设计界面
图2校友界面设计
图3管理员界面
系统功能介绍(包括部分程序代码)
图4登录界面
图5系统管理员主界面
图6管理员主界面右击一个子菜单
图7数据输入界面
图8音乐界面
图9校友管理主界面
部分程序代码:
1.登录界面:
ImportsSystem.Data.SqlClient
ImportsSystem.IO
PublicClass登录
PrivateSubButton2_Click(senderAsObject,eAsEventArgs)HandlesButton2.Click
Me.Close()
EndSub
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handlesbutton1.Click
apppath=Application.StartupPath
IfTestConnection()Then
DimstrsqlAsString="selectcount(*)fromdlwhere用户名='"&Trim(TextBox1.Text)&"'"&"and"&"密码='"&Trim(TextBox2.Text)&"'"&"and身份='"&ComboBox1.Text&"'"
objconn1.Open()
DimobjcmdAsNewSqlCommand(strsql,objconn1)
Dimn1AsInteger=objcmd.ExecuteScalar
objconn1.Close()
objcmd.Dispose()
Ifn1>0Then
xm=Trim(TextBox1.Text)
sf=ComboBox1.Text
Ifsf="校友"Then
wq=Trim(TextBox1.Text)
wq1=Trim(TextBox2.Text)
Dim校友界面AsNew校友界面
校友界面.ShowDialog()
EndIf
Ifsf="系统管理员"Then
wq=Trim(TextBox1.Text)
wq1=Trim(TextBox2.Text)
Dim管理员界面AsNew管理员界面
管理员界面.ShowDialog()
EndIf
Else
MsgBox("用户名或密码不对,无法登陆!
",MsgBoxStyle.DefaultButton1,"提示")
EndIf
Else
MsgBox("无法连接到数据库!
可能是网络的问题或数据库服务器有问题!
",MsgBoxStyle.DefaultButton1,"提示")
EndIf
EndSub
EndClass
2.音乐
PublicClass音乐
PrivateSubButton6_Click(senderAsObject,eAsEventArgs)HandlesButton6.Click
Try
Dimapppath1AsString
apppath1=Application.StartupPath+"C:
\Windows"
OpenFileDialog1.InitialDirectory=apppath1
OpenFileDialog1.Filter="music*.mp3)|*.mp3"
OpenFileDialog1.ShowDialog()
Me.AxWindowsMediaPlayer1.URL=OpenFileDialog1.FileName
CatchexAsException
MsgBox("未选择文件!
",,"提示")
EndTry
EndSub
PrivateSubButton4_Click(senderAsObject,eAsEventArgs)HandlesButton4.Click
Me.AxWindowsMediaPlayer1.close()
Me.Close()
EndSub
PrivateSubButton5_Click(senderAsObject,eAsEventArgs)HandlesButton5.Click
Me.AxWindowsMediaPlayer1.Ctlcontrols.play()
EndSub
PrivateSubButton3_Click(senderAsObject,eAsEventArgs)HandlesButton3.Click
Me.AxWindowsMediaPlayer1.Ctlcontrols.pause()
EndSub
EndClass
3、统计
ImportsSystem.Data.SqlClient
ImportsSystem.Drawing.Drawing2D
ImportsSystem.Math
PublicClass统计
DimdwsmAsInteger
Dimyxmc(30)AsString
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
DimiAsInteger
Dimxx(1,dwsm)AsString
Fori=1Todwsm
objconn1.Open()
DimsqlstrAsString="selectcount(*)from用户where学院='"&yxmc(i)&"'"
DimobjcmdAsNewSqlCommand(sqlstr,objconn1)
Dimn1AsInteger=objcmd.ExecuteScalar
xx(0,i)=yxmc(i)
xx(1,i)=n1
objconn1.Close()
objcmd.Dispose()
Next
ListBox1.Items.Clear()
Fori=1Todwsm
ListBox1.Items.Add(xx(0,i)+":
"+xx(1,i))
Next
'下面是画柱状图
PictureBox1.CreateGraphics.Clear(Color.WhiteSmoke)
DimgAsGraphics
g=PictureBox1.CreateGraphics
DimpAsNewPen(Color.Black)
Dimsb(5)AsObject
Dimsb1AsNewSolidBrush(Color.Red)
Dimsb2AsNewSolidBrush(Color.Blue)
Dimsb3AsNewSolidBrush(Color.Yellow)
Dimsb4AsNewSolidBrush(Color.Green)
Dimsb5AsNewSolidBrush(Color.Orange)
Dimsb6AsNewSolidBrush(Color.Black)
Dimsb7AsNewSolidBrush(Color.Chocolate)
Dimsb8AsNewSolidBrush(Color.Gold)
DimfAsNewFont("宋体",9,FontStyle.Regular)
Dimf11AsNewFont("宋体",9,FontStyle.Regular)
g.DrawLine(p,30,10,30,PictureBox1.Height-20)'画坐标
g.DrawLine(p,30,PictureBox1.Height-20,PictureBox1.Width-100,PictureBox1.Height-20)
DimjAsInteger'写图例
Forj=1Todwsm
g.DrawString(yxmc(j),f,sb6,PictureBox1.Width-110,20+(j-1)*20)
Next
g.FillRectangle(sb1,PictureBox1.Width-20,20,10,10)
g.FillRectangle(sb2,PictureBox1.Width-20,40,10,10)
g.FillRectangle(sb3,PictureBox1.Width-20,60,10,10)
g.FillRectangle(sb4,PictureBox1.Width-20,80,10,10)
g.FillRectangle(sb5,PictureBox1.Width-20,100,10,10)
g.FillRectangle(sb6,PictureBox1.Width-20,120,10,10)
g.FillRectangle(sb7,PictureBox1.Width-20,140,10,10)
'计算画柱状图比例因子
'Y轴的计算方法:
PictureBox1.Height=430上减去10,下减去20。
可利用高度为400
'数据在0-400比例因子是1
'数据在0-800比例因子是2
'数据在0-1200比例因子是3
'数据在0-1600比例因子是4
'数据在0-2000比例因子是5
'数据在0-2400比例因子是6
'数据在0-2800比例因子是7
'数据在0-3200比例因子是8
'X轴计算方法
'PictureBox1.with=510减去图示区110,可利用宽度为400
'以每个柱宽20,间隔30计算,最多可以有效显示7个,如果8个以上一个可以按照每增加一个,PictureBox1.with增加50的方法进行,当然所有控件的位置(left)都要
'做相应调整,窗体的全体宽度也要增加。
二是将每个柱的宽度和间隔做相应的调整。
如显示10个柱,可以每个柱宽20,间隔20计算。
Dimsjj(dwsm)AsInteger
Forj=1Todwsm
sjj(j)=PictureBox1.Height-Int(xx(1,j)/2)-20
Next
g.FillRectangle(sb1,40,sjj
(1),10,PictureBox1.Height-10-sjj
(1))
g.FillRectangle(sb2,100,sjj
(2),20,PictureBox1.Height-20-sjj
(2))
g.FillRectangle(sb3,150,sjj(3),20,PictureBox1.Height-20-sjj(3))
g.FillRectangle(sb4,200,sjj(4),20,PictureBox1.Height-20-sjj(4))
g.FillRectangle(sb5,250,sjj(5),20,PictureBox1.Height-20-sjj(5))
g.FillRectangle(sb6,300,sjj(6),20,PictureBox1.Height-20-sjj(6))
g.FillRectangle(sb7,350,sjj(7),20,PictureBox1.Height-20-sjj(7))
g.DrawString("学生人数统计图",f11,sb1,PictureBox1.Width-350,PictureBox1.Height-15)
'画刻度
Forj=1To5
g.DrawLine(p,30,PictureBox1.Height-(j-1)*100-20,PictureBox1.Width-115,PictureBox1.Height-(j-1)*100-20)
Next
'数据在0-800,Str((j-1)*200每200写一个刻度
'数据在0-1200,Str((j-1)*300每300写一个刻度
Forj=1To5
g.DrawString(Str((j-1)*200),f,sb6,3,PictureBox1.Height-(j-1)*100-25)
Next
f.Dispose():
sb1.Dispose():
p.Dispose():
g.Dispose():
sb2.Dispose():
sb3.Dispose():
sb4.Dispose():
sb5.Dispose()
EndSub
PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load
PictureBox1.Height=430'设PictureBox1的高为430
PictureBox1.Width=510
DimsttAsString
FileOpen("1",apppath+"\dwmc.txt",OpenMode.Input)
dwsm=0
DoWhileNotEOF
(1)
stt=LineInput
(1)
dwsm=dwsm+1
yxmc(dwsm)=stt
Loop
FileClose
(1)
EndSub
PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
Me.Close()
EndSub
EndClass
结束语(体会)
校友管理系统是一个典型的信息管理系统(MIS),,其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。
对于前者要求建立起数据一致性和完整性强、数据安全性好的库。
而对于后者则要求应用程序功能完备,易使用等特点。
在此基础上,我们在本次系统的开发中大胆创意,在校友管理系统中融入了休闲娱乐元素(包括音乐,视频),将人性化发挥到极致。
因此,我们深入的学习了除教材外的关于VB.net开发设计的书籍,也看过许多网上的.NET开发的在线视频和搜集了大量的相关学习资料。
没有这些基础我们是很难完成本系统的。
当然,遇到不懂的地方也请教同学,学长以及付老师。
在这里要感谢同学和学长以及付老师的悉心辅导与帮助。
并对SQLServer数据库技术进行了较深入的实际应用,主要完成对校友管理系统的功能模块划分、数据库模式分析,并由此设计了数据库结构和应用程序。
在这次系统设计中,自己在参考老师给出的abc系统的同时,大胆创新,在完善其的基础上更有自己心中想表达的元素融入。
使系统更人性化,美观、漂亮、易操作。
在没做系统前,对VB.NET都只是有个粗略的了解,学习到的知识也比较分散。
在这次做系统的过程中发现自己所了解的相关知识还有很多方面的欠缺,就通过查阅相关书籍和在网上查询相关信息等多个渠道对VB.NET有了个更深入的认识,查询了相关系统设计思路,从中了解到了系统设计的很多注意事项和相关要求等等,在整个系统的设计过程中,自己的知识面得到了很大的提高,也改变了我原来对系统设计的一些错误认识,更重要的是在通过这次系统设计增强了我用VB.NET进行软件开发的浓厚兴趣。
在此系统的开发过程中,由于自己是初次用VB.NET开发类似软件,在知识和经验上存在很多不足。
从这次的实践操作中我们学到了很多书本上没有的东西,在以后的学习之中我们会更加努力、多动手,多动脑做些软件来强化专业知识。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 课程设计