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

学号：200610137234成绩：________武汉科技大学城市学院课程设计报告院系信息科学与工程系专业计算机科学与技术年级班06级计科二班课程名称数据库应用与原理设计题目公司办公费用信息管理系统姓名陈钊指导教师朱倩2008年6月27日数据库课程设计报告-1-数据库课程设计报告-2-设计题目:公司办公费用管理信息系统设计设计主要内容:一、开发平台：VB+SQLSERVER2000二、功能要求：1、设计内容设计一个公司办公费用管理信息系统，该系统的用户由一般用户和管理员组成，然后不同的用户拥有不同的权限，各自完成各自的管理功能，首先是欢迎界面，然后选择登录，登录的时候首先要判断用户的身份，合法的用户然后进入到系统主界面中，不同的用户看到不同的系统功能。用sqlserver2000创建后台数据库，然后利用程序设计语言（VB）编写程序实现对数据库的操作，按照要求完成所有的功能和模块。2、公司办公费用管理信息系统主要功能（1）用户管理：用户登录界面、用户注册界面、办公费用申请界面、办公费用信息查询界面、本用户密码的修改界面（2）管理员管理：管理员登录界面、办公费用查询界面、办公费用添加、删除界面、本用户密码修改界面。3、公司办公费用管理信息系统数据库表单（可以按照需求增加）（1）用户信息表单：用户名、密码、用户身份（管理员和普通用户）（2）部门信息表单：部门编号、部门名称、部门负责人、联系电话、电子邮件、备注（3）办公费用申请表单：序号、费用编号（外码）、费用金额、部门编号（外码）、申请年月、是否通过审核、备注（4）办公费用类别表单：费用编号、费用名称（5）办公费用控制表单：部门编号（外码）、年份、本年预算、本年累计支出（6）办公费用支出明细表单：序号、费用编号（外码）、费用金额、部门编号（外码）、支出日期三、课程设计报告主要内容：1公司办公费用管理信息系统需求分析（给出系统功能模块图，对各功能作出详细介绍）2公司办公费用管理信息系统界面设计（给出界面截图及其主要控件的属性设置表格，并给出各界面的详细代码）3公司办公费用管理信息系统数据库设计（给出数据库各个表单中数据的字段名，数据类型及其相应的说明）4公司办公费用管理信息系统程序设计（功能模块给出详细的程序代码，重点语句的注释）数据库课程设计报告-3-1.公司办公费用管理信息系统需求分析图1.1零件交易管理信息系统1.1欢迎界面系统启动之后便可进入欢迎界面，单击“系统登陆”按钮便可进入选择登陆界面。1.2登录界面1.2.1选中管理员登录后便进入管理员服务界面公司办公费用管理信息系统登录用户登录管理员登录用户服务新用户注册管理员服务本用户密码的修改办公费用信息查询办公费用申请办公费用查询办公费用添加、删除本用户密码的修改添加更新删除查询数据库课程设计报告-4-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办公费用信息查询用户可以根据部门的编号进行查询，可以查询申请和支出两种费用。数据库课程设计报告-5-2．公司办公费用管理信息系统图2.1欢迎界面图2.2登录界面图2.3新用户注册界面数据库课程设计报告-6-图2.4管理员服务界面表2.1管理员服务界面属性表对象属性设定值Option1Caption本用户密码修改Option2Caption办公费用添加、删除Option3caption办公费用查询图2.5用户服务界面数据库课程设计报告-7-表2.2用户服务界面属性表对象属性设定值Option1Caption本用户密码修改Option2Caption办公费用申请Option3caption办公费用信息查询图2.6用户/管理员密码修改界面图2.7办公费用申请界面图2.8办公费用查询界面(用户/管理员)数据库课程设计报告-8-表2.3办公费用查询界面属性表对象属性设置值Dadagrid1datasourceAdodc1Adodc1CaptionAdodc1CommandstringDSN=chenzhaoCommandtype2-adcmdtableRecordsourcePartmentVisiblefalse图2.9费用修改类型选择图2.10申请费用修改界面表2.4申请费用修改界面属性表对象属性设置值Adodc1CaptionAdodc1CommandstringDSN=chenzhaoCommandtype2-adcmdtableRecordsourceApplicationVisiblefalseAdodc2CaptionAdodc2CommandstringDSN=chenzhaoCommandtype2-adcmdtable数据库课程设计报告-9-VisiblefalseRecordsourceControl图2.11支出费用修改界面表2.5支出费用界面属性表对象属性设置值dadagridDatasourceAdodc1Adodc1CaptionAdodc1Commandtype2-adcmdtableRecordsourceOutVisiblefalseAdodc2CaptionAdodc2Commandtype2-adcmdtableRecordsourceOutVisiblefalse图2.11MDI主窗体界面数据库课程设计报告-10-3．公司办公费用管理信息系统数据库设计公司办公费用管理信息系统总共有六张表：用户信息表单、部门信息表单、办公费用申请表单、办公费用类别表单、办公费用控制表单、办公费用支出明细表单。表3.1用户信息表Users字段名称标始名称数据类型是否允许为空字段说明Uname用户名char否主码Ukey密码char否Utype用户类型char否表3.2部门信息表Partment字段名称标始名称数据类型是否允许为空字段说明Pno部门编号char否主码Pname部门名称char否Pmanager负责人char是Pcall电话char是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部门编号char否Partmen外码Cyear年份char是Cadvance本年预算char是Cout本年支出char是数据库课程设计报告-11-表3.6办公费用支出明细表Out字段名称标始名称数据类型是否允许为空字段说明Ono序号int否主码Tno费用编号char否引用Type外码Omoney支出金额char是Pno部门编号char否Partment外码Odate支出日期Smalldatetime是4．公司办公费用管理信息系统程序设计（部分代码）4.1欢迎界面欢迎界面是整个系统的首页，用户可通过它进入到登录系统。4.2登录界面进入此界面后，使用者可根据自己的身份选择登录方式。普通用户选择用户登录，管理员选择管理员登录。如果是新用户，直接点注册。代码如下：DimaAsIntegerPrivateSubCommand1_Click()a=Combo1.ListIndexWhilea=0IfLen(Text1.Text)0ThenAdodc1.CommandType=adCmdTextAdodc1.RecordSource=selectunamefromuserswhereuname='&Trim(Text1.Text)&'andUtype='&用户&'Adodc1.RefreshElseMsgBox请填写用户名ExitSubEndIfIfAdodc1.Recordset.EOF=TrueThenMsgBox姓名错误!,48,warning!Text1.Text=Text2.Text=ExitSubEndIfIfLen(Text2.Text)0ThenAdodc1.CommandType=adCmdTextAdodc1.RecordSource=selectukeyfromuserswhereuname='&Trim(Text1.Text)&'Adodc1.RefreshElse数据库课程设计报告-12-MsgBox请填写密码ExitSubEndIfIfStrComp(Trim(Adodc1.Recordset.Fields(ukey).Value),Trim(Form2.Text2.Text))0ThenMsgBox密码错误!,48,warningText2.Text=Text2.SetFocusExitSubElseMsgBox登录成功Form4.ShowForm2.HideExitSubEndIfWendWhilea=1IfLen(Text1.Text)0ThenAdodc1.CommandType=adCmdTextAdodc1.RecordSource=selectunamefromuserswhereuname='&Trim(Text1.Text)&'andUtype='&管理员&'Adodc1.RefreshElseMsgBox请填写用户名ExitSubEndIfIfAdodc1.Recordset.EOF=TrueThenMsgBox姓名错误!,48,warning!Text1.Text=Text2.Text=ExitSubEndIfIfLen(Text2.Text)0ThenAdodc1.CommandType=adCmdTextAdodc1.RecordSource=selectukeyfromuserswhereuname='&Trim(Text1.Text)&'Adodc1.RefreshElseMsgBox请填写密码ExitSubEndIfIfStrComp(Trim(Adodc1.Recordset.Fields(ukey).Value),Trim(Form2.Text2.Text))0ThenMsgBox密码错误!,48,warning数据库课程设计报告-13-Text2.Text=Text2.SetFocusExitSubElseMsgBox登录成功Form5.ShowForm2.HideExitSubEndIfWendEndSubPrivateSubCommand2_Click()DimaAsIntegera=MsgBox(您真的要退出吗？,305,提示)Ifa=1ThenEndEndIfEndSubPrivateSubCommand3_Click()Form3.ShowEndSubPrivateSubForm_Load()Combo1.AddItem用户Combo1.AddItem管理员Combo1.Text=Combo1.List(0)Text1.Text=Text2.Text=EndSub4.3用户服务界面用户登录进去后，可以到用户服务界面选择自己所需的服务，该界面为用户提供了