经费管理系统设计说明
- 格式:doc
- 大小:1.12 MB
- 文档页数:39
管理信息系统设计实训项目实例 第 1 页 共 39 页 《管理信息系统设计》实训项目 ――部门经费管理系统 部门经费管理系统是基于部门预算情况下一个单位内科室经费使用的管理软件,主要用于科室中各个项目的账目处理、管理等工作,是一套操作简便、功能完善的小型软件。 一、系统简介
1、账目管理轻松便捷 部门预算实行之后,许多项目如何在一年内合理使用是部门主管的一项主要工作,之前采用手工记账的方式既不方便工作量又大,并且不利于费用使用的分析,采用计算机软件管理是解决这个问题的最佳途径。本软件就是根据工作中的实际需要开发的小型系统。 2、操作简单方便 本软件在开发过程中得到了会计人员的大力帮助,在操作方面尽最大可能按照常规工作思路来设计软件的操作流程,界面说明简单明了,功能方面颇具人性化,比如一些常规科目的处理只需要在空白处双击鼠标即可。 3、系统平台要求 系统在windows98以上操作系统均可以使用。同时具有两种版本的系统,既可以安装成单机版本也可以安装成网络版本。 二、系统安装
2.1、网络版本系统安装 客户端:进入安装目录直接运行setup即可,要求环境:windows98/xp/2000。 服务器端: 1、安装Microsoft SQL server并运行企业管理器 2、进入控制台子项数据库 3、在“数据库”选项上点击鼠标右键,选择“所有任务”--“还原数据库” 输入数据库名称为“jfgl” ---选择“从设备”---选择子目录“电教管理2000”中的jfglbf文件即可 4、在“安全性”选项中设置新的登录用户“lgq”,密码为空。 管理信息系统设计实训项目实例 第 2 页 共 39 页 2.2、单机版本系统安装 客户端:进入安装目录直接运行setup即可,要求环境:windows98/xp/2000。 数据库设置: 单机版本需要设置odbc,具体如下: 1、 进入控制面版,打开数据源odbc窗口
2、选择“添加”进入以下界面:
管理信息系统设计实训项目实例
第 3 页 共 39 页 3、选择“Microsoft Access Driver(*.mdb)进入以下界面:
4、输入数据源名称“JFGL”,选择“选择”按钮进入下一界面:
5、选择数据库“xxjfdata.mdb”,点击“确定”即可。 三、系统功能说明
3.1、登录界面
管理信息系统设计实训项目实例
第 4 页 共 39 页 输入合法的用户名称、口令即可进入主界面,此处允许用户三次登录验证。 3.2、主菜单界面 主菜单界面包括项目维护、账目处理、账目查询、系统维护、帮助等5个部分。
3.3、项目维护 项目维护包括项目增加、项目删除、项目修改三个子菜单。 3.3.1、项目增加 该项功能可以增加部门项目的内容,每个项目包括项目代码、项目名称、费用、部门名称三个方面,增加过程中不能为空。 管理信息系统设计实训项目实例
第 5 页 共 39 页 3.3.2、项目删除: 通过此项功能可以删除掉未使用项目的内容,项目一旦启用,就不能删除。
3.3.3、项目修改 通过此项功能可以修改项目代码、项目名称、项目费用等内容
3.4、账目处理 账目处理包括报账、销账和账目更改三个子菜单。 3.4.1、报账 该项功能是本软件的核心部分,通过这项功能可以处理日常发生的每一笔账目,同时在总项目中对发生的费用进行扣除,具体界面如下: 管理信息系统设计实训项目实例 第 6 页 共 39 页 操作要领:单击编号文本框会自动产生编号,单击报账日期会自动将当前系统日期填入文本框,账目摘要中可以填入内容,也可以通过双击鼠标弹出常用科目窗口选择常用科目,通过“项目部门选择”按钮选择隶属项目和部门,通过组合框选择经手人。点击“报销确认”即可弹出以下界面。
在此界面中扣除所报账目在总项目中的费用 3.4.2、销账 通过该项功能可以消除错报或不需要的账目。可报账功能相反。 管理信息系统设计实训项目实例 第 7 页 共 39 页 选中要消除的账目,点击销账确认即可,弹出总帐处理对话框,在总帐中消除掉已报的账目费用。 3.4.3、账目更正 通过此项可以更正错报的账目,注意只能更正部分内容。
3.5、账目查询 账目查询可以提供总帐查询、明细查询。 3.5.1、总帐查询 总帐查询分为“按总帐查询”和“按部门查询”,采用标签形式处理,具体如下: 管理信息系统设计实训项目实例 第 8 页 共 39 页 3.5.2、明细查询: 明细查询分为“部门查询”、“日期查询”、“经手人查询”具体如下: 管理信息系统设计实训项目实例
第 9 页 共 39 页 3.6、系统维护 系统维护由用户设置、辅助数据、初始化三个部分组成 3.6.1、用户设置 用户设置可以对本系统的用户名称、口令、权限作相应的设置。
管理信息系统设计实训项目实例
第 10 页 共 39 页 3.6.2、辅助数据 辅助数据设置包括部门设置、工作人员设置、常规科目设置三个部分 管理信息系统设计实训项目实例
第 11 页 共 39 页 3.6.3、初始化 初始化将对项目数据库和明细帐数据库起到清空的作用。 管理信息系统设计实训项目实例
第 12 页 共 39 页 四、源代码程序设计 4.1、登录界面
Private Sub Command1_Click() Dim yh As String Dim mma As String Adodc1.Refresh Adodc1.Recordset.MoveFirst Do While Adodc1.Recordset.EOF = False yh = Adodc1.Recordset.Fields("yhm") mma = Adodc1.Recordset.Fields("mima") If yh = UCase$(Trim(Text1.Text)) And mma = UCase$(Trim(Text2.Text)) Then mainmenu.Show Unload Me Exit Sub End If Adodc1.Recordset.MoveNext Loop MsgBox "用户名或口令错误,请重新输入!", vbOKCancel, "信息提示" Text1.Text = "" Text2.Text = "" Text1.SetFocus End Sub
Private Sub Command2_Click() Unload Me End Sub
Private Sub Form_Load() End Sub 管理信息系统设计实训项目实例 第 13 页 共 39 页 Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2.SetFocus End If End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Command1.SetFocus End If End Sub 4.2、主菜单界面
主菜单界面包括项目维护、账目处理、账目查询、系统维护、帮助等5个部分。
Private Sub bz_Click() bzcl.Show vbModal End Sub
Private Sub Form_Load() If fm.Adodc1.Recordset.Fields("xmwh") = True Then menu1.Enabled = True
Else menu1.Enabled = False 管理信息系统设计实训项目实例 第 14 页 共 39 页 End If If fm.Adodc1.Recordset.Fields("zmcl") = True Then menu2.Enabled = True
Else menu2.Enabled = False End If
If fm.Adodc1.Recordset.Fields("zmcx") = True Then menu3.Enabled = True
Else menu3.Enabled = False End If
If fm.Adodc1.Recordset.Fields("xtwh") = True Then menu4.Enabled = True
Else menu4.Enabled = False End If End Sub
Private Sub fzsj_Click() fzsjb.Show vbModal End Sub
Private Sub menu13_Click() zmgz.Show vbModal End Sub
Private Sub menu43_Click() csh.Show vbModal End Sub
Private Sub mxcxx_Click() mxzcx.Show vbModal End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1 xmzjf.Show vbModal Case 2