企業(yè)工資管理系統(tǒng)的設(shè)計畢業(yè)文章

式處理紙質(zhì)材料，不僅花費財務(wù)人員大量的時間且不易保存，往往由于個人的因素抄寫不慎或計算疏忽,出現(xiàn)工資時離開時可鎖定操作畫面，防止非法操作。用戶管理分為新建普通用戶,新建管理員用戶，修改密碼三部分。2。信息表式處理紙質(zhì)材料，不僅花費財務(wù)人員大量的時間且不易保存，往往由于個人的因素抄寫不慎或計算疏忽,出現(xiàn)工資時離開時可鎖定操作畫面，防止非法操作。用戶管理分為新建普通用戶,新建管理員用戶，修改密碼三部分。2。信息表LeaveInfo員工加班信息表，結(jié)構(gòu)如表3—4所示.為了方便系統(tǒng)的管理,員工加班信息同樣也作ql,strMsg)Txt（0).Text=rs。Fields（"工作小時數(shù)")。ValueTxt（隨著計算機技術(shù)的不斷發(fā)展，計算機作為知識經(jīng)濟時代的產(chǎn)物，已被廣泛應(yīng)用于各企業(yè)間的競爭日益激烈，迫使企業(yè)采取先進的計算機硬件設(shè)備以及高質(zhì)量的輔助軟件來管理企業(yè)的各項運作，以提高本企業(yè)的勞動生產(chǎn)率以及人員效率.工資管理系統(tǒng)軟件作為一種管理軟件正在各企事業(yè)單位中得到越來越廣泛的應(yīng)用。管理工作也變得越來越復(fù)雜。工資管理既涉及到企業(yè)勞動人事的管理，同時也是企業(yè)保險等等，來生成企業(yè)每個職工的基本工資、津貼、醫(yī)療保險、保險費、實際發(fā)放工資等。資金是企業(yè)生存的主要元素，資金的流動影響到企業(yè)的整體運作，企業(yè)員工的工資是企業(yè)資金管理的一個重要的組成部分。早期的工資統(tǒng)計和發(fā)放都是使用人工方式處理紙質(zhì)材料，不僅花費財務(wù)人員大量的時間且不易保存，往往由于個人的因素抄數(shù)據(jù)庫是某個企業(yè)、組織或部門所設(shè)計的數(shù)據(jù)的一個綜合，它不僅要反映數(shù)據(jù)界的第一層抽象,這種信息結(jié)構(gòu)并不依賴于具體的計算機系統(tǒng)，也不是某一個數(shù)據(jù)庫管理系統(tǒng)支持的數(shù)據(jù)模型，它是現(xiàn)實世界到機器世界的一個中間層次。1產(chǎn)量的考勤信息。表3-2員工考勤信息表AttendanceInfo14LeaveInfo員工請假信息戶界面和多任務(wù)多進程的應(yīng)用程序要求程序設(shè)計不能是單一性的,產(chǎn)量的考勤信息。表3-2員工考勤信息表AttendanceInfo14LeaveInfo員工請假信息戶界面和多任務(wù)多進程的應(yīng)用程序要求程序設(shè)計不能是單一性的,在使用VB設(shè)計應(yīng)用程序時，必須首先確定應(yīng)用alSourceAsString，ByValHelpFileAsString，ByValHelpCoe=FalseExitSubEndIf’記時統(tǒng)計rs。ClosestrSql=”selectsum(查詢、插入、刪除和更新數(shù)據(jù)。這些操作必須滿足關(guān)系的完整性約束條件：實體完整性、參照完整性和用戶定義的完整性.模式是數(shù)據(jù)庫中全體數(shù)據(jù)的邏輯結(jié)構(gòu)和特征的描述，它不設(shè)計具體的值。從數(shù)據(jù)庫管理系統(tǒng)的角度看，雖然它們支持的數(shù)據(jù)模型、使用的數(shù)據(jù)庫語言、所基于的操作系統(tǒng)平臺都可能不同，但在體系機構(gòu)上通常都采用三級模式結(jié)構(gòu)（個別小型數(shù)據(jù)庫系圖1—1三級模式結(jié)構(gòu)圖在計算機中的具體表示方式和存儲方式。但這三個抽象層次之間必須能夠相互聯(lián)系和2xtIfTxt1.Text=””Thenrs。Fields（”數(shù)量一"）=0Elsers.Fieldgl")Elsesql=xtIfTxt1.Text=””Thenrs。Fields（”數(shù)量一"）=0Elsers.Fieldgl")Elsesql=”insertinto系統(tǒng)用戶（用戶名，口令，admin）values(’”xt=”導(dǎo)出到Excel”＆vbCrLfElseIfoptWord。Value=TrueThentxj（1）.Text）+Val(Textzj(2）。Text）’獎金福利結(jié)算rs.ClosestrSq過實際使用證明,本文所設(shè)計的工資管理系統(tǒng)可以滿足公司工資管理方面的需要.了系統(tǒng)設(shè)計的重點、設(shè)計思想、難點技術(shù)和解決方案。1。3、VB的選用和簡介3達信息，簡而言之，數(shù)據(jù)庫就是信息的集合。計算機的數(shù)據(jù)庫可以分為兩類：非關(guān)系數(shù)據(jù)庫(flat—filerthday。Valuers.Fields(”產(chǎn)品類型一”)=Combo1。Textrs達信息，簡而言之，數(shù)據(jù)庫就是信息的集合。計算機的數(shù)據(jù)庫可以分為兩類：非關(guān)系數(shù)據(jù)庫(flat—filerthday。Valuers.Fields(”產(chǎn)品類型一”)=Combo1。Textrs。Fieldlds.Count—1）rs。MoveFirstDoWhileNotrs。EOFFori=0Torstion，"警告”TextFocustxtGH1rs.CloseIfChkBoxJJ.Value=T在目前市場上這些眾多的程序開發(fā)工具中,有些強調(diào)程序語言的彈性與執(zhí)行效率;有些則偏重于可視化程序開發(fā)工具所帶來的便利性與效率的提高，各有各的優(yōu)點和特便利的工具，卻沒有彈性的語言作支持，許多特殊化的處理動作必需要耗費數(shù)倍的工廣大數(shù)據(jù)庫應(yīng)用程序設(shè)計人員的喜愛。VB為數(shù)據(jù)庫應(yīng)用開發(fā)人員提供了豐富的數(shù)據(jù)庫開發(fā)組件,使數(shù)據(jù)庫應(yīng)用開發(fā)功能更強大,控制更靈活，編譯后的程序運行速度更快,VB是微軟公司出品的一個快速可視化程序開發(fā)工具軟件，借助微軟在操作系統(tǒng)和辦公軟件的壟斷地位，VB在短短的幾年內(nèi)風(fēng)靡全球。VB是極有和功能強大的軟件，主要表現(xiàn)成代碼。1、VB語言的基本特點及VB應(yīng)用程序的基本持點設(shè)計和事件驅(qū)動編程.4ecuteSQL(strSql，strMsg）UnloadMeMDIForm1。ShowEndIfEecuteSQL(strSql，strMsg）UnloadMeMDIForm1。ShowEndIfE..”comm2.MousePointer=11Form1.MousePointer=11Timerva等等在目前市場上這些眾多的程序開發(fā)工具中,有些強調(diào)程序語言的彈性與執(zhí)行效率;有些則偏重于可視化程理系統(tǒng)（MIS），前臺程序開發(fā)工具采用微軟的VB6,后臺數(shù)據(jù)庫采用Access數(shù)據(jù)庫。VB6是一種面無論是在設(shè)計時或是在運行時，都是Windows系統(tǒng)的標(biāo)準(zhǔn)視窗.對象是VB系統(tǒng)內(nèi)部提供給設(shè)計者可以直接使用的處理輸出的控制工具。本程序便于對象適應(yīng)自己所設(shè)計應(yīng)用程序的輸入輸出內(nèi)容，對象的生成過程及結(jié)構(gòu)都被封裝屬性是VB系統(tǒng)提供的有關(guān)對象的參數(shù)或數(shù)據(jù)接口。用戶通過適當(dāng)?shù)卦O(shè)置或改變事件是指用戶或操作者對計算機進行的某一操作（如擊鍵、單擊或移動鼠標(biāo)等）方法主要是指對一個對象使用某種作用的過程.它是在程序執(zhí)行的過程中要計算模塊是指一些運算量或過程進行聲明或定義的一個集合。系統(tǒng)程序大體可分成四個模塊：數(shù)據(jù)輸入、根據(jù)查詢、數(shù)據(jù)打印和通訊.同其他的一些可視化程序開發(fā)工具一樣，VB具有可視化設(shè)計的特點，微軟的Word5rd。QuitSetobjWord=NothingoutToWord=FalseEndFunctio&usernamesql=sql＆"',’”＆passwordsql=sql&”，'’"&UserAdSub20圖4-2rd。QuitSetobjWord=NothingoutToWord=FalseEndFunctio&usernamesql=sql＆"',’”＆passwordsql=sql&”，'’"&UserAdSub20圖4-2工資管理系統(tǒng)主窗體4。員工基本檔案信息的實現(xiàn)員工基本檔案信息管理，在窗體中完成員ct*fromcheckinfo”Setrs=ExecuteSQL（strSql,strMsg)rsVB為用戶提供大量的界面元素（在VB中稱為控件對象)，這些控件對象對于熟悉Windows操作系統(tǒng)出現(xiàn)以來，圖形化的用戶界面和多任務(wù)多進程的應(yīng)用程序要求用戶進行交互。例如發(fā)生鼠標(biāo)單擊、鍵盤輸入等事件時，由用戶編寫的代碼控制這些事件的響應(yīng)，這就是所謂的事件驅(qū)動編程.菜單是程序最重要的特性之一,大多數(shù)程序都依賴一個定義良好的菜單使程序易使用Access2000實現(xiàn)關(guān)系型數(shù)據(jù)庫息，簡而言之，數(shù)據(jù)庫就是信息的集合。計算機的數(shù)據(jù)庫可以分為兩類：非關(guān)系數(shù)據(jù)1．標(biāo)識需要的數(shù)據(jù);6elds(”姓名")。ValueCombod.Value=rs。elds(”姓名")。ValueCombod.Value=rs。Fields("工作日"）.ValuSqlAsStringDimstrMsgAsString’OnErrorGoToDealerrorDields(”單價三”）。ValueTextlx（1）。Text=rs。Fields(”產(chǎn)品類型二"1.Text）)Ifk=0Thensend。MousePointer=0MsgBox”不能發(fā)送空消息4．繪制一個簡單的數(shù)據(jù)圖表;數(shù)據(jù)庫之間的關(guān)系指明兩個庫之間共享一個共同的關(guān)鍵字值。一個連接是指一種虛擬的表，這種表是在當(dāng)用戶要求從相互關(guān)聯(lián)的各個不同的表中獲取信息時建立的，關(guān)鍵字段用于在相互連接的不同表中查找匹配的記錄。一個更高級的連接形式稱為自連接.這種連接是指一個表被連接到它自己的一個字段，或在不同的記錄中由重復(fù)數(shù)據(jù)在表中使用的關(guān)鍵字類型用于描述庫表示什么以及在數(shù)據(jù)庫中如何與其它的庫建立關(guān)7=3000a。ListenEndSubPrivateSubaConnectionRequest（BylosestrSql=”selectsum(數(shù)量一）as數(shù)量一，=3000a。ListenEndSubPrivateSubaConnectionRequest（BylosestrSql=”selectsum(數(shù)量一）as數(shù)量一，sum(數(shù)量二）as數(shù)量二，sum（=””password。Text=””confirmpwd。Text=””ExitSubElseIfwidth（i）=Len（rs。Fields(i)。Name）EndIfPrint#f1，rs。Fi基于以上眾多問題的分析，和企業(yè)管理制度的參考。將系統(tǒng)具體分為系統(tǒng)管理、員工信息設(shè)定、工資信息管理、工資結(jié)算管理、數(shù)據(jù)庫管理、工具箱、幫助七大模塊：系統(tǒng)管理分為操作員登錄管理,用戶管理,鎖定操作畫面及退出.操作員登錄管理記在用戶暫時離開時可鎖定操作畫面，防止非法操作。用戶管理分為新建普通用戶,新建管理員用戶，修改密碼三部分。2、添加員工考勤信息:主要分為上下班信息和其它考勤信息，上下班信息主要是記5、刪除考勤信息：分為刪除上下班信息和刪除其它考勤信息.6、考勤信息列表：分為員工上下班信息列表和員工其它考勤信息列表。3、數(shù)據(jù)統(tǒng)計功能4、信息保存功能5、數(shù)據(jù)導(dǎo)出功能6、方便的數(shù)據(jù)庫備份功能具有相應(yīng)權(quán)限的用戶在正確登陸后，可以打開并添加新員工的個人檔案，添加完8ionerroutToText：MsgBoxErr。ionerroutToText：MsgBoxErr。DescriptionOnErrorResume也叫窗體.VB系統(tǒng)的人機交互界面或接口，無論是在設(shè)計時或是在運行時，都是Windows系統(tǒng)的標(biāo)準(zhǔn)視窗dDataSText1。Text=""EndIf60EndIfEndIfExitSubffff：Ms發(fā)放錯誤的現(xiàn)象。早期工資管理多采取紙質(zhì)材料和具有較強的時間限制.基于以上原因，企業(yè)工資管理系統(tǒng)使用電成后可以使用數(shù)據(jù)導(dǎo)出功能，導(dǎo)出數(shù)據(jù)。數(shù)據(jù)流圖如下圖2-1所示：9底層的一些程序代碼由VB自動生成或修改.VB底層的一些程序代碼由VB自動生成或修改.VB為用戶提供大量的界面元素（在VB中稱為控件對象)，這些控ftxtHomeAddress。Text=""Thenrs.Fields("家庭住址”)=NullEj（1）.Text）+Val(Textzj(2）。Text）’獎金福利結(jié)算rs.ClosestrSqy+vbExclamation,"警告”username.SetFocususername。Text在數(shù)據(jù)庫應(yīng)用系統(tǒng)的開發(fā)過程中,數(shù)據(jù)庫的結(jié)構(gòu)設(shè)計是其中非常重要的一個環(huán)在數(shù)據(jù)庫應(yīng)用系統(tǒng)的開發(fā)過程中,數(shù)據(jù)庫的結(jié)構(gòu)設(shè)計是其中非常重要的一個環(huán)數(shù)據(jù)庫需求分析是數(shù)據(jù)庫結(jié)構(gòu)設(shè)計的第一個階段，是非常重要的一個階段。這個階段主要是確定基本數(shù)據(jù)、數(shù)據(jù)結(jié)構(gòu)以及數(shù)據(jù)處理的流程，組成一份詳盡的數(shù)據(jù)對一個數(shù)據(jù)管理員來說，設(shè)計良好的數(shù)據(jù)庫應(yīng)使之開始于一個合理的邏輯設(shè)計。概念模型是用戶和數(shù)據(jù)庫設(shè)計人員之間進行交流的工具工應(yīng)發(fā)款信息實體、職工代扣款信息實體、職工工資信息實體.改密碼窗體代碼如下:PrivateSubcmdCancelClick(）UnloadMeExitSug改密碼窗體代碼如下:PrivateSubcmdCancelClick(）UnloadMeExitSug）Tet(0）。Text=rs。Fields（”住宿費"）Tet(1)。Text=rs。FieldxtNO。Text=rs.Fields（"工號”）。ValueTextNAMe.Text=rs。FiriptionShowErrormsgEndSubDimobjRsAsRecordsetDimiAs斷下午下班時間ElseIftmxb1〈tmsetxwxbTheniearly=1MsgBox"斷下午下班時間ElseIftmxb1〈tmsetxwxbTheniearly=1MsgBox"早退"ullElsers。Fields("民族")=cboNation。TextEndIf’數(shù)字型Iftxic創(chuàng)建的程序來完成，下面的章節(jié)將詳細(xì)描述實現(xiàn)的具體方法。實現(xiàn)數(shù)據(jù)庫之間的聯(lián)系數(shù)據(jù)庫之間的關(guān)系指明兩Elseiearly=0MsgBox”正常下班"EndIfEndIfaflag=”出”rs。AddN圖3—2基本檔案表E-R圖系統(tǒng)用戶系統(tǒng)用戶用戶名稱管理圓否用戶密碼ionerroutToText：MsgBoxErr。ionerroutToText：MsgBoxErr。DescriptionOnErrorResume（”其他項目"）.Value’扣除rs.ClosestrSql=”select＊fromkouchuassword。Text=”"confirmpwd.Text=”"password.SetFocus據(jù)庫管理系統(tǒng)發(fā)出讀取數(shù)據(jù)記錄的命令。數(shù)據(jù)庫管理系統(tǒng)對該命令進行語法、語義檢查，并調(diào)用應(yīng)用程序?qū)?yīng)的子圖3-3系統(tǒng)用戶員工請假信息員工請假信息工號姓名早退次數(shù)上班時間遲到次數(shù)下班時間6是是是EndIfIfsame=2Andsame2=4ThenExitSubElsestrSql="selec”Case3cdgPathEndIfIfsame=2Andsame2=4ThenExitSubElsestrSql="selec”Case3cdgPath。Filter=”記事本(＊。txt）｜*。txt”EndSelectcinter=0MsgBox"網(wǎng)絡(luò)連接失??！”Label3.Caption=”等待連接”combo1。assword。Text=”"confirmpwd.Text=”"password.SetFocusOLE對象3是是是否是是是是否否是否否否是是否是是是否。TextEndIfIfTxt5。Text=。TextEndIfIfTxt5。Text=””Thenrs.Fields（”數(shù)量三”)=0Elsebook=NothingSetobjExcel=NothingoutToExcel=TrueExitn,”提示”oldpwd。Text="”oldpwd。SetFocusElseIfTrim(newp入舊密碼"，vbOKOnly+vbExclamation，”提示"oldpwd。SetFocusEx2是是是是是否否5是是是是是5是是否j（1）j（1）.Text）+Val(Textzj(2）。Text）’獎金福利結(jié)算rs.ClosestrSqwn事件和KeyUp事件；鼠標(biāo)事件有Click（單擊鼠標(biāo))事件，DbDlicd（雙擊鼠標(biāo))。(5)方objWord.Selection。Range。Text=rs。Fields（i-1).ValueN軟件打開數(shù)據(jù)庫，特對數(shù)據(jù)庫文件也進行了處理,將數(shù)據(jù)庫的擴展名mdb替換為ldl,起到了一定的迷惑性。表3—5員工工資表5是是是是否否否否否否否否否是了一定的迷惑性。在改擴展名的同時也對數(shù)據(jù)庫進行了加密。在用ACCESS數(shù)cel(outSql,”s1",outPath)=TrueThenMsgBox”導(dǎo)出成功”cel(outSql,”s1",outPath)=TrueThenMsgBox”導(dǎo)出成功”ElseMeThensql="insertinto系統(tǒng)用戶（用戶名,口令）values('"＆usernameStatus.SetFocusElseIfCmbStatus。ListIndex=0AndobjRs>=DTPicker1。ValueThen'判斷下班時間大于上班時間MsgBox"請正確的輸入時間"圖3—5要求輸入密碼為了確保系統(tǒng)的安全，對數(shù)據(jù)庫進行加密處理，采用了用戶和組管理，并記錄用。Fields("記時匯總”)=MoTxt8。Fields("記時匯總”)=MoTxt8。Textrs。Updaters。CloseSetrs=足企業(yè)財務(wù)管理、員工工資發(fā)放的需要,同時也成為現(xiàn)代化企業(yè)管理的標(biāo)志1。系統(tǒng)說明1.2。數(shù)據(jù)模型分析數(shù)為一個獨立的表存儲。表3-4員工加班信息表OverTimeInfo15員工工資表,結(jié)構(gòu)如表3—5所示接”Text1.SetFocusEndSubPrivateSubaError（ByValNumber具體描述如下:系統(tǒng)登陸時,要求正確輸入用戶名和密碼。成功登陸后顯示如圖4—2所示工資管理系統(tǒng)主界面。用戶名分為管理員用戶和普通用戶。如圖4-1所示:（）（）strSql=”SELECT＊FROM系統(tǒng)用戶"oSex。TextEndIfIfcboEmployeeStyle。oSex。TextEndIfIfcboEmployeeStyle。Text=""Then23rs。F（”其他項目"）.Value’扣除rs.ClosestrSql=”select＊fromkouchuionerroutToText：MsgBoxErr。DescriptionOnErrorResumel="select＊fromSarotherwhere工號='"＆TextNO＆”’”Setrs=EEnd’MsgBox”歡迎使用工資管理系統(tǒng)",vbOKCancel+vbOKOnly，”系統(tǒng)登錄”UserAdmin=1ame.SetFocussend。MousePointer=0Elsek=Len(Trim（ame.SetFocussend。MousePointer=0Elsek=Len(Trim（TextbPrivateSubFormLoad()DimsqlAsString2829Dimstrmsg2A,而是根據(jù)程序的功能來設(shè)計是檢測）請一位不熟悉本系統(tǒng)的人來進行隨意性的操作，打破習(xí)慣的操作順序，從中..”comm2.MousePointer=11Form1.MousePointer=11TimerUnloadMeMDIForm1。ShowEndSubUnloadMeEndSub間找出盡可能多的錯誤，力求系統(tǒng)盡量正確。我們在本系統(tǒng)的測試中使用了黑盒法(即不關(guān)心程序內(nèi)部的邏輯結(jié)構(gòu)5間找出盡可能多的錯誤，力求系統(tǒng)盡量正確。我們在本系統(tǒng)的測試中使用了黑盒法(即不關(guān)心程序內(nèi)部的邏輯結(jié)構(gòu)5）.Text=rs.Fields（"其它”)ElseMsgBox”數(shù)據(jù)庫還沒有此工號的工資記錄”,txtPath=App.path＆”\DBBackup\1.xls”ElseIfoptWord。Valds（"單價一”）。Valuedj2=rs。Fields(”單價二"）。Valuedj3=rs。F圖4-2工資管理系統(tǒng)主窗體4。3、員工基本檔案信息的實現(xiàn)員工基本檔案信息管理，在窗體中完成員工基本信息的錄入工作。根據(jù)提示在該圖4-3員工基本檔案信息錄入窗口它提供了靈活的可視化設(shè)計工具，將可視化界面與面向?qū)ο蠹夹g(shù)完善、緊密地結(jié)合起來,并封裝了Windows它提供了靈活的可視化設(shè)計工具，將可視化界面與面向?qū)ο蠹夹g(shù)完善、緊密地結(jié)合起來,并封裝了WindowsqlAsStringDimrsAsADODB。RecordsetIfTrim（username。TesAsADODB。RecordsetDimstrSqlAsStringDimstrMsgAsStriActiveConnection=NothingobjCn。Close18SetobjCn=Noth（）DimrsAsADODB。RecordsetDimiStmAsADODB。Stream。OpenEndWith信息：分為刪除上下班信息和刪除其它考勤信息.考勤信息列表：分為員工上下班信息列表和員工其它考勤信息列室客戶端相應(yīng)代碼信息：分為刪除上下班信息和刪除其它考勤信息.考勤信息列表：分為員工上下班信息列表和員工其它考勤信息列室客戶端相應(yīng)代碼:DimflagAsBoolean'注釋:連接狀態(tài)變量PrivateSubaConnlBar是類似的。CoolBar就是一個可以在窗體上浮動的工具,同時也是其他ActiveX的容器。通入舊密碼"，vbOKOnly+vbExclamation，”提示"oldpwd。SetFocusEx警告”加照片SetiStm=NewADODBIfLen(strFileName）〉。Stream0Then加照片SetiStm=NewADODBIfLen(strFileName）〉。Stream0Thenic創(chuàng)建的程序來完成，下面的章節(jié)將詳細(xì)描述實現(xiàn)的具體方法。實現(xiàn)數(shù)據(jù)庫之間的聯(lián)系數(shù)據(jù)庫之間的關(guān)系指明兩的工作效率。(3)屬性(Properties）屬性是VB系統(tǒng)提供的有關(guān)對象的參數(shù)或數(shù)據(jù)接口。用戶通過9EndIfEndSubPrivateSubFormLoad(）IfApp。PrevInstanceeThensql="insertinto系統(tǒng)用戶（用戶名,口令）eThensql="insertinto系統(tǒng)用戶（用戶名,口令）values('"＆username個方面必須協(xié)同工作。其中數(shù)據(jù)庫管理系統(tǒng)起著關(guān)鍵的中介作用。當(dāng)應(yīng)用程序從數(shù)據(jù)庫中讀取一個數(shù)據(jù)時,它向數(shù)d。QuitSetobjWord=NothingoutToWord=TrueExitFunction式間的映射、有關(guān)的約束條件等.然后，翻譯處理程序?qū)⑺鼈兎g成相應(yīng)的內(nèi)部表示，即對數(shù)據(jù)庫框架的描述。這ox”產(chǎn)品類型二不能為空”TextFocusCombo2ExitSubEndIfIfTxt3.Tex形狀、屬性等，就可以設(shè)計出所需的應(yīng)用程序界面。事件驅(qū)動編程ox”產(chǎn)品類型二不能為空”TextFocusCombo2ExitSubEndIfIfTxt3.Tex形狀、屬性等，就可以設(shè)計出所需的應(yīng)用程序界面。事件驅(qū)動編程Windows操作系統(tǒng)出現(xiàn)以來，圖形化的用led=Falsecomm2.MousePointer=0Form1。MousePointer=0MstrFileNameEndWithrs。Fields("照片”)=iStm.Readrs。UpdaSetiStm=NewADODB。OpenEndWithbook=NothingSetobjExcel=NothingoutToExcel=TrueExit應(yīng)用到的對象類型有標(biāo)簽框(LabelBox),文本框(TextBox）,命令按扭(CommandBu制和管理.實用程序：完成數(shù)據(jù)庫的建立與維護，以及數(shù)據(jù)格式的轉(zhuǎn)換與通信等功能。整個系統(tǒng)從符合操作簡便、ox”產(chǎn)品類型三不能為空"TextFocusCombo3ExitSubEndIf34IfTxt5.Tbook=NothingSetobjExcel=NothingoutToExcel=TrueExit應(yīng)用到的對象類型有標(biāo)簽框(LabelBox),文本框(TextBox）,命令按扭(CommandBu制和管理.實用程序：完成數(shù)據(jù)庫的建立與維護，以及數(shù)據(jù)格式的轉(zhuǎn)換與通信等功能。整個系統(tǒng)從符合操作簡便、ox”產(chǎn)品類型三不能為空"TextFocusCombo3ExitSubEndIf34IfTxt5.TMsgBox”添加成功”EndSub圖4-4設(shè)置上下班時間1。MousePointer=0Timer1.Enabled=FalseIfi=Chr（1。MousePointer=0Timer1.Enabled=FalseIfi=Chr（0）Then行開發(fā),其友好的集成開發(fā)界面，可視化的雙向開發(fā)模式，良好的數(shù)據(jù)庫應(yīng)用支持高效的程序開發(fā)和程序運行,備objWord.Selection。Range。Text=rs。Fields（i-1).ValueN的工作效率。(3)屬性(Properties）屬性是VB系統(tǒng)提供的有關(guān)對象的參數(shù)或數(shù)據(jù)接口。用戶通過DimrsAsNewADODB.Recordsetrs。AddNewUnloadMeEndSub”select*fromtbr”Setrs=ExecuteSQL（strSql，strMsg)rs.r1”select*fromtbr”Setrs=ExecuteSQL（strSql，strMsg)rs.r1。Second3233“保存”按鈕代碼如下:PrivateSubcmdOKClick（)Dimrly+vbExclamation，”警告”newpwd。Text=””confirmpwd。Textme。Fields(”下午上班時間”))tmsetswxb=CDate(rsTime。Fields（DimrsAsNewADODB。RecordsetEndSub添加上下班信息（）DimrsAsNewADODB.Recordset圖4—5添加員工考勤信息setDimstrMsgAsStringsql="delete＊fromTimeSetting"Seecond(tmsb1setDimstrMsgAsStringsql="delete＊fromTimeSetting"Seecond(tmsb1）tmsb1=CDate（h＆":”＆m＆”：”&s）tmsetswsb=CDse（IndexAsInteger）b（Index）.Close’注釋:關(guān)閉連接Unloadb(In開發(fā)，VB是一個非常理想選擇.VB因簡單易學(xué)、功能強大、編譯速度快而從眾多的軟件開發(fā)工具中脫穎而出。DimrsTimeAsNewADODB。Recordset提示”’判斷上下午上班時間是否遲到h=Hour（tmsb1）MsgBox"遲到"Trim（password。Trim（password。Text）〈>Trim（confirmpwd。Text）ThenMsgBniearly=1MsgBox"早退”Elseiearly=0MsgBox”正常下班”EndIf’判=txtUserNameuserpassword=txtPasswordIfCmbStatus=””ow，NumColumns：=wColrs。MoveFirstj=1DoWhileNotrs.EOFMsgBox”正常上班”MsgBox”遲到”MsgBox"正常上班"UnloadMeMsgBox"要添加下班信息，員工編號與姓名不能為空，請輸入”,vbOKOnly+員登錄管理,用戶管理,員登錄管理,用戶管理,鎖定操作畫面及退出.操作員登錄管理記錄用戶登錄的時間,方便管理員查看.在用戶暫tesTotalAsLong）DimiAsStringa.GetDataisend.Enabled=n56PrivateFunctionoutToText(ByValstrSqlAsString，ByChr（13）+Chr（10)ElseS=Text1.TextEndIfIfLen（Trim(txtm=Minute（tmxb1）MsgBox"早退”MsgBox”正常下班”MsgBox"早退"MsgBox”正常下班"rs。AddNewxclamation，"警告！"EndIf’添加上班信息IfInFlag=TrueThenIftxt第三個欄中選擇了系統(tǒng)時間，這樣，任何時候操作本系統(tǒng)，都可以看到當(dāng)前的時間和日期。使用Access20是數(shù)據(jù)庫的外模式和應(yīng)用程序.從最終用戶角度看，數(shù)據(jù)庫系統(tǒng)分為單用戶結(jié)構(gòu)、主從式結(jié)構(gòu)、分布式結(jié)構(gòu)和客戶EndSubPrivateSubTimer1Timer（）xclamation，"警告！"EndIf’添加上班信息IfInFlag=TrueThenIftxt第三個欄中選擇了系統(tǒng)時間，這樣，任何時候操作本系統(tǒng)，都可以看到當(dāng)前的時間和日期。使用Access20是數(shù)據(jù)庫的外模式和應(yīng)用程序.從最終用戶角度看，數(shù)據(jù)庫系統(tǒng)分為單用戶結(jié)構(gòu)、主從式結(jié)構(gòu)、分布式結(jié)構(gòu)和客戶EndSubPrivateSubTimer1Timer（）flag=FalseTimer1.EnabUnloadMeEndSubEndSub圖4-6員工每日產(chǎn)量考勤alSourceAsString，ByValHelpFileAsString，alSourceAsString，ByValHelpFileAsString，ByValHelpCowd。Text）=”"ThenMsgBox”請輸入新密碼”，vbOKOnly+vbExclamati生成代碼。美國微軟公司在1991年推出VB1.0至今已經(jīng)經(jīng)歷了6個版本，VB6。0運行在win9x或dgPath.ShowSavetxtPath。Text=cdgPath.FileNameEndSubDimrsAsADODB。Recordset’根據(jù)需要進行字段限制MsgBox”產(chǎn)品類型不能為空”MsgBox”產(chǎn)品類型二不能為空”MsgBox”數(shù)量不能為空"MsgBox”產(chǎn)品類型三不能為空""警告”TextFocustxtGHExitSubEndIfrs.CloseEndIfstrSql=t=""Else'"警告”TextFocustxtGHExitSubEndIfrs.CloseEndIfstrSql=t=""Else'添加操作員登陸時間19strSql=”insertintotlogin（用戶，登錄析，為使自己能設(shè)計出更好的軟件.46參考文獻[1]孫越,VisualBasic數(shù)據(jù)庫開發(fā)自學(xué)教程，人r1。Second3233“保存”按鈕代碼如下:PrivateSubcmdOKClick（)DimrMsgBox”數(shù)量不能為空"警告”rs。AddNew證用戶所輸入數(shù)據(jù)的正確性和安全性。程序設(shè)計及相關(guān)功能是否符合要求，只有通過嚴(yán)密的測試才能發(fā)現(xiàn)問題，盡setDimstrMsgAsStringsql="delete＊fromTimeSetting"Se證用戶所輸入數(shù)據(jù)的正確性和安全性。程序設(shè)計及相關(guān)功能是否符合要求，只有通過嚴(yán)密的測試才能發(fā)現(xiàn)問題，盡setDimstrMsgAsStringsql="delete＊fromTimeSetting"SeueThenMsgBox"導(dǎo)出成功”ElseMsgBox"導(dǎo)出失敗"EndIfCase3IfoutTs("身份證號"）=Null25Elsers.Fields（”身份證號”)=txtIdentity.業(yè)財務(wù)管理的重要組成部分.工資管理需要和人事管理相聯(lián)系，同時連接工時考勤和醫(yī)療保險等等，來生成企業(yè)每ntextAsLong業(yè)財務(wù)管理的重要組成部分.工資管理需要和人事管理相聯(lián)系，同時連接工時考勤和醫(yī)療保險等等，來生成企業(yè)每ntextAsLong，CancelDisplayAsBoolean)flag=FalseTimerlBar是類似的。CoolBar就是一個可以在窗體上浮動的工具,同時也是其他ActiveX的容器。通。Fields("記時匯總”)=MoTxt8。Textrs。Updaters。CloseSetrs=rs。AddNewMsgBox"添加成功”MsgBox"添加失敗”rs。AddNew"導(dǎo)出到記事本”＆vbCrLfEndIfoutPath=Trim（txtPath.Text)outS具。VB語言的基本特點及VB應(yīng)用程序的基本持點VB"導(dǎo)出到記事本”＆vbCrLfEndIfoutPath=Trim（txtPath.Text)outS具。VB語言的基本特點及VB應(yīng)用程序的基本持點VB程序語言具有許多優(yōu)秀的特性，用其設(shè)計應(yīng)用程序時有兩1（0）。Valuers。Fields（”PM上班時間"）=dtpBT（1）。Valuers。FieullElsers。Fields("民族")=cboNation。TextEndIf’數(shù)字型IftxEndSub4。5、員工月工資結(jié)算、產(chǎn)量匯總、綜合處理所示，相應(yīng)部分代碼如下:DimrsAsADODB。Recordset圖4—7月工資結(jié)算、產(chǎn)量匯總、綜合處理r1。Second3233“保存”按鈕代碼如下r1。Second3233“保存”按鈕代碼如下:PrivateSubcmdOKClick（)Dimr真的退出?”，vbYesNo，"系統(tǒng)驗證")Ifn=vbYesThenUnloadMeEndIfEnex=0AndobjRs！admin=FalseThenX=MsgBox("你不是管理員，將以普通用令后，數(shù)據(jù)庫管理系統(tǒng)調(diào)用模式，依據(jù)子模式/模式映象的定義，確定應(yīng)讀入模式中的那些記錄。數(shù)據(jù)庫管理系統(tǒng)）＊s（"上班時間s（"上班時間"）=dtpBT（0）.Valuers。Fields(”下班時間”)=DTPicker("單價三”)=txt6.TextEndIfrs。Fields（"每日匯總")=Txt7.Textr序易于使用和維護，VisualBasic也提供了強大的創(chuàng)建菜單功能是程序更加標(biāo)準(zhǔn)。本系統(tǒng)使用Visu1.Text）)Ifk=0Thensend。MousePointer=0MsgBox”不能發(fā)送空消息MsgBox”數(shù)據(jù)庫還沒有此工號的工資記錄”,vbOKOnly+vbExclamation，”提示”本系統(tǒng)為了給企業(yè)提供一個更好的、方便的服務(wù)，有效而快速的進行網(wǎng)內(nèi)各部門本系統(tǒng)為了給企業(yè)提供一個更好的、方便的服務(wù)，有效而快速的進行網(wǎng)內(nèi)各部門EndSub間已經(jīng)設(shè)置"，vbOKOnly+vbInformation,間已經(jīng)設(shè)置"，vbOKOnly+vbInformation,”設(shè)置結(jié)果！”UnloadMeEndSu。Fields。Count—1fieldwidth(i）=rs。Fields（i)。DefinedSlosestrSql=”selectsum(數(shù)量一）as數(shù)量一，sum(數(shù)量二）as數(shù)量二，sum（過在CoolBar中遷入其他空間你也可以向用戶提供更好的靈活性和義用性。選擇“工程"下拉菜單中的“部圖4—8服務(wù)器端圖4-9客戶端（）EndSub（）2）。Text=rs.Fields("加班總時間”）2）。Text=rs.Fields("加班總時間”）.ValueTextgj。Text=rs.FieNullElsers。Fields("婚姻狀況”）=cboMarry。TextEndIfIfcboN達信息，簡而言之，數(shù)據(jù)庫就是信息的集合。計算機的數(shù)據(jù)庫可以分為兩類：非關(guān)系數(shù)據(jù)庫(flat—filextIfTxt1.Text=””Thenrs。Fields（”數(shù)量一"）=0Elsers.FieldLoadForm1Form1。ShowEndSubEndSubEndSub時離開時可鎖定操作畫面，防止非法操作。用戶管理分為新建普通用戶,新建管理員用戶，修改密碼三部分。2時離開時可鎖定操作畫面，防止非法操作。用戶管理分為新建普通用戶,新建管理員用戶，修改密碼三部分。2。ueThenMsgBox"導(dǎo)出成功”ElseMsgBox"導(dǎo)出失敗"EndIfCase3IfoutT發(fā)現(xiàn)錯誤,在此階段系統(tǒng)的大量錯誤得到了改正.45致謝本系統(tǒng)能夠順利完成，非常感謝唐昊老師和周雷老師的令后，數(shù)據(jù)庫管理系統(tǒng)調(diào)用模式，依據(jù)子模式/模式映象的定義，確定應(yīng)讀入模式中的那些記錄。數(shù)據(jù)庫管理系統(tǒng)EndSubEndSub求，根據(jù)分工本人負(fù)責(zé)整個程序運行以及整個程序調(diào)試.各個功能模塊都能完成相應(yīng)的任務(wù)，保證用戶所輸入數(shù)據(jù)的正確性和安全性。程序設(shè)計及相關(guān)功能是否符合要求，只有通過嚴(yán)密的測試才能發(fā)現(xiàn)問題，盡可能減少錯個庫之間共享一個共同的關(guān)鍵字值。一個連接是指一種虛擬的表，這種表是在當(dāng)用戶要求從相互關(guān)聯(lián)的各個不同的相應(yīng)權(quán)限的用戶在正確登陸后，可以打開并添加新員工的個人檔案，添加完8成后可以使用數(shù)據(jù)導(dǎo)出功能，導(dǎo)出數(shù)個庫之間共享一個共同的關(guān)鍵字值。一個連接是指一種虛擬的表，這種表是在當(dāng)用戶要求從相互關(guān)聯(lián)的各個不同的相應(yīng)權(quán)限的用戶在正確登陸后，可以打開并添加新員工的個人檔案，添加完8成后可以使用數(shù)據(jù)導(dǎo)出功能，導(dǎo)出數(shù)teiStm。CloseElsers.UpdateEndIf2627PrivateSubcmdOKC可以減少輸入次數(shù),以方便用戶.工具箱部分，帶有常用的工具，如計算器、記事本，EMIAL發(fā)送等。幫助部操作員編號操作員編號操作員姓名操作員類別系統(tǒng)管理員普通用戶用戶密碼4。1.2設(shè)置快捷鍵用戶和登陸密碼－測試用例設(shè)計如下表第一次測試用例第一次測試用例(設(shè)計兩組相同數(shù)據(jù)）用戶密碼1第一次輸入與預(yù)期結(jié)果一致、第二次不一致第二次測試用例(兩次密碼輸入不同）用戶密碼與預(yù)期結(jié)果不一致確認(rèn)密碼確認(rèn)密碼用戶名用戶名件"選項，顯示“部件”對話框。在“控件”選項卡列表中選擇“MicrosoftWindowsCommo件"選項，顯示“部件”對話框。在“控件”選項卡列表中選擇“MicrosoftWindowsCommoe=1UnloadMeEndIfEndSubPrivateSubComm2Click（）Ifcomm”select*fromtbr”Setrs=ExecuteSQL（strSql，strMsg)rs.wd。Text）=”"ThenMsgBox”請輸入新密碼”，vbOKOnly+vbExclamati使用有限的時間找出盡可能多的錯誤，力求系統(tǒng)盡量正確。我們在本系統(tǒng)的測試中使段系統(tǒng)的大量錯誤得到了改正.onfirmpwd=""password.SetFocusElseIfAdminCheck=Fals啟動一Winsock控件onfirmpwd=""password.SetFocusElseIfAdminCheck=Fals啟動一Winsock控件b（i）.AcceptrequestID’注釋：實際建立連接IfText1。ox”產(chǎn)品類型三不能為空"TextFocusCombo3ExitSubEndIf34IfTxt5.Tx”導(dǎo)出失敗"EndIfEndSelectEndSubPrivateSubcmdPathClick)本系統(tǒng)能夠順利完成，非常感謝唐昊老師和周雷老師的精心指導(dǎo)，同時也很感謝據(jù)庫是某個企業(yè)、組織或部門所設(shè)計的數(shù)據(jù)的一個綜合，它不僅要反映數(shù)據(jù)本身的內(nèi)容，而且要反映數(shù)據(jù)之間的聯(lián)一個檢驗和平時學(xué)習(xí)的一種積累。從中也使我學(xué)到了不少東西.希望以后有足夠的時間更深入的了解，做好需求分據(jù)庫是某個企業(yè)、組織或部門所設(shè)計的數(shù)據(jù)的一個綜合，它不僅要反映數(shù)據(jù)本身的內(nèi)容，而且要反映數(shù)據(jù)之間的聯(lián)一個檢驗和平時學(xué)習(xí)的一種積累。從中也使我學(xué)到了不少東西.希望以后有足夠的時間更深入的了解，做好需求分ick（)n=MsgBox（”你選擇了退出系統(tǒng)登陸，退出將不能啟動管理系統(tǒng)!”＆vbCrLf＆”是否箱、幫助十一大模塊。經(jīng)過實際使用證明,本文所設(shè)計的工資管理系統(tǒng)可以滿足公司工資管理方面的需要.論文主ThenMsgBox"密碼錯誤！請重新輸入！”,vbOKOnly+vbCritical，”系統(tǒng)登錄”ThenMsgBox"密碼錯誤！請重新輸入！”,vbOKOnly+vbCritical，”系統(tǒng)登錄”s(”下午下班時間")=CDate(DTPicker2。Hour&"：”&DTPicker2.Min止時間”)=dtpEBargain。ValueIftxtLong。Text="”Thenrs。FiedIfrs.CloseEndIf’刪除記錄strSql="delete＊fromtbrwhere工號添加用戶窗體代碼如下：UnloadMeEndSub（）DimrsAsADODB。Recordsetwinme，win2000,winxp,windowsNT等操作系統(tǒng)下，是一個winme，win2000,winxp,windowsNT等操作系統(tǒng)下，是一個32位的應(yīng)用程序開發(fā)工的工夫來處理,使得原來所標(biāo)榜的效率提高的優(yōu)點失去了作用;相反，如果只強調(diào)程序語言的彈性，卻沒有便利的5）.Text=rs.Fields（"其它”)ElseMsgBox”數(shù)據(jù)庫還沒有此工號的工資記錄”,在改擴展名的同時也對數(shù)據(jù)庫進行了加密。在用ACCESS數(shù)據(jù)庫打開時要求輸入打開密碼,如圖3—5所示.UnloadMeEndSubEndSubsg）i=1rs。sg）i=1rs。MoveFirstDoWhileNotrs。EOFForj=1Tors。Fieldzj(0）。Text=Val（Textsl（0）。Text)＊dj1Textzj（1）。Text=V）AsIntegerSetrs=ExecuteSQL（strSql,strMsg）Dimf1f1=FB系統(tǒng)常用事件來引導(dǎo)計算機執(zhí)行一段程序.程序所用的鍵盤事件有KeyPress（按鍵)事件，KeyDoEndSubUnloadMeEndSub（）DimrsAsADODB。RecordsetMsgBox”兩次密碼不同"，vbOKOnly+vbExclamation，”警告”newpwd。Text=””'”遲到tmsb1=dtpBT.Valueh=Hour（tmsb1遲到tmsb1=dtpBT.Valueh=Hour（tmsb1）m=Minute(tmsb1）s=S1.2設(shè)置快捷鍵用戶和登陸密碼－測試用例設(shè)計如下表44第五章結(jié)束語此次畢業(yè)設(shè)計，不盡鞏固了所學(xué)知識，是所謂的事件驅(qū)動編程.實現(xiàn)菜單選項菜單是程序最重要的特性之一,大多數(shù)程序都依賴一個定義良好的菜單使程mrsAsADODB。RecordsetDimstrMsgAsStringDimfieldwith（UnloadMeEndSubEndSubEndSub數(shù)據(jù)導(dǎo)出:業(yè)財務(wù)管理的重要組成部分.工資管理需要和人事管理相聯(lián)系，同時連接工時考勤和醫(yī)療保險等等，來生成企業(yè)每etrs=ExecuteSQL(strSql,strMsg)Ifrs.EOF=FalseThenTe業(yè)財務(wù)管理的重要組成部分.工資管理需要和人事管理相聯(lián)系，同時連接工時考勤和醫(yī)療保險等等，來生成企業(yè)每etrs=ExecuteSQL(strSql,strMsg)Ifrs.EOF=FalseThenTeEnabled=Truecombo1。SetFocusa。Closecomm2.Caption=”連KOnly+vbCritical，”系統(tǒng)登錄”EndElseobjRs.MoveFirstobjRsDimrsAsADODB。Recordset時間)values（'時間)values（'”&txtUserName＆”’，’”＆Now＆”')”SetobjRs=Ex”歡迎使用工資管理系統(tǒng)",vbOKCancel+vbOKOnly，”系統(tǒng)登錄”strusernames.Fields(”合同開始時間")=dtpBBargain。Valuers。Fields（”合同終trs=ExecuteSQL（sql，strMsg）'查找數(shù)據(jù)庫,讀取記錄IfdtpBT。ValueMsgBox”導(dǎo)出成功”MsgBox”導(dǎo)出失敗"MsgBox"導(dǎo)出成功”MsgBox"導(dǎo)出失敗"MsgBox"導(dǎo)出成功"MsgBox”導(dǎo)出失敗"EndSubrdsetDimstrMsgAsStringSetrs=ExecuteSQL(strSql，strM!admin=TrueThenUserAdmin=1EndIfIfCmbStatusrdsetDimstrMsgAsStringSetrs=ExecuteSQL(strSql，strM!admin=TrueThenUserAdmin=1EndIfIfCmbStatus。ListIndE-R圖12圖3-3系統(tǒng)用戶圖3-4員工考勤信息表AttendanceInfo職工基