- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
河北联合大学
2013-2014 第 2 学期
《软件设计基础-VBeNet》
课程设计扌艮告
设计名称: 教师信息档案管理系统
姓 名: 学号
专业班级: 12通信工程
学 院: 信息工程学院
设计时间: 2014年5月20日至2014年7月1日
设计地点:
指导教师评语:
教师评定: 自评成绩:65
指导教师签字:
年 月 日
目 录
课程设计目的
课程设计任务与要求
课程设计说明书
课程设计成果
5 ?程序调试过程
6.设计问题的不足和改进方案
?课程设计心得
?附录
?参考文献
1?课程设计目的
《软件设计基础-VB.net》课程设计是这门课程的实践性教学环节之一,本次设计结合实际应用 的要求,使课程设计既覆盖VB.net的知识点,又接近工程实际需要。目的是通过课程设计的综合训 练,培养学生实际分析问题、解决问题的能力,以及编程和动手能力,最终目标是通过课程设计这种 形式,帮助学生系统掌握VB.net这门课程的主要内容,养成良好的编程习惯,更好的完成教学任务。
课程设计任务与要求:
要求:
本次课程设计利用《软件设计基础?VBmct》课程屮所学到的编程知识和编程技巧,完成具有一 定难度和工作量的程序设计题目,帮助学生掌握编程、调试的基本技能,独立完成所布置的任务。 要求:
1、 对系统进行功能需求分析
2、 设计合理的数据结构和系统框架
3、 界面设计美观、清楚、合理
4、 编程简练,程序功能齐全,能正确运行
5、 具有一定的创新性
6、 说明书、流程图要清楚
7、 课题完成后必须按要求提交课程设计报告
任务:
1、 利用菜单、工具栏和控件完成设计。
2、 使用数据库保存教师档案等信息
3、 界面友好(良好的人机交互),程序加必要的注释。
4、 建立一个登录界面,输入用户名和密码。登录后进入系统。密码输入有三次机会, 如果三次密码都不正确将直接退出程序。
课程设计说明书
⑴功能描述
1、 每位教师登陆后,可登记自己的档案信息,包括基木信息、承担教学情况、发表 教研论文、出版教材、承担教改课题、参加教学研究会议、发表科研论文、承担科研项 目、参加学术会议等情况
2、 可查看自己每年度的档案信息,并可打印
管理人员:
1、 可查看每位教师的档案信息,并可打卬
2、 可按教师姓名、系别、职称、性别等查看教师档案信息
3、 可按系别、职称等统计教师发表论文、出版教材、课题、参加会议的情况,并以 报表形式打印出來。
模块结构图:
根据功能分析,建立系统的体系结构,即将整个系统分解成若干子模块,用框图表示各功能 模块之问的接口关系。
教师信息档案管理系统
班迈笞理 数师档案管吗 渓逞言理|成绩管理档 窒加*|墓? 本程设
班迈笞理 数师档案管吗 渓逞言理|
成绩管理
档 窒
加
*
|
墓? 本
程
设
设
2
5
档 秦 査 诲
?信息添加
信息測览
⑶详细设计
总体流程图:
各功能模块流程图:
⑷代码实现
Private Sub Commandl_Click()
Dim mrc As ADODB. Recordset
txtsql = select username from use where username二
Set mrc = ExecuteSQL(txtsql)
If mrc. EOF = True Then
MsgBox 用户名错误! vbExclamation + vbOKOnly,
Textl.SelStart = 0
Textl.SelLength = Len (Textl.Text)
Exit Sub
End If
username = mrc ?F ields(O)
txtsql2 = select username from use where password二
Set mrc = ExecuteSQL(txtsql2)
If mrc. EOF = True Then
MsgBox 密码错误! vbExclamation + vbOKOnly,
Trim(Textl. Text)
〃警告〃 Textl. SetFocus
Trim(Text2. Text) 〃‘
警告〃
Text2.SelStart = 0
Text2.SelLength 二 Len(Text2.Text)
Exit Sub
End If
txtsql 二select username from use where username=, Trim(Textl. Text) 〃‘ and password二〃 Trim(Text2. Text)
Set mrc 二 ExecuteSQL (txtsql)
If mrc. EOF 二 True Then
MsgBox 〃用户名称和密码不兀
原创力文档


文档评论(0)