软件数据库工程实习报告

软件工程综合实验报告学号姓名（组长）：学号姓名：班级：教师：值1裳瓣系统需求分替析萝开发及运行捡环境滔1.硬件工要求迈CPU：3徐00MHz土以上的处理笋器。臣内存：12尺8MB，推怠荐256M痕B。负硬盘：15麦0MB以上窝剩余空间。些显示像素：穷最低800挎*600，肺最佳效果1欠024*7转68。芝2.软件扰要求局操作系统：蹲Windo狗ws200抓0/NT/宵XP/CE角。逗数据库：S贸QLSe齿rver2遭000。役管理信息系脆统娇(MIS)往不仅是一个涉技术系统，骨而且也是一妈个社会系统疯。这从另一泳个方面可看闹出，任何企貌事业单位的牙管理信息系高统都是基于融自己单位的野实际情况而鲁建立，即使久是同行企业巾建立的相同痰系统都会由染于企业的实罢际情况而有肝所不同。乳工资管理是鲁任何企事业奥单位都面临而的问题，由卡于各个公司扯的工资处理敌方式总是有越所区别，因自此目前还没薪有一个通用旱的工资管理下系统，只能靠针对公司情踪况去开发适薄合本公司需役求的工资管筒理系统。早敞期的工资管睡理是人工化锈的，工作量伸大时，出现厕错误的机率句也会随之升挽高，这会导往致会计人员样花费更多的笑时间去改正佩错误，延误仍工资发放的故时间，或出疾现工资发放哭错误的现象捎。而企业工宫资管理系统扁就是使用电寿脑代替大量傲的人工统计愧和计算，完胸成企业工资造信息的处理净，而且还可连以用电脑安猪全完整地保统存企业工资帜记录。夏系统初步调辩查的内容主肤要是了解公殃司组织的整逼体信息，包舅括员工信息币和演员工寸工资信息。缺通过对系统切特点进行调绞查和分析，榴可以得到本愉系统的关键墓部分如下：袍员工职务工呢资的设定，盏是工资管理恶系统的基础索，可以实现杨工资的基本昼管理。这样云可以减少出溉错，提高效望率。券其他工资的琴设置，是对饮员工基本工怀资的补充。潜系统应该可闸以输出工资靠报表，可以狂通过报表侧弹面反映员工园工作的好坏狭。潮系统还应包浸括员工基本棒信息的录入克、修改和删瞎除。胡系统还应该纠提供强大的歌数据统计、飞查询功能。星系统应有比丰较好的可操逼作性、稳定葡性和可扩展须性。永数据流图（来DFD）廉数据流时图是一种能贿全面地描述森信息系统逻臭辑模型的主莫要工具，它孤可以用少数迅几种符号综友合地反映出剖信息在系统浇中的流动、浓处理和存储歼情况，比管茎理业务流程添图具有更好数的抽象性和娇概括性。它龟包括四种符亩号，如晶下辱图所示邻：外部实体----S处理----P数据流----F数据存储----D外部实体----S处理----P数据流----F数据存储----D数据流程图的符号页通过详细调肚查和业务流算程图，舍去淋物质钩和其他独要素，绘制价出工资管理嫌数据流程图巷。如朗下振图所示彻：PP1P3S2员工编制工资表P2工资表D2月度工资条D4职工信息表D1工资设置表P4输入职工信息F1员工基本信息s1计算工资F2实发工资掩数据字典（钢DD）红DFD只是犹对数据处理爸和彼此之间锻的联系进行相了说明。为佣了对数据流急程图中的各宫个元素作出胆详细的说明佣，有必要建乘立竿数据字典属，材将数据流图康中的全部数烘据流及其组循成部分的数秩据元素，数花据存储，数垃据加工侨描述碗清楚,以便皱于系统设计菊的进行。净数据流程图弄配以数据字贤典，就可以驳从图形和文承字两个方面映对系统的逻肤辑模型进行品完整的描述猪。因此，拆开发人员气有必要茅编写详细的闸数据字典,桶来描述系统老开发过程的伪细节。奋下面列出本弃系统中乓主要瑞的数据字典咱，包括赠数据项、数床据流、数据付存储、加工济处理捎。数据项锁数据项又称晒数据元素，寇是数据的最跨小单位，是胖无法再细分熔的数据。下昌面列出主要奴的数据元素余，如脊下表李所示李主要的数据贵元素号数据项名称题数据项编号纠类型及宽度曲别名镜简述登备注院empID复马无帜varch绝ar输(雁12英)新职工编号恋用来标识员舌工的唯一编槽码芹name烂狗无跳v华archa谅r绵(招10近)倒姓名港与职工编号鸽相对应缠heads毯hip依镰无廉v着archa垦r宪(匀10惧)壤职务芝表示职工现中任职务未base_扮pay贩像无螺money户 驾(恶8全)慕基本工资反表示员工的厌基本工资颂1000（堡默认）旺Prize趴无汤money阔 跪(颠8筛)瞎奖金稼表示凝员工的奖金积800（默载认）数据流咏数据流是由驳一个或一组哄固定的数据悼项组成。其白体现了数据遇的流向，从锯哪里来，流颜向哪里。如扩下表雾所示。赌数据请流数据存储传数据存储是始数据结构保坚存的场所，徐它只描述了迫数据的逻辑回存储结构，统而不涉及它平的物理组织辞。现就以相后关表来说明强数据存储的枝定义，如成下表殖所示。撤数据抱存储兄数据存储编体号：觉D1咏数据存储名驳称：点员工肠信息表桃简茄述窗：存放员工请的基本限信息凤数据存储组旬成：泳empID星+name燃+sex+序bornt估ime+r桥egion年+nati累on+go祥vvis+蚁cultu港re+ma户rr着+屋heads蛙hip+a尊ddr+p跪hone+竞email插+ID+p悉ic+re叨sume埋关键挑字：怜empID柜相关处钳理：P授1，P2踪数据存储编海号：挖D2踏数据存储名胆称：恒员工工资信桂息棚简软述沫：存放答员工的工资心信息逃数据存储组棉成：侵膝empID井+name浪+head席ship+块base_房pay+p犯rize+陪salar椅y+inc绑ome_t就ax+in招come达关键护字：末斥empID湿相关处蜻理：篮P2，战P3加工处理舌加工处理是抛对数据流程改图中的逻辑令处理进行分剂析及一些必陵要说明。如胳下表氏所示。蜘加睡洒工巧火处党川理车负遗盏纳恩2系总体设计移2.1核项目规划屈工资管理系喂统是由基本越信息管理、离工资查询、胡工资管理、领系统管理和俭帮助等几个适功能模块组史成，规划系摔统功能模块凑如下：据基本信息管捧理模块产基本信息管遭理模块主要钟包括员工录累入、员工删余除2部分。盏工资查询模溉块配工资查询模动块主要包括症基本工资查转询、浮动工荣资查询、加床班/休假查屯询、总体查川询4个部分普。握工资管理模姜块脸工资管理模抢块主要包括产工资发放管扇理、基本工蝴资管理、浮斤动工资管理刃3个部分。忘系统管理模浮块县系统管理模挪块主要包括猫用户管理、灵修改密码、怕退出系统3早个部分。帮助模块晓帮助模块主析要包括关于逗1个部分。访2.2翻锡系统功能结目构铺工资系统的锤功能结构如盘图筹1习所示。刚图1系气统功能图林2.3设禾计目标叛本系统是根安据中小企业邻的实际需求总而开发的，晕完全能够实猪现企业对客席户的自动化浅管理，通过不本系统可以呈达到以下目匀标：定系统运行稳届定，安全可姨靠。运界面设计美粪观，人机交局互界面友好唱。旅信息查询灵脉活、方便、疯快捷、准确局，数据存储婶安全可靠。谱满足键盘和右鼠标的双重艺操作，完全猾支持回车键葵。基采用多种方怖式查询数据君。毯操作员可以寻随时修改自俊己的口令。康对用户输入蓝的数据，系钳统进行严格仍的数据检验匙，尽可能排心除人为的错帖误。疼数据保密性鸦强，为每个萌用户设置相剩应的权限级丙别。点3概念模型毙设计性别性别籍贯民族婚姻职工编号基本工资职工编号基本工资职务职工编号政治面貌职务职工编号政治面貌文化程度职务奖金文化程度职务奖金职务职务发放工资员工应发工资出生日期发放工资员工应发工资出生日期姓名姓名个人所得税地址姓名姓名个人所得税地址工资表实发工资e工资表实发工资e系统用户用户名密码权限系统用户用户名密码权限电邮照片简历身份证身份证筋逼狗阔器获亡监实体联系（室E-R）图做对数据中词貌典中的数据啊存储进行分驾析，得出用污户、员工信玩息、员工工醉资信息等数爽据存储，它挥们都由自己蚕的头信息另滔加若干细节哨项构成，根厨据实体与属监性的区分准消则（作为方“秧属性鸣”天，不能再具泉有需要描述摇的性质），克这些细节项悦应上升为实涨体。工资管乘理系统的主莫要实体及其围属性有：厘·查用户柿{艇[user攀],pas沾sword出,[rig蓬ht]挂}凉·衬员工信息狠{猫六empID闭，饲name敲，阅sex裕，垂bornt坟ime怎，芽regio汤n壁，鸣natio宗n激，况govvi指s守，瞒cultu窗re东，羽marr壤，拼heads缝hip零，琴addr渐，贿phone怎，戚email贿，势ID迈，访pic材，倘resum震e撇}榆·裤员工工资信全息{羊罗empID垃，活name说，洲heads其hip奋，屿base_筛pay古，叛prize答，磨salar拿y江，俯incom饿e_tax吹，廊incom捞e忙}紫4逻辑模型倡设计告逻辑结构设秘计的任务就征是把概念模财型设计阶段覆设计好的基越本E-R图忧转换为与选山用的具体机全器上的DB葬MS产品所华支持的数据赖模型相符合庸的逻辑结构罚，现选用关玉系模型，E罩-R图向关犯系模型的转绪换结果如下猪所示：丈·史用户（桐[user林]贡，pass形word，冻[虫right退]辉）义[user胀]腾为此关系的闹主键。桐·助员工信息（就empID铅，name芳，sex，确bornt鲜ime，r委egion怠，nati呆on，go觉vvis，秆cultu眉re，ma问rr，he灶adshi归p，add株r，pho砖ne，em辣ail，锡I碍D，pic相，resu童me）诸empID愈此关系的主咳键。通·愧员工工资信欲息（篇empID佛，name甜，head剥ship，则base_拾pay供，耳prize纲，威salar警y落，简incom续e_tax蓬，涝incom滚e够）铲empID五此关系的主代键。租5物理模型龙设计董5.1数据案库和表名称排在本系统中痒数据库的名肝称设置为g翼zgl。数斧据库中表名愚称和字符标格识如下所示污：幸序号环表名称对字符标识壳1帜用户颜yh无2毁员工信息惹yg怪3腊员工工资信舰息线yggz弦5.2表的限结构设计翅·袜用户（yh肃）击列名树描述封类型密长度少允许空炕[user绵]阴用户名辫varch价ar怎20影N乘o菌P碧asswo鄙rd三密码揭varch探ar默12土N贞o皮[冰right蚀]草用户权限阵varch猾ar昌20说N况o困·森员工信息（祝yg）挺列名眼描述均类型断长度谦允许空阳empID凤(主键)筑职工编号您varch形ar旱12拦N向o敌N舱ame泪姓名加varch乎ar尽10脖N惹o絮S携ex沉性别趣varch书ar低4桂N效o窗B寿ornti漆me锯出生日期公datet城ime殿8西Y章es疲R击egion幅籍贯骆varch暖ar乱10愤Y滥es眉N宇ation侵民族馅varch斤ar只8皇Y价es速G御ovvis蒜政治面貌继varch鲜ar满10怠Y雄es饶C肝ultur苏e刻文化程度愁varch冶ar壶20剥Y悬es公M箭arr架结婚状况搏varch嘴ar灾4胁Y原es唯H弹eadsh把ip死职务寿varch恼ar执10堵No倡A命ddr栏地址锁varch月ar荒20缓Y舟es旁P旷hone牢俘varch剪ar娇20嘴Y阿es例E喇mail堤电子邮件峰varch内ar迷20补Y毅es宣I近D故身份证号码旦varch此ar该20玉Y菌es偶P兔ic滥个人照片佛image幼16概Y涨es锡R勉esume晚个人简历猜text运16缘Y干es北·厕员工工资信垒息(ygg园z)像列名谈描述荣类型章长度卧允许空行备注四empID型(主键)灭职工编号消varch摆ar自12近N椒o木N魔ame揭姓名飘varch鲁ar芳10葵N齿o搞H气eadsh流ip迈职务何varch胞ar舌10景N满o怪base_证p弹ay消基本工资棵money探8目Y矿es般默认值（1美000）阿Prize畜奖金父money秤8愚Y震es独默认值（8眠00）熄Salar搬y塞应发工资兵money援8让Y俭es刘公式悟([bas好e_pay罩]+[学prize尸])壮incom豪e_tax心个人所得税意money输8秤Y刮es杰Incom址e限实发工资混money妹8乏Y恩es箱公式即([bas梁e_pay静]+[返prize粱]-[限incom氧e_tax达])亏实现员工工护资信息（职吗工编号、姓惠名、职务）滴随着员工信跨息的更新、疾删除、插入辫而更新、删乌除、插入，隆实现动态更倍新，我使用膨了三个触发召器，分别如漫下：沃CREAT穗ETRI衫GGER名[Dele舍te_Re渠minde帮r]ON跳dbo.锅员工信息室FORd寒eleteAS葬decla劲re@e朴mpva串rchar办(12)钱selec厉t@em寒p=em根pIDf妥romd将elete背d徒delet岗e甩from序员工工资慢信息犹where疾empI钢D=@em锁p悄CREAT企ETRI庆GGER俘[Inse稀rt_Re障minde着r]ON速dbo.挺员工信息装FORI蔬NSERTAS幅inser戚tint旦o[员工夹工资信息]肚(empI省D,nam处e,hea苹dship蓬)高selec错t并empI邻D,nam廊e,hea价dship痰from城inser寺ted闸CREAT周ETRI家GGER债[Upda邻te_na戏me]O跑Ndbo妄.员工信息拥杰FOR糊UPDAT熟EAS战decla呀re@e愈mpva貌rchar冬(12)琴decla建re@n死avar锻char(旬10)锈decla狗re@h牧svar也char(跃10)饮selec竟t@em径p=em爱pIDf症romi与nsert限ed师selec号t@na剩=nam熄efro犬mins提e杯rted晚selec棒t@hs豪=hea俊dship厌from疑inse省rted眨ifup陆date(尽name)凡oru蛛pdate钩(head免ship)begin棒updat哑e[员工工绑资信息]念setn李ame=@短na,he路adshi湿p=@hs晌where哥empI杰D=@em绵pend蔬实现个人所瓣得税的自动裤计算，而不帖在程序中修浇改，我使用抢了一个计算扣个人所得税逐的触发器，禽代码如下：债CREAT愤ETRI奖GGER竹[modi主fyinc特ome_t春ax]O蚀Ndbo捡.员工工资渣信息评FORI联NSERT帽,UPD驻A米TEAS遮updat半e[员工呀工资信息]茂seti暮ncome晴_tax=会(sala叨ry-16叠00)*0删.05跃where希empI废D=[坐员工工资信煌息].em欲pIDa施nd(s驱alary虎-1600烘)>=0妥and肚(sal岁ary-1召600)<蝴500稳updat碌e[员工归工资信息]薄seti装ncome牌_tax=乡(sala杀ry-16炒00)*0偏.1-25湖where潜empI栽D=[呀员工工资信与息].em蹈pIDa酒nd(s宁alary党-1600棒)>=50袜0an楼d(s四alary振-1600参)<200始0匀updat序e[员工扬工资信息]呈seti扮ncome善_tax=珠(sala袖ry-16眼00)*0膨.15-1府25灾where冤empI矛D=[办员工工资信悄息].em抗pIDa植nd(s抢alary慨-1600译)>=20抵00an诉d(s漫alary仰-1600贸)<500厉0布updat售e[员工透工资信息]线seti搭ncome着_tax=仍(sala赶ry-16宿00)*0畅.20-3臭75悼where猜empI撤D=[掩员工工资信黄息].em银pIDa谱nd(s另alary蛇-1600屈)>=50拳00an估d(s大alary绿-1600斜)<200攀00臭updat塞e[员工风工资信息]毙seti谜ncome谦_tax=匀(sala泼ry-16纳00)*0应.25-1臂375桂where油empI席D=[么员工工资信篇息].em董pIDa南nd(s圣alary阿-1600解)>=20洁000奸and扛(sala嫩ry-16坦00)<4愁0000巨updat滚e[员工肯工资信息]斯seti矛ncome夹_tax=疤(sala寸ry-16爱00)*0陪.3-33备75秩where畜empI确D=[伐员工工资信蚀息].em番pIDa光nd(s昏alary恰-1600欠)>=40侵000伐and铲(sala纹ry-16教00)<6岂0000蜜updat免e[员工评工资信息]帜seti筛ncome吗_tax=允(sala领ry-16睛00)*0果.35-6特375飞where匆empI箭D=[树员工工资信倒息].em兽pIDa赌nd(s倘alary兽-1600逮)>=60田000燃and隶(sala现ry-16私00)<8颗0000股updat炼e[员工项工资信息]逃seti孙ncome吵_tax=略(sala义ry-16匹00)*0唤.4-10鉴375艺where凶empI炊D=[细员工工资信富息].em偏pIDa布nd(s弃alary朽-1600邪)>=80态000耕and吧(sala蝴ry-16库00)<1该00000消updat险e[员工剩工资信息]翠seti续ncome浇_tax=沃(sala塌ry-16兵00)*0兼.45-1哗5375除where宵empI厘D=[柜员工工资信换息].em棉pIDa负nd(s钻alary助-1600腾)>=10颈0000删6应用程序亦设计渴系统功能结拍构设计恳为了孟详细描述系华统模块功能墓，在系统功移能模块划分顿的的基础上迁，对相应系红统的数据流与图进行功能盈分解，得到皆含义明确、影功能单一的职单元功能模做块，从而得缩到系统的功答能模块图。炒喉工资管理系偿统搬本系统主要订分系统管理诱模块、工资牵管理模块、气报表管理模两块和帮助模爬块组成。帮助模块帮助模块桐工资管理系功统模块图侧兵系统管理模岭块铺这一模裙块主要完成振一些用户的静管理和员工挡信息的管理筑以及系统的任退出和重新爬登录。重新登录重新登录退出注册用户注册用户注销用户密码修改欢系统管理模映块结构图茶长工资管理模毁块渣这一模糟块主要实现牛个人工资管旨理、工资批符量设置和工节资计算公式挨的功能。工资批量设置工资批量设置工资计算公式督工资管理模货块结构图联监报表管理模蜜块立这一模将块主要完成偶对工资管理从系统中公司姥中的员工信贡息和工资信葵息的制表，撒为企业领导凉提供所需的融数据。主要育包括：员工饥工资表、留员工信息表爷和员工工资虾条员工工资表员工工资表员工信息表员工工资条躁报表管理模跨块结构图界面设计坝由于工孝资管理系统胖的最终用户魔是对计算机承技术并不精侦通的管理人祖员，从他们新的应用需求轨出发，应该鞠本着用户操额作界面友好门、清晰、易蠢学易用、易非于维护的原壮则来进行设鼻计。登录窗口兼进入系统时好要进行安全面性检验。需惹输入你的用困户名，密码堪。本系统由嫩管理员负责往注册和注销踪用户，傻您可以使用音管理员登录故系统，初始恳密码为js将jmz。通岸过数据库的恳安全认证，丛您还可以限旷制他人以管克理员登录，灭只能以来宾眯的用户登录抚系统，初始放密码为12练3456袍。限系统用户登叙录窗体设计稼如下：主界面窗体熟本系统主要微有三个功能糊：系统管理荡、工资管理素、报表管理俱。其中系统鸦管理中包含贴用户管理、扎员工信息管城理、重新登皆录系统功能临，工资管理钻包含员工工卖资管理、工福资批量设置汉、工资计算趣公式，报表填中由员工信究息表、员工扇工资表、员堂工工资条，叼本系统可以六让您轻松地粪了解本公司杯员工的基本啄信息和工资森管理。姿主界面窗体希设计如下：注册用户闹您富可以通过管产理员用户注浮册其他用户像（注册成功捆的用户为非膨管理员权限帽），而非管捕理员用户没淋有此项功能绞。注册用户防窗体如下：州员工信息管珍理锦至您可以通过仿此功能查看方或修改员工辜的基本信息单。其中管理击员拥有添加种、修改、删亦除及查询员套工信息的权托利，而非管睛理员只能查劣询员工信息街，而不能拥仗有添加、修叨改和删除的究权利。伙个人工资管想理迟您可以通过速此功能查看长或修改员工爱的工资信息沈。其中管理醉员拥有修改胡和查询员工英工资信息的共权利，而非尖管理员只能判查询员工工退资信息，而闪不能拥有修盾改员工工资式的权利。员工工资条皱您可以打印胃员工的工资测信息发放给争各员工。关于邀注：此系统译中还有许多饶窗体因篇幅欲有限，不能疯一一显示，收只显示了一闸些主要窗体待，若要进一听步了解这些念窗口及其它贼窗口，请查谣看系统应用女设计和运行腔界面。拢应用系统实辰施字开发工具的掩选择够本系统采用等Visua貌lBas清ic6.落0和SQL层Serv做er20煤00迎编写，为了曲您能够轻松气使用本系统串请您在使用朗前请看怎样胳配置您的系蛾统（包括蚂配置SQL筒Serv五er20碍00服务器微（导入数据效库文件）课和恼配置数据源卫（使用数据预源ODBC链方法）浓）代码部分递·臂系统登录窗持体代码：鞠DimT俱IMAs肚Inte喘ger锈Dimm踏yval展AsSt爆ring虹Priva乳teSu复bCom熟mand1冲_Clic虹k()滴Adodc勿1.Com缓mandT印ype=资adCm做dUn核known解Adodc蓄1.Rec客ordSo扭urce贡="se满lect好*from滴用户w脚here失[user瘦]='"木+Dat励aComb盼o1.Bo椒undTe仍xt+白"'"牢Adodc蹦1.Ref恋resh传IfAd改odc1.蔑Recor护dset.裹Recor外dCoun谁t=0杆Then察MsgBo配x("暂皱无此用户，朵请重新选择坛用户！")渡DataC芬ombo1唯.SetF崭ocus蛋Exit怨Sub天EndI粉f妙IfDa娇taCom路bo1.B葬oundT船ext<顶>""吩AndT肆ext1.缩Text届<>距""An弹dTex塘t1.Te威xt=渗Trim(蒜Adodc仇1.Rec告ordse杀t.Fie柴lds("款passw励ord")惊)The偶n律login踪flag造=0垄usena跨me=径DataC扎ombo1表.Boun急dText贤IfAd边odc1.乏Recor梁dset.般Field行s("ri蓄ght")榜="管狱理员"T岔hen并login毫userf朵lag=刷1Else缴login间userf沃lag=下0春EndI住f裕frmMa园in.Sh蜻ow豪Unloa异dMeElse案IfTI疲M=3舌Then钢myval狮=Ms格gBox(牧"密码输入渣错误，请向欲系统管理员粒查询！")徐Ifmy掠val=只vbOK逃Then异End能EndI损f俘IfDa搂taCom蛾bo1.B百oundT压ext=阁""T宰hen母MsgBo片x("请瓦选择用户"芽)冤DataC扎ombo1屈.SetF挎ocusElse央IfTe霞xt1.T夕ext=魄""T停hen抖MsgBo核x("用计户密码不能疤为空,请输胁入用户密码努！")朝Text1锈.SetF检ocusElse仰IfTe感xt1.T系ext<跌>Ado末dc1.R担ecord真set.F吨ields禁("病passw译ord")奸Then叨MsgBo吓x("密吩码错误，请紫查证后重新菊输入密码！饺")乔Text1棕.SelS迷tart厚=0东Text1寸.SelL卵ength秆=Le缸n(Tex病t1.Te陷xt)业TIM=浪TIM误+1湿Text1挣.SetF萍ocus思EndI清f庄EndI挨f叔EndI赵f权EndI涨f寺EndS鹿ub挠Priva链teSu脱bCom梳mand2紫_Clic颗k()斤Iflo颤ginfl序ag=村1The夺nEndElse使frmMa三in.Sh徒ow鸡Me.Hi路de繁EndI责f览Text1确.倡Text吼=""盏DataC揪ombo1欠.Text墓="请甘选择用户"王EndS静ub壶Priva匪teSu亮bDat漂aComb支o1_Ch机ange(冲)饭TIM=挨1疤Text1讨.Text肚=""泼EndS属ub谁Priva冈teSu页bDat尿aComb驰o1_Cl蚁ick(A丝reaA雄sInt带eger)验Adodc愤1.Com盘mandT茧ype=英adCm对dUnkn遣own掠Adodc也1.Rec碍ordSo头urce技="se芽lect暖*fro日m用户"层Adodc黑1.Ref响resh仁EndS猎ub要Priv贞ateS毁ubDa铅taCom呢bo1_K牢eyDow馒n(Key甘Code倚AsIn引teger凳,Shi务ftAs吓Inte做ger)村IfKe豆yCode桌=vb粗KeyRe鼓turn台Then州Text1番.SetF吸ocus皱EndS良ub券Priva耀teSu织bFor搁m_Act桥ivate劲()蔬DataC颤ombo1炉.SetF于ocus子TIM=减1深Iflo超ginfl穴ag<>饲1Th肥en诊frmLo榆gin.C雷aptio法n="篇工资管理系垃统倚——狠重新登录窗清体"指EndI掘f挺EndS赢ub初Priva保te社SubF瓦orm_U惕nload驳(Canc销elAs誓Inte咱ger)狭Iflo团ginfl咱ag=铁1The靠nEndElse喊frmMa销in.Sh定ow情Me.Hi衔de编EndI颠f您EndS种ub捕Priva塞teSu齐bPic奇ture1纯_Clic能k()个Call除Shell挖About串(hWnd盼,左“部工资管理系旧统扶”街,背“孩欢迎提出建学议娇”银,Me.爽Icon)傲EndS裤ub梯Priva膝teSu俗bPic尺ture2荒_Clic意k()辫SendK逐eys"卫{F1}"臣EndS农ub毙Priva致teSu仇bT轿ext1_扑KeyDo六wn(Ke吨yCode致AsI膜ntege狗r,Sh鼓iftA法sInt士eger)牵IfKe袖yCode杀=vb凶KeyRe晌turn俘Then预Comma目nd1_C偶lick嘱IfKe净yCode蓝=vb渗KeyUp奸Then狱Data茧Combo闷1.Set总Focus爱EndS蚂ub医·卡主窗体代码叶：锣Priva愉teDe想clare视Func风tion顿Shell艰Execu努teLi勒b"sh唱ell32禁.dll"导Alia弃s"Sh询ellEx柳ecute裕A"(B部yVal弯hWnd潜AsLo骆ng高,ByV调allp寻Opera修tion底AsSt诚ring,慢ByVa起llpF跟ileA济sStr砌ing,云ByVal谱lpPa覆ramet哀ersA马sStr筹ing,朝ByVal歪lpDi搞recto搏ryAs坊Stri欺ng,B踏yVal妖nShow缘CmdA押sLon叶g)As扮Long举Const债SW_S唤HOWNO浓RMAL颜=1锋Priva荣teSu滚bFor毕m_Act兼ivate咐()匆Statu绘sBar1仍.Pane死ls(2)趣.Text催="当宋前登录的是校"&u礼senam维e起Iflo粥ginus密e份rflag淡=1唯Then浆mnuAd衡duser垂.Enab奔led=毕True漠mnuDe贩leteu艺ser.E冤nable逼d=T味rue剪mnuBa彼tchse疗t.Ena程bled哈=Tru兰e轨Pictu停re1.E真nable播d=T为rueElse棉mnuAd亩duser惩.Enab辛led=汇Fals距e雁mnuDe械leteu楚ser.E政nable雅d=F秀alse沾mnuBa旬tchse昨t.Ena派bled喷=Fal食se分Pictu闻re1.E返nable榜d=F拐alse结EndI冈f堡EndS悼ub泽Priva工teSu业bFor答m_Que梯ryUnl伴oad(C准ancel亏AsI编ntege身r,Un锁loadM礼odeA丈sInt茂eger)举i=M锣sgBox役("您真的属退出工资管咬理系统？"阻,vbY械esNo泊+vbE水xclam蝇ation李)灯Ifi睬=vbY赔esTh低enEnd呀EndI心f逆EndS伯ub线Priva计teSu茅bmnu惠About稳_Clic毅k()茅Call垫Shell感About拿(hWnd凡,眠“互工资管理系律统拣”取,昂“敬欢迎提出建龟议伐”叙,Me.滴Icon)望EndS贱ub茧Priva机teSu今bmnu工Addus返er_Cl劫ick()姥frmAd带duser寿.Show冈Me.Hi退de挥EndS骨ub扶Priva阁teSu钞bmnu捐A势ssist跌_Clic祸k(Ind衡exAs糖Inte栗ger)未Shell跃Execu依teMe解.hWnd姓,vbN裂ullSt必ring,公App.垮Path皱&"\帮田助.chm店",vb倘NullS凶tring校,"",寒SW_S即HOWNO凳RMAL赔EndS拨ub烧Priva匹teSu久bmnu桥Batch飞set_C闲lick(辜)勺frmBa料tch.S司how吧Me.Hi截de计EndS雀ub曾Priva件teSu感bmnu沉Chang淡e_Cli巴ck()卷frmCh残ange.优Show育Me.Hi凶de讲EndS咽ub偶Priva伏teSu胖bmnu笋Delet隶euser楚_Clic既k()乱frmDe序leteu家ser.S参how子Me.Hi捡de灶EndS慰ub生Priva曲teSu秆bmnu痕EMP_C法lick(晶Index首AsI躬ntege帮r)俩frmUs谨er.Sh遍ow武Me.Hi羞de薯EndS锡ub块Priva困teSu鸟bmnu慨Exit_炸Click米()蒸i=M光sgBox快("您真的少退出工资管耍理系统？"废,vbY航esNo壁+vbE他xclam炊ation变)庭Ifi葡=vbY匹esTh盟enEnd轧EndI唤f次EndS栋ub孕Pri平vate窄Subm啊nuFor握mulae枝_Clic笛k()今frmFo本rmula纲e.Sho敬w督Me.Hi庄de扰EndS见ub堵Priva薯teSu训bmnu居Infot晨able_扫Click芦()高DataR绪eport眉2.Sho火w灶Me.Hi插de荒EndS闪ub倡Priva微teSu浇bmnu磁Persa斧larys故et_Cl获ick()缝frmPe线rsal.跑Show倘Me.Hi独de僵EndS乔ub既Priva集teSu慌bmnu燥Rlogi摩n_Cli里ck()涉frmLo滤gin.S京how进Me.Hi轮de辛EndS贝ub桑Priva粪teSu陈bmnu支Wageb裙ar_Cl护ick()最DataR原eport拜1.Sho摊w很Me.Hi槽de缺EndS拥ub仙Priva美teSu虏bmnu桌Waget饺able_删Click拉()膏DataR羞eport晴3.Sho鸡w除Me.Hi轻de域EndS丑ub郊Priva铁teSu便bPic崭ture2止_Clic喂k()唉mnuCh炎ange_影Click蜜EndS描ub直Priva升teSu朵bPic涝ture1哄_Clic灵k()途mnuA世dduse慢r_Cli重ck惯EndS成ub金Priva氏teSu蔽bPic讲ture3狮_Clic搬k()扫frmUs罗er.Sh佳ow锐Me.Hi跑de骑EndS雅ub雾Priva刮teSu坏bPic移ture4乞_Clic连k()劫mnuIn泥fotab榴le_Cl璃ick浪EndS借ub辫Priva秤teSu颠bPic晓ture5圆_Clic射k()藏mnuPe搬rsala辛ryset案_Clic忆k哈EndS房ub俭Priva堡teSu拢bPic杏ture6无_Clic嫌k()遗mnuWa泳gebar蒙_Clic读k葱EndS垃ub挑Priva渡teSu芬bPic弹ture7盛_Clic脱k()估mnuRl捐ogin_灶Click期EndS陕ub亚Priva窑teSu剩bPic狠ture8兔_Clic揪k()天mnuEx贪it_Cl虽ick猜EndS译ub桑·疏注册用户窗歪体代码：扰Priva量teSu飘bCom领mand1烈_Clic党k()词IfTr没im(Te辞xt1.T讽ext)饭=""销Then谢MsgBo辅x("用泥户不能为空挣，请重新输奏入！")邮Text1咽.SetF声ocus箩Exit研Sub著EndI附f哗IfTr张im(Te宝xt2.T膀ext)麻=""嘉Then丽MsgBo费x"密码墙不能为空，否请重新输入蠢！"倍Text2垒.SetF魂ocus扯Exit厘Sub段EndI懂f萄IfCo标mbo1.帝Text翁=""收Then糕MsgBo很x("用故户权限不能者为空，请重醒新输入！"日)屑Combo走1.Set晒Focus见Exit沈Sub双EndI仆f朋IfTe风xt2.T筹ext<崭>Tex融t3.Te兔xtTh忘en续MsgBo护x("两尘次输入的密绒码不一致，远请重新输入愁！")摩Text2亩.Text希=""会Text3预.Text够=""粮Text2仆.SetF药ocusElse柜Adodc纷1.Com每mandT科ype=太adCm糖dUnkn赴own齐Adodc怜1.Rec猾ordSo锈urce去="se是lect添*from骨用户w闻here耽[user馒]='"闹+Tri莫m(Tex帝t1.Te绝xt)+艳"'"甜Adodc淋1.Ref杜resh肿IfAd王odc1.校Recor雾dset.秤Recor熊dCoun吵t>0者Then竞i=M俯sgBox耀("用户名畜已经存在！垦是否重新输卡入？",辉vbYes狐No+推vbExc蹦lamat聪ion)括Ifi爽=vbY柜esTh呼en检Text1腐.Text时=""本Text2李.Text肿=""喷Text3喂.Text太=""糟Text1窃.SetF惕ocusElse横Comma倦nd2_C四lick攀EndI消fElse蹦Adodc球1.Rec虎ordSo帽urce剃="se胸lect语*from径用户"诚Adodc决1.Ref体resh臭Adodc欣1.Rec采ordse栗t.Add垒New讲Adodc裳1.Rec表ordse逼t.Fie防lds(0旨)=T继rim(T雪ext1.铺Text)烦Adodc遵1.Rec今ordse无t.Fie威lds(1叨)=T员rim(T离ext2.催Text)愈Adodc器1.Rec京ordse子t.Fie晋lds(2持)=T摘rim(C古ombo1辈.Text辩)似Adodc牧1.Rec寿ordse助t.Upd氧ate思Adodc狂1.Rec需ordse冶t.Clo知se样i=M单sgBox寨("恭喜你辱注册用户成侍功！是否继休续注册用户喊？",v殿bYesN艰o+v圈bExcl暮amati丧on+跃vbDef苍aultB逐utton最2)册Ifi低=vbY腾esTh险en税Text1铸.Text乒=""播Text2纹.Text降=""史Text3狂.Text域=""闪Text1齐.SetF偶ocusElse搏Comma卸nd2_C握lick绞EndI胀f捐EndI呢f雾EndI差f钩EndS样ub膝Priva返teSu浩bCom励mand2馆_Clic庆k()筒Unloa耽dMe名frmMa悔in.Sh鱼ow糠EndS拆ub垮Priva杨teSu狗bFor府m_Act喘ivate葵()倾Text1江.SetF垄ocus虑EndS计ub拣Priva军teSu专bPic己ture1叹_Clic市k()赶frmAb苍out.S族how桨EndS表ub括Priva确teSu谨bFor很m_Unl忍oad(C怪ancel启AsI布ntege梢r)舟Unloa眠dMe续frmMa贼in.Sh榆ow妄EndS膝ub能Priva绒teSu改bPic连ture2驾_Clic忧k()奥Call册Shell拆About写(hWnd团,陷“惯工资管理系趣统裳”左,躬“娇欢迎提出建蕉议交”眉,Me.唐Icon)窗EndS有ub志Priva辣teSu嚷bPic秤ture3羡_Clic弃k()劫SendK住eys"注{F1}"挥EndS灰ub施Priva符teSu弃bTex蕉t1_Ke畅yDown更(KeyC清odeA终sInt叉eger,轧Shif之tAs若Integ跑er)竞IfKe浴yCode柿=vb宅KeyRe学turn浩Then马IfTe净xt1.T社ext<竖>""央Then竞Text2刊.SetF猪ocus踢EndI借f穷EndI觉f旗EndS底ub加Priva露teSu腿bTex联t2_Ke株yDown具(KeyC微odeA生sInt可eger,悦Shif建tAs吊Integ哄er)铁IfKe蕉yCode止=vb疯KeyRe奇turn代Then敲IfTe俊xt2.T邀ext<勾>""档Then瞎Text3态.SetF蹲ocus扬EndI暂f傅EndI库f筹EndS烫ub乡Priva逃teSu疯bTex毁t3_Ke猪yDown宿(KeyC顽odeA肥sInt烂eger,警Shif剑tAs氏Integ辜er)唇IfKe蜻yCode犯=vb译KeyRe醒turn笋Then畜IfTe段xt3.T锯ext<筑>""授Then欲Comma读nd1_C卸lick冬EndI压f妙EndI严f求EndS靠ub仆·英员工信息窗发体代码：络DimC盾onstr送AsS愧tring避DimF们ileNa拥meAs粪Stri仆ng适Dima激ddfla猪gAs蹄Integ孤er丙Const颠Bloc却kSize国=40犬96酬DimA律DOFld禁AsA险DODB.慈Field话Priva捎teSu栏bCom豪bo5_K闷eyDow福n(Key免Code结AsIn晋teger俘,Shi浴ftAs贯Inte容ger)壤IfKe黄yCode刊=vb家KeyRe浅turn骄Then壁Comma旁nd18_尤Click钱EndS帆ub壮Priva贼teSu漠bCom疾bo6_K开eyDow赞n(Key钥Code贯AsIn仅teger你,Shi廊ftAs聪Inte妈ger)柄IfKe切yCode欠=vb垫KeyRe古turn丢Then屈Comma勉nd17_番Click孙EndS熔ub城Priva妈teSu吃bCom松mand1禾_Clic抬k()乏OnEr灿rorG袍oTof多lag缎Adodc献1.Rec亿ordse猴t.Mov逢ePrev即ious锅IfAd牛odc1.臣Recor辜dset.屋BOF=哈True拴Then俯MsgBo碧x"员工丽信息记录已意经到了第一旋条！"恒Adodc夕1.Rec渐ordse损t.Mov包eFirs费t暴EndI遮fflag:卧Exit犯Sub获EndS斯ub跟Priva阀teSu朴bCom拖mand1村0_Cli厚ck()贼Frame致2.Vis形ible吐=Fal党se障EndS既ub别Priva党teSu序bCom宏mand1巧1_Cli传ck()姨Adodc显1.Com灯mandT圣ype=姨adCm洪dUnkn艘own病Adodc飞1.Rec抄ordSo继urce符="se煤lect抹*fro潮m员工信跃息whe汁rena惊me='"障+Te东xt2.T沃ext+俯"'"瞒Adodc怖1.Ref斑resh侮IfAd陷odc1.站Recor是dset.携Recor惰dCoun云t=0科Then夺MsgBo矛x("工静资管理系统勿还没有此姓鹅名员工的信禾息！")甘Frame纸2.Vis秀ible潮=Fal浮se哨Adodc逝1.Rec合ordSo慨urce漆="se窗lect侵*fr属om员工迟信息"招Adodc杨1.Ref受resh贞Exit塔Sub萝EndI价f绍Frame筋2.Vis堪ible笛=Fal甚se酸Comma煤nd20.弓Visib别le=杏True辜EndS泊ub检Priva招teSu骑bCom吨mand1专2_Cli获ck()陆Adodc己1.Com滔mandT问ype=鞭adCm记dUnkn辽own钟Adodc逐1.Rec扔ordSo浆urce段="se矩lect岗*from纪员工信息挑wher瞎eemp趁ID='"闲+Da咬taCom塌bo2.B圣oundT丙ext+扑"'"练Adodc飞1.Ref凳resh友IfAd术odc1.三Recor眨dset.列Recor耻dCoun攀t=0朋Then知MsgBo狱x("工惧资管理系统筝还没有此职余工编号员工聋的信息！"凤)准Frame怪3.Vis伤ible灰=Fal价se爪Adodc予1.Rec尊ordSo肠urce警="se傍lect夺*fr猴om员工资信息"还Adodc律1.Ref哀resh桥Exit锦Sub厉EndI模f坏Frame咬3.Vis金ible膨=Fal种se珍Comma滴nd20.渔Visib慎le=旋True缴EndS粗ub命Priva炸teSu拌bCom柄mand1障3_Cli坐ck()光Frame婶3.Vis鹊ible骆=Fal雄se企EndS戏ub腐Priva犬teSu迅bCom染mand1藏4_Cli个ck()裹Adodc葱1.Com休mandT课ype=评adCm毙dUnkn似own尚Adodc暑1.Rec俘ordSo唱urce亦="se办lect死*from掌员工信息隔whe烂rehe盈adshi置p='"兔+Tex嗽t3.Te滩xt+弦"'"滑Adodc痒1.Ref址resh俊IfAd嘉odc1.昼Recor物dset.寇Recor观dCoun玩t=0次Then祝MsgBo灵x("工还资管理系统融还没有此职股务员工的信逝息！")鸦Frame离4.Vis鼠ible踩=Fal监se拔Adodc子1.Rec昨ordSo嫂urce贡="se拆lect展*fr样om员工罩信息"呈Adodc委1.Ref驻resh辣Exit叶Sub晓EndI抵f寒Frame娃4.Vis回ible抖=Fal值se御Comma柱nd20.暴Visib火le=潜True续EndS满ub淡Priva甜teSu嫌bCom穿mand1辽5_Cli狸ck()霞Frame翼4.Vis胜ible困=Fal填se触EndS塞ub触Priva虫teSu纤bCom节mand1逐6_Cli洗ck()庸Frame辩5.Vis撑ible默=Fal陈se叨EndS竟ub店Priva榆teSu符bCom洞mand1摧7_Cli爱ck()总Adodc砌1.Com遥mandT巡ype=贫adCm犁dUnkn鞋own棚Adodc轿1.Rec魄ordSo纽urce惊="se缴lect佩*from妨员工信息宵wher呀egov束vis='航"+C白ombo6灭.Text申+"'茄"锋Adodc压1.Ref教resh础IfAd芝odc1.悲Recor笨dset.蜜Recor刑dCoun爱t=0伞Then值MsgBo粗x("工次资管理系统肿还没有此政吗治面貌员工亦的信息！"暴)旺Frame搬5.Vis滔ible志=Fal绑se轻Adodc昼1.Rec膛ordSo垦urce洋="se拍lect孟*fro矩m员工信俗息"盛Adodc膜1.Ref具resh号Exit平Sub滔EndI灾f修Frame层5.Vis忠ible划=Fal址se辫Comma乓nd20.哈Visib宋le=畜True久EndS赔ub葬Priva羡teSu愁bCom佳mand1刮8_Cli梅ck()馋Adodc行1.Com浅mandT景ype=观adCm捧dUnkn驱own如Adodc搬1.Rec搞ordSo怒urce宣="se史lect奇*from第员工信息挖wher犯ecul纺ture=某'"+员Combo鸭5.Tex扫t+"恐'"误Adodc伪1.Ref嫩resh诉IfAd龄odc1.反Recor避dset.犯Recor携dCoun暴t=0混Then设MsgBo痕x("工定资管理系统票还没有文化秧程度的信息握！")极Frame萌6.Vis疫ible弊=Fal哄se条Adodc码1.Rec沟ordSo云urce膨="se绞lect野*fro难m员工信蛇息"品Adodc荒1.Ref裳resh恋Exit作Sub肃EndI勤f约Frame借6.Vis厅ible得=Fal鉴se习Comma温nd20.拘Visib弓le=壶True到EndS貌ub蛇Priva胖teSu柜bCom端mand1号9_Cli转ck()跪Frame狗6.Vis气ible龄=Fal南se梅EndS布ub型Priva有teSu顶bCom佩mand2桌_Clic雪k()蚊OnEr搜rorG跨oTof棋lag协Adodc历1.Rec布ordse种t.Mov防eNext瓣IfAd漂odc1.印Recor镇dset.猜EOF=爸True宵Then陡MsgBo薯x"员工台信息记录已霜经到了最后军一条！"屡Adodc蚂1.Rec采ordse蹈t.Mov齐eLast裳EndI醋fflag:糖Exit待Sub士EndS效ub品Priva挽teSu显bCom团mand2获0_Cli辅ck()堵OnEr奏rorG裕oTof章lag衡Adodc榨1.Rec容ordse浪t.Can运celUp势date法Fori悬=0随To9哭Text1舅(i).E价nable纪d=F昏alseNext觉Combo贤1.Ena老bled服=Fal躲se所Combo井2.Ena回bled美=Fal肉se视Combo砍3.Ena聪bled征=Fal犬se龄Combo洋4.Ena条bled员=Fal崖se魄DTPic牌ker1.脚Enabl惹ed=携False听Image哲1.Ena践bled伪=Fal蹄se桃Comma客nd1.E械nable恼d=T晶rue闲Comma张nd2.E采nable昂d=T忙rue浆Comma饮nd3.E宇nable负d=T乔rue梦Comma汽nd4.E灾nable尤d=F恢alse婆Comma己nd20.般Visib敲le=毕False班Comma孟nd5.E妖nable窄d=T出rue株Comma搜nd6.E捡nable领d=T繁rue杆Comma置nd7.E浅nable掀d=T钩rue帐Comma薪nd1.S碍etFoc肾us闭Comma草nd20.逗Visib掩le=笨False概Adodc记1.Com罪mandT狱ype=督adCm撒dUnkn周own评Adodc章1.Rec蝶ordSo文urce送="se显lect晶*from继员工信息聚"房Adodc紧1.Ref驾reshflag:曲Exit菌Sub息EndS鼓ub使Priva稻teSu卵bCom枣mand2订1_Cli怕ck()闻Comma巧nd20_尿Click内frmMa巩in.Sh坛ow母Unloa倡dMe梅EndS址ub法Priva铅teSu万bCom都mand3偷_Clic窄k()缝addfl尾ag=眼1肌Comma由nd20.汪Visib蝴le=更True栋Adodc拆1.Rec洽ordse内t.Add婶New湾Fori恒=0枯To9横Text1猎(i).E征nable室d=T塞rue台Text1颗(i).T膜ext=武""抄Next庄i捏Text1薯(0).S谎etFoc粱us仆Combo叔1.Ena千bled之=Tru缎e懒Combo之2.Ena怜bled悉=Tru购e词Combo信3.Ena生bled草=Tru齿e筝Combo蛮4.Ena乒bled隆=Tru家e鱼DTPic药ker1.嗓Enabl爹ed=切True术DTPic葵ker1.式Value霞=No侍w培Image砌1.Ena确bled宜=Tru产e临Comma俩nd1.E它nable甚d=F鸡alse晒Comma深nd2.E凯nable亚d=F齐alse哀Comma储nd3.E建nable窝d=F榆alse恰Comma乔nd4.E鼻nable渔d=T栋rue谈Comma靠nd20.险Visib夸le=坊True喉Comma凳nd5.E皱nable贿d=F往alse糠Comma答nd6.E徒nable宰d=F竭alse准Comma明nd7.E家nable涉d=F技alse摇OnEr压rorG位oTof群lag煎Image杂1.Pic砍ture锹=Loa逢dPict钩ure(A贯pp.Pa秩th&皂"\Pic尿ture\珠双击取照片剃.jpg"迷)flag:装Exit虫Sub捉EndS仙ub抓Priva好teSu朗bCom缩mand4该_Clic科k()叼Comma黑nd20.附Visib阔le=贼True梯IfTe寸xt1(0嘱).Tex饿t="疯"The起n垂MsgBo取x("添乖加的员工信妨息中职工编筑号为空，请划输入职工编驻号！")肯Text1爽(0).S车etFoc挤us青Exit集Sub湿EndI食f论IfTe池xt1(1裕).Tex波t="刊"The余n毯MsgBo墨x("添削加的员工信镇息中姓名为纽空，请输入拌姓名！")宋Text1加(1).S遭etFoc到us合Exit须Sub铜EndI如f们IfCo扬mbo3.返Text冻=""探Then及MsgBo乱x("添迹加的员工信伞息中性别为扮空，请选择恐性别！")吼Combo词3.Set糠Focus标Exit阿Sub台EndI护f湾IfTe塌xt1(4装).Tex让t="很"The傅n泊MsgBo榨x("添逆加的员工信飞息中职务为疤空，请输入注职务！")暑Text1孕(4).S烛etFoc屡us糟Exit团Sub汪EndI遇f外IfCo狠mbo3.懂Text树<>"男睁"And暑Comb乔o3.Te餐xt<>特"女"惯Then梢MsgBo虎x("您胁选择的性别去不正确，请涌重新输入！秘")届Combo蓄3.Set峰Focus笼Exit组Sub绒EndI起f乞IfCo挎mbo1.侨Text帆<>"群互众"An樱dCom洁bo1.T寿ext<败>"团员歉"And悄Comb玩o1.Te宁xt<>追"党员"歇And岸Combo泻1.Tex司t<>帐""Th黄en诊MsgBo柄x("您或选择的政治伸面貌不正确摔，请重新输磁入！")沙Combo宅1.Set该Focus图Exit蚕Sub充EndI赶f伪IfCo虫mbo4.扎Text压<>"是蠢"And尾Comb镰o4.Te亿xt<>令"否"处AndC启ombo4授.Text粱<>"间"The匀n骆MsgBo饭x("您计选择的婚否条信息不正确童，请重新输海入！")镰Combo散4.Set疲Focus震Exit喜Sub胡EndI末f各IfCo梅mbo2.离Text少<>"小事学"An聚dCom碧bo2.T食ext<波>"初中倘"And评Comb驳o2.Te灾xt<>查"高中"济And秃Combo则2.Tex驶t<>形"大学本科伯"And积Comb箩o2.Te蠢xt<>态"硕士研冻究生"A携ndCo顷mbo2.月Text男<>"更迁高学历"闯AndC钓ombo2究.Text深<>"储"The奉n榴MsgBo糠x("您窝选择的文化款程度不正确啦，请重新输娃入！")衫Combo品2.Set罢Focus膊Exit敬Sub铜EndI统f亲Ifad绝dflag凑=1伪Then丙Adodc激2.Com故mandT咏ype=葬adCm阶dUnkn境own疑Adodc或2.Rec价ordSo唇urce赵="se姨lect队*from寄员工信息陆wher悬e[em吴pID]=饶'"+驼Trim(轨Text1粗(0).T渠ext)耗+"'"洁Adodc歇2.Ref篮resh扣IfAd街odc2.些Recor庄dset.矿Recor戚dCoun计t>0贩Then分i=M牵sgBox色("员工编呀号已经存在冻！是否重新营输入？",盒vbYe鸟sNo+等vbEx歌clama赵tion)伸Ifi块=vbY洋esTh塞en庆Fori头=0靠To9勤Text1惊(i).T鲜ext=扛""Next茧Combo恭1.Tex贪t="隔"郊Combo父2.Tex胞t="啦"考Combo械3.Tex电t="稿"靠Combo漏4.Tex肤t="伴"蔑Text1玩(0).S情etFoc普us面Exit伪SubElse蹲Comma劈nd20_鲜Click喷EndI至f还EndI率f杜EndI露f蹈SetA角DOFld疤=Ad始odc1.术Recor株dset(和"pic"微)怪Call扶SaveT膝oDB(A很DOFld董,Fil好eName提)乡FileN盟ame=黎""湾Adodc债1.Rec佳ordse转t.Upd早ate荣Fori斧=0营To9努Text1铜(i).E珠nable栋d=F铅alse稼Next伏i武Combo球1.Ena惨bled铸=Fal骗se袄Combo骑2.Ena勇bled项=Fal独se颈Combo膝3.Ena靠bled肺=Fal移se丛Combo悠4.Ena颗bled衣=Fal莫se遥DTPic洽ker1.角Enabl蓄ed=酒False肃Image傲1.Ena摧bled器=Fal基se发Comma穿nd1.E俱nable廉d=T计rue脉Comma结nd2.E弃nable案d=T法rue扛Comma可nd3.E氧nable暂d=T眯rue跪Comma登nd4.E钩nable录d=F驱alse纲Comma末nd20.哥Visib雅le=肤False般Comma雁nd5.E赤nable浇d=T糠rue缸Comma或nd6.E断nable逆d=T济rue旺Comma骗nd7.E房nable搭d=T循rue远Comma岩nd1.S满etFoc榜us希Adodc真1.Com怪mandT妈ype=吹adCm蒸dUnkn周own扫Adodc杏1.Rec姻ordSo努urce近="se内lect演*fro幻m员工信贴息"秒Adodc挤1.Ref暖resh餐EndS瘦ub宪Priva即teSu恶bCom肝mand5氏_Clic冰k()姓IfTe钞xt1(1靠).Tex重t<>疾"李顺利"丈Then着Dimm某yval娘AsSt征ring阿myval喉=Ms耍gBox(勿"是否要删典除此员工信弄息记录？"喘,vbY若esNo)欲Ifmy关val=坛vbYe蚀sThe声n姓OnEr法rorG竖oTof品lag俱Adodc糖1.Rec税ordse拒t.Del束ete捞Adodc絮1.Rec你ordse仁t.Mov孕eNext鼻OnEr滋rorG退oTof磨lag棉IfAd明odc1.熟Recor足dset.崭EOF=赚True逝Then弟Adod畜c1.Re窃cords肤et.Mo棵veLas置t境Fori御=0茂To9劣Text1三(i).E申nable缸d=F义alse准Next砖i全Comma接nd1.S崖etFoc隐us谋Combo禽1.Ena慈bled戏=Fal句se画Combo育2.Ena苹bled样=Fal股se纷Combo填3.Ena寺bled然=Fal熄se若Combo你4.Ena之bled珠=Fal皇se拜DTPic姥ker1.端Enabl赴ed=蛇False吃Image房1.Ena棉bled滋=Fal皆se港EndI途fElse阴MsgBo懂x("员技工李顺利为刷董事长，拥筛有该系统的衔永远的管理蚁权利，您不丝可删除！"蝶)该Exit霸Sub占EndI埋fflag:黎Exit请Sub焰EndS同ub柏Priva国teSu挪bCom渠mand6术_Clic稼k()矿addfl余ag=浴0眉Fori沙=0茄To9汉Text1甜(i).E别nable蔽d=T喘rue士Next碌i幅Text1贞(0).E控nable逗d=F侦alse帖Combo井1.Ena唱bled厌=Tru灾e醋Combo著2.Ena盆bled然=Tru胃e晕Combo乳3.Ena锦bled北=Tru药e仙Combo省4.Ena枯bled腔=Tru家e杀DTPic叼ker1.府Enabl诚ed=锻True搁Image墨1.Ena量bled颠=Tru蓝e迁Comma蜜nd1.E膊nable岛d=F县alse碑Comma誉nd2.E皱nable情d=F块alse柱Comma缎nd3.E楚nable敬d=F盆alse事Comma余nd4.E售nable曾d=T色rue跟Comma乌nd6.E贡nable厌d=F屋alse盾Comma填nd20.徐Visib鹿le=照True蛇Comma榴nd5.E诵nable巨d=F待alse质Comma芳nd7.E赛nable吊d=F产alse唉Text1孩(1).S军etFoc截us曲EndS桂ub别Priva太teSu蹦bCom航mand7误_Clic娇k()巴Frame民1.Vis壳ible倚=Tru炼e钥Comma应nd8.S示etFoc遣us落EndS扩ub迈Priva趣teSu杆bCom胃mand8岩_Clic闸k()驾IfOp躲tion1选.Valu腥e=T区rueT床hen馆Frame背2.Vis乘ible荷=Tru固e趴Frame蒙1.Vis魔ible兴=Fal拐se鲜Text2泉.SetF别ocus监EndI菠f厦IfOp微tion2增.Valu跪e=T邻rueT托hen暮Frame讨3.Vis时ible则=Tru波e灰Frame僻1.Vis顷ible沾=Fal铅se楼DataC宇ombo2效.SetF颈ocus挖EndI洁f酿IfOp场tion3层.Valu墨e=T范rueT注hen帐Frame尾4.Vis器ible司=Tru蜘e穿Frame义1.Vis婚ible伟=Fal宪se播Text3凉.SetF露ocus刮EndI姓f塑IfOp涛tion4葵.Valu崇e=T傅rueT岩hen善Frame剪5.Vis禁ible适=Tru或e糟Frame冠1.Vis幕ible娘=Fal扒se适Combo窄6.Set配Focus厌EndI苍f级IfOp军t