©2010-2026 宁波自信网络信息技术有限公司 版权所有
客服电话：0574-28810668 投诉电话：18658249818
浙ICP备2021020529号-1 | 浙B2-20240490
关注我们 ：
1、精品文档就在这里 -------------各类专业好文档，值得你下载，教育，管理，论文，制度，方案手册，应有尽有-------------- -------------------------------------------------------------------------------------------------------------------------------------------- 目 录 第一章 绪 论 2 1．1课题简介 2 1．2开发的意义 2 第二章 开发环境及实现技术 3 2．1开发环境 ３ ２.2开发工具简介 3
2、 第三章 系统设计 5 3.１概要设计 5 3.1.１概要设计阶段的主要任务 5 ３.1．２概要设计的过程 5 ３．１．３概要设计的原则 5 3.１．4系统功能分析 ５ 3．２详细设计 6 3．2．1详细设计的任务 6 ３．2.2详细设计的方法 7 第四章 数据库设计 ９ 4．１数据库Accｅｓs简介 9 4．2数据库需求分析 10 4.３表的详细结构说明 11 ４.4测试用例 1４ 第五章 详细设计 １6 5.１系统登录模块的设计与实现 16 5.2主界面的设计与实现 2０ ５．3工资管理设计与实现 22 ５．４固定资产管理的设计与实现 27 ５
3、．5流动资产管理的设计与实现 ３1 ５．６用户管理的设计与实现 ３２ 第六章 系统使用说明 ４4 6．１使用说明 44 6.2运行环境 ４4 结束语 52 致 谢 5２ 参考文献 ５３ 第一章 绪 论 1．1课题简介 财务管理系统是每一个单位管理财务收入和支出的不可缺少的一个管理信息系统，它的内容对企业财务计划,财务控制，财务监督,财务运用等方面都起着巨大的作用。如何发挥财务管理的作用关系到一个企业的命脉.ﻫ 财务管理的工作对象是资金运动,只要有资金运动就离不开财务管理。ﻫ 一个企业 的生产经营活动无外乎供、产、销三个环节,这个过程始终贯穿着资金运动,
4、只是在各个环 节上资金的表现形态不同罢了。在供应阶段资金由货币形态转变为材料形态,生产阶段由材 料形态变为产品形态，在销售阶段由产品形态又回到货币形态。从这里可以看出,财务管理 贯穿于企业的各项工作之中，财务工作与其它管理工作是密不可分的.〖BP)〗从企业目前 的实际工 作来看,普遍存在两个误区:一种认为财务管理就是管钱,只要管住钱就可万事大吉,重资 金,轻核算。上面谈到，资金在生产经营过程中分别有着不同的表现形式,“钱”只是这个 过程的起点和终点，大量的管理工作都蕴含在过程之中.因此,只有加强内部核算,才能真 正做到节支降耗，否则,“钱”是管不住的.另一种认为财务管理就是管财务部门，把财务
5、部门与其他管理部门割裂开来,财务管理的触角不能延伸到各项管理工作之中．财务管理就 成为无本之木，其作用得不到发挥，形成经营和生产“两张皮”． 因此,开发这样一套管理软件成为很有必要的事情，对于我们即将计算机专业毕业的学员来说,也是一次将计算机应用于现实管理的一次很有意义的实践活动。 1．２开发的意义 计算机已经成为我们学习和工作的得力助手，使用其可方便的管理企事业财务 今天，计算机正在各行各业发挥着巨大的作用，它以其快速准确性弥补人类的先天不足,能够让计算机参与人们日常的财务管理事业,是一种时代发展的必然要求,也是一个社会国家进步的体现。况且现在建行已经建起了个人网上银行，本系统为个人
6、理财系统的到来做了先期工作,比如计算机的财务管理模式的建立． ﻬ第二章 开发环境及实现技术 2.１开发环境 硬件系统 硬件平台 CPU Inｔel P４ １。５G 主板 Intｅl 850芯片组的GA—8ＴX—C 内存 2×128M的三星Rambｕs内存 硬盘 Seagate Barracuda 720０。7 ８０G 显卡 Unｉｋa 小妖G9800 显示器 美格7７0PＦ,1７寸纯平显示器 软件环境 操作系统 Microsoｆt WindｏwsＸＰ简体中文专业版+SＰ1 办公软件 Microsｏft Ofｆice 20０３ 显卡驱动 nVＩDI
7、A ForｃeWare驱动56.７２版Ｆoｒ Win2000/XP 软件系统: Visuaｌ basｉc ６.0中文版、Aｃcｅsｓ数据库。 ２．２开发工具简介 Vｉsual Ｂａsic 6。0的特点 Viｓual Bａsiｃ 6。０是Miｃrsoｆt公司出品的开发工具，Visuaｌ Bａsｉｃ是一种可视化的，面向对象的Windows开发语言,它具有易用，通用和开发效率高的特点。随着微软对它不断地改进以及计算机本身性能的提高，使得Ｖisｕal Basic越来越适合一般的应用程序开发。正如Bｉll Gatｅ所说,世界上绝大多数的Windows应用程序是用Ｖisｕal Basic编写的.
8、在众多的开发工具中，我们为什么要选择Visuａｌ Basic6。0呢？因为VＢ具有众多其它开发工具所没有的优点！具体介绍如下: u 开发的高效 u 语言的高效 u 编译的高效 u 执行的高效 u 维护的高效 基于以上理由，我们毫不忧郁的选择了VB6。0做为我们的开发工具!! 微软公司的Visual ｂasic６。０连接数据库的主要方式以下几种方式：一是：用daｔa控件进行数据库链接 ,二是利用aｄodc(ADO Data Coｎtrol)进行数据库链接 。三是： 利用DaｔaEnｖｉｒｏnmenｔ进行数据库链接.四是利用ADO（ActiveX Ｄata Objｅcｔs）进行
9、编程 三种数据库访问对象,是Ｍicrosｏｆｔ数据库访问技术的一个主要发展方向,ADO将ＯＬE ＤB封装在一个数据对象中，使得VＢ程序中以方便地实现对数据库的访问. ﻬ第三章 系统设计 3.1概要设计 3.1.１概要设计阶段的主要任务 ①系统分析员审理客户的需求状况并依据用户需求撰写需求分析报告以及软件描述工具.选择分解功能与划分模块的设计原则,例如模块划分独立性原则，信息隐蔽原则等。 3.1.2概要设计的过程 在概要设计阶段应着重解决实现需求分析的程序模块设计问题。这包括考虑如何把被开发的软件系统划分成若干个模块,并决定各模块的接口，即模块间的相互关系,以及模块之间的传递的
10、信息． 1． 管理员选项模块(增加管理员,修改管理员密码，注销管理员,退出系统） 2． 工资管理模块(增加考勤记录，修改考勤记录，查询考勤记录,计算工资, 增加工资记录，查询工资记录，修改工资记录,删除工资记录) 3． 固定资产模块(增加固定资产记录,修改固定资产记录,查询固定资产记录，删除固定资产记录) 4． 流动资产模块(增加报销记录,查询报销记录，导出报销记录) 主界面 管理员选项 工资管理 固定资产管理 禁用快捷键 流动资产管理 登录 根据以上分析,该系统考虑将整个系统分解成如图3—1模块结构图： 3.１.3 概要设计的原则 并且在系统的开发过程中，我尽量
11、注意模块的高内聚、低耦合，使得系统的整体性能提高，并且也有利于投入使用后的系统维护。 ３.1．４系统功能分析 本财务管理系统主要针对企事业单位的财务管理提供方便.1管理员模块功能： 提供对管理员的密码，权限，增删设置。2 固定资产模块管理:提供对固定资产记录的增删管理.３流动资产管理:提供对流动资产,报销管理。 3.2详细设计 3．2.１详细设计的任务 详细设计必须是无歧义地描述过程地细节,详细设计主要决定每个模块内部的具体算法。 3.2．2详细设计的方法 修改已建的数据库 数据库的修改分为:添加、编辑和删除记录。这三种操作均可由Visuaｌ Basｉc 创建的程序来完成,
12、下面的章节将详细描述实现的具体方法. 实现数据库之间的联系 数据库之间的关系指明两个库之间共享一个共同的关键字值。一个连接是指一种虚拟的表,这种表是在当用户要求从相互关联的各个不同的表中获取信息时建立的，关键字段用于在相互连接的不同表中查找匹配的记录．一个更高级的连接形式称为自连接。这种连接是指一个表被连接到它自己的一个字段，或在不同的纪录中由重复数据的组合字段。数据库中有三种不同类型的关键字：主关键字、组合关键字和外关键字。在表中使用的关键字类型用于描述库表示什么以及在数据库中如何与其它的库建立关系. 第 四 章 数据库的设计 4.1 数据库A
13、ccess简介 使用 Mｉcrosoft Aｃcess，可以在单一的数据库文件中管理所有的信息.在这个文件中,用户可以将自己的数据分别保存在各自独立的存储空间中,这些空间称作表;可以使用联机窗体来查看、添加及更新表中的数据；使用查询来查找并检索所要的数据；也可以使用报表以特定的版面布置来分析及打印数据． 如果要保存数据，请为每一种类型的信息创建一个表.如果要从查询、窗体或报表中的多个表中将数据合并在一起,就要定义各个表之间的关系.ﻫ 如果要搜索并检索符合指定条件的数据,包括来自多个表中的数据,就要创建查询．查询的同时也可以更新或删除多条记录,并对数据执行内嵌或自定义的计算.ﻫ
14、 如果要简单地直接在某个表中查看、输入及更改数据,请创建一个窗体.在打开一个窗体时,Micrｏsｏft Accｅss 将从一个或多个表中检索数据，并使用用户在“窗体向导”选择的版面布局或所创建的版面布局，将窗体显示在屏幕上． 如果要分析数据或将数据以特定的方式打印出来，请创建一个报表。例如，可以打印一份将数据分组并计算数据总和的报表,也可以打印另一份带有各种数据格式的打印邮件标签的报表。 4．２数据库需求分析 本系统使用的是ＯDBC数据源,使用程序前，在【控制面板】－【管理工具】－【数据源（ODBC）】中添加本程序目录下的fｉnanｃe。mdｂ文件作为Mｉcｒosoft Ａcces
15、ｓ数据源，用户数据源名称必须命名为:Finanｃe 4.3表的详细结构说明 员工职务表的详细信息: 员工工资结算表的详细结构说明： 固定资产管理项目表的详细结构为: 报销类型表的详细结构为: 管理员登陆表的详细结构为: 员工工作状态表 员工工作状态表详细设计: ４.4测试用例 Y N 开始 输入登录密码 是否正确 主界面 第五章 详细设计 5。1系统登录模块的设计与实现 登陆界面: 登陆界面源代码分析： Pｒivate Sub Command１_Clicｋ（） Ｄｉｍ sql As Sｔrinｇ
16、 Diｍ rs As Neｗ ADＯＤB。Recoｒdsｅt Ｉf Uｓer.Text ＝ ＂” Then ’保证用户名和密码都填写 MsｇBｏx ”用户名不能为空！”, vbCritiｃａl Ｕser。SetＦocuｓ Ｅxit Sub End If If Pａss.Text = ”” Tｈen MｓgBox ”密码不能为空!"， vbＣrｉｔｉcal Pａss。SeｔFｏcus Ｅｘiｔ Sub End Iｆ Iｆ DbHａ
17、ｎdle。DｂConnectｉon Then ｓｑl = ”TBL_AＤMＩN” ’用SQL语句判断是否是合法管理员 ｒs。ＣursorTypｅ = adOpenDynaｍｉc ｒs。ＬockTｙpe = adLoｃkOpｔｉｍistic rs.Fiｌter = ”ＡDMＩN_ID＝'” ＆ User。Text & ”' AＮＤ ADMＩN_ＰASＳWOＲＤ=’" ＆ Pasｓ。Ｔext & ”’” rs.Open sｑl, DｂFｉnancｅ If DｂHandle。ｒeｓ
18、ｕltcount（rs) <〉 1 Tｈｅn ’不存在管理员记录提示错误信息并且退出系统 MsgBoｘ ”用户名或密码错误！”, ｖbＥxclamation rs。Close Seｔ rｓ = Notｈing DbHａndle。ＤｂClose Ｅnd Ｅnd If DbHａndle。DｂCｌｏｓe MainFoｒm.Shｏw '登陆成功显示主窗体 Ｕnｌoａd Me
19、 Eｌｓe MsgBox ”数据库错误！＂， vbEｘｃlａmａtion DbHandle。DbＣlｏse End End If End Suｂ 主界面 界面包括的控件有标签、文本框、命令按控件的属性设置界面: 主界面源代码分析: Optiｏn Eｘpｌｉｃit Ｐrｉvatｅ Sub AｄminOpｔion_Cｌicｋ() sb1。Paneｌs(1）.Tｅxt = ”管理员选项" ’鼠标在”管理员选项"菜单使状态条的提示文字显示 End Suｂ Ｐrivatｅ Ｓub Check1＿Cl
20、iｃk(） Iｆ Cｈecｋ1。Vaｌue Then ’启用或者禁止快捷按钮所在的Frａme Ｆrame1.Enaｂｌｅd = Fａlse Ｆrａｍe2.Enａbled = Faｌｓｅ Fraｍe３.Eｎａbled = Ｆalsｅ Ｆｒame4。Enａbled = Ｆaｌse Ｅlse Frame1。Ｅnabled = True Ｆrａｍe２。Ｅｎabled = Ｔruｅ Frａme3。Enabled ＝ True Ｆ
21、raｍｅ4。Ｅｎabｌed = Trｕｅ Ｅnd If End Sub Pｒivaｔｅ Sub Command1_Ｃｌick() AddAdmin。Ｓｈow １ ’显示增加管理员窗体 Enｄ Sub Private Suｂ Coｍmaｎd10_Click() FixＰay.Sｈow 1 ’显示增加修改月工资窗体 Enｄ Ｓub Priｖate Sub Comｍand11＿Cｌick() DｅlPay。Shoｗ １ ’显示删除月工资窗体 Enｄ Suｂ Ｐｒｉvaｔe Sｕｂ Commａｎd1２_Cｌick(）
22、 QuｅryPaｙ.Show 1 ’显示查询月工资窗体 Enｄ Suｂ Ｐrｉvａte Sub Command13_Click(） AddFixｅｄ。Show 1 ’显示增加固定资产窗体 End Sｕb Ｐriｖaｔe Sub Ｃommanｄ１4_Cｌick() fｉxFixｅd。Ｓhｏｗ １ ’显示修改固定资产窗体 Enｄ Sub Privａtｅ Sｕｂ Ｃommand15_Cｌick（） QｕeryFiｘeｄ。Show 1 ’显示查询固定资产窗体 End Suｂ Ｐrｉｖate Suｂ Commａnｄ１6_Ｃ
23、ｌｉck() ＤelFixed．Shoｗ 1 ’显示删除固定资产窗体 End Sub Prｉvａte Ｓuｂ Cｏmｍａnｄ17_Click() AddCur。Show １ '显示增加报销记录窗体 Ｅnd Ｓuｂ Ｐｒivaｔe Sｕb Cｏmmaｎd１8_Cliｃk(） QｕerｙCｕr.Shoｗ 1 '显示查询报销记录窗体 End Ｓuｂ Pｒｉvate Sub Cｏｍmａｎd19_Cｌicｋ() ExpoｒtCur。Show 1 ’显示导出报销记录窗体 Ｅnd Sｕb Pｒｉvaｔe Suｂ Cｏmm
24、ａnｄ２_Clｉck() AdmiｎＰass。Sｈow 1 ’显示修改管理员密码窗体 End Sｕb Ｐrivate Ｓub Command3_Click（) Ｍe.Hｉde AdｍinＬogｉｎ。Ｕseｒ.Text ＝ ”” ’登录窗体信息清空 ＡdmiｎLoｇiｎ。Paｓs.Texｔ = ”” ＡｄminLogｉn。Ｓhow ’显示注销(登录)窗体 Eｎd Sub Pｒivａte Sub Cｏmmand４_Clicｋ(） End ’退出管理系统 Eｎd Ｓub Pｒivaｔe Sｕb
25、 Ｃommaｎd5＿Clｉcｋ(） WｏrkＥveｎｔ．Shｏw 1 ＇显示添加考勤记录窗体 Ｅnd Sub Privaｔｅ Suｂ Command６_Click(） ＣhａngｅＥvent．Show 1 '显示修改考勤记录窗体 End Sub Prｉvate Sub Ｃommand7_Cｌick(） QｕｅryEvｅnt。Sｈow 1 '显示查询考勤记录窗体 End Sｕb Ｐrivate Sub Command8_Cｌick（) CalcPay。Show 1 '显示计算工资窗体 Eｎｄ Suｂ Ｐriv
26、ate Sｕb Command9＿Clｉck() AddPay。Ｓhow 1 ＇显示增加月工资记录窗体 Ｅnd Sub Privａｔｅ Sｕb CurAｓｓｅt_Clｉck（) ｓb1。Paneｌs(1）．Text = ”流动资产管理" '鼠标在"流动资产管理”菜单使状态条的提示文字显示 Ｅnd Ｓuｂ Pｒivａte Ｓub ＦixｅｄAsseｔ_Ｃliｃk() ｓｂ1。Pａnｅlｓ（１)。Texｔ ＝ ”固定资产管理” ’显示增加管理员窗体 Ｅnd Suｂ Pｒivate Suｂ Foｒm_Ｌoad（)
27、 Me。Ｌefｔ = (Screen。Wｉｄth - Me.ScaｌｅWidｔｈ) / ２ ’初始化窗体居中显示 Me。Toｐ = (Screen。Heｉght — Me。SｃaｌeHeｉght) / 2 Me。Heiｇｈt = 80１０ Mｅ。Wｉdth = ９945 Eｎｄ Ｓuｂ Ｐrｉvate Sub Foｒm＿Ｕnloaｄ（Canｃｅl Ａs Ｉｎteｇｅr) On Error Resuｍｅ Next '当主窗体关闭时关闭数据库连接 DｂHａｎdle。DbClｏse End Enｄ Sｕ
28、b Priｖａte Sｕb menｕ＿AｄｄAdmin_Cｌiｃk() AｄｄAdｍｉn.Sｈow １ ’显示增加管理员窗体 Ｅnd Suｂ Privａtｅ Sub menu＿AddCｕr_Cliｃk() ＡddCur。Show 1 ’显示增加报销记录窗体 Enｄ Suｂ Pｒivate Sｕb menu＿AddＥvｅnt_Click(） WoｒkEvent。Shoｗ 1 ’显示增加考勤记录窗体 End Sub Privａｔe Sub ｍenu_AddFiｘed_Cｌick() ＡddFiｘed。Shoｗ 1
29、 ’显示修改考勤记录窗体 End Ｓub Prｉvate Ｓub menu＿ＡddPａｙ＿Click(） AｄdPaｙ．Show 1 ’显示增加月工资窗体 Eｎｄ Sｕb Priｖate Sub menu_ＡdmｉｎPaｓs_Ｃlｉｃｋ(） ＡｄminPaｓs.Show １ ’显示修改管理员密码窗体 Ｅｎd Sub Prｉvaｔe Suｂ ｍeｎｕ_CａlｃPａｙ_Cｌick（） CａlcPay。Show 1 '显示计算工资窗体 Ｅnd Sub Private Ｓub ｍｅｎu_ChangeEvent_Ｃliｃk(）
30、 ChａnｇeEveｎt．Show 1 ’显示修改考勤记录窗体 Ｅnｄ Sub Private Sub ｍenu_ChangeFiｘｅd＿Ｃｌiｃk(） fixFixｅd.Sｈｏw 1 ＇显示修改固定资产窗体 End Ｓｕb Ｐｒivａte Sｕb meｎu_ChangeＰay＿Cｌick(） ＦixPay。Ｓhow 1 '显示修改月工资窗体 End Suｂ Privａte Sub meｎu_DelＦixｅd_Clｉck（) DeｌＦixｅd。Sｈow 1 ’显示删除固定资产窗体 End Sub Ｐrｉvate S
31、ub ｍｅｎu_ＤeｌPay_Cｌick（） DelPay。Ｓhｏw 1 ’显示删除月工资窗体 Enｄ Sub Privａte Sub menu_Exｉｔ_Ｃｌick（） Ｅnd ’退出管理系统 End Sｕb Pｒivaｔe Suｂ menu_ExpｏrtCuｒ_Cliｃk(） ExpoｒｔCuｒ。Sｈoｗ 1 '显示导出报销记录窗体 Ｅnd Sｕｂ Prｉvatｅ Sub menu＿Ｌoｇｏut_Clｉｃk() Me.Hiｄe ＡｄminＬogiｎ.Ｕser。Tｅｘt = ”" ’登录窗体信
32、息清空 AdmiｎLogin。Pass。Teｘt ＝ "” AdmiｎLogｉｎ。Shｏw ＇显示注销（登录）窗体 Eｎｄ Ｓub Privatｅ Suｂ menｕ_MonthBln_Ｃlｉck() ＭonthBlｎ．Shoｗ 1 ’显示月底结算窗体 End Sub Ｐrivate Sｕb mｅnｕ_QueｒyＣｕr＿Cｌiｃｋ() ＱueｒyCur。Show 1 ’显示查询报销记录窗体 Ｅｎd Suｂ Ｐｒivate Sub meｎu_QｕeｒyEveｎｔ_Cｌｉｃk（) QｕeryＥvent.Sｈoｗ 1
33、 ’显示查询考勤记录窗体 Eｎd Sｕb Ｐrivａte Sub menu_QueryFiｘed_Click(） QueｒyＦixｅd。Shｏw 1 ＇显示查询固定资产窗体 Eｎd Sｕb Privaｔe Sub ｍenu_QｕeryPay_Cliｃｋ(） QueryＰay。Show 1 ’显示查询月工资窗体 Ｅnｄ Ｓuｂ Ｐｒivate Ｓub PayMaｎ_Ｃｌiｃk（) ｓb1。Ｐａnels（１).Ｔeｘt = ”工资管理” '鼠标在”工资管理"菜单使状态条的提示文字显示 End Sub 5.3 工资
34、管理的设计与实现 工资管理界面: 工资计算代码: Priｖate Sub Ｃommand１＿Clｉck() Dim ｉ Ａs Lｏng Ｄim USEＲ_ID Ａs Ｓｔriｎｇ Dim USER_ＮAME Aｓ Sｔrｉng Dim USＥR_PARＴ Ａs Sｔring Ｄiｍ UＳＥＲ_ROLＥ As Strｉng Dim MONEＹ As Stｒing CommＤlg。Flags = ｃｄlOFNOｖｅrwritePｒompｔ ’设置保存对话框有覆盖提示 ComｍDlｇ。Filter = ”
35、文本文件|＊．ｔxｔ" ＇设置保存对话框的显示文件类型 ComｍDlg。ＳhowSaｖe '显示保存对话框 If CoｍｍDlg.FiｌeName <〉 "” Then '如果用户点确定按钮就写导出文件 Opeｎ CommＤlg。FileNaｍe For Oｕtpuｔ As ＃1 Prinｔ #1, ”员工ID号”; Taｂ; ”员工姓名”； Tab; "所属部门”； Tab； "职位名称＂； Tab； "本月工资" Ｆｏr i = １ Tｏ MSＦle
36、xGｒid1.Rｏws — 1 ’从MSFｌexＧrid1中循环把记录信息写进文件中 MSFlｅxGrid１.Ｒｏw = ｉ MSFlexGriｄ1。Ｃｏl ＝ 0 ＵＳＥR_ID ＝ MSFｌeｘGｒiｄ１。Text MSＦｌeｘＧrid1.Roｗ = i MSFｌeｘGrid１。Col ＝ 1 ＵSER＿NＡME = MＳＦｌｅxGrid1．Teｘt MＳFｌｅxGrid1.Row = i
37、 MSＦlｅｘGrid1。Ｃｏl = 2 USER＿PＡＲＴ = MSFｌｅxGrｉd1．Text ＭＳＦlexGrid1。Row = i ＭSFｌｅｘGｒid1。Col = ３ USER＿RＯＬE = MSFlexGｒiｄ1。Text MＳFlexGrid1。Row = ｉ ＭＳＦｌexGｒid1.Cｏl = ４ MONEＹ ＝ MＳFlexGｒid1．Tｅxt Prｉn
38、t ＃１， UＳEＲ＿ID； Ｔab; USER_ＮAＭE； Taｂ; USＥR_PART; Tab； USER_ROLE; Taｂ; ＭONEY Next ｉ Close #1 ’关闭文件 Ｅｎd If Eｎd Sub Private Sｕｂ Ｃommａnd2_Clｉck() Uｎloａｄ Me ＇返回主窗体 End Suｂ Privatｅ Sub Form_Load（) Ｄim sql As Sｔｒing Dim rs As New ADODB。Ｒeｃｏrdｓet Diｍ
39、 wｏrk As New ADOＤB.Reｃordsｅt ’考勤记录结果集 Dｉｍ i As Iｎｔｅｇer ’循环变量 Dｉｍ uｓerid Aｓ Striｎg Diｍ MOＮEY As Lｏng Ｄｉm temp As Long '考勤影响到的工资 Dim resultｃoｕnt As Long ＇返回记录数 Ｍe。Ｌｅft = (Ｓｃreeｎ。Width — Ｍe.ScaleWｉｄth) / ２ ’窗体居中显示 Ｍe.Top = （Scrｅen。Ｈeight —
40、 Ｍe.SｃａleHｅｉgｈt) ／ 2 Iｆ DbＨａndle.DbＣoｎｎeｃtｉon Tｈeｎ ’选定用户表中所有记录以及关联的角色和部门记录 sql ＝ ”SELECT USＥR_ID,USER_NAME,PART_NAＭＥ,ROLE_ＮAME，ROLE＿MOＮＥＹ FＲOM ＴBL_USＥR,ＴBＬ＿ROLE，TＢL＿ＰARＴ WHERE ＵSER_PART=PＡRT＿ＩD ANＤ USＥR＿ROLE=RＯＬE_ID” rs.ＣurｓorTｙpe = adOpenＤynamic rｓ．LockTypｅ = a
41、ｄLｏckOptimisｔｉｃ ｒs。Opｅn sｑl， ＤbＦinance reｓultcount = DｂＨａｎdle.resulｔcoｕnt（rs） Cls '设置电子表格的列头 MSFｌｅxGｒid１。Coｌs = 5 MSFｌｅxGrｉｄ1.Rows = ｒesｕltcount + １ MＳFlexGriｄ1．Ｒow = 0 MＳＦlexGrid1.Cｏl = 0 MＳＦlexGrid1.Texｔ = ＂员工ID号”
42、 ＭSＦlexGrid１．Cｏl = 1 MSFlexGrｉd1。Ｔｅxt = "员工姓名” MSFlexGrid1。Coｌ ＝ 2 MSＦｌｅxGrid1。Text = ”所属部门” MSFlｅxGriｄ1。Ｃol = ３ MＳFlexＧrid1。Tｅxｔ = "职位名称" MSFｌexGrid1。Ｃol = 4 MSFlexGrid１。Text = ”本月工资” Ｆor i = 0 To 4 MSＦlexGriｄ1。Col
43、Ｗidth(i） = ＭＳFｌｅxGrid1。Widｔh ／ 5 — 5 '平均分配每个列的宽 Next ｉ Fｏｒ i = １ Ｔｏ resｕlｔcoｕnt '循环将职工信息和基本工资放入电子表格 useriｄ = rs（”USER＿IＤ”) MSFlｅxGrid1。Row = i MSFlexＧrid1．Coｌ = 0 MＳFlｅxGriｄ1．Tｅxt = useｒｉd ＭSFｌexＧrid１。Col = 1
44、 MSFｌexGrid１.Text = rs(”USＥR＿NＡＭE”) MＳFleｘGrid１.Col = 2 MSFｌexＧrｉd1。Teｘt = ｒs（＂ＰART_NAMＥ"） ＭSＦlexGｒiｄ1.Col = ３ ＭSFlｅxＧrｉd１。Tｅxt = rs（"ROＬＥ＿NＡME”） MOＮEＹ = rｓ("RＯLＥ＿MOＮEY”) MSFlexGriｄ1。Ｃol = 4 MSＦlexG
45、rid1。Tｅxt = Ｓtr(MOＮＥY） rs.MoveNeｘt Neｘt i ｒｓ。Cloｓe Ｓet ｒs = Noｔhｉng Foｒ i = 1 To ｒｅsultｃount ’通过考勤表计算考勤信息影响的工资 MSＦlｅｘＧrid1。Roｗ = ｉ MSFｌeｘＧｒiｄ1。Col = 0 usｅrｉd = MSFｌexＧrid1．Tｅxｔ ＭＳＦlｅxＧrｉd1。Col = 4
46、 ＭONＥY = Val（MＳFlexGｒｉd1。Ｔｅxt) sql = ”ＳELECT WＯRK_TＩME,ＴYＰE_ＭＡRK,TYPＥ_ID ＦRＯM TBL_WＯRK,TBL_TYPE ＷHERE WORK_TYPE＝TＹPE_ＩD ＡＮＤ WORK_ID＝'” ＆ ｕsｅrid ＆ "'” ｗork。CursorTyｐe = ａdOpenDｙnamic wｏrk.LocｋTｙpｅ ＝ aｄLockOｐｔｉmistic woｒｋ。Ｏpen sqｌ， ＤbFｉn
47、anｃe '选取每一行职工ＩD的本月考勤信息 Do Whｉle ｗｏrk。EＯＦ ＝ Ｆａlsｅ Selecｔ Case ｗoｒｋ（"TＹPE_ID＂) ’通过考勤类别计算考勤时间和工资关系 Caｓe 1 tｅmp = work（"WORK_TIME”) * 1 Cａse 2 tｅｍp = work(”WORK_ＴIＭＥ"） * 2
48、 Case 3 temp = ｗoｒk("ＷORＫ＿TＩME"） ＊ 10 Case ４ temp = work(”WOＲK_TＩＭＥ”) ＊ 20 End Seｌect If worｋ(”TＹＰＥ_MARK"） Then ’当考勤类别是加班出差等要向基本工资中加工资 ＭＯNEＹ ＝ MＯNE
49、Y + tｅmｐ Elｓe MONＥY = ＭONEＹ — ｔemp ’当考勤类别是迟到早退等要向基本工资中减工资 Ｅnｄ Iｆ work。MｏｖeNｅｘt Looｐ MＳＦlexGrｉd1。Teｘｔ = Sｔｒ(MOＮEY) '重新设置每个人的月工资 ｗork。Cloｓe Next i DｂＨａnｄlｅ．DbCl
50、ose Else ’打开数据库失败错误退出 MsgＢox ”数据库错误!”, vｂExclamａtion ＤbHandle。ＤbCｌｏｓe Eｎｄ Eｎd Ｉｆ End Sub 5。4 固定资产管理的设计与实现 添加固定资产代码： Privatｅ Sｕb Comｍand1＿Ｃlick（） Ｄim sql Ａs Ｓtrinｇ Ｄim rｓ As New ADODＢ。Rｅcoｒｄｓｅt If Teｘｔ1．Text ＝ ”” Then ’判
©2010-2026 宁波自信网络信息技术有限公司 版权所有
客服电话：0574-28810668 投诉电话：18658249818
浙ICP备2021020529号-1 | 浙B2-20240490
关注我们 ：
