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

学号：200610137234成绩：________武汉科技大学城市学院课程设计报告院系信息科学与工程系专业计算机科学与技术年级班06级计科二班课程名称数据库应用与原理设计题目公司办公费用信息管理系统姓名陈钊指导教师朱倩才200狂8摩年6据葛月锦27滥炮旷日设计题目:菊公司办公费另用管理信息怀系统设计键设计主要内都容:骆一、开发平对台糕：VB+玩SQLS烛ERVER册2000情二、功能要论求烂：殃1、设计内笑容容设计一个公蠢司办公费用蒜管理信息系庄统，该系统液的用户由一宗般用户和管判理员组成，辜然后不同的六用户拥有不循同的权限，字各自完成各带自的管理功撕能，首先是杰欢迎界面，樱然后选择登开录，登录的拒时候首先要驰判断用户的却身份，合法清的用户然后拢进入到系统圆主界面中，密不同的用户观看到不同的州系统功能。嚷用sql亚serve辱r2000裙创建后台数修据库，然后滑利用程序设蓝计语言（V主B）编写程挪序实现对数卧据库的操作删，按照要求议完成所有的狮功能和模块屯。着2、公司办湿公费用管理鞠信息系统主窝要功能愚（1）用户练管理：用户样登录界面、联用户注册界咐面、办公费鲜用申请界面避、办公费用江信息查询界孔面、本用户针密码的修改念界面指（2）义管理员管理冤：管理员登递录界面、办追公费用查询土界面、办公者费用添加、四删除词界面、本用然户密码修改坚界面。祸3、奇公司办公费千用管理信息吧系统数据库崭表单（可以妨按照需求增书加）超（1）用户童信息表单：残用户名、密狗码、用户身随份（管理员趴和普通用户熊）到（2）部门残信息表单：介部门编号、普部门名称、疤部门负责人箱、联系刚、电子邮件触、备注欲（3）办公血费用申请表林单：序号、杰费用编号害（外码）桑、费用金额插、部门编号罪（外码）需、申请年月多、是否通过沸审核、备注减（4）办公星费用类别表宿单：费用编军号、费用名演称点（5）办公忠费用控制表缎单：部门编圣号题（外码）旁、年份、本王年预算、本弓年累计支出蜻洲（6）办公韵费用支出明铲细表单：序雕号、费用编懂号愉（外码）过、费用金额宣、部门编号瑞（外码）驾、支出日期坦旧三、课程设损计报告主要朽内容若：邪1公司办公热费用管理信躲息系统需求粒分析（给出芹系统功能模居块图，对各夹功能作出详间细介绍）给2公司办公拌费用管理信补息系统界面店设计（给出禽界面截图及专其主要控件答的属性设置监表格，并给劳出各界面的能详细代码）虾3公司办公黎费用管理信逮息系统数据拌库设计（给约出数据库各遇个表单中数锐据的字段名困，数据类型茧及其相应的泥说明）傲4公司办公咐费用管理信翠息系统程序挠设计（功能晴模块给出详券细的程序代滴码，重点语勤句的注释）忧1.兽荷公司办公费倒用管理信息健系统菊需求分析公司办公费用管理信息系统公司办公费用管理信息系统登录用户登录管理员登录用户服务新用户注册管理员服务本用户密码的修改办公费用信息查询办公费用申请办公费用查询办公费用添加、删除本用户密码的修改添加更新删除查询撕图专1洒.1零件交纸易管理信息争系统拢1.1欢迎乔界面魄系统启动之擦后便可进入溜欢迎界面抓，事单击映“普系统托登陆做”博按钮便可进扶入选择登陆晓界面。辛1.2登录外界面厘申选中管理员侦登录后便进赔入管理员痛服务竟界面累普选中用户登嫩录晨后便进入用哭户服务耽界面稍张点注册弹出陶注册界面贱，注册成功皱可返回登录蝶界面象1.3管理估员伤服务铸界面映映可以进行筹办公费用查奴询，办公费坦用添加、删卡除，本用户逢密码修改。涉恋本用户密码售修改烟脸管理员咬通过输入和挂确认新密码川来更改自己畜的密码。望菊办公费用添概加、删除无熔选此项巩后弹出选择负费用修改类晒型，冠管理员可以搬查询，窗删除，添加睡费用治信息傻，在VB界装面中修改了逃数据库中的躁信息。脱导办公费用查川询庆纯管理员可以避根据芝部门的编号头进行查询，挨可以查询申遵请和支出两忆种费用。聪1.4用户击界面抖伶用户可以进隶行本用户密奶码的修改，趣查看零件信涉息和工程项撒目使零件情工况迅。辟兴本用户密码链修改扣用户疑通过输入和俱确认新密码仅来更改自己坚的密码。晚炸办公费用申树请煎轿用户进入界露面后可沟输入信息进参行费用申请霜。雾桨办公费用信发息查询填用户料可以根据蝇部门的编号顷进行查询，患可以查询申度请和支出两闻种费用。及2．芬公司办公费趟用管理信息党系统恨图昏2.惑1骑饼欢迎界面禁图阳2.峡2派脸登录吗界面犁图款2.僵3典烦新用户注册登界面聋图狗2.硬4嚼欠管理员尺服务趣界面英表搭2底.1抹绑管理员服务虹界面属性泛表飘对象途属性慢设定值虫Optio翻n1飘Capti样on早本用户密码蹈修改箱O守ption却2吗C彻aptio薯n贫办公费用添错加、删除嫩O心ption装3尚capti使on歌办公费用查佩询旁图块2.论5迹村用户服务界多面帆表2莫.2企挣用户服务界栏面属性煤表蚁对象临属性屋设定值拒Optio姓n1眠Capti粗on祸本用户密码桨修改临O优ption驾2竭C气aptio贤n日办公费用申勇请跨O管ption道3秘capti终on昌办公费用信扶息查询轨图锣2.稻6辫劝用户谅/管理员家密码修改屑界面和图脚2.门7庆躲办公费用申涉请界面探图酬2.悠8成泳办公费用查翅询劝界面闪(用户/管四理员)牌表2.3托着办公费用查行询臣界面属性笋表居对象仆属性忙设置值掩D晶adagr饰id刺1吹datas党ource蚀A夫dodc1见A难dodc1炎C揉aptio差n姨A航dodc1讨Comma宪ndstr寿ing垄DSN=c前henzh理ao叠C俭omman腾dtype俭2-adc限mdtab室le设R但ecord概sourc峡e肌Partm上ent盯V兵isibl险e墨false偶图疾2.房9错乘费用修改类贴型选择爱图弯2.畅10载定申请费用修倾改气界面架表2.塌4耐律申请费用修斗改汪界面属性理表婆对象骄属性孝设置值美A苹dodc1狮C疤aptio体n阀A认dodc1油Comma蛾ndstr听ing淋DSN=c吩henzh课ao解C革om窗mandt蚀ype朵2-adc毕mdtab傻le烟Recor浓dsour惕ce度Appli裙catio宜n牧V瑞isibl恩e驴false暑Adodc男2要Capti袄on艇Adodc异2郊Comma凝ndstr皱ing吩DSN=c誉henzh峡ao础Comma柄ndtyp钱e烫2-adc住mdtab翠le锐Visib崖le轮false胁Recor钳dsour术ce掌Contr背ol练图赵2.婚11搞废支出费用修量改界面婚表2.坑5番馒六支出费用融界面属性锅表歇对象遍属性预设置值荡dadag蹦rid珠D锣ataso剧urce眯A愚dod延c1拔A忘dodc1摔C傅aptio丰n流A矩dodc1疑C信omman谷dtype滔2-adc猴mdtab设le结R毕ecord撒sourc乱e僻Out传V汤isibl冰e蹦false撑A卷dodc2忌Capti辈on屯A沫dodc2仆Comma物ndtyp材e否2-adc袋mdtab识le萌Recor丧dsour辨ce覆Out莫Visib贯le橡false亩行顶涛图2.11禾MD致I主窗体界诊面臭3．六公司办公费乡用瓶管理信息系哪统数据库设仓计誓公司办公费麦用管理信息蹄系统总共有考六张表：祸用户信息表失单、部门信井息表单、办班公费用申请筹表单、办公辆费用类别表航单、办公费给用控制表单券、办公费用州支出明细表仪单。逮表夺3.婆1峡泰用户信息表打Users扣字段名称毅标始名称槐数据类型卫是否允许为掩空联字段说明商Uname胆用户名洪char顶否晌主码壁Ukey培密码说char快否蔑Utype石用户类型艺char乘否随乞急妖游表寄3.纸2胆欢部门信息表的Partm缝ent另字段名称徒标始名称贝数据类型微是否允许为在空煎字段说明让Pno窄部门编号饮char贼否荐主码匪Pname炸部门名称柴char束否艺Pmana贝ger恢负责人近char揉是送Pcall课阁char雪是垮Pemai凶l奉电子邮件黄C比har著是刷Ps借备注脾C颜har科是柜表吉3.妙3选捎办公费用申倦请表丧Appli惩catio野n披字段名称叫标始名称滑数据类型棉是否允许为嘴空碧字段说明威A皮no溜序号申int谋否左主码肢Tno巷费用编号贸char彻否锐引用Typ迫e外码叼Amone吹y衬申请费用包char林是叨Pno革部门编号档char轧否核Partm薪ent外码问Adate渣申请时间兰small悬datet晃ime嫁是安Aper蔬mit艳是否通过虽char赖是泽Aps巡备注健char倡是尾访懒表旋3.锡4倦争办公费用类施别表帅Type牢字段名称垂标始名称管数据类型庆是否允许为恶空屈字段说明凶Tno笛费用锐编号望char卡否芬主码惕Tname情费用名称养char戏否饲表屑3.棕5碑榜办公费用控犹制表件Contr酿ol渴字段名称师标始名称暗数据类型困是否允许为偿空朱字段说明间P制no骆部门穿编号灭char筐否虾P坏artme陵n肺外码拨移Cyear晴年份电char浪是晴Cadva秋nce华本年预算灰char扎是愁Cout颜本年支出捧ch厅ar奸是杯表患3.引6捷抱办公费用支做出明细表赔Out赴字段名称仁标始名称床数据类型肝是否允许为巨空茂字段说明滩Ono侍序号轨int干否旁主码毛Tno笑费用编号轮char李否若引用Typ品e外码概Omone打y惭支出金额贝char题是挡Pno祖部门编号画char转否扭P桂artme铲nt外码含Odate育支出日期皱S帖malld想ateti私me援是石4．科公司办公费宋用碗管理信息系舌统程序设计宝（部分代码酸）蛛4途.次1欢迎界面段欢迎界面是汽整个系统的真首页贱，用户可通贯过它进入到与登录绝系统。统4套.备2姜登录耐界面亡殃进入此界面婶后，使用者哭可根据自己添的身份选择唇登录方式。夸普通用户选海择用户登录喇，管理员选哥择管理员登掘录庆。聪如果是新用姥户，直接点震注册。雁代码如下：糖Dima强AsI钥ntege挖r嫁Priva医teSu辜bCom阿mand1矛_Clic粉k()折a=C阔ombo1练.List坊Index清While拢a=洞0规IfLe枣n(Tex玩t1.Te她xt)>拿0Th昆en萄Adod怪c1.Co限mmand团Type普=adC原mdTex肤t彻Adod有c1.Re邮cordS三ource角="s哭elect帮unam糊efro传muse残rswh肝ereu崇name搂='"烟&Tri剧m(Tex榨t1.Te秤xt)&祝"'a见ndUt女ype=响'"&街"用户"番&"'锯"朵Adod穴c1.Re聋freshElse慰MsgB傲ox"请肥填写用户名树"图Exit路Sub扎End扁If挂If再Adodc揪1.Rec段ordse如t.EOF垄=Tr乘ueTh放en春Ms酿gBox凶"姓名错误胳!",4举8,"w陡arnin题g!"贞Te腔xt1.T唯ext=楚""姥Te著xt2.T高ext=菜""赖Ex截itSu椅b扭End叨If扒I围f舟Len(T泪ext2.裁Text)虚>0主Then短Adod雾c1.Co鬼mmand让Type两=adC倍mdTex扁t胶Adod泛c1.Re绞cordS尺ource患="s服elect搏ukey块from六user伸swhe霉reun醋ame=室'"&扬Trim昨(Text优1.Tex犁t)&亦"'"松Adod嫌c1.Re授freshElse有MsgB董ox"请帐填写密码"喝Exit厚Sub腰End肆If塘If纽StrCo闯mp(Tr偷im(Ad赵odc1.吊Recor肠dset.语Field盖s("uk珍ey").徐Valu割e),T独rim(F蛮orm2.番Text2效.Text第))<>哑0Th旱en堡MsgB畏ox"密增码错误!"丑,48,钢"war畅ning"精Text舞2.Tex尝t="箭"抱Text丸2.Set五Focus书Exit勒Sub棕铜Else络牙MsgB桥ox"登柜录成功"瑞滴Form抓4.Sho奸w字席Form划2.Hid腹e蕉巴Exit稍Sub骡EndI岁fWend闯While单a=重1格IfLe昆n(Tex蓬t1.Te释xt)>旱0Th叛en经Adod戒c1.Co携mm宝andTy承pe=紧adCmd慎Text骑Adod用c1.Re伸cordS炮ource害="s尽elect径unam献efro卡muse跟rswh边ereu弃name拌='"绢&Tri桃m(Tex犯t1.Te刑xt)&肚"'a休ndUt补ype=冶'"&党"管理员贪"&"浸'"秩Adod巡c1.Re肌freshElse畏MsgB降ox"请卧填写用户名玩"姑Exit灶Sub丢End祸If刊IfAd厌odc1.板Recor烧dset.碌EOF=肯True陪Then支Ms省gBox布"姓名错误洗!",4吓8,"w浪arnin姑g!"宽Te冈xt1.T绞ext=施""怀Te府xt2.T福ext=垦""付Ex尼itSu溉b踢End冠If稻I类fLen煌(Text饱2.Tex讯t)>展0The葡n牵Adod首c1.Co鹊mmand馅Type警=adC悉mdTex欢t绕Adod弹c1.Re蚀cordS贫ource随="s编elect嗓ukey徐from城user榆swhe焦reun泛ame=尖'"&厌Trim脊(Text债1.Tex封t)&港"'"灿Adod壮c1.Re紫freshElse寇MsgB祝ox"请敢填写密码"误Exit衰Sub腊End狮If预If叉StrCo提mp(Tr调im(Ad锋odc1.稻Recor调dset.券Field踏s("uk显ey").坟Value缘),Tr耗im(Fo项rm2.T王ext2.喘Text)陈)<>捕0The遇n巧MsgB创ox"密丽码错误!"坛,48,集"war观ning"腾Text东2.Tex产t="些"桃Text士2.Set概Focus砍Exit狼Sub启王Else泥勤MsgB释ox"登灰录成功"间良Form派5.Sho访w垃盆Form兔2.Hid恩e避蛾Exit增Sub督EndI笋fWend万EndS驱ub体Priva谅teSu鹿bCom有mand2范_Clic核k()尝Dima昆AsI嘱ntege钥r撒a=M浇sgBox急("您真的演要退出吗？纤",30博5,"提供示")亿Ifa役=1T伤henEnd榨End间If匪EndS醉ub锡Priva门teSu亚bCom摇mand3谣_Clic通k()犁Form3肤.Show柱EndS势ub宇Priva四teSu寸bFor箱m_Loa贯d()漂Combo捡1.Add眼Item肉"用户"陆Combo倍1.Add杠Item稀"管理员"唉Combo药1.Tex牛t=C垄ombo1贯.List肤(0)冤Text1假.Text即=""以Text2珠.Text彼=""单EndS猾ub叨4映.撕3用户服务咏界面堪用户登录竟进去后，可扎以到用户服永务界面选择鲜自己所需的裙服务祥，该界面为菊用户提供了竖三种服务，宣分别是为“板本用户密码此的修改磨”距，阿“皮办公费用信薄息查询蓝”炼和眉“律办公费用申渔请垫”烫。厅4.4挂管理员服务真界面亩管理员登录谁进去后，可敲以到管理员判服务界面选上择自己所需芳的服务还，该界面为勒管理员提供之了三种服务瓣，分别是矩“哈本用户密码刘的修改集”锯，锡“怠办公费用信争息查询损”欲和厚“脏办公费用添奔加、删除惭”帜。焰4们.额5望用户密码修川改界面建程序设计诱（管理员密乔码修改也是脑次界面）能用户如需修堡改自己的密且码可在此界王面进行，用违户通过码用户服务界东面衔到此友，然后在此俱界面中输入挖原始密码和诸新密码并验编证新密码，智确认后如果配无误就壁会提示用户蜂修改成功，维并且其密码宝在用户信息将表中也会有占相应的修改镇。败代铃码如下：退Priva谋teSu支bCom振mand1焰_Clic虏k()耳IfTr盟im(Te垄xt1.T脚ext=摔"")尘Then局芒Ms牵gBox禽"请输入密各码！",熔0,"提贝示"蛇颜Te姐xt1.S墓etFoc卖us宰汪Ex忽itS魄ub锣EndI航f推Adodc盒1.Com间mandT误ype=炸adCm程dText屡Adodc泛1.Rec蚂ordSo伴urce帖="se外lect蒙ukey酬from赚users牌wher映euna葛me=痰'"&淋Trim(疤Form2滚.Text棕1.Tex警t)&种"'An捉duke拔y='执"&T粮rim(F拼orm6.驼Text1扫.Text章)&"强'"耽Adodc奋1.Ref染resh碰IfAd土odc1.猪Recor邀dset.看EOF=拒True惯Then俘废Ms贯gBox灰"密码不正烦确，请重新妙输入！",躺0,"粮提示"惨歌Te成xt1.T它ext=绪""鞠傍Te蛙xt2.T殃ext=厉""铁毅Te伞xt3.T骑ext=病""盯蔽Te芬xt1.S森etFoc状us门突Ex波itSu捉b撇EndI腥f案IfTr鸽im(Te攻xt2.T倘ext)搏=""耽Then烈倚Ms距gBox妄"请输入新悠密码",绵0,"提艘示"蹦剧Te治xt2.S弟etFoc剑us貌梯Ex旱itSu仪b区EndI味f厅IfTr扫im(Te绞xt2.到Text)僚<>T伟rim(T疤ext3.缝Text)碍Then喇器Ms作gBox蚊"新密码不决一致,请从秧新输入",秋0,"窜提示"向载Te陕xt2.T吵ext=油""盖延Te踢xt3.T沿ext=恋""烟扯Te烟xt2.S嗽etFoc昼us傲叔Ex唇itSu修b短EndI尖f台Adodc凑1.Rec古ordse杠t.Fie屑lds("么ukey"寄).Val夏ue=桂Trim(倘Text3刮.Text湾)柳Adodc膊1.Rec堵ordse沉t.Upd挑ate辽Adodc卵1.Ref雪resh羽MsgBo么x"修改氧密码成功！趁",0,妇"提示"拿Unloa的dMe孕EndS谢ub埋Priva穗teSu焰bCom拾mand2吧_Clic唇k()锅Unloa嗓dMe损EndS瞧ub魄4判.庙6办公费用锣查询界面婚用户可通过功输入部门编铅号查找相应牙部门信息，宫还可以查询烛此部门申请厌/支出费用栽信息。利用额datag锹rid和a纪dodc控链件的连接显傍示出来。谈代码如下：场Dimi址AsV所arian贿t灶Priva沟teSu焦bCom资mand1盈_Clic合k()芒Adodc尝1.Rec托ordse喝t.Mov符eFirs柄t笼EndS饰ub朵Priva底teSu寻bCom慢mand2慨_Clic模k()滨Adodc晕1.Rec柏ordse神t.Mov盟ePrev虚ious咐IfAd贼odc1.她Recor扛dset.很BOF=爬True蜓Then剃Adod肆c1.Re泛cords脖et.Mo芬veFir谜st情End亲If合EndS进ub菊Priva责teSu吗bCom闻mand3家_Clic拼k()币Adodc缴1.Rec泽ordse奥t.Mov芳eNext咳IfAd肺odc1.攻Recor闯dset.凡EOF=启True屈Then越Adod酬c1.Re弊cords描et.Mo坏veLas业t钥End脊If眉EndS宇ub悬Priva秋teSu届bCom照mand4请_Clic失k()罚Adodc宿1.Rec且ordse景t.Mov务eLast系EndS接ub遮Priva苗teSu抹bCom臭mand5雁_Clic迟k()头Unloa符dMe吐EndS衰ub最Priva叛teSu钢bCom壤mand6恳_Clic牛k()盾Dims蛮trpno狱AsS谜tring俱Dims议trsel情ectA馅sStr预ing籍strpn逢o=T死rim(F肤orm7.撇Text1逗.Text膀)券strse救lect急="se什lect振type.眠tno,t问name,悄amone盯yfro抵mtyp土ejoi都napp扮licat修iono惯ntyp慌e.tno庭=ap茫plica按tion.盼tnow姻here妖appli荐catio助n.pno厌='"径&st旗rpno狐&"'"长Adodc狠1.Com顺mandT偿ype=链adCm奇dText驰Adodc妖1.Rec孩ordSo饱urce礼=str以selec冷t芦Adodc屯1.Ref犹resh析SetD委ataGr驶id1.D碗ataSo肠urce劳=Ado床dc1猪D仔ataGr稍id1.C析olumn戒s(0)或.Capt狐ion=筒"费用编爸号"是D践ataGr小id1.C暴olumn象s(1).被Capti扶on=塞"费用名称寇"和D刚ataGr肢id1.C贝olumn也s(2).巷Capti充on=尼"申请金额毒"剩EndS宋ub板Priva点teSu餐bCom额mand7普_Clic时k()可Dims聋trpno扣AsS堆tring娃Dims释trsel迟ectA识sStr盒ing眨strpn扭o=T抵rim(F皇orm7.凯Text1双.Text改)筛strse银lect闸="se处lect愁type.免tno,t狗name,收omone两yfro辣mtyp嗽ejoi钞nout辛ont疫ype.t熟no=心out.t霉nowh味ereo遇ut.pn豪o='竹"&s作trpno蹲&"'夜"逼Adodc势1.Com痕mandT厚ype=颂adCm罩dText甜Adodc器1.Rec绍ordSo揭urce根=str糊selec零t简Adodc炎1.Ref环resh杯SetD叉ataGr散id1.D蛋ataSo义urce淘=Ado搭dc1瓣D侧ataGr述id1.C乌olumn记s(0).舟Capti猴on=知"费用编号脑"册D肚ataGr胸id1.C倍olumn茄s(1).陈Capti迎on=挤"费用名称辛"肤D螺ataGr矮id1.C闻olumn墨s(2).钥Capti敏on=梦"支出金额孩"虏EndS式ub港Priva穷teSu蒙bCom午mand8瞎_Clic肢k()模Dims婚trsel倡ectA保sStr制ing垃strse把lect家="se淹lect台pno,p吐name,险pmana包ger,p升call,坐pemai营l,ps封from夜partm吵ent"托Adodc间1.Com际mandT泊ype=尖adCm倾dText怜Adodc泡1.Rec拌ordSo铅urce开=str抛selec袖t协Ado告dc1.R皇efres夕h彻SetD勿ataGr顶id1.D挤ataSo高urce构=Ado涛dc1评DataG竞rid1.两Colum嘴ns(0)湖.Capt催ion=谣"部门编乱号"吩D脊ataGr板id1.C导olumn嘱s(1).著Capti娱on=济"部门名称税"乌D禾ataGr舰id1.C鹊olumn牧s(2).普Capti侄on=尤"负责人"尖D乎ataGr社id1.C蜂olumn栗s(3).拆Capti瓜on=鞠"联系腰"桌D牙ataGr摩id1.C棚olumn旷s(4).渣Capti求on=持"电子邮件乏"肤D盛ataGr玩id1.C旗olumn初s(5).稀Capti松on=蛾"备注"撤EndS房ub葵Priva跑teSu均bCom剂mand9慈_Clic抛k()壳Dims颠trsel既ectA吧sStr只ing慈IfLe因n(Tex傲t4.Te毙xt)>征0Th烫en奏strse投lect递="se旷lect盟pno,p转name,威pmana红ger,p健call,敬pemai勿l,ps轿from来partm惨entw淡here伶pno=松'"&榆Trim逗(Text椒4.Tex房t)&炒"'"坑Adodc侦1.Com丑mandT宜ype=活ad价CmdTe凤xt潜Adodc词1.Rec宜ordSo厦urce蚂=str贡selec嘱t国Adodc咐1.Ref饿resh插I戏fAdo缸dc1.R室ecord乏set.E眨OF=夺True骄Then车M导sgBox叉"没有这叔个部门"绢T顺ext4.起Text偏=""斗T健ext4.贩SetFo糊cus鼠E床xitS拼ub敞E姜lse繁痛SetD更ataGr抱id1.D岩ataSo低urce发=Ado元dc1粉D英ataGr屑id1.C狭olumn股s(0).深Capti饺on=教"部门编号度"取D着ataGr忧id1.C静olumn科s(1).魄Capti木on=具"部门名称跃"告D撞ataGr串id1.C弃olumn静s(2).妙Capti夕on=恩"负责人"红D仇ataGr牧id1.C棵olumn五s(3).泊Capti慢on=侧"联系度"起D蜓ataGr得id1.C蕉olumn摆s(4).莲Capti鲜on=壁"电子邮件简"蹲D躬ataGr薄id1.C驰olumn炼s(5).概Capti俭on=浊"备注"傲E狼ndIf铅EndI堆f役EndS炒ub励Priva狗teSu词bFor覆m_Loa有d(遗)努SetD无ataGr完id1.D毁ataSo涌urce起=Ado捷dc1笛DataG崭rid1.议Colum桂ns(0)双.Capt渗ion=惧"部门编短号"孩D肉ataGr牙id1.C棚olumn遵s(1).兆Capti辫on=鱼"部门名称挥"酒D楚ataGr挤id1.C协olumn敏s(2).哈Capti轿on=典"负责人"扇D问ataGr否id1.C膨olumn遍s(3).箱Capti像on=绝"联系若"齿D既ataGr菌id1.C俘olumn包s(4).谋Capti矮on=呆"电子邮件筛"它D衫ataGr涛id1.C茫olumn屈s(5).机Capti才on=添"备注"梳EndS首ub泻4签.阿7绣办公费用添配加、删除界恨面薯从管理员服际务界面进入霜，有两种费惕用类型，申泼请/支出费贼用修改，管谋理员需要选禽择。申请费祖用修改界面别代码如下：体Dima景AsI妥ntege逼r落Dimb会AsV悲arian丛t障Dimc阀AsV幕arian常t宫Priva带teSu章bCom窃mand5励_Clic记k()东'设置文本竞可编辑奇Text1嚷.Lock寨ed=灰False量Text2雷.Lock瞒ed=絮False劣Text3别.Lock苹ed=渔False帆Text7楼.Lock哗ed=吉False渗Text5蚊.Lock邻ed=鸡False支Text6晃.Lock煌ed=肃False雹Adodc抚1.Com桃mandT帮ype=态adCm毁dText使Adodc蜡1.Rec迈ordSo泥urce茫="se肠lect粥max(a湾no)m花axfr矿omap远plica稿tion"钳Adodc供1.Ref中resh薯a=A或dodc1否.Reco浴rdset廉.Fiel漏ds("m充ax").姓Value饲侄颂'将序号棕的最大值赋径给a和Adodc照1.Com桥mandT间ype=度adCm侵dTabl柏e携Adodc嗓1.Rec女ordSo料urce廉="ap蛙plica仅tion"猴Adodc研1.Ref蓝resh逃Adodc话1.Rec芳ordse榆t.Add勿New技Text1锐.SetF绕ocus某Comma邻nd5.E葱nable挠d=F堡alse颤Comma即nd6.E逃nable柴d=F捉alse优Comma厦nd7.E疲nable健d=T叠rue燃Comma腾nd8.E莫nable耕d=T士rue蚀EndS国ub凭Priva罢teSu甘bCom界mand6拥_Clic捐k()谱Dimr樱esAs孩Inte出ger绍Dimd趁AsV左arian唱t搬res=芽MsgB睁ox("确佣实要删除此污行记录吗？寒",vb横Excla蓬matio莲n+v狡bYesN欠o+v拍bDefa肯ultBu握tton2辱)际I携fres装=vb调YesT算hen熟仅I婆fAdo享dc1.R抖ecord糊set.R径ecord辈Count栋>1碗Then芦裂Adodc波2.Com鸽mandT丰ype=顽adCm截dText擦Ado牌dc2.R港ecord台Sourc就e="贤selec劈t*f懒romc百ontro素lwhe砍repn折o='"锯&Tr条im(Te木xt3.T梯ext)愁&"'a谊ndcy矿ear=键'"&症Mid$使(Trim银(Text竭5.Tex属t),1敲,4)赶&"'"辨Ado旱dc2.R倘efres鼻h顺先央舌物久'如果是韵通过的申请处费用，有日桶期的，则从打预算中减去答这部分费用体锅况IfT伍rim(T架ext6.非Text)尤="是萄"And飞Len(丹Text5狭.Text孩)>0舰Then勿泼乐弄d繁=争择Adodc脑2.Rec古ordse萌t.Fie闪lds("伴cadva唱nce")股.Valu煎e-V闪al(Tr够im(Te汉xt2.T赤ext))艇教含Adod漠c2.Re究cords跌et.Fi棋elds(贼"cadv饭ance"够).Val哄ue=阔d役弃雄Adod锣c2.Re挂cords体et.Up浑date李拾梯End兵If树劣片亭勒Ado诞dc1.R挎ecord献set.D闻elete老善钥Adod棕c1.Re膨cords芳et.Up液date印犯End拐If锻阶良If遥Adodc使1.Rec洞ordse零t.EOF房=Tr颤ueTh剩en驰歼Adodc念1.Rec虏ordse先t.Mov粪eLast岩后EndI怕f斯讯Else驱Ms灭gBox把"不能将数场据全部删除鹊"饲Ex消itSu冷b伐E稿ndIf件EndS撕ub嫁Priva镰teSu它bCom歼mand7饿_Clic晌k()殊Adodc跳1.Rec套ordse胸t.Fie扮lds("裕ano")扭.Valu遗e=a分+1繁IfLe蝶n(Tex踢t1.Te宝xt)>冶0Th神en声Adodc掌2.Com论mandT雾ype=飘adCm拐dText己Adodc眉2.Rec纳ordSo责urce体="se详lect包tnof三romt惕ypew惨here警tno=筹'"&堪Trim医(Text滥1.Tex医t)&他"'"响Adodc较2.Ref嫁resh朵蹈IfAd欢odc2.袄Recor出dset.写EOF=接True驶Then防摔M和sgBox掩"无此费这用编号"圆抵T绝ext1.题Text掉=""裙扫T党ext1.渐SetFo茶cus副蹲E妄xitS神ub球竞Else番煌A绞dodc1菌.Reco确rdset臣.Fiel泄ds("t辉no").纷Value桌=Tr稼im(Te歉xt1.T堤ext)胳甘EndI削f抖EndI江f劲IfIs矮Numer缘ic(Tr药im(Te泳xt2.T苍ext))深=Tr鸣ueTh捡en催Adodc表1.Rec泊ordse渔t.Fie狡lds("秒amone奔y").V须alue费=Tri膀m(Tex骄t2.Te裤xt)Else驶MsgBo垦x"请输腰入数字"微Text2蔽.Text派=""海Text2散.SetF疏ocus模Exit握Sub裁EndI颤f剑IfLe类n(Tex宣t3.Te敲xt)>弃0Th托en蓝Adodc载2.Com绞mandT峡ype=姑adCm液dText涂Adodc让2.Rec大ordSo班urce段="se菠lect武pnof税romp掏artme茅ntwh输erep坊no=拘'"&镇Trim(其Text3娃.Text尺)&"毕'"竭Adodc阅2.Ref去resh赶滚IfAd均odc2.劈Recor骄dset.书EOF=受True董Then通楚M藏sgBox浅"无此部树门编号"械挖T穷ext3.焰Text搅=""珍封T扫ext3.械SetFo带cus巨隙E值xitS览ub兽寨Else尿抽A汉dodc1辫.Reco堤rdset怎.Fiel陪ds("p岩no").赚Value舞=Tr科im(Te道xt3.T拐ext)馋应EndI暖f女EndI荒f倚IfLe镇n(Tex害t3.Te崭xt)<痕=0T假hen趟MsgBo丧x"请输剩入部门编号横"巩Text3熊.SetF套ocus稼Exit宇Sub划EndI痛f乓IfLe泼n(Tex惨t1.Te熔xt)<牲=0T都hen垄MsgBo眼x"请输验入费用编号喂"泰Text1腔.SetF侧ocus旁Exit传Sub羡EndI向f跪IfLe鉴n(Tex宵t5.Te牙xt)>巡0Th纯en昂If蔑IsDat酬e(Tri然m(Tex满t5.Te脸xt))天=Tru皮eThe器n龟Ado告dc1.R糕ecord碧set.F热ields纲("ada返te").饼Value枝=Tr悬im(Te痕xt5.T盼ext)霜Els换e谜Msg罪Box"证日期格式错葛误，请按X鞋XXX-X雄X-XX输揉入"秘Tex常t5.Te蚁xt=遇""艰Tex周t5.Se症tFocu箭s摸Exi滩tSub线End割If虎EndI已f盲Adodc圆1.Rec借ordse捧t.Fie扣lds("胸aperm魔it").统Value烟=Tr驱im(Te草xt6.T尊ext)工Adodc乱1.Rec娘ordse哨t.Fie内lds("捎aps")公.Valu鞋e=T漆rim(T困ext7.朽Text)团'如果申请需通过，则将脆申请的费用险金额加如到售对应预算中饿IfTr结im(Te富xt6.T怪ext)朴="是"小Then耳锡If猛Len(T朽ext5.资Text)述>0凳Then适b=M此id$(T勉rim(T耕ext5.亿Text)叨,1,跑4)'取通日期的年份预Adodc性2.Com享mandT谷ype=铸adCm霉dText柄Adodc露2.Rec趴ordSo舌urce窜="se磁lect驱*fro党mcon陈trol科where愉pno替='"羽&Tri眉m(Tex发t3.Te哈xt)&帅"'a竭ndcy匆ear=哥'"&某b&捡"'"赢Adodc崭2.Ref模resh骄c=A部dodc2帽.Reco晶rdset牙.Fiel六ds("c遥advan物ce").踏Value团+Va挣l(Tri团m(Tex拘t2.Te文xt))涂'取预敬算金额和申式请金额之和筹Adodc瓶2.Rec痰ordse愤t.Fie弓lds("鸽cadva呆nce")辞.Valu邮e=c刑Adodc桑2.Rec熔ordse连t.Upd妹ate训跳End洞If灵EndI筝f担Adodc计1.Rec芬ordse书t.Upd阔ate旗MsgBo津x"更新菊成功"我'设置文本蛇不可编辑湿Text1些.Lock介ed=躲True轻Text2比.Lock远ed=持True绩Text3谱.Lock汇ed=皂True巡Text7偶.Lock挂ed=沾True明Text5员.Lock疗ed=远True待Text6辩.Lock蜡ed=冰True舞Comma童nd5.E叉nable修d=T筛rue兔Comma米nd6.E溜nable界d=T互rue励Comma汁nd8.E傻nable斧d=F耀alse信EndS璃ub润Priva扔teSu畅bCom圈mand8裙_Clic泡k()接Adodc估1.Rec咬ordse奶t.Can析celUp裂date隙Comma末nd5.E膛nable帅d=T些rue室Comma红nd6.E宅nable赛d=T叉rue已Comma捡nd8.E什nable航d=F材alse松EndS赴ub搞Priva枕teSu化bFor穴m_Loa拔d()淘Comma吊nd8.E妥nable目d=F趋alse退Comma等nd7.E选nable劳d=F裕alse抄EndS均ub央Priva什teSu拢bCom巨mand1驴_Clic渣k()另Adodc乘1.Rec碗ordse诉t.Mov售eFirs诉t秒EndS规ub赤Priva质teSu晴bCom霸mand2顷_Clic疲k()盛Adodc晶1.Rec简ordse驳t.Mov复ePrev轰ious河IfAd掉odc1.象Recor崇dset.镇BOF=处True删Then亩Adod叉c1.Re沸cords匙et.Mo清veFir猾st渐End井If绒EndS倒ub买Priva财teSu尊bCom问mand3背_Clic滥k()土Adodc肌1.Rec习ordse秒t.Mov锦eNext程IfAd画odc1.音Recor吐dset.工EOF=构True碗Then球Adod魄c1.Re邪cords格et.Mo绪veLas阴t悼End牲If熄EndS旗ub旗Priva够teSu盼bCom昌mand4哀_Clic辨k()马Adodc雹1.Rec秩ordse诚t.Mov泳eLast业EndS意ub狱支出费用修唱改代码如下孝：辆Dima沫AsI踩ntege炎r运Dimb熔AsV顺arian役t绪Dimc嘴AsV蒜arian祖t撒Priva坐teSu盾bCom枕mand5俊_Clic举k()卷Adodc邪1.Com剃mandT答ype=鬼adCm贸dText饭Adodc宜1.Rec驾ordSo钓urce推="se陆lect悲max(o省no)m叠axfr脸omou破t"李Adodc奇1.Ref派resh烧a=A稼dodc1鉴.Reco算rdset团.Fiel恭ds("m咱ax").剥Value啦Adodc压1.Com爱mandT将ype=洁adCm司dTabl跟e记Adodc土1.Rec焦ordSo暖urce桶="ou形t"殃Adodc翅1.Ref恢resh苗Adodc钻1.Rec负ordse时t.Add衫New黑Text1芬.SetF巩ocus蜻Comma车nd5.E迎nable止d=F伏alse翠Comma城nd6.E谷nable啊d=F谁alse能Comma饮nd7.E漏nable景d=T编rue券Comma偷nd8.E坊nable宽d=T孩rue雨EndS笛ub掀Priva象teSu奴bCom触mand6压_Clic扩k()密Dimr拢esAs旺Inte救ger迷res=悲MsgB职ox("确舟实要删除此骆行记录吗？昼",vb岔Excla历matio灿n+v能bYesN塘o+v殊bDefa畅ultBu领tton2锦)永播Ifre健s=v蚕bYes尘Then愿漏IfA鹅dodc1死.Reco劣rdset碧.Reco傅rdCou失nt>馋1The炕n酷批'如暮果支出的费印用有日期，舱则从总支出叨中去掉这部赶分支出后压If萝Len(T熄ext5.戴Text)梢>0电Then轧纠核Adodc校2.Com饥mandT挺ype=踪adCm落dText袭橡水Adodc嗽2.Rec械ordSo铲urce旨="se僵lect管*fro炭mcon扭trol奉where跪pno套='"&宫Trim昨(Text辨3.Tex到t)&付"'and映cyea恒r='甜"&M授id$(T觉rim(T病ext5.户Text)叔,1,麦4)&河"'"复幅尚Adodc声2.Ref见resh块缘宗陈汗d=A棋dodc2晕.Reco歪rdset挤.Fiel燃ds("c郊out")欣.Valu逝e-V蓝al(Tr渔im(Te诚xt2.T捧ext))减待笛Adodc岸2.Rec脊ordse日t.Fie括lds("吸cout"留).Val岩ue=狂d喷峡误Adodc鹿2.Rec吹ordse皇t.Upd义ate哀撕叹强Ado旋dc1.R女ecord隔set.D扩elete缎洋减Adodc盗1.Rec截ordse出t.Upd崭ate翼飘End等If糊扇盟If墓Adodc贷1.Rec必ordse受t.EOF两=Tr垄ueTh爷en胜辅Adodc更1.Rec碍ordse技t.Mov撕eLast巡寸EndI宏f哀活Else送Ms拥gBox箩"不能将数欢据全部删除祖"煮Ex辨itSu革b血En异dIf译En掘dIf迫EndS渠ub嗓Priva姿teSu率bCom粗mand7结_Clic夹k()块Adodc中1.Rec桑ordse旷t.Fie俗lds("捎ono")衡.Valu肃e=a薪+1徒IfLe映n(Tex衫t1.Te钱xt)>强0Th园en嗓Adodc乏2.Com真mandT以ype=纳adCm光dText味Adodc报2.Rec扫ordSo语urce流="se掏lect皂tnof费romt增ypew绞here勤tno=考'"&摘Trim私(Text幅1.Tex临t)&兰"'"裁Adodc这2.Ref释resh宿邻IfAd罪odc2.叮Recor担dset.樱EOF=诱True撕Then显传M堵sgBox吩"无此费颤用编号"武争T橡ext1.雾Text露=""饭是T奥ext1.巩SetFo根cus绵颗E恶xitS营ub俭膀Else汉摸A瓦dodc1色.Reco咳rdset迹.Fiel姻ds("t瘦no").岛Value改=Tr辰im(Te瞒xt1.T酷ext)督戚EndI捞f技EndI礼f哄IfIs震Numer乒ic(Tr豆im(Te什xt2.T风ext))危=Tr通ueTh流en奸Adodc携1.Rec挡ordse初t.Fie北lds("财omone丧y").V矛alue伐=Tri商m(Tex每t2.Te犹xt)Else驼MsgBo环x"请输打入数字"姥Text2轨.Text菌=""慎Text2犁.SetF肠ocus禽Exit热Sub患EndI哑f士IfLe摔n(Tex碌t3.Te坡xt)>钉0Th训en淡Adodc伯2.Com忘mandT要ype=拍adCm早dText振Adodc歼2.Rec简ordSo掩urce溜="se典lect望pnof咏romp翅artme么ntwh岗erep姐no=炒'"&选Trim(魂Text3怨.Text模)&"已'"伴Adodc经2.Ref检resh唯城IfAd命odc2.进Recor算dset.叼EOF=亿True革Then慧旨M比sgBox罢"无此部蛾门编号"泼想T随ext3.病Text执=""迹副T坑ext3.店SetFo负cus丸脉E逗xitS酱ub估拐Else宫蹈A井dodc1闷.Reco锻rdset姐.Fiel障ds("p素no").哈Value然=Tr根im(Te腹xt3.T电ext)其擦EndI而f怕EndI珠f施IfLe休n(Tex货t3.Te朽xt)<斤=0T葡hen怎MsgBo惯x"请输仇入部门编号长"戚Text3枪.SetF论ocus寺Exit和Sub晶EndI荒f馅IfLe贺n(Tex歪t1.Te轰xt)<指=0T甜hen网MsgBo朽x"请输漆入费用编号取"统Text1理.SetF油ocus耕Exit测Sub印EndI元f未IfLe麻n(Tex野t5.Te臣xt)>言0Th极en碑If浙IsDat桃e(Tri哥m(Tex两t5.Te宝xt))筒=Tru挠eThe惑n秆Ado友dc1.R挂ecord跌set.F纺ields抖("oda飘te").扮Value辞=Tr肠im(Te杰xt5.T仗ext)帖Els狸e谣Msg灰Box"恩日期格式错环误，请按X颂XXX-X踪X-XX输兴入"所Tex辩t5.Te代xt=拆""现Tex剪t5.Se丰tFocu骄s非Exi瓜tSub皇End穿If翅EndI室f劣'铺将支出的费理用金额加入住到对应的总报支出金额中梢IfLe匙n(Tex谷t5.Te苹xt)>德0Th及en饼b=M澡id$(T条rim(T铃ext5.查Text)途,1,帅4)'取竹日期的年份烫Adodc盾2.Com快mandT困ype=趁adCm天dText嫩Adodc法2.Rec掠ordSo冻urce番="se臂lect置*fro扬mcon栏trol胖where撤pno梢='"篇&Tri裁m(Tex代t3.Te雷xt)&骨"'a失ndcy悬ear=耀'"&品b&裹"'"峡Adodc勤2.Ref圣resh妖c=A未dodc2馋.Reco折rdset次.Fiel航ds("c糊out")洁.技Value因+Va壮l(Tri颠m(Tex邀t2.Te释xt))庭霜'取支出金绘额和支出金北额之和陕Adodc联2.Rec尖ordse周t.Fie施lds("斑cout"宽