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

1、数据库课程设计报告 - PAGE 43 -学号：200610137234 成绩：_武汉科技大大学城市市学院课程设计报报告院 系 信息科科学与工工程系 专 业 计算机机科学与与技术 年级 班班 06级级 计科科二班 课程名称 数据库库应用与与原理 设计题目 公司办办公费用用信息管管理系统统姓 名 陈钊钊 指导教师 朱倩 2008年年 66 月 227 日设计题目:公司办公费费用管理理信息系系统设计计设计主要内内容:一、开发平平台：VVB+ SQLL SEERVEER 220000二、功能要要求：1、设计内内容设计一个公公司办公公费用管管理信息息系统，该该系统的的用户由由一般用用户和管管理员组组成

2、，然然后不同同的用户户拥有不不同的权权限，各各自完成成各自的的管理功功能，首首先是欢欢迎界面面，然后后选择登登录，登登录的时时候首先先要判断断用户的的身份，合合法的用用户然后后进入到到系统主主界面中中，不同同的用户户看到不不同的系系统功能能。用ssql serrverr20000创建建后台数数据库，然然后利用用程序设设计语言言（VBB）编写写程序实实现对数数据库的的操作，按按照要求求完成所所有的功功能和模模块。2、公司办办公费用用管理信信息系统统主要功功能（1）用户户管理：用户登登录界面面、用户户注册界界面、办办公费用用申请界界面、办办公费用用信息查查询界面面、本用用户密码码的修改改界面（2）

3、管理理员管理理：管理理员登录录界面、办办公费用用查询界界面、办办公费用用添加、删删除界面面、本用用户密码码修改界界面。 3、公公司办公公费用管管理信息息系统数数据库表表单（可可以按照照需求增增加）（1）用户户信息表表单：用用户名、密密码、用用户身份份（管理理员和普普通用户户）（2）部门门信息表表单：部部门编号号、部门门名称、部部门负责责人、联联系电话话、电子子邮件、备备注（3）办公公费用申申请表单单：序号号、费用用编号（外外码）、费费用金额额、部门门编号（外外码）、申申请年月月、是否否通过审审核、备备注（4）办公公费用类类别表单单：费用用编号、费费用名称称 （5）办公公费用控控制表单单：部门门

4、编号（外外码）、年年份、本本年预算算、本年年累计支支出 （6）办公公费用支支出明细细表单：序号、费费用编号号（外码码）、费费用金额额、部门门编号（外外码）、支支出日期期 三、课程设设计报告告主要内内容：1公司办公公费用管管理信息息系统需需求分析析（给出出系统功功能模块块图，对对各功能能作出详详细介绍绍）2公司办公公费用管管理信息息系统界界面设计计（给出出界面截截图及其其主要控控件的属属性设置置表格，并并给出各各界面的的详细代代码）3公司办公公费用管管理信息息系统数数据库设设计（给给出数据据库各个个表单中中数据的的字段名名，数据据类型及及其相应应的说明明）4公司办公公费用管管理信息息系统程程序设

5、计计（功能能模块给给出详细细的程序序代码，重重点语句句的注释释）1. 公司司办公费费用管理理信息系系统需求求分析公司办公费用管理信息系统公司办公费用管理信息系统登 录用 户 登 录管 理 员 登 录用户服务新用户注册管理员服务本用户密码的修改办公费用信息查询办公费用申请办公费用查询办公费用添加、删除本用户密码的修改 添 加更 新 删 除 查 询图1.1零零件交易易管理信信息系统统1.1欢迎迎界面系统启动之之后便可可进入欢欢迎界面面，单击“系统登陆陆”按钮便便可进入入选择登登陆界面面。1.2登录录界面1.2.11选中管管理员登登录后便便进入管管理员服服务界面面1.2.22选中用用户登录录后便进进

6、入用户户服务界界面1.2.33点注册册弹出注注册界面面，注册册成功可可返回登登录界面面1.3管理理员服务务界面 可以进进行办公公费用查查询，办办公费用用添加、删删除，本本用户密密码修改改。1.3.11本用户户密码修修改 管理员员通过输输入和确确认新密密码来更更改自己己的密码码。1.3.22办公费费用添加加、删除除 选此项后后弹出选选择费用用修改类类型，管管理员可可以查询询，删除除，添加加费用信信息，在在VB界界面中修修改了数数据库中中的信息息。1.3.33办公费费用查询询 管理员可可以根据据部门的的编号进进行查询询，可以以查询申申请和支支出两种种费用。1.4用户户界面 用户可可以进行行本用户户

7、密码的的修改，查查看零件件信息和和工程项项目使零零件情况况。1.4.11本用户户密码修修改用户通过输输入和确确认新密密码来更更改自己己的密码码。1.4.22办公费费用申请请 用户进进入界面面后可输输入信息息进行费费用申请请。1.4.33办公费费用信息息查询用户可以根根据部门门的编号号进行查查询，可可以查询询申请和和支出两两种费用用。2公司办办公费用用管理信信息系统统图2.1 欢迎界界面图2.2 登录界面面图2.3 新用户户注册界界面图2.4 管理理员服务务界面表2.1 管理理员服务务界面属属性表对象属性设定值Optioon1Captiion本用户密码码修改Optioon2Captiion办公费

8、用添添加、删删除Optioon3captiion办公费用查查询图2.5 用户户服务界界面表2.2 用户户服务界界面属性性表对象属性设定值Optioon1Captiion本用户密码码修改Optioon2Captiion办公费用申申请Optioon3captiion办公费用信信息查询询图2.6 用户户/管理理员密码码修改界界面图2.7 办公公费用申申请界面面图2.8 办公公费用查查询界面面(用户户/管理理员)表2.3 办公公费用查查询界面面属性表表对象属性设置值Dadaggridd1datassourrceAdodcc1Adodcc1CaptiionAdodcc1CommaandsstriingD

9、SN=cchennzhaaoCommaandttypee2-adccmdttablleRecorrdsoourccePartmmentt Visiibleefalsee图2.9 费用用修改类类型选择择图2.100 申请请费用修修改界面面表2.4 申请费费用修改改界面属属性表对象属性设置值Adodcc1CaptiionAdodcc1CommaandsstriingDSN=cchennzhaaoCommaandttypee2-adccmdttablleRecorrdsoourcceAppliicattionnVisibblefalseeAdodcc2CaptiionAdodcc2Commaands

10、striingDSN=cchennzhaaoCommaandttypee2-adccmdttablleVisibblefalseeRecorrdsoourcceContrrol图2.111 支出出费用修修改界面面表2.5 支出费费用界面面属性表表对象属性设置值dadaggriddDatassourrceAdodcc1Adodcc1CaptiionAdodcc1Commaandttypee2-adccmdttablleRecorrdsoourcceOutVisibblefalseeAdodcc2CaptiionAdodcc2Commaandttypee2-adccmdttablleRecorrd

11、soourcceOutVisibblefalsee 图2.111 MDII主窗体体界面3公司办办公费用用管理信信息系统统数据库库设计公司办公费费用管理理信息系系统总共共有六张张表：用用户信息息表单、部部门信息息表单、办办公费用用申请表表单、办办公费用用类别表表单、办办公费用用控制表表单、办办公费用用支出明明细表单单。表3.1 用户信信息表UUserrs字段名称标始名称数据类型是否允许为为空字段说明Unamee用户名char否主码Ukey密码char否Utypee用户类型char否 表3.2 部门信信息表PParttmennt字段名称标始名称数据类型是否允许为为空字段说明Pno部门编号char否

12、主码Pnamee部门名称char否Pmanaagerr负责人char是Pcalll电话char是Pemaiil电子邮件Char是Ps备注Char是表3.3 办公费费用申请请表Apppliicattionn字段名称标始名称数据类型是否允许为为空字段说明Ano序号int否主码Tno费用编号char否引用Typpe外码码Amoneey申请费用char是Pno部门编号char否Partmmentt外码Adatee申请时间smallldattetiime是Apermmit是否通过char是Aps备注char是 表3.4 办公费费用类别别表Tyype字段名称标始名称数据类型是否允许为为空字段说明Tno费用

13、编号char否主码Tnamee费用名称char否表3.5 办公费费用控制制表Coontrrol字段名称标始名称数据类型是否允许为为空字段说明Pno部门编号char否Partmmen外外码 Cyearr年份char是Cadvaancee本年预算char是Cout本年支出char是表3.6 办公费费用支出出明细表表Outt字段名称标始名称数据类型是否允许为为空字段说明Ono序号int否主码Tno费用编号char否引用Typpe外码码Omoneey支出金额char是Pno部门编号char否Partmmentt外码Odatee支出日期Smallldattetiime是4公司办办公费用用管理信信息系统统

14、程序设设计（部部分代码码）4.1欢迎迎界面欢迎界面是是整个系系统的首首页，用用户可通通过它进进入到登登录系统统。4.2登录录界面 进入此此界面后后，使用用者可根根据自己己的身份份选择登登录方式式。普通通用户选选择用户户登录，管管理员选选择管理理员登录录。如果是是新用户户，直接接点注册册。代码码如下：Dim aa Ass InnteggerPrivaate Subb Coommaand11_Cllickk()a = CCombbo1.LisstInndexxWhilee a = 00If Leen(TTextt1.TTextt) 0 Theen Adoddc1.CommmanndTyype =

15、aadCmmdTeext Adoddc1.ReccorddSouurcee = seelecct uunamme ffromm usserss whheree unnamee = & TTrimm(Teext11.Teext) & andd Uttypee = & 用户 & Adoddc1.Reffressh Elsee MsgBBox 请填填写用户户名 Exitt Suub End If If Adoodc11.Reecorrdseet.EEOF = TTruee Thhen MssgBoox 姓名错错误!, 448, waarniing! Teext11.Teext = Teext22.T

16、eext = Exxit Subb End If IIf LLen(Texxt2.Texxt) 00 Thhen Adoddc1.CommmanndTyype = aadCmmdTeext Adoddc1.ReccorddSouurcee = seelecct uukeyy frrom useers wheere unaame = & Trrim(Texxt1.Texxt) & Adoddc1.Reffressh Elsee MsgBBox 请填填写密码码 Exitt Suub End If If StrrCommp(TTrimm(Addodcc1.RRecoordsset.Fieeldss(

17、uukeyy).Vallue), TTrimm(Foorm22.Teext22.Teext) 00 Thhen MsgBBox 密码码错误!, 48, wwarnningg Textt2.TTextt = Textt2.SSetFFocuus Exitt Suub Ellse MssgBoox 登录成成功 Foorm44.Shhow Foorm22.Hiide Exxit SubbEnd IIfWendWhilee a = 11If Leen(TTextt1.TTextt) 0 Theen Adoddc1.CommmanndTyype = aadCmmdTeext Adoddc1.Reccor

18、ddSouurcee = seelecct uunamme ffromm usserss whheree unnamee = & TTrimm(Teext11.Teext) & andd Uttypee = & 管理员员 & Adoddc1.Reffressh Elsee MsgBBox 请填填写用户户名 Exitt Suub End IfIf Addodcc1.RRecoordsset.EOFF = Truue TThenn MssgBoox 姓名错错误!, 448, waarniing! Teext11.Teext = Teext22.Teext = Exxit Subb End If I

19、If LLen(Texxt2.Texxt) 00 Thhen Adoddc1.CommmanndTyype = aadCmmdTeext Adoddc1.ReccorddSouurcee = seelecct uukeyy frrom useers wheere unaame = & Trrim(Texxt1.Texxt) & Adoddc1.Reffressh Elsee MsgBBox 请填填写密码码 Exitt Suub End If If StrrCommp(TTrimm(Addodcc1.RRecoordsset.Fieeldss(uukeyy).Vallue), TTrimm(Fo

20、orm22.Teext22.Teext) 00 Thhen MsgBBox 密码码错误!, 48, wwarnningg Textt2.TTextt = Textt2.SSetFFocuus Exitt Suub Ellse MssgBoox 登录成成功 Foorm55.Shhow Foorm22.Hiide Exxit SubbEnd IIfWendEnd SSubPrivaate Subb Coommaand22_Cllickk()Dim aa Ass Innteggera = MMsgBBox(您真真的要退退出吗？, 3055, 提示)If a = 11 Thhen End End If

21、End SSubPrivaate Subb Coommaand33_Cllickk()Form33.ShhowEnd SSubPrivaate Subb Foorm_Loaad()Comboo1.AAddIItemm 用用户Comboo1.AAddIItemm 管管理员Comboo1.TTextt = Commbo11.Liist(0)Text11.Teext = Text22.Teext = End SSub4.3用户户服务界界面用户登录进进去后，可可以到用用户服务务界面选选择自己己所需的的服务，该该界面为为用户提提供了三三种服务务，分别别是“本用户户密码的的修改”，“办公费费用信息息查询”

22、和“办公费费用申请请”。4.4 管管理员服服务界面面管理员登录录进去后后，可以以到管理理员服务务界面选选择自己己所需的的服务，该该界面为为管理员员提供了了三种服服务，分分别是“本用户户密码的的修改”，“办公费费用信息息查询”和“办公费费用添加加、删除除”。4.5 用用户密码码修改界界面程序序设计（管管理员密密码修改改也是次次界面）用户如需修修改自己己的密码码可在此此界面进进行，用用户通过过用户服服务界面面到此，然然后在此此界面中中输入原原始密码码和新密密码并验验证新密密码，确确认后如如果无误误就会提提示用户户修改成成功，并并且其密密码在用用户信息息表中也也会有相相应的修修改。代代码如下下：Pr

23、ivaate Subb Coommaand11_Cllickk()If Trrim(Texxt1.Texxt = ) TThenn MsggBoxx 请请输入密密码！, 00, 提示 Texxt1.SettFoccus Exiit SSubEnd IIfAdodcc1.CCommmanddTyppe = addCmddTexxtAdodcc1.RRecoordSSourrce = sellectt ukkey froom uuserrs wwherre uunamme = & Triim(FFormm2.TTextt1.TTextt) & Annd uukeyy = & TTrimm(Foor

24、m66.Teext11.Teext) & Adodcc1.RRefrreshhIf Addodcc1.RRecoordsset.EOFF = Truue TThenn MsggBoxx 密密码不正正确，请请重新输输入！, 00, 提示 Texxt1.Texxt = Texxt2.Texxt = Texxt3.Texxt = Texxt1.SettFoccus Exiit SSubEnd IIfIf Trrim(Texxt2.Texxt) = TThenn MsggBoxx 请请输入新新密码, 00, 提示 Texxt2.SettFoccus Exiit SSubEnd IIfIf Trrim(

25、Texxt2.Texxt) Triim(TTextt3.TTextt) TThenn MsggBoxx 新新密码不不一致,请从新新输入, 00, 提示 Texxt2.Texxt = Texxt3.Texxt = Texxt2.SettFoccus Exiit SSubEnd IIfAdodcc1.RRecoordsset.Fieeldss(uukeyy).Vallue = TTrimm(Teext33.Teext)Adodcc1.RRecoordsset.UpddateeAdodcc1.RRefrreshhMsgBoox 修改密密码成功功！, 0, 提提示Unloaad MMeEnd SSub

26、Privaate Subb Coommaand22_Cllickk()Unloaad MMeEnd SSub4.6办公公费用查查询界面面用户可通过过输入部部门编号号查找相相应部门门信息，还还可以查查询此部部门申请请/支出出费用信信息。利利用daataggridd和addodcc控件的的连接显显示出来来。代码码如下：Dim ii Ass VaariaantPrivaate Subb Coommaand11_Cllickk()Adodcc1.RRecoordsset.MovveFiirsttEnd SSubPrivaate Subb Coommaand22_Cllickk()Adodcc1.RRe

27、coordsset.MovvePrreviioussIf Addodcc1.RRecoordsset.BOFF = Truue TThenn Adoddc1.Reccorddsett.MooveFFirsst End IfEnd SSubPrivaate Subb Coommaand33_Cllickk()Adodcc1.RRecoordsset.MovveNeextIf Addodcc1.RRecoordsset.EOFF = Truue TThenn Adoddc1.Reccorddsett.MooveLLastt End IfEnd SSubPrivaate Subb Coommaand

28、44_Cllickk()Adodcc1.RRecoordsset.MovveLaastEnd SSubPrivaate Subb Coommaand55_Cllickk()Unloaad MMeEnd SSubPrivaate Subb Coommaand66_Cllickk()Dim sstrppno As StrringgDim sstrsseleect As Strringgstrpnno = Trrim(Forrm7.Texxt1.Texxt)strseelecct = sseleect typpe.ttno,tnaame,amooneyy frrom typpe jjoinn app

29、pliicattionn onn tyype.tnoo = apppliccatiion.tnoo whheree apppliicattionn.pnno = & strrpnoo & Adodcc1.CCommmanddTyppe = addCmddTexxtAdodcc1.RRecoordSSourrce = sstrsseleectAdodcc1.RRefrreshhSet DDataaGriid1.DattaSoourcce = Addodcc1 DDataaGriid1.Collumnns(00).CCapttionn = 费用用编号 DDataaGriid1.Collumnns(

30、11).CCapttionn = 费用用名称 DDataaGriid1.Collumnns(22).CCapttionn = 申请请金额End SSubPrivaate Subb Coommaand77_Cllickk()Dim sstrppno As StrringgDim sstrsseleect As Strringgstrpnno = Trrim(Forrm7.Texxt1.Texxt)strseelecct = sseleect typpe.ttno,tnaame,omooneyy frrom typpe jjoinn ouut oon ttypee.tnno = ouut.ttno

31、 wheere outt.pnno = & strrpnoo & Adodcc1.CCommmanddTyppe = addCmddTexxtAdodcc1.RRecoordSSourrce = sstrsseleectAdodcc1.RRefrreshhSet DDataaGriid1.DattaSoourcce = Addodcc1 DDataaGriid1.Collumnns(00).CCapttionn = 费用用编号 DDataaGriid1.Collumnns(11).CCapttionn = 费用用名称 DDataaGriid1.Collumnns(22).CCapttionn

32、= 支出出金额End SSubPrivaate Subb Coommaand88_Cllickk()Dim sstrsseleect As Strringgstrseelecct = sseleect pnoo,pnnamee,pmmanaagerr,pccalll,peemaiil,pps ffromm paartmmenttAdodcc1.CCommmanddTyppe = addCmddTexxtAdodcc1.RRecoordSSourrce = sstrsseleectAdodcc1.RRefrreshhSet DDataaGriid1.DattaSoourcce = Addodcc

33、1DataGGridd1.CColuumnss(0).Caaptiion = 部门编编号 DDataaGriid1.Collumnns(11).CCapttionn = 部门门名称 DDataaGriid1.Collumnns(22).CCapttionn = 负责责人 DDataaGriid1.Collumnns(33).CCapttionn = 联系系电话 DDataaGriid1.Collumnns(44).CCapttionn = 电子子邮件 DDataaGriid1.Collumnns(55).CCapttionn = 备注注End SSubPrivaate Subb Coommaa

34、nd99_Cllickk()Dim sstrsseleect As StrringgIf Leen(TTextt4.TTextt) 0 Theenstrseelecct = sseleect pnoo,pnnamee,pmmanaagerr,pccalll,peemaiil,pps ffromm paartmmentt whheree pnno = & Triim(TTextt4.TTextt) & Adodcc1.CCommmanddTyppe = addCmddTexxtAdodcc1.RRecoordSSourrce = sstrsseleectAdodcc1.RRefrreshh II

35、f AAdoddc1.Reccorddsett.EOOF = Trrue Theen MMsgBBox 没有有这个部部门 TTextt4.TTextt = TTextt4.SSetFFocuus EExitt Suub EElsee Sett DaataGGridd1.DDataaSouurcee = Adoodc11 DDataaGriid1.Collumnns(00).CCapttionn = 部门门编号 DDataaGriid1.Collumnns(11).CCapttionn = 部门门名称 DDataaGriid1.Collumnns(22).CCapttionn = 负责责人 DD

36、ataaGriid1.Collumnns(33).CCapttionn = 联系系电话 DDataaGriid1.Collumnns(44).CCapttionn = 电子子邮件 DDataaGriid1.Collumnns(55).CCapttionn = 备注注 EEnd IfEnd IIfEnd SSubPrivaate Subb Foorm_Loaad()Set DDataaGriid1.DattaSoourcce = Addodcc1DataGGridd1.CColuumnss(0).Caaptiion = 部门编编号 DDataaGriid1.Collumnns(11).CCapt

37、tionn = 部门门名称 DDataaGriid1.Collumnns(22).CCapttionn = 负责责人 DDataaGriid1.Collumnns(33).CCapttionn = 联系系电话 DDataaGriid1.Collumnns(44).CCapttionn = 电子子邮件 DDataaGriid1.Collumnns(55).CCapttionn = 备注注End SSub4.7办公公费用添添加、删删除界面面从管理员服服务界面面进入，有有两种费费用类型型，申请请/支出出费用修修改，管管理员需需要选择择。申请请费用修修改界面面代码如如下：Dim aa Ass Innt

38、eggerDim bb Ass VaariaantDim cc Ass VaariaantPrivaate Subb Coommaand55_Cllickk()设置文本本可编辑辑Text11.Loockeed = FaalseeText22.Loockeed = FaalseeText33.Loockeed = FaalseeText77.Loockeed = FaalseeText55.Loockeed = FaalseeText66.Loockeed = FaalseeAdodcc1.CCommmanddTyppe = addCmddTexxtAdodcc1.RRecoordSSourrc

39、e = sellectt maax(aano) maax ffromm apppliicattionnAdodcc1.RRefrreshha = AAdoddc1.Reccorddsett.Fiieldds(maxx).Vallue 将序号号的最大大值赋给给aAdodcc1.CCommmanddTyppe = addCmddTabbleAdodcc1.RRecoordSSourrce = apppliccatiionAdodcc1.RRefrreshhAdodcc1.RRecoordsset.AdddNewwText11.SeetFoocussCommaand55.Ennablled = FF

40、alsseCommaand66.Ennablled = FFalsseCommaand77.Ennablled = TTrueeCommaand88.Ennablled = TTrueeEnd SSubPrivaate Subb Coommaand66_Cllickk()Dim rres As InttegeerDim dd Ass Vaariaantres = MssgBoox(确实要要删除此此行记录录吗？, vvbExxclaamattionn + vbYYesNNo + vbbDeffaulltBuuttoon2) IIf rres = vvbYees TThenn Iff Addodc

41、c1.RRecoordsset.ReccorddCouunt 11 Thhen Adoodc22.CoommaandTTypee = adCCmdTTextt Adoodc22.ReecorrdSoourcce = sseleect * ffromm coontrrol wheere pnoo = & Trrim(Texxt3.Texxt) & annd ccyeaar = & Midd$(TTrimm(Teext55.Teext), 11, 44) & Adoodc22.Reefreesh 如果是是通过的的申请费费用，有有日期的的，则从从预算中中减去这这部分费费用 If Triim(TTex

42、tt6.TTextt) = 是是 AAnd Lenn(Teext55.Teext) 0 TThenn d = Adoodc22.Reecorrdseet.FFiellds(caadvaancee).Vallue - VVal(Triim(TTextt2.TTextt) Adoodc22.Reecorrdseet.FFiellds(caadvaancee).Vallue = dd Adoodc22.Reecorrdseet.UUpdaate Endd Iff AAdoddc1.Reccorddsett.Deelette Adoodc11.Reecorrdseet.UUpdaate EEnd If

43、 Iff Addodcc1.RRecoordsset.EOFF = Truue TThenn Adoodc11.Reecorrdseet.MMoveeLasst Endd Iff Ellse MssgBoox 不能将将数据全全部删除除 Exxit Subb EEnd IfEnd SSubPrivaate Subb Coommaand77_Cllickk()Adodcc1.RRecoordsset.Fieeldss(aano).VValuue = a + 11If Leen(TTextt1.TTextt) 0 TheenAdodcc2.CCommmanddTyppe = addCmddTexxt

44、Adodcc2.RRecoordSSourrce = sellectt tnno ffromm tyype wheere tnoo = & TTrimm(Teext11.Teext) & Adodcc2.RRefrreshh If Adoodc22.Reecorrdseet.EEOF = TTruee Thhen MssgBoox 无此费费用编号号 Teext11.Teext = Teext11.SeetFoocuss Exxit Subb Elsse Addodcc1.RRecoordsset.Fieeldss(ttno).VValuue = Trrim(Texxt1.Texxt) Endd

45、 IffEnd IIfIf IssNummeriic(TTrimm(Teext22.Teext) = Trrue TheenAdodcc1.RRecoordsset.Fieeldss(aamonney).VValuue = Trrim(Texxt2.Texxt)ElseMsgBoox 请输入入数字Text22.Teext = Text22.SeetFoocussExit SubbEnd IIfIf Leen(TTextt3.TTextt) 0 TheenAdodcc2.CCommmanddTyppe = addCmddTexxtAdodcc2.RRecoordSSourrce = sellec

46、tt pnno ffromm paartmmentt whheree pnno = & Triim(TTextt3.TTextt) & Adodcc2.RRefrreshh If Adoodc22.Reecorrdseet.EEOF = TTruee Thhen MssgBoox 无此部部门编号号 Teext33.Teext = Teext33.SeetFoocuss Exxit Subb Elsse Addodcc1.RRecoordsset.Fieeldss(ppno).VValuue = Trrim(Texxt3.Texxt) Endd IffEnd IIfIf Leen(TTextt3

47、.TTextt) = 00 ThhenMsgBoox 请输入入部门编编号Text33.SeetFoocussExit SubbEnd IIfIf Leen(TTextt1.TTextt) 0 Theen If IsDDatee(Trrim(Texxt5.Texxt) = Truue TThenn Adoodc11.Reecorrdseet.FFiellds(addatee).Vallue = TTrimm(Teext55.Teext) Elsse MsggBoxx 日日期格式式错误，请请按XXXXX-XX-XX输输入 Texxt5.Texxt = Texxt5.SettFoccus Exiit

48、 SSub Endd IffEnd IIfAdodcc1.RRecoordsset.Fieeldss(aaperrmitt).Vallue = TTrimm(Teext66.Teext)Adodcc1.RRecoordsset.Fieeldss(aaps).VValuue = Trrim(Texxt7.Texxt)如果申请请通过，则则将申请请的费用用金额加加如到对对应预算算中If Trrim(Texxt6.Texxt) = 是 Theen IIf LLen(Texxt5.Texxt) 00 Thhenb = MMid$(Trrim(Texxt5.Texxt), 1, 4) 取取日期的的年份Ad

49、odcc2.CCommmanddTyppe = addCmddTexxtAdodcc2.RRecoordSSourrce = sellectt * froom cconttroll whheree pnno = & Triim(TTextt3.TTextt) & annd ccyeaar = & b & Adodcc2.RRefrreshhc = AAdoddc2.Reccorddsett.Fiieldds(caddvannce).VValuue + Vaal(TTrimm(Teext22.Teext) 取取预算金金额和申申请金额额之和Adodcc2.RRecoordsset.Fieeldss

50、(ccadvvancce).Vaaluee = cAdodcc2.RRecoordsset.Upddatee Ennd IIfEnd IIfAdodcc1.RRecoordsset.UpddateeMsgBoox 更新成成功设置文本本不可编编辑Text11.Loockeed = TrrueText22.Loockeed = TrrueText33.Loockeed = TrrueText77.Loockeed = TrrueText55.Loockeed = TrrueText66.Loockeed = TrrueCommaand55.Ennablled = TTrueeCommaand66.

51、Ennablled = TTrueeCommaand88.Ennablled = FFalsseEnd SSubPrivaate Subb Coommaand88_Cllickk()Adodcc1.RRecoordsset.CanncellUpddateeCommaand55.Ennablled = TTrueeCommaand66.Ennablled = TTrueeCommaand88.Ennablled = FFalsseEnd SSubPrivaate Subb Foorm_Loaad()Commaand88.Ennablled = FFalsseCommaand77.Ennablle

52、d = FFalsseEnd SSubPrivaate Subb Coommaand11_Cllickk()Adodcc1.RRecoordsset.MovveFiirsttEnd SSubPrivaate Subb Coommaand22_Cllickk()Adodcc1.RRecoordsset.MovvePrreviioussIf Addodcc1.RRecoordsset.BOFF = Truue TThenn Adoddc1.Reccorddsett.MooveFFirsst End IfEnd SSubPrivaate Subb Coommaand33_Cllickk()Adodc

53、c1.RRecoordsset.MovveNeextIf Addodcc1.RRecoordsset.EOFF = Truue TThenn Adoddc1.Reccorddsett.MooveLLastt End IfEnd SSubPrivaate Subb Coommaand44_Cllickk()Adodcc1.RRecoordsset.MovveLaastEnd SSub支出费用修修改代码码如下：Dim aa Ass InnteggerDim bb Ass VaariaantDim cc Ass VaariaantPrivaate Subb Coommaand55_Cllickk()

54、Adodcc1.CCommmanddTyppe = addCmddTexxtAdodcc1.RRecoordSSourrce = sellectt maax(oono) maax ffromm ouutAdodcc1.RRefrreshha = AAdoddc1.Reccorddsett.Fiieldds(maxx).VallueAdodcc1.CCommmanddTyppe = addCmddTabbleAdodcc1.RRecoordSSourrce = outtAdodcc1.RRefrreshhAdodcc1.RRecoordsset.AdddNewwText11.SeetFoocus

55、sCommaand55.Ennablled = FFalsseCommaand66.Ennablled = FFalsseCommaand77.Ennablled = TTrueeCommaand88.Ennablled = TTrueeEnd SSubPrivaate Subb Coommaand66_Cllickk()Dim rres As Inttegeerres = MssgBoox(确实要要删除此此行记录录吗？, vvbExxclaamattionn + vbYYesNNo + vbbDeffaulltBuuttoon2) If ress = vbYYes Theen Iff Add

56、odcc1.RRecoordsset.ReccorddCouunt 11 Thhen 如如果支出出的费用用有日期期，则从从总支出出中去掉掉这部分分支出 IIf LLen(Texxt5.Texxt) 00 Thhen AAdoddc2.CommmanndTyype = aadCmmdTeext AAdoddc2.ReccorddSouurcee = seelecct * frrom conntrool wwherre ppno = & Triim(TTextt3.TTextt) & andd cyyearr = & MMid$(Trrim(Texxt5.Texxt), 1, 4) & AAdod

57、dc2.Reffressh d = Addodcc2.RRecoordsset.Fieeldss(ccoutt).Vallue - VVal(Triim(TTextt2.TTextt) AAdoddc2.Reccorddsett.Fiieldds(couut).Vaaluee = d AAdoddc2.Reccorddsett.Uppdatte Adoodc11.Reecorrdseet.DDeleete AAdoddc1.Reccorddsett.Uppdatte EEnd If Iff Addodcc1.RRecoordsset.EOFF = Truue TThenn Adoodc11.R

58、eecorrdseet.MMoveeLasst Endd Iff Ellse MssgBoox 不能将将数据全全部删除除 Exxit Subb Ennd IIf Ennd IIfEnd SSubPrivaate Subb Coommaand77_Cllickk()Adodcc1.RRecoordsset.Fieeldss(oono).VValuue = a + 11If Leen(TTextt1.TTextt) 0 TheenAdodcc2.CCommmanddTyppe = addCmddTexxtAdodcc2.RRecoordSSourrce = sellectt tnno ffromm

59、 tyype wheere tnoo = & TTrimm(Teext11.Teext) & Adodcc2.RRefrreshh If Adoodc22.Reecorrdseet.EEOF = TTruee Thhen MssgBoox 无此费费用编号号 Teext11.Teext = Teext11.SeetFoocuss Exxit Subb Elsse Addodcc1.RRecoordsset.Fieeldss(ttno).VValuue = Trrim(Texxt1.Texxt) Endd IffEnd IIfIf IssNummeriic(TTrimm(Teext22.Teext

60、) = Trrue TheenAdodcc1.RRecoordsset.Fieeldss(oomonney).VValuue = Trrim(Texxt2.Texxt)ElseMsgBoox 请输入入数字Text22.Teext = Text22.SeetFoocussExit SubbEnd IIfIf Leen(TTextt3.TTextt) 0 TheenAdodcc2.CCommmanddTyppe = addCmddTexxtAdodcc2.RRecoordSSourrce = sellectt pnno ffromm paartmmentt whheree pnno = & Tri