公司办公费用信息管理系统Company number【1089WT-1898YT-1W8CB-9UUT-92108】学号：7234 成绩：________武汉科技大学城市学院课程设计报告院系信息科学与工程系专业计算机科学与技术年级班 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.2.1选中管理员登录后便进入管理员服务界面1.2.2选中用户登录后便进入用户服务界面1.2.3点注册弹出注册界面，注册成功可返回登录界面管理员服务界面可以进行办公费用查询，办公费用添加、删除，本用户密码修改。
1.3.1本用户密码修改管理员通过输入和确认新密码来更改自己的密码。
1.3.2办公费用添加、删除选此项后弹出选择费用修改类型，管理员可以查询，删除，添加费用信息，在VB界面中修改了数据库中的信息。
1.3.3办公费用查询管理员可以根据部门的编号进行查询，可以查询申请和支出两种费用。
用户界面用户可以进行本用户密码的修改，查看零件信息和工程项目使零件情况。
1.4.1本用户密码修改用户通过输入和确认新密码来更改自己的密码。
1.4.2办公费用申请用户进入界面后可输入信息进行费用申请。
1.4.3办公费用信息查询用户可以根据部门的编号进行查询，可以查询申请和支出两种费用。
2．公司办公费用管理信息系统图欢迎界面图登录界面图新用户注册界面图管理员服务界面表管理员服务界面属性表对象属性设定值Option1Caption本用户密码修改Option2Caption办公费用添加、删除Option3caption办公费用查询图用户服务界面表用户服务界面属性表对象属性设定值Option1Caption本用户密码修改Option2Caption办公费用申请Option3caption办公费用信息查询图用户/管理员密码修改界面图办公费用申请界面图办公费用查询界面(用户/管理员)表办公费用查询界面属性表对象属性设置值Dadagrid1datasource Adodc1 Adodc1Caption Adodc1Commandstring DSN=chenzhaoCommandtype2-adcmdtableRecordsource PartmentVisible false图费用修改类型选择图申请费用修改界面表申请费用修改界面属性表对象属性设置值Adodc1Caption Adodc1Commandstring DSN=chenzhaoCommandtype2-adcmdtableRecordsource ApplicationVisible falseAdodc2Caption Adodc2Commandstring DSN=chenzhaoCommandtype2-adcmdtableVisible falseRecordsource Control图支出费用修改界面表支出费用界面属性表对象属性设置值dadagrid Datasource Adodc1 Adodc1Caption Adodc1Commandtype2-adcmdtableRecordsource OutVisible falseAdodc2Caption Adodc2Commandtype2-adcmdtableRecordsource OutVisible false图 MDI主窗体界面3．公司办公费用管理信息系统数据库设计公司办公费用管理信息系统总共有六张表：用户信息表单、部门信息表单、办公费用申请表单、办公费用类别表单、办公费用控制表单、办公费用支出明细表单。
表用户信息表Users表部门信息表Partment表办公费用申请表Application表办公费用类别表Type表办公费用控制表Control表办公费用支出明细表Out4．公司办公费用管理信息系统程序设计（部分代码）欢迎界面欢迎界面是整个系统的首页，用户可通过它进入到登录系统。
登录界面进入此界面后，使用者可根据自己的身份选择登录方式。
普通用户选择用户登录，管理员选择管理员登录。
如果是新用户，直接点注册。
代码如下：Dim a As IntegerPrivate Sub Command1_Click()a =While a = 0If Len > 0 Then= adCmdText= "select uname from users where uname = '" & Trim & "' and Utype = '" & "用户" & "'"ElseMsgBox "请填写用户名"Exit SubEnd IfIf = True ThenMsgBox "姓名错误!", 48, "warning!"= ""= ""Exit SubEnd IfIf Len > 0 Then= adCmdText= "select ukey from users where uname = '" & Trim & "'"ElseMsgBox "请填写密码"Exit SubEnd IfIf StrComp(Trim"ukey").Value), Trim <> 0 ThenMsgBox "密码错误!", 48, "warning"= ""Exit SubElseMsgBox "登录成功"Exit SubEnd IfWendWhile a = 1If Len > 0 Then= adCmdText= "select uname from users where uname = '" & Trim & "' and Utype = '" & "管理员" & "'"ElseMsgBox "请填写用户名"Exit SubEnd IfIf = True ThenMsgBox "姓名错误!", 48, "warning!"= ""Exit SubEnd IfIf Len > 0 Then= adCmdText= "select ukey from users where uname = '" & Trim & "'" ElseMsgBox "请填写密码"Exit SubEnd IfIf StrComp(Trim"ukey").Value), Trim <> 0 ThenMsgBox "密码错误!", 48, "warning"= ""Exit SubElseMsgBox "登录成功"Exit SubEnd IfWendPrivate Sub Command2_Click()Dim a As Integera = MsgBox("您真的要退出吗", 305, "提示")If a = 1 ThenEndEnd IfEnd SubPrivate Sub Command3_Click()End SubPrivate Sub Form_Load()"用户""管理员"= (0)= ""= ""End Sub用户服务界面用户登录进去后，可以到用户服务界面选择自己所需的服务，该界面为用户提供了三种服务，分别是“本用户密码的修改”，“办公费用信息查询”和“办公费用申请”。
管理员服务界面管理员登录进去后，可以到管理员服务界面选择自己所需的服务，该界面为管理员提供了三种服务，分别是“本用户密码的修改”，“办公费用信息查询”和“办公费用添加、删除”。