VB课程设计报告_5.docVIP

VB课程设计报告 课程题目 企业职工工资管理系统 课程名 面向对象程序设计 任课教师 *** 姓名 *** 学号 ******** 专业 ******** 一 课程设计目的 通过一学期多个学时的学习,对VB这种语言有了一定的了解，VB是一种半面向对象的程序设计语言，而VB.NET是一种完全面向对象的编程语言，学好VB对进一步的学习大有裨益，而课程设计是最能深入应用所学知识，发现不足和错误的最好方式。通过课程设计，加强对算法、语法、程序结构等的综合应用，培养独立自主的开发能力及善于思考问题并与别人交流的能力，更重要的是开发过程当中激发创新思维的火花。 二 课程设计的题目与简介 本次课程设计的题目是企业工资管理系统。在现代经济高速发展的大背景下，企业充当着经济发展的载体和驱动器，而企业职工工资管理的好坏直接影响着企业的健康发展，因此一个有长远眼光和伟大战略的企业必然要建立起高效、准确的职工管理系统，来应对市场对人才的争夺，更好的留住人才、发展人才。 由于自身能力有限，所设计的工资管理系统比较简单，功能不强。本系统连接的是ACCESS数据库，共两张表，分别是职工个人信息表和职工工资信息表，并利用vb的优势设计各个窗体以完成增、删、查、改等功能。 三 设计说明 企业职工工 企业职工工 资管理系统 增加元组 删除元组 修改属性值 查询元组 密码登陆，进入系统 选择菜单，退出系统 Ⅰ：总体说明 本系统共设计了15个窗体，除一个多文档窗体MDI和一个启动登陆窗体外，其余13个窗体均是MDI窗体的子窗体，所有的增删查改功能实现均在MDI窗体内实现。进入登陆界面后，经准确输入用户名和密码后，系统将进入MDI窗体，允许用户进行增、删、查、改等操作，最后用户通过单击菜单项—退出，将完成退出系统操作。 Ⅱ：数据库说明 在设计操作当中，用MICROOSOFT ACCESS 设计的数据库，在VB窗体中添加DATA 控件，系统提示不是有效的路径，而经检查数据库的路径是准确的，因此用VB自带的外接程序来设计ACCESS数据库，经DATA控件试验可以正常使用 。本系统共建立了职工个人信息表和职工工资表，信息叫少，也比较简单。 Ⅲ：窗体设计 本系统共设计了15个窗体，每个窗体都有一定数目的控件和代码来完成不同的功能。 用一个MDI多文档窗体来内涵需要完成增、删、查、改和报表输出等功能的子窗体，并利用VB的菜单编辑器来设计菜单，以友好的界面来等待用户的访问，做到与一个应用程序相似的设计。用户每单击相应的功能菜单项就会弹出相应的窗体，只须在MDI窗体编写代码 Load 窗体名 – 窗体名.show 即可完成窗口弹出操作。 Ⅳ：运行调试 运行环境是VB6.0，在实际编程当中，通过设置断点等方法查找逻辑错误，使序能够按照设想正确运行出来。难以解决的问题通过上网查资料，查阅书籍，询问同学都得到了有效地解决。 四 源代码及运行结果 1登陆界面 本系统登陆允许用户有四次机会，如果超过四次，系统自动退出，其代码如下： Private Sub Command1_Click() Dim a As Integer, b As Integer, secret As Integer, c As String secret = 12151 masg1$ = 您确认要登录系统吗? masg2$ = 登录系统确认 a = MsgBox(masg1$, 35, masg2$) If a = 6 Then c = CStr(InputBox(请用户输入登陆账号, 用户登陆, 用户名)) If c = tree Then b = Val(InputBox(请用户输入登陆密码, 用户密码登陆, secret)) If b = secret Then Load MDIForm1 MDIForm1.Show form2.Hide ElseIf b secret Then MsgBox 您还有三次机会, 48, 错误 masg3$ = 抱歉，您输入密码有误，请重新输入 masg4$ = 密码重新输入 i = i% + 1 c = MsgBox(masg3$, 50, masg4$) If c = 4 Then b = Val(InputBox(请用户输入登陆密码, 用户密码登陆, secret)) If b = secret Then Load MDIForm1 如果密码输入正确，则装载多文档窗体 MDIForm1.Show 显