毕业生实习管理系统

石家庄铁道大学四方学院

集中实践报告书

课题名称 毕业生实习管理系统

姓 名 学 号 系、 部 土木工程

专业班级 指导教师

刘仁芬

2015年 6月 25 日

※※※※※※※※

※ ※※ ※

※ ※

※

※

※

※

※

※※※※※

2014级

高级语言程序设计

毕业生实习系统的开发

1选题的意义

根据设计要求中的尽可能设计的直观漂亮，所以基本包括5个窗体：首页，算法选择，冒泡法，比较法，选择法，通过控件之间的变换来演示排序的过程，已达到简单明了

2 系统功能需求分析

2.1系统概述

图1 总体模块图

2.2系统的组成及各模块的功能

（1）系统由两个界面组成，登录和菜单界面。

（2）登录界面：学生、老师及管理者能够通过密码进入和退出系统界面。

（3）菜单界面：能直观显示多个功能，以下就是该功能的简述。

1. 学生：对应相应的公司工资及其组别

2．老师：根据分组管理不同的学生组别

3. 管理者：根据其工号管理其学生以及管理项目

4. 老师布置的任务内容

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

密码数字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()

Command4.Caption = Time$()

End Sub

Private Sub Command5_Click()

If MsgBox("确定退出管理系统？", _

vbQuestion + vbYesNo + vbDefaultButton2, "警告！") = vbYes Then End

End If

End Sub

4.2其他模块的设计与实现

图3 教师登录界面

Private Sub Command1_Click()

Unload Me

Form7.Show

End Sub

Private Sub Command2_Click()

Unload Me

Form10.Show

End Sub

Private Sub Command3_Click()

Unload Me

Form2.Show

End Sub

图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

图5 老师查询界面

Private Sub Command1_Click()

Dim mnon As String

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

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"

mandType = adCmdTable

Adodc1.RecordSource = "学生"

Adodc1.Refresh

End Sub

Private Sub Text1_Change()

End Sub

图6 管理操作系统