毕业生实习管理系统

Private Sub Command1_Click() Dim mnon As String
图 5 老师查询界面
Dim mno As String mno = InputBox("请输入学号", "查找窗") Adodc1.RecordSource = "select * from 学生 where 学号=' &mno&'" End Sub Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single) End Sub
表 3 管理者信息表
类型
宽度
文本
50
数字
20
数字
10
数字
20
备注
4 系统实现
4.1 登录模块的设计与实现
图 2 管理系统登陆界面 Private Sub Command1_Click() Unload Me Form3.Show End Sub Private Sub Command2_Click() Unload Me Form2.Show End Sub Private Sub Command3_Click() Unload Me Form4.Show End Sub Private Sub Data1_Validate(Action As Integer, Save As Integer) End Sub Private Sub Picture1_Click() End Sub Private Sub Timer1_Timer()
Command1.Caption = "确认" ห้องสมุดไป่ตู้dodc1.Recordset.AddNew
Text1.SetFocus Else
Command1.Caption = "新增" Adodc1.Recordset.Update Adodc1.Recordset.MoveLast End If End Sub Private Sub Command2_Click() On Error Resume Next Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast End if End Sub
图 8 按学号查询结果
Private Sub Command3_Click() On Error Resume Next
Command1.Enabled = Not Command1.Enabled Command2.Enabled = Not Command2.Enabled
4.2 其他模块的设计与实现
Private Sub Command1_Click() Unload Me Form7.Show End Sub Private Sub Command2_Click() Unload Me Form10.Show End Sub
图 3 教师登录界面
Private Sub Command3_Click() Unload Me Form2.Show End Sub
5.2 存在的主要问题 编程有时不能顺利进行 由于水平有限，导致一些数据不能够正常运行，代码连接不够恰当。特别是在调
Command4.Enabled = Not Command4.Enabled If Command3.Caption = "修改" Then
Command3.Caption = "确认" Adodc1.Recordset.Requery Text1.SetFocus Else Command3.Caption = "修改" Adodc1.Recordset.Update End If End Sub Private Sub Command4_Click() Unload Me Form8.Show End Sub Private Sub Form_Load() Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\My Documents\db1.mdb;Persist Security Info=False" Adodc1.CommandType = adCmdTable Adodc1.RecordSource = "学生" Adodc1.Refresh End Sub Private Sub Label6_Click() End Sub
Command4.Caption = Time$() End Sub Private Sub Command5_Click() If MsgBox("确定退出管理系统？", _
vbQuestion + vbYesNo + vbDefaultButton2, "警告！") = vbYes Then End End If End Sub
Private Sub Command2_Click() Dim mnon As String
mnon = InputBox("请输入姓名", "查找窗") Adodc1.RecordSource = "select * from 学生 where 姓名=' & mnon&'" End Sub Private Sub Command3_Click() Unload Me Form5.Show End Sub Private Sub Form_Load() Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\My Documents\db1.mdb;Persist Security Info=False" Adodc1.CommandType = adCmdTable Adodc1.RecordSource = "学生" Adodc1.Refresh End Sub Private Sub Text1_Change() End Sub
※※※※※※※※※
※
※
2014 级
※
※
高级语言程序设计
※
※
※※※※※※※※※
石家庄铁道大学四方学院
集中实践报告书
课题名称 姓名 学号 系、 部 专业班级 指导教师
毕业生实习管理系统
土木工程 刘仁芬
2015 年 6 月 25 日
一、 设计任务及要求： 二、 设计任务：毕业生实习管理系统 要 求：毕业生实习管理系统旨在建立一个管理毕业生实习的系统，使学校管理
毕业生实习系统的开发
1 选题的意义
根据设计要求中的尽可能设计的直观漂亮，所以基本包括 5 个窗体：首页，算法 选择，冒泡法，比较法，选择法，通过控件之间的变换来演示排序的过程，已达到简 单明了
2 系统功能需求分析
2.1 系统概述
系统登陆
毕业生实习管理系统
学
老
管
注
生
师
理
销
员
图 1 总体模块图
2.2 系统的组成及各模块的功能 （1）系统由两个界面组成，登录和菜单界面。 （2）登录界面：学生、老师及管理者能够通过密码进入和退出系统界面。 （3）菜单界面：能直观显示多个功能，以下就是该功能的简述。 1. 学生：对应相应的公司工资及其组别 2．老师：根据分组管理不同的学生组别 3. 管理者：根据其工号管理其学生以及管理项目 4. 老师布置的任务内容
Private Sub cmdFirst_Click() Adodc1.Recordset.MoveFirst
图 6 管理操作系统
End Sub Private Sub cmdLast_Click() Adodc1.Recordset.MoveLast End Sub Private Sub cmdNext_Click() Adodc1.Recordset.MoveNext End Sub Private Sub cmdPrevious_Click() Adodc1.Recordset.MovePrevious End Sub
2.3 系统的运行环境 VisualBasic 软件编程 操作系统：Windows XP 系统支持：Visual Basic 6.0 及以上版本支持库
数据库：SQL 数据库 硬件环境
处理器：Intel Pentium 166MX 或更高 硬盘：剩余使用空间 1GB 以上 内存：32MB 以上 显卡：SVGA 显示配置器
5 设计体会
5.1 总结 算法的验证部分大部分用的是教材或书中的实例，在通过查阅资料，询问老师等
方法下完成的，可以进行简单的比较、排序。算法的计算系统讲解算法的过程、原理， 比较适用于初学者。
通过课程设计，进一步提高了分析问题、解决问题的能力，同时也提高了逻辑分 析的能力，对 VB 进行更系统的掌握。其中的启示是除了有关于课程设计的内容外， 还应该学习和了解其他部分的内容，使学习更加广泛，对知识的掌握更透彻。建议是 在设计时结合其他类型的课程设计，使自己的课程设计更具综合性，使用效能更高。
图 10 按学生姓名查询结果界面 Private Sub Form_Load() Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\My Documents\db1.mdb;Persist Security Info=False" Adodc1.CommandType = adCmdUnknown Adodc1.RecordSource = "任务" Adodc1.Refresh End Sub Private Sub Label1_Click() End Sub
图 7 管理操作系统
Private Sub Command1_Click() On Error Resume Next Command2.Enabled = Not Command2.Enabled Command3.Enabled = Not Command3.Enabled Command4.Enabled = Not Command4.Enabled If Command1.Caption = "新增" Then
图 4 学生登录界面 Private Sub File1_Click() End Sub Private Sub Data1_Validate(Action As Integer, Save As Integer) End Sub Private Sub Command1_Click() Unload Me Form3.Show End Sub Private Sub Text1_Change() End Sub
3 系统设计
3.1 数据库实现
表 1 学生信息表
字段名 姓名 账号 密码 公司 工资 组别
类型 文本 数字 数字 文本 数字 数字
宽度 10 15 20 20 10 10
备注 主键 自动增长
字段名 姓名 账户 密码 组别
表 2 老师信息表
类型
宽度
文本
50
数字
20
数字
10
数字
10
备注
字段名 姓名 账户 密码 工号
毕业生统一规范，提高了学校对毕业生的管理，能及时准确的查看毕业生的实习情 况。
(1)管理模块。主要实现用户的管理。 (2)学生管理模块。学生进入系统完成指导老师分配的实习任务汇报工作。 (3)教师管理模块。 实习指导教师进入系统主要是掌握学生的实习动态。
二、指导教师评语：
三、成绩
指导教师签名：
年
月日
图 9 按学生姓名查询结果界面 Private Sub Command1_Click() Adodc1.Recordset.AddNew
End Sub Private Sub Command2_Click() Adodc1.Recordset.Update End Sub Private Sub Command3_Click() Unload Me Form5.Show End Sub