毕业生实习管理系统

《毕业生实习管理系统》由会员分享，可在线阅读，更多相关《毕业生实习管理系统（14页珍藏版）》请在金锄头文库上搜索。

1、浓 浓 浓 浓 浓浓 京 京 京 浓京浓浓京京京浓2014 级高级语言程序设计京浓浓京京京浓石家庄铁道大学四方学院集中实践报告书课题名称毕业生实习管理系统姓名学号系、部土木工程专业班级指导教师刘仁芬2015年6月25日一、设计任务及要求：二、设计任务：毕业生实习管理系统要 求：毕业生实习管理系统旨在建立一个管理毕业生实习的系统，使学校管理 毕业生统一规范，提高了学校对毕业生的管理，能及时准确的查看毕业生的实习情 况。(1) 管理模块。主要实现用户的管理。(2) 学生管理模块。学生进入系统完成指导老师分配的实习任务汇报工作。(3 )教师管理模块。实习指导教师进入系统主要是掌握学生的实习动态。二、

2、指导教师评语:三、成绩指导教师签名：年 月 日毕业生实习系统的开发1选题的意义根据设计要求中的尽可能设计的直观漂亮，所以基本包括5个窗体：首页，算法 选择，冒泡法，比较法，选择法，通过控件之间的变换来演示排序的过程，已达到简 单明了2系统功能需求分析2.1系统概述图1总体模块图2.2系统的组成及各模块的功能（1）系统由两个界面组成，登录和菜单界面。（2）登录界面：学生、老师及管理者能够通过密码进入和退出系统界面。（3）菜单界面：能直观显示多个功能，以下就是该功能的简述。1. 学生：对应相应的公司工资及其组别2. 老师：根据分组管理不同的学生组别3. 管理者：根据其工号管理其学生以及管理项目4.

3、 老师布置的任务内容2.3系统的运行环境VisualBasic软件编程操作系统：Windows XP系统支持：Visual Basic 6.0及以上版本支持库数据库：SQL数据库硬件环境处理器：Intel Pentium 166MX或更高.硬盘：剩余使用空间1GB以上.内存：32MB以上.显卡：SVGA显示配置器.3系统设计3.1数据库实现表1学生信息表字段名类型宽度备注姓名文本10主键自动增长账号数字15密码数字20公司文本20工资数字10组别数字10表2老师信息表字段名类型宽度备注姓名文本50账户数字20密码数字10组别数字10表3管理者信息表字段名类型宽度备注姓名文本50账户数字20密码

4、数字10工号数字204系统实现4.1登录模块的设计与实现ia毕业生实习管理系统图2管理系统登陆界面Private Sub Command1_Click()Unload MeForm3.ShowEnd SubPrivate Sub Command2_Click()Unload MeForm2.ShowEnd SubPrivate Sub Command3_Click()Unload MeForm4.ShowEnd SubPrivate Sub Data1_Validate(Action As Integer, Save As Integer)End SubEnd SubPrivate Sub T

5、imer1_Timer()Command4.Caption = Time$()End SubPrivate Sub Command5_Click()If MsgBox(确定退出管理系统？ ”,_vbQuestion + vbYesNo + vbDefaultButton2,警告！)= vbYes ThenEndEnd IfEnd Sub4.2其他模块的设计与实现a教悻登踞界-面图3教师登录界面Private Sub Command1_Click()Unload MeForm7.ShowEnd SubPrivate Sub Command2_Click()Unload MeI e=- . Led

6、 ，壁图4学生登录界面Private Sub File1_Click()End SubPrivate Sub Data1_Validate(Action As Integer, Save As Integer)End SubPrivate Sub Command1_Click()Unload MeForm3.ShowEnd SubPrivate Sub Text1_Change()End SubiDnn -M- E 3 3Form10.ShowEnd SubPrivate Sub Command3_Click()Unload MeForm2.ShowEnd SubPrivate Sub Com

7、mand1_Click()Dim mnon As StringDim mno As Stringmno = InputBox(请输入学号”，”查找窗”)Adodc1.RecordSource = select * from 学生 where 学号=&mno&End SubPrivate Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)End SubPrivate Sub Command2_Click()Dim mnon As Stringmnon = InputBox(请输入姓名”，查找窗”)Adodcl.Reco

8、rdSource = select * from 学生 where 姓名=& mnon&End SubPrivate Sub Command3_Click()Unload MeForm5.ShowEnd SubPrivate Sub Form_Load()Adodcl.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:Documents andSettingsAdministratorMy Documentsdb1.mdb;Persist Security Info=FalseAdodcl.CommandType

9、 = adCmdTableAdodc1.RecordSource =学生Adodc1.RefreshEnd SubPrivate Sub Text1_Change()End Subr-g. -K-iarn SiHflni uM1 I ISO I 和Private Sub cmdFirst_Click()Adodcl.Recordset.MoveFirstEnd SubPrivate Sub cmdLast_Click()Adodc1.Recordset.MoveLastEnd SubPrivate Sub cmdNext_Click()Adodc1.Recordset.MoveNextEnd

10、SubPrivate Sub cmdPrevious_Click()Adodc1.Recordset.MovePreviousEnd Sub回 实图7管理操作系统Private Sub Command1_Click()On Error Resume NextCommand2.Enabled = Not Command2.EnabledCommand3.Enabled = Not Command3.EnabledCommand4.Enabled = Not Command4.EnabledIf Command1.Caption =新增”ThenCommandl.Caption =确认”Adodc

11、l.Recordset.AddNewTextl.SetFocusElseCommand1.Caption =新增”Adodc1.Recordset.UpdateAdodc1.Recordset.MoveLastEnd IfEnd SubPrivate Sub Command2_Click()On Error Resume NextAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF ThenAdodc1.Recordset.MoveLastEnd ifEnd Subn回 S3图8按学号查询结果Privat

12、e Sub Command3_Click()On Error Resume NextCommandl.Enabled = Not Commandl.EnabledCommand2.Enabled = Not Command2.EnabledCommand4.Enabled = Not Command4.EnabledIf Command3.Caption =修改”ThenCommand3.Caption =确认”Adodcl.Recordset.RequeryTextl.SetFocusElseCommand3.Caption =修改”Adodc1.Recordset.UpdateEnd If

13、End SubPrivate Sub Command4_Click()Unload MeForm8.ShowEnd SubPrivate Sub Form_Load()Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:Documents andSettingsAdministratorMy Documentsdb1.mdb;Persist Security Info=False”Adodc1.CommandType = adCmdTableAdodc1.RecordSource =学生”Adodc1

14、.RefreshEnd SubPrivate Sub Label6_Click()End Sub0 萱iW回 I E通凹 一一四L小t IEE图9按学生姓名查询结果界面Private Sub Command1_Click()Adodcl.Recordset.AddNewEnd SubPrivate Sub Command2_Click()Adodc1.Recordset.UpdateEnd SubPrivate Sub Command3_Click()Unload MeForm5.ShowEnd Sub.- 侦tj图10按学生姓名查询结果界面Private Sub Form_Load()Adodc1.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:Documents andSettingsAdministrato