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

上传人:leixi****n2022 文档编号:278157106 上传时间:2022-04-16 格式:DOC 页数:26 大小:824.50KB
返回 下载 相关 举报
公司企业办公费用信息管理系统_第1页
第1页 / 共26页
公司企业办公费用信息管理系统_第2页
第2页 / 共26页
公司企业办公费用信息管理系统_第3页
第3页 / 共26页
公司企业办公费用信息管理系统_第4页
第4页 / 共26页
亲,该文档总共26页,到这儿已超出免费预览范围,如果喜欢就下载吧!
资源描述

《公司企业办公费用信息管理系统》由会员分享,可在线阅读,更多相关《公司企业办公费用信息管理系统(26页珍藏版)》请在金锄头文库上搜索。

1、学号:200610137234 成绩:_武汉科技大学城市学院课程设计报告院 系 信息科学与工程系 专 业 计算机科学与技术 年级 班 06级 计科二班 课程名称 数据库应用与原理 设计题目 公司办公费用信息管理系统姓 名 陈钊 指导教师 朱倩 2008年 6 月 27 日设计题目:公司办公费用管理信息系统设计设计主要内容:一、开发平台:VB+ SQL SERVER 2000二、功能要求:1、设计内容设计一个公司办公费用管理信息系统,该系统的用户由一般用户和管理员组成,然后不同的用户拥有不同的权限,各自完成各自的管理功能,首先是欢迎界面,然后选择登录,登录的时候首先要判断用户的身份,合法的用户然

2、后进入到系统主界面中,不同的用户看到不同的系统功能。用sql server2000创建后台数据库,然后利用程序设计语言(VB)编写程序实现对数据库的操作,按照要求完成所有的功能和模块。2、公司办公费用管理信息系统主要功能(1)用户管理:用户登录界面、用户注册界面、办公费用申请界面、办公费用信息查询界面、本用户密码的修改界面(2)管理员管理:管理员登录界面、办公费用查询界面、办公费用添加、删除界面、本用户密码修改界面。 3、公司办公费用管理信息系统数据库表单(可以按照需求增加)(1)用户信息表单:用户名、密码、用户身份(管理员和普通用户)(2)部门信息表单:部门编号、部门名称、部门负责人、联系电

3、话、电子邮件、备注(3)办公费用申请表单:序号、费用编号(外码)、费用金额、部门编号(外码)、申请年月、是否通过审核、备注(4)办公费用类别表单:费用编号、费用名称 (5)办公费用控制表单:部门编号(外码)、年份、本年预算、本年累计支出 (6)办公费用支出明细表单:序号、费用编号(外码)、费用金额、部门编号(外码)、支出日期 三、课程设计报告主要内容:1公司办公费用管理信息系统需求分析(给出系统功能模块图,对各功能作出详细介绍)2公司办公费用管理信息系统界面设计(给出界面截图及其主要控件的属性设置表格,并给出各界面的详细代码)3公司办公费用管理信息系统数据库设计(给出数据库各个表单中数据的字段

4、名,数据类型及其相应的说明)4公司办公费用管理信息系统程序设计(功能模块给出详细的程序代码,重点语句的注释)1. 公司办公费用管理信息系统需求分析公司办公费用管理信息系统登 录用 户 登 录管 理 员 登 录用户服务新用户注册管理员服务本用户密码的修改办公费用信息查询办公费用申请办公费用查询办公费用添加、删除本用户密码的修改 添 加更 新 删 除 查 询图1.1零件交易管理信息系统1.1欢迎界面系统启动之后便可进入欢迎界面,单击“系统登陆”按钮便可进入选择登陆界面。1.2登录界面1.2.1选中管理员登录后便进入管理员服务界面1.2.2选中用户登录后便进入用户服务界面1.2.3点注册弹出注册界面

5、,注册成功可返回登录界面1.3管理员服务界面 可以进行办公费用查询,办公费用添加、删除,本用户密码修改。1.3.1本用户密码修改 管理员通过输入和确认新密码来更改自己的密码。1.3.2办公费用添加、删除 选此项后弹出选择费用修改类型,管理员可以查询,删除,添加费用信息,在VB界面中修改了数据库中的信息。1.3.3办公费用查询 管理员可以根据部门的编号进行查询,可以查询申请和支出两种费用。1.4用户界面 用户可以进行本用户密码的修改,查看零件信息和工程项目使零件情况。1.4.1本用户密码修改用户通过输入和确认新密码来更改自己的密码。1.4.2办公费用申请 用户进入界面后可输入信息进行费用申请。1

6、.4.3办公费用信息查询用户可以根据部门的编号进行查询,可以查询申请和支出两种费用。2公司办公费用管理信息系统图2.1 欢迎界面图2.2 登录界面图2.3 新用户注册界面图2.4 管理员服务界面表2.1 管理员服务界面属性表对象属性设定值Option1Caption本用户密码修改Option2Caption办公费用添加、删除Option3caption办公费用查询图2.5 用户服务界面表2.2 用户服务界面属性表对象属性设定值Option1Caption本用户密码修改Option2Caption办公费用申请Option3caption办公费用信息查询图2.6 用户/管理员密码修改界面图2.7

7、办公费用申请界面图2.8 办公费用查询界面(用户/管理员)表2.3 办公费用查询界面属性表对象属性设置值Dadagrid1datasourceAdodc1Adodc1CaptionAdodc1CommandstringDSN=chenzhaoCommandtype2-adcmdtableRecordsourcePartment Visiblefalse图2.9 费用修改类型选择图2.10 申请费用修改界面表2.4 申请费用修改界面属性表对象属性设置值Adodc1CaptionAdodc1CommandstringDSN=chenzhaoCommandtype2-adcmdtableRecord

8、sourceApplicationVisiblefalseAdodc2CaptionAdodc2CommandstringDSN=chenzhaoCommandtype2-adcmdtableVisiblefalseRecordsourceControl图2.11 支出费用修改界面表2.5 支出费用界面属性表对象属性设置值dadagridDatasourceAdodc1Adodc1CaptionAdodc1Commandtype2-adcmdtableRecordsourceOutVisiblefalseAdodc2CaptionAdodc2Commandtype2-adcmdtableRec

9、ordsourceOutVisiblefalse 图2.11 MDI主窗体界面3公司办公费用管理信息系统数据库设计公司办公费用管理信息系统总共有六张表:用户信息表单、部门信息表单、办公费用申请表单、办公费用类别表单、办公费用控制表单、办公费用支出明细表单。表3.1 用户信息表Users字段名称标始名称数据类型是否允许为空字段说明Uname用户名char否主码Ukey密码char否Utype用户类型char否 表3.2 部门信息表Partment字段名称标始名称数据类型是否允许为空字段说明Pno部门编号char否主码Pname部门名称char否Pmanager负责人char是Pcall电话cha

10、r是Pemail电子邮件Char是Ps备注Char是表3.3 办公费用申请表Application字段名称标始名称数据类型是否允许为空字段说明Ano序号int否主码Tno费用编号char否引用Type外码Amoney申请费用char是Pno部门编号char否Partment外码Adate申请时间smalldatetime是Apermit是否通过char是Aps备注char是 表3.4 办公费用类别表Type字段名称标始名称数据类型是否允许为空字段说明Tno费用编号char否主码Tname费用名称char否表3.5 办公费用控制表Control字段名称标始名称数据类型是否允许为空字段说明Pno部

11、门编号char否Partmen外码 Cyear年份char是Cadvance本年预算char是Cout本年支出char是表3.6 办公费用支出明细表Out字段名称标始名称数据类型是否允许为空字段说明Ono序号int否主码Tno费用编号char否引用Type外码Omoney支出金额char是Pno部门编号char否Partment外码Odate支出日期Smalldatetime是4公司办公费用管理信息系统程序设计(部分代码)4.1欢迎界面欢迎界面是整个系统的首页,用户可通过它进入到登录系统。4.2登录界面 进入此界面后,使用者可根据自己的身份选择登录方式。普通用户选择用户登录,管理员选择管理员登

12、录。如果是新用户,直接点注册。代码如下:Dim a As IntegerPrivate Sub Command1_Click()a = Combo1.ListIndexWhile a = 0If Len(Text1.Text) 0 Then Adodc1.CommandType = adCmdText Adodc1.RecordSource = select uname from users where uname = & Trim(Text1.Text) & and Utype = & 用户 & Adodc1.Refresh Else MsgBox 请填写用户名 Exit Sub End If If Adodc1.Recordset.EOF = True Then MsgBox 姓名错误!, 48, warning! Text1.Text = Text2.Text = Exit Sub End If If Len(Text2.Text) 0 Then Adodc1.CommandType = adCmdText Adodc1.RecordSource = select ukey from users where uname = & Trim(Text1.Text) & Adodc1.Refresh

展开阅读全文
相关资源
正为您匹配相似的精品文档
相关搜索

最新文档


当前位置:首页 > 办公文档 > 其它办公文档

电脑版 |金锄头文库版权所有
经营许可证:蜀ICP备13022795号 | 川公网安备 51140202000112号