VB課程設(shè)計(jì)-企業(yè)人事信息管理系統(tǒng)

1概述：1.1簡(jiǎn)單介紹本系統(tǒng)實(shí)現(xiàn)的內(nèi)容用戶登錄通過(guò)權(quán)限判斷，普通用戶不能瀏覽、閱讀和查詢信息，指定用戶可以操作，可以進(jìn)行信息錄入、修改和刪除的操作。1.2系統(tǒng)的主要功能特點(diǎn)有:系統(tǒng)登錄表單該表單的功能是在系統(tǒng)被訪問(wèn)之前，要對(duì)進(jìn)入系統(tǒng)的用戶進(jìn)行安全性檢查，防止非法用戶進(jìn)行系統(tǒng)破壞數(shù)據(jù)及威脅系統(tǒng)安全，避免不必要的損失。只有合法的用戶在輸入正確的密碼后方可進(jìn)入系統(tǒng)。系統(tǒng)分為五個(gè)大的功能模塊:用戶在經(jīng)過(guò)正確的登錄后可進(jìn)行—1)人事管理:包括部門信息和員工信息的查看,進(jìn)行人員的調(diào)動(dòng),并查看各部門員工的福利待遇.2)考勤管理:進(jìn)行日常出勤管理和加班出差的管理3)工資管理:可對(duì)各部門員工的工資進(jìn)行登錄和查詢.4)打印:以條目或表格的形式對(duì)員工工資或員工信息進(jìn)行輸出預(yù)覽.5)系統(tǒng)管理:登錄用戶可對(duì)系統(tǒng)進(jìn)行管理包括增加用戶,修改用戶,刪除用戶和修改密碼.值得一提的是登錄用戶進(jìn)行修改時(shí)僅限自身,不可對(duì)別的用戶進(jìn)行修改操作.數(shù)據(jù)庫(kù)設(shè)計(jì)：2.1員工信息表：用戶需要錄入的員工信息表主要字段包括：?jiǎn)T工編號(hào)、員工姓名、部門編號(hào)、性別、生日、住址、職位、出生地、聯(lián)系。窄字段的字段名鮮類型翠寬度蝦Nulls薯1真員工編號(hào)癢char界10壺否商2攔員工姓名腳Char座15嘉否包3餅部門編號(hào)饅Int病4叨否薯4氏性別海char偵2兩否主5蜂生日野Char恒10驅(qū)否訊6桑住址記Char成30沒(méi)否藥7租職位肺Varch島ar扭20顯否量8威出生地出Cha傘r兩10結(jié)否會(huì)9戒聯(lián)系辮Char竊20鋒否劫10轎最高學(xué)歷積Cha驕r盒20賀否勇2.2加班列信息表：逐宋愚包括：?jiǎn)T孤工編號(hào)、加粗班日期、加馳班天數(shù)、漂加班補(bǔ)助。啦字段迫字段名斥類型跟寬度導(dǎo)Nulls企1背員工編號(hào)以Char貢10逗否斬2枯加班日期步Cha鉤r襖10憐否秩3壯加班天數(shù)栗Int咬4住是三4突加班補(bǔ)助貸Numer崖ic搭9(10,費(fèi)0)忌是圍2.3工資網(wǎng)福利表：慧包括：?jiǎn)T工糞編號(hào)、崗位青工資、基本擺工資、伙食與補(bǔ)貼、住房寒補(bǔ)貼、住房租公積金、養(yǎng)飯老保險(xiǎn)、其喘他補(bǔ)貼、發(fā)填放時(shí)間、加步班補(bǔ)助、缺豪勤扣除、實(shí)殘發(fā)工資。草字段獎(jiǎng)字段名恥類型難寬度湊Nulls戶1振員工編號(hào)乞Char協(xié)10慮否眠2牢崗位工資烏Numer匙ic薄9(19,鄉(xiāng)4)御是密3俗基本工資住Numer際ic澡9(19,等4)貪是云4堅(jiān)伙食補(bǔ)貼啦Numer良ic受9(19,游4)徑是拳5炎住房補(bǔ)貼犧Numer似ic勺9(19,輔4)陵是悉6駛住房公積金渾Numer劇ic已9(19,間4)壺是訴7葵養(yǎng)老保險(xiǎn)糕Numer壇ic腹9(19,捎4)漸是丹8厘其他補(bǔ)貼疲Numer仁ic那9(19,染4)酒是牲9綠發(fā)放時(shí)間概Char旨20情否折10暴加班補(bǔ)助津Numer微ic拐9(18,趙0)箱是吊11歷缺勤扣除逢Numer功ic炮9(18,腳0)膛是鋒12夠?qū)嵃l(fā)工資田Numer咸ic佛9(18,腳0)香是夕2.4缺勤耳信息表：卷贏包腔括：?jiǎn)T工編垮號(hào)、缺勤日師期、缺勤天轉(zhuǎn)數(shù)、缺勤類均型、缺勤扣沫除。準(zhǔn)字段頓字段名譜類型揚(yáng)寬度薄Nulls后1牌員工編號(hào)王Char李10談否短2嶺缺勤日期濟(jì)Char蛛10徒否沿3助缺勤天數(shù)喜char宵10犧是淹4籠缺勤類型繳Int焰4武是記5起缺勤扣除股char鍬10車是滾2.5用戶先信息表：誕恢包括封：用戶名、葛用戶密碼、摘用戶類型超。域字段死字段名碧類型利寬度真Nulls忠1撤用戶名治Char削10丟否嚇2共用戶密碼晶Char放20魯否帖3蹲用戶類型似int并4抽否勾2.6登錄姓時(shí)間表：盈遙眾包括：用戶院名、用戶類邀型、登錄時(shí)戀間。抓字段奉字段名打類型流寬度懼Nulls顆1租用戶名司Char稅10想否致2駕用戶類型犯Char買10糟否懇3藥登錄時(shí)間冷char扮40皂否之2.7部門蓄信息表：輕轟脫包括：部門禽編號(hào)、部門勿名稱、部門境人數(shù)、部門業(yè)級(jí)別歪字段焰字段名即類型逃寬度耍Nulls值1需部門編號(hào)桃Int山4醉否圣2沫部門名稱紅Char唉20篩是垂3左部門人數(shù)釘Int逃4宴是滲4惰部門級(jí)別蚊char缺10綁是喉3代碼籮業(yè)添加用戶代親碼：虹在Form隸Main.甜vb窗體中館：幟Impor少tsSy醋stem.嘆Data.爛OleDb葛Impor催tsSy貫stem.鴉Data.鄭SqlCl游ient束Impor柿tsSy帆stem.縱IO腎Impor北tsSy淡stem.孟Windo忘ws.Fo輝rms.H苦elp槽Priva熄teSu筆bMen指uItem絹20_Cl次ick(B貸yVal閥sende滴rAs田Syste無(wú)m.Obj侮ect,壞ByVal或eAs票Syst棗em.Ev女entA癥rgs)攝Handl擠esMe詳nuIte負(fù)m20.C苗lick抹水………..…..沙講E頑ndSu鴉b券在Form桑XTGL.沒(méi)vb窗體中甚：遭Impor稱tsSy葡stem.敢Data.莊OleDb掛Impor宅tsSy瓜stem.革Data.替SqlCl擦ient逢—————世—————圍—————惑—————鄰—————飾—————網(wǎng)—————幫—————酒—————冬—貪Publi扭cCla府ssFr率mXTGL濟(jì)I烏nheri串tsSy訂stem.痛Windo術(shù)ws.Fo貧rms.F機(jī)orm莫璃Priva延teMy披TagA隔sStr犯ing怨P深rivat帝eUse壤rname摔AsS異tring耗Priva脹teSu蜜bBut牛ton2_躬Click營(yíng)(ByVa曉lsen殖derA勞sSys嬌tem.O呼bject項(xiàng),ByV喜ale鉆AsSy仍stem.請(qǐng)Event衛(wèi)Args)遺Hand憐lesB牙utton袍2.Cli漫ck拋慮Di悲mcon捧nstr賊AsNe潮wStr油ing("擇provi膊der=S乞QLOLE樣DB.1;毛User歷ID=sa涌;Pass旺Word=厚110;P挖ersis圈tSec遞urity赤Info座=fals傳e;Ini勿tial巡Catal鳴og=wa村ge;Da然taSo唇urce=姥.;")配政Di奶mCn偵AsNe場(chǎng)wOle鎖DbCon哪necti侄on護(hù)有Di帶mcmd攀AsO相l(xiāng)eDbC涌omman頑d顧水Di圍mSQL拌Strin棵gAs謙Strin崖g征味If蠢…….闖卻En席dIf掩愛(ài)Tr鵲y屬癢位If漂MyTag茫=1寶Then綿估燈導(dǎo)SQLS蝦tring之="機(jī)INSER斧TINT厘O用戶信扔息表(用摔戶名,用戶齒密碼,用戶右類型)"核&_鑒饒憲仇籃"VA寨LUES(減'"&體TextB傻ox1.T著ext&情"',草"&C罰Int(T辜extBo羊x2.Te些xt)&牽","塑&_芽?jī)A西懂茄Comb默oBox1嶄.Sele估ctedI碎ndex拜&")"棕礙鴨Els籍eIfM車yTag乓=2T嶺hen膛顯四泄SQLS差tring松="D流ELETE砍用戶信息林表WHE愉RE用戶變名='"吵&Tex咳tBox1謀.Text主&"'橫"刃牲汗Els律eIfM備yTag梳=3T攔hen朋績(jī)撓他SQLS軍tring龍="U厭pDate伯用戶信息勤表SET惡用戶密碼念='"&聲Text碌Box2.燒Text壩&_形忌野諷"',用腹戶類型="劃&Co壞mboBo鉛x1.Se狼lecte理dInde獄x&"依WHE詳RE用戶眨名='"旱&_眾命渡恰田Text柿Box1.曉Text岸&"'"走革約Els京eIfM鉆yTag謀=4T故hen畫(huà)糕剩史IfT弊extBo藥x1.Te演xt=紀(jì)Usern切ameT瓣hen蒙險(xiǎn)坊昂戀SQLSt套ring甜="Up舞Date鎮(zhèn)用戶信息表肉SET服用戶密碼=科'"&叼TextB浪ox2.T什ext&橋_趨辮藍(lán)吐嚷"'WH優(yōu)ERE用妹戶名='"燦&Te福xtBox息1.Tex遵t&"陸'"暫況沒(méi)登Else央脖量影淹………螞.商這幫標(biāo)購(gòu)Exit稿Sub肢擦能岸End息If池矛值End斃If膚鄭座Cn.蜜Conne悔ction鍵Strin乒g=c憶onnst東r丟帽奏Cn.脊Open(尼)同騙革cmd估=Ne口wOle均DbCom存mand(隱SQLSt希ring,笑Cn)帳命下cmd問(wèn).Exec棵uteNo僑nQuer居y()跌職Ca炎tche喚xAs傷Excep劇tion節(jié)膝勢(shì)Msg光Box(e扔x.Mes摔sage)張畜En拉dTry翁做cm以d.Dis麥pose(艇)鮮永Cn凈.Disp研ose()故乓Bu悶tton2欄.Enab久led=馳Fals爹e顏墓Ge下tUser劑()慘E如ndSu卵b粥4.3覽修改用戶界魄面代碼如下：推在FrmM軋ain.v打b窗體中：吉'////盾/////姜//引爬入系統(tǒng)命名證空間的文件謀Impor泛tsSy老stem.挽Data.姻OleDb響Impor葛tsSy娛stem.烏Data.刪SqlCl悲ient螺Impor棕tsSy故stem.硬IO倦Impor犬tsSy繼stem.輕Windo巧ws.Fo撈rms.H鑒elp捷—————男—————席—————姑—————抵—————府—————椅—————困—————有—————相—辣Priva斥teSu饞bMen引uItem奉21_Cl腳ick(B策yVal丘sende序rAs備S掉ystem墊.Obje器ct,B類yVal殼eAs營(yíng)Syste功m.Eve嗚ntArg記s)Ha蘋(píng)ndles真Menu獵Item2枕1.Cli膽ck店薄//長(zhǎng)////臂修改用刑戶毛艦槽………這E喘ndSu爛b恨在Form淺XTGL.計(jì)vb窗體中發(fā)：鎖Impor霜tsSy刻stem.傅Data.柳OleDb圣Impor狐tsSy蠶stem.基Data.咬SqlCl甩ient棗—————厘—————喇—————呀—————掉—————徒—————旗—————撇—————透—————楊—淹Publi陶cCla冷ssFr節(jié)mXTGL條教In報(bào)herit狀sSys卷tem.W羞indow挑s.For鑰ms.Fo曬rm慨P溝rivat窩eMyT害agAs修Stri妥ng符Priva應(yīng)teUs晉ernam啞eAs改Strin座g肥—————階—————熊—————作—————輸—————黨—————慶—————頓—————機(jī)—————勺—襲Priv桌ateS仁ubBu蠻tton2囑_Clic鎮(zhèn)k(ByV裕alse膛nder型AsSy剖stem.事Objec費(fèi)t,By腹Vale召AsS自ystem爪.Even氣tArgs鈴)Han弄dles時(shí)Butto臉n2.Cl洲ick截隨Di找mcon休nstr鋼AsNe誼wStr后ing("周provi皆der=S綱QLOLE兵DB.1;緊User桿ID=sa甲;Pass曬Word=遮110;P篇ersis錫tSec東urity清Info熟=fals沿e;Ini鑄tial輕Catal緣og=wa忠ge;Da栗taSo不urce=飼.;")倘抄Di茅mCn慌AsNe紫wOle休DbCon臺(tái)necti際on智籮Di野mcmd詠AsO挨leDbC守omman串d臉?lè)銬i縣mSQL互Strin畏gAs繩Strin近g禁下//材如果刪除自泛己的賬戶，椒將不能在使嚴(yán)用本系統(tǒng)釘萍睬愿…………宰修En乏dIf付酸Tr途y注壁磚If乳MyTag曬=1揚(yáng)Then佩像挽瓦SQLS饒tring產(chǎn)="I掉NSERT腳INTO沫用戶信息昂表(用戶砍名,用戶密綿碼,用戶類蔬型)"&域_宗蒸經(jīng)肯陵"VA妻LUES(問(wèn)'"&伴TextB進(jìn)ox1.T奉ext&勢(shì)"',順"&C質(zhì)Int(T襲extBo旺x2.Te苦xt)&峰","很&_石勺曲彎待Com宣boBox省1.Sel杰ected蘭Index循&")淘"親?？虴ls率eIfM叨yTag面=2T派hen傾涂婆英SQLS火tring引="D爭(zhēng)ELETE好用戶信息姻表WHE準(zhǔn)RE用戶暢名='"境&Tex圓tBox1琴.Text友&"'鄰"魂暫頁(yè)Els行eIfM刪yTag功=3T焰hen邁浩曾似SQLS道tring生="U黑pDate指用戶信息冰表SET漸用戶密碼朝='"&嗚Text鐘Box2杜.Text米&_腸懇利絮"',用錘戶類型="招&Co球mboBo仔x1.Se相l(xiāng)ecte抬dInde畫(huà)x&"榨WHE常RE用戶淡名='"靜&_討孤偵恭交Text螞Box1.腫Text話&"'"侵糊告Els餡eIfM專yTag程=4T蒜hen施巷孝砍IfT首extBo延x1.Te菜xt=摩Usern臘ameT真hen咬趁布酒控SQLSt挑ring諒="Up洗Date斯用戶信息表蜻SET煌用戶密碼=濾'"&鍛TextB毯ox2.T劃ext&象_泰錦丑液冰"'WH場(chǎng)ERE用歡戶名='"黨&Te規(guī)xtBox它1.Tex隔t&"唐'"會(huì)影渠獨(dú)Else墨閉借楊/攝/您無(wú)權(quán)修悟改別人的密友碼引譯得蹤閃蔽……傻絹舞觸朵Exit煎Sub叛鍛百奴End倒If窩齊留End門If殼攀涌Cn.凍Con犁necti暫onStr身ing=明conn己str農(nóng)躲柳Cn.碗Open(洞)滑唐翼cmd傻=Ne緣wOle刑DbCom善mand(嘩SQLSt競(jìng)ring,址Cn)抗幸廊cmd塑.Exec憶uteNo槍nQuer攤y()菠液Ca漠tche母xAs才Excep藏tion諒慶還Msg植Box(e桃x.Mes膏sage)參程En飾dTry斤冶cm需d.Dis顆pose(猛)題其Cn急.Disp汗ose()騎坊Bu迫tton2竭.Enab線led=做Fals木e鋸紡Ge慈tUser伯()評(píng)E搜ndSu藥b橫刪除用戶代點(diǎn)碼：杰在FrmM里ain.v晝b窗體中：元'////困/////頂//引患入系統(tǒng)命名秤空間的文件荒Impor邀tsSy而stem.鉆Data.姑OleDb暖Impor偽tsSy娛stem.盼Data.中SqlCl閑ient麥Impor魔tsSy住stem.歷IO贈(zèng)Impor膊tsSy甲stem.擱Windo酷ws.Fo蝦rms.H驕elp隸Priva鉗teSu棋bMen沸uItem狀14_Cl秘ick(B毯yVal棚sende生rAs揪Syste食m.Obj淚ect,臨ByVal瞇eAs呆Syst悠em.Ev爭(zhēng)entAr翠gs)H重andle直sM繭enuIt爹em14.黎Click敬水//除/////據(jù)//城刪除用戶會(huì)屋敞………百.蕩EndS用ub城在logi妨n.vb窗曉體中：辦“湖確定錘”財(cái)按鈕的Te據(jù)xt屬性變?nèi)粸槠ぁ懊讋h除然”黃，Labe但l1的Vi莫sible執(zhí)屬性設(shè)置為火False紡不可見(jiàn)，張舌荒Text格Box1的郊Visib辟le屬性設(shè)凳置為Fal粉se不可見(jiàn)凡，Labe約l3的Vi尚sible訪屬性設(shè)置為庭False黑不可見(jiàn)，C伏omboB議ox1的V械isibl眨e屬性設(shè)置型為Fals適e不可見(jiàn)，搞Label繞2的Vis兆ible屬弊性設(shè)置為F踩alse不訴可見(jiàn)，Te斥xtBox裂2的Vis刑ible屬送性設(shè)置為F胞alse不烤可見(jiàn)貫Priva廉teSu青blog封in_Lo冠ad(By估Vals之ender背AsS供ystem濫.Obje湯ct,B隙yVal冒eAs彎Syste阿m.Eve啟ntArg伸s)Ha壺ndles敗MyBa忽se.Lo掀ad爐俱Ge莖tUser詢()努矮Co答mboBo臣x1.It醉ems.A被dd("普乖通用戶")最盜Co漫mboBo斑x1.It博ems.A早dd("系白統(tǒng)用戶")走嚼Bu辨tton2貢.Enab漁led=言Fals羨e射沒(méi)息還均……榮.…….上性En灶dIf尺EndS皂ub翁在Form腿XTGL.旬vb窗體中液：梨Priva揮teSu模bBut字ton2_臭Click果(ByVa纖lsen萌derA值sSys骨tem.O閱bject智,ByV拖ale吧AsSy襲stem.芹Event短Args)錘Hand艘lesB家utton貧2.Cli虎ck晨以Di表mcon遇nstr遺AsNe磨wStr品ing("際provi辮der=S姿QLOLE劫DB.1;淚User臺(tái)ID=sa尸;Pass賀Word=呼110;P穩(wěn)ersis媽tSec譽(yù)urity統(tǒng)Info農(nóng)=fals晚e;Ini須tial軌Catal理og=wa夫ge;Da伶taSo類urce=膽.;")晨而Di蛾mCn疼AsNe產(chǎn)wOle籃DbCon繳necti擴(kuò)on呀樸Di襖mcmd迅AsO丘leDbC權(quán)omman蓬d劍或Di煩mSQL苦Strin萍gAs弟Strin剪g挑脾If矮Text塊Box1.閑Text今=Use級(jí)rname領(lǐng)And魄MyTag黃=2棵Then治蹈頭If蝕MsgBo辰x("如果楊刪除自己的名賬戶，將不挺能在使用本攔系統(tǒng)。",死MsgB畝oxSty每le.Ye紡sNo,隸"警告！"咬)=M汽sgBox王Resul魄t.No荷Then去Exit才Sub婦倘En嶺dIf摔財(cái)Tr沃y返足席If建MyTag失=1陶Then哨除劍吵SQLS犬tring芽="I嫂NSERT泄INTO佛用戶信息答表(用戶被名,用戶密辦碼,用戶類突型)"&驚_射觸茅稍偵"VA提LUES(資'"&徑TextB巷ox1.T離ext&互"',慌"&C蔥Int(T嶄extBo父x2.Te筑xt)&匹","間&_軌爽員屈栽Comb邊oBox1溜.Sele換ctedI睡ndex巨&")"臟酒盜Els梅eIfM季yTag析=2T污hen達(dá)醬牛比SQLS貸tring負(fù)="D汽ELETE造用戶信息譽(yù)表WHE償RE用戶艱名='"戰(zhàn)&Tex算tBox1佩.Text系&"'旅"呆榜采Els廳eIfM域yTag星=3T爹hen副哀丑全SQLS漸tring臺(tái)="U辟pDate培用戶信息目表SET陳用戶密碼隔='"&戚Text葉Box2.歪Text射&_斗投漸奸"',用啟戶類型="市&Co被mboBo窯x1.Se吩lecte棄dInde很x&"籍WHE鵲RE用戶趙名='"絞&_減服砍謀屯Text象Box1.男Text般&"'"沈所含Els蚊eIfM潔yTag眠=4T鄙hen僻潑膚眾IfT還extBo摔x1.Te鮮xt=倍Usern滑ameT睛hen名極綠廳挎SQLSt貸ring適="Up肆Date牽用戶信息表板SET漢用戶密碼=險(xiǎn)'"&慮TextB憐ox2.T累ext&例_箏恭要蘇征"'WH例ERE用激戶名='"描&Te器xtBox放1.Tex霞t&"嶄'"榆標(biāo)牌雞Else匠默敢金.甘.....表.灰那重End抽If煉率梯Cn.藍(lán)Conne銳ction細(xì)Strin輝g=c微onnst衫r忽閑型Cn.蹈Open(關(guān))漿水岡cmd伍=Ne施wOle類DbCom他mand(制SQLSt貝ring,析Cn)袖挽婦cmd蝦.Exec斧uteNo墨nQuer圾y()炭耗語(yǔ)辜殿………浩E蛛ndSu索b式修改用戶代假碼如下：免在FrmM溝ain.v載b窗體中：悄Priva申teSu瘡bMen霉uItem恰26_Cl搶ick(B胃yVal騙sende雞rAs乓Syste填m.Obj受ect,磨ByVal陶eAs懂Syst芬em.Ev博entAr慢gs)H詢andle翼sMen逼uItem置26.Cl遣ick挎盞//革/////填///闊修改個(gè)人蓋密碼備雜Di曠mxgm隆mAs搭NewF滲rmXTG配L(4,炊Usern銷ame)封鋒xg伶mm.Sh巴ow()禮EndS漆ub參在Form留XTGL.產(chǎn)vb窗體中蠶：巨'////滾/////園/引入系黑統(tǒng)命名空間適文件乏Impor坑tsSy喇stem.窯Data.杯OleDb伙Impor確tsSy羽stem.看Data.匪SqlCl華ient嘆Publi準(zhǔn)cCla周ssFr肝mXTGL葉I蟲(chóng)nheri畝tsSy伐stem.兄Windo繡ws.Fo書(shū)rms.F閘orm馬P投rivat烤eMyT旬a(chǎn)gAs費(fèi)Stri吐ng怖P綁rivat追eUse給rname脊AsS滅tring陵P(guān)riva宅teSu密bBut獸ton2_件Click耳(ByVa艱lsen友derA神sSys襖tem.O冰bject愉,ByV握ale澇AsSy賊stem.煮Event選Args)勞Hand地lesB云utton僵2.Cli么ck狡粉Di驟mcon娘nstr蘭AsNe耀wStr銀ing("供provi參der=S宣QLOLE食DB.1;調(diào)User搖ID=sa院;Pass毛Word=掛110;P龍ersis志tSec焰urity超Info恩=fals豈e;Ini芒tial省Catal轉(zhuǎn)og=wa彎ge;Da照taSo展urce=澇.;")吹尚Di紙mCn畫(huà)AsNe志wOle銷DbCon騎necti鬧on本創(chuàng)Di信mcmd思AsO局leDbC當(dāng)omman籠d妙都Di忽mSQL原Strin是gAs頂Strin歐g置鎮(zhèn)療縣//給出燭警告，不能郵修改別人的布密碼………嘩品陪T怖ry康三支If小MyTag觀=1資Then放歡棒浙SQLS部tring媽="I鮮NSERT雙INTO馳用戶信息美表(用戶畢名,用戶密忌碼,用戶類培型)"&共_抽示額蒙嚷"VA番LUES(省'"&忌TextB使ox1.T夜ext&互"',匆"&C逝Int(T綁extBo掘x2.Te甩xt)&漫","我&_環(huán)索仆屋向Comb免oBox1晚.Sele耍ctedI旋ndex頂&")"花申削Els留eIfM芳yTag表=2T帥hen耽杏世未SQLS念tring火="D愉ELETE裹用戶信息快表WHE令RE用戶病名='"陜&Tex背tBox1押.Text讓&"'晨"裹袍退ElseI竭fMyT殘ag=柿3The茂n摸淘想乒SQLS煮tring斷="U露pDate懇用戶信息光表SET且用戶密碼暴='"&棵Text辮Box2.亮Text成&_丈負(fù)滿率"',用疏戶類型="園&Co聞mboBo悟x1.Se便lecte坡dInde刺x&"定WHE佳RE用戶包名='"慈&_攜封飄充沖Text牛Box1.繼Text吊&"'"啟閱火Els殺eIfM廈yTag技=4T至hen啊垃有耕IfT釣extBo統(tǒng)x1.Te思xt=渴Usern侍ameT摘hen柳滾艷培動(dòng)SQLSt斥ring殊="Up瓣Date順用戶信息表噸SET刺用戶密碼=議'"&恰TextB牽ox2.T蒙ext&部_話殿星直芳"'WH門ERE用趙戶名='"優(yōu)&Te姻xtBox約1.Tex克t&"呀'"祖桃效乘Else嘴白惱捐甜…………室同樣也可在鑒工具欄中對(duì)互用戶密碼進(jìn)表行修改.孔劇掌用戶查詢登媽錄時(shí)間代碼丹如下：耽在FrmM岔ain.v接b窗體下：階Pr疑ivate賤Sub剩MenuI藝tem29奶_Clic淚k(ByV誦alse億nder昌AsSy鼠stem.童Objec玻t,By槳Vale巡AsS醫(yī)ystem隔.Even她tArgs指)Han揪dles膊MenuI茄tem29扛.Clic漢k太僻受‘鉤/////門調(diào)用用戶登枝錄時(shí)間窗體逃Dimf窗rmdl席AsNe裂wFor舉mdlsj凳倚fr吧mdl.S疫h(yuǎn)ow()述En樸dSub司在logi竟n.vb窗圍體下：晨Impor惠tsSy犁stem.紹Data.盲OleDb揭Impor園tsSy損stem.肢Data.浴SqlCl化ient顧Impor匠tsSy安stem.候Data稠Publi儲(chǔ)cCla蹤sslo隨gin隱I慌nheri所tsSy螺stem.喘Windo粥ws.Fo被rms.F運(yùn)orm左Dimc狐onnA壩sNew丟SqlC偵onnec嗽tion(描"data匙sour尾ce=.;滾datab蜓a(bǔ)se=w御age;i懼ntegr艷ated據(jù)secur鞠ity=s耐spi;"裹)鑒Pri約vate壘SubB辱utton蜻2_Cli斜ck(By悶Vals碰ender法AsS脫ystem皺.Obje娃ct,B拾yVal迷eAs帖Syste親m.Eve雜ntArg汗s)Ha元ndles對(duì)Butt其on2.C催lick志羽If行Trim等(GetP庫(kù)sw(Tr縫im(Me競(jìng).Labe胞l4.Te秋xt)))蔑=Tr沸im(Me臟.Text怨Box2.憤Text)僵And成Len(M釘e.Lab棟el4.T營(yíng)ext)杯>0T佳hen碌溫途Dim村mfA澇sNew病FrmM筒ain(L譯abel4損.Text妥,Lab足el5.T貨ext)蘿閘采Dim酸sAs獵Stri若ng=棒Now.T鎮(zhèn)oStri子ng幅棉新Dim屋cAs挨New禁SqlCo晝mmand界("ins公erti挨nto登下錄時(shí)間表(冷用戶名,用州戶類型,登垃錄時(shí)間)抱value踩s('"稠&Lab孤el4.T禾ext.T瓣rim&烤"','才"&L狗abel5葡.Text旅&"'傅,'"&競(jìng)s.Su典bstri境ng(0,筑15)護(hù)&"')鍬",co膏nn)拘挑測(cè)Try游壤枯腫conn騎.O