公司办公费用信息管理系统

学号：成绩：________

武汉科技大学城市学院

课程设计报告

院系信息科学与工程系

专业计算机科学与技术

年级班 06级计科二班

课程名称数据库应用与原理

设计题目公司办公费用信息管理系统

姓名陈钊

指导教师朱倩

2008年 6 月 27 日

设计题目:

公司办公费用管理信息系统设计

设计主要内容:

一、开发平台：VB+ SQL SERVER 2000

二、功能要求：

1、设计内容

设计一个公司办公费用管理信息系统，该系统的用户由一般用户和管理员组成，然后不同的用户拥有不同的权限，各自完成各自的管理功能，首先是欢迎界面，然后选择登录，登录的时候首先要判断用户的身份，合法的用户然后进入到系统主界面中，不同的用户看到不同的系统功能。用sql server2000创建后台数据库，然后利用程序设计语言（VB）编写程序实现对数据库的操作，按照要求完成所有的功能和模块。

2、公司办公费用管理信息系统主要功能

（1）用户管理：用户登录界面、用户注册界面、办公费用申请界面、办公费用信息查询界面、本用户密码的修改界面

（2）管理员管理：管理员登录界面、办公费用查询界面、办公费用添加、删除界面、本用户密码修改界面。

3、公司办公费用管理信息系统数据库表单（可以按照需求增加）

（1）用户信息表单：用户名、密码、用户身份（管理员和普通用户）

（2）部门信息表单：部门编号、部门名称、部门负责人、联系电话、电子邮件、备注（3）办公费用申请表单：序号、费用编号（外码）、费用金额、部门编号（外码）、申请年月、是否通过审核、备注

（4）办公费用类别表单：费用编号、费用名称

（5）办公费用控制表单：部门编号（外码）、年份、本年预算、本年累计支出

（6）办公费用支出明细表单：序号、费用编号（外码）、费用金额、部门编号（外码）、支出日期

三、课程设计报告主要内容：

1公司办公费用管理信息系统需求分析（给出系统功能模块图，对各功能作出详细介

绍）

2公司办公费用管理信息系统界面设计（给出界面截图及其主要控件的属性设置表格，并给出各界面的详细代码）

3公司办公费用管理信息系统数据库设计（给出数据库各个表单中数据的字段名，数据类型及其相应的说明）

4公司办公费用管理信息系统程序设计（功能模块给出详细的程序代码，重点语句的注释）

1.公司办公费用管理信息系统需求分析

图1.1零件交易管理信息系统

1.1欢迎界面

系统启动之后便可进入欢迎界面，单击“系统登陆”按钮便可进入选择登陆界面。

1.2登录界面

1.2.1选中管理员登录后便进入管理员服务界面

1.2.2选中用户登录后便进入用户服务界面

1.2.3点注册弹出注册界面，注册成功可返回登录界面

1.3管理员服务界面

可以进行办公费用查询，办公费用添加、删除，本用户密码修改。

1.3.1本用户密码修改

管理员通过输入和确认新密码来更改自己的密码。

1.3.2办公费用添加、删除

选此项后弹出选择费用修改类型，管理员可以查询，删除，添加费用信息，在VB界面中修改了数据库中的信息。

1.3.3办公费用查询

管理员可以根据部门的编号进行查询，可以查询申请和支出两种费用。

1.4用户界面

用户可以进行本用户密码的修改，查看零件信息和工程项目使零件情况。

1.4.1本用户密码修改

用户通过输入和确认新密码来更改自己的密码。

1.4.2办公费用申请

用户进入界面后可输入信息进行费用申请。

1.4.3办公费用信息查询

用户可以根据部门的编号进行查询，可以查询申请和支出两种费用。

2．公司办公费用管理信息系统

图2.1 欢迎界面

图2.2 登录界面

图2.3 新用户注册界面

图2.4 管理员服务界面

表2.1 管理员服务界面属性表

图2.7 办公费用申请界面

图2.8 办公费用查询界面(用户/管理员)

图2.10 申请费用修改界面

3．公司办公费用管理信息系统数据库设计

公司办公费用管理信息系统总共有六张表：用户信息表单、部门信息表单、办公费用申

请表单、办公费用类别表单、办公费用控制表单、办公费用支出明细表单。

表3.1 用户信息表Users

4．公司办公费用管理信息系统程序设计（部分代码）

4.1欢迎界面

欢迎界面是整个系统的首页，用户可通过它进入到登录系统。

4.2登录界面

进入此界面后，使用者可根据自己的身份选择登录方式。普通用户选择用户登录，管理员选择管理员登录。如果是新用户，直接点注册。代码如下：

Dim a As Integer

Private Sub Command1_Click()

a = Combo1.ListIndex

While a = 0

If Len(Text1.Text) > 0 Then

mandType = adCmdText

Adodc1.RecordSource = "select uname from users where uname = '" & Trim(Text1.Text) & "' and Utype = '" & "用户" & "'"

Adodc1.Refresh

Else

MsgBox "请填写用户名"

Exit Sub

End If

MsgBox "姓名错误!", 48, "warning!"

Text1.Text = ""

Text2.Text = ""

Exit Sub

End If

If Len(Text2.Text) > 0 Then

mandType = adCmdText

Adodc1.RecordSource = "select ukey from users where uname = '" & Trim(Text1.Text) & "'"

Adodc1.Refresh

Else

MsgBox "请填写密码"

Exit Sub

End If

MsgBox "密码错误!", 48, "warning"

Text2.Text = ""

Text2.SetFocus

Exit Sub

Else

MsgBox "登录成功"

Form4.Show

Form2.Hide

Exit Sub

End If

Wend