畢業(yè)設(shè)計工資管理信息系統(tǒng)姓名班級專業(yè)摘要工資管理系統(tǒng)用計算機管理企事業(yè)單位員工工資發(fā)放的一種計算機應(yīng)用技術(shù)的創(chuàng)新,在計算機還未普及之前企事業(yè)單位的員工工資發(fā)放都是由財務(wù)管理人員來承擔(dān)操作的.現(xiàn)在一般的企業(yè)都采用了信息化管理的方式即采用計算機作為工具的電子信息化的員工工資計算發(fā)放進行更有效的財務(wù)管理。工資管理系統(tǒng)是典型的信息管理系統(tǒng)(MIS),其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護以及前端應(yīng)用程序的開發(fā)兩個方面。對于前者要求建立起數(shù)據(jù)一致性和完整性強、數(shù)據(jù)安全性好的庫。而對于后者則要求應(yīng)用程序功能完備,易使用等特點。

經(jīng)過分析,我們使用MICROSOFT公司的VISUALBASIC開發(fā)工具,利用其提供的各種面向?qū)ο蟮拈_發(fā)工具,尤其是數(shù)據(jù)窗口這一能方便而簡潔操縱數(shù)據(jù)庫的智能化對象,首先在短時間內(nèi)建立系統(tǒng)應(yīng)用原型,然后,對初始原型系統(tǒng)進行需求迭代,不斷修正和改進,直到形成用戶滿意的可行系統(tǒng)。關(guān)鍵字:物資管理信息系統(tǒng),MIS,visualbasic,數(shù)據(jù)庫AbstractWagemanagementsystemusingcomputermanagementunitsstaffsalariesacomputerapplicationtechnologyinnovation,yetpopularinthecomputerbeforetheunitsstaffsalariesarebornebythefinancialmanagerstooperate.Nowenterpriseshaveadoptedthegeneralmanagementofinformationusingthecomputerasatoolthatisthewayelectronicinformationtechnologystaffwagepaymentformoreeffectivefinancialmanagement.Wagemanagementsystemisatypicalmanagementinformationsystem(MIS),includingitsmaindevelopmentbackgroundtotheestablishmentandmaintenanceofthedatabaseandfront-endapplicationdevelopment2.Therequestfortheestablishmentofstrongdataconsistencyandintegrity,goodforthesecurityofthedata.Forthelatterrequestapplicationsfunctions,suchaseasytousefeatures.

Afteranalysis,weuseMicrosoftvisualbasicdevelopmenttoolcompanies,theuseofitsvariousobject-orienteddevelopmenttools,especiallydatathatcanbeeasilyaccessibleandconcisewindowmanipulationdatabaseintelligentobjects,thefirstprototypeapplicationsysteminashorttimeandthen,computationoftheinitialprototypesystemneedstoconstantlyreviseandimproveuntiltheformationofaviablesystemofusersatisfaction.

keyword:materialmanagementinformationsystem,MIS,visualbasicdatabase摘要…………1Abstract………………………2第一章引言…………………41．1課題背景……………………41．2系統(tǒng)簡介……………………51.3開發(fā)工具簡介第二章系統(tǒng)的分析……………62．1系統(tǒng)開發(fā)的目標(biāo)和思想……………………62．2系統(tǒng)的可行性分析…………8第三章系統(tǒng)的設(shè)計……………183．1系統(tǒng)的功能結(jié)構(gòu)設(shè)計………183．2系統(tǒng)的數(shù)據(jù)庫設(shè)計3．3界面設(shè)計與代碼設(shè)計……………………23…………24結(jié)束語………………46致謝…………………47參考文獻…………………引言課題背景工資管理系統(tǒng)用計算機管理企事業(yè)單位員工工資發(fā)放的一種計算機應(yīng)用技術(shù)的創(chuàng)新,在計算機還未普及之前企事業(yè)單位的員工工資發(fā)放都是由財務(wù)管理人員來承擔(dān)操作的.現(xiàn)在一般的企業(yè)都采用了信息化管理的方式即采用計算機作為工具的電子信息化的員工工資計算發(fā)放進行更有效的財務(wù)管理。工資管理系統(tǒng)是典型的信息管理系統(tǒng)(MIS),其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護以及前端應(yīng)用程序的開發(fā)兩個方面。對于前者要求建立起數(shù)據(jù)一致性和完整性強、數(shù)據(jù)安全性好的庫。而對于后者則要求應(yīng)用程序功能完備,易使用等特點。系統(tǒng)簡介本系統(tǒng)服務(wù)于企事業(yè)單位財務(wù)部門,負(fù)責(zé)管理本部門員工的財務(wù)工資信息.主要由以下幾大功能模塊構(gòu)成:一:數(shù)據(jù)錄入(錄入部門,錄固定向)二:數(shù)據(jù)整理(改固定項,改流動項,人員管理,部門管理)三:打印報表(打工資條,打工資表,打匯總表,提款方案)四:系統(tǒng)維護(系統(tǒng)初始,系統(tǒng)備份,數(shù)據(jù)恢復(fù),權(quán)限管理,設(shè)置背景)五:退出系統(tǒng)1.3開發(fā)工具簡介VisualBasic6.0是Micrsoft公司出品的開發(fā)工具，VisualBasic是一種可視化的，面向?qū)ο蟮腤indows開發(fā)語言，它具有易用，通用和開發(fā)效率高的特點。隨著微軟對它不斷地改進以及計算機本身性能的提高，使得VisualBasic越來越適合一般的應(yīng)用程序開發(fā)。正如BillGate所說，世界上絕大多數(shù)的Windows應(yīng)用程序是用VisualBasic編寫的。在眾多的開發(fā)工具中，我們?yōu)槭裁匆x擇VisualBasic6.0呢？因為VB具有眾多其它開發(fā)工具所沒有的優(yōu)點！具體介紹如下：開發(fā)的高效語言的高效編譯的高效執(zhí)行的高效維護的高效基于以上理由，我們毫不憂郁的選擇了VB6.0做為我們的開發(fā)工具??！命令按鈕類的控件：Caption屬性：用來顯示在控件上的標(biāo)題。Enable屬性：控制控件的激活狀態(tài)灰色或可用。Appearance屬性：值為1時,則以3D效果顯示該控件,0則不然。Backcolor屬性：用來改變在按鈕上顯示圖像的背景色。Cancel屬性：該屬性決定按鈕是否為一個”取消”按鈕。Default屬性:決定哪一個命令按鈕控件是窗體的缺省命令按鈕.Font屬性:控制各種文字字體類型.Left,top,height,width屬性:設(shè)定控件的位置與大小.Style,picture屬性:決定按鈕的顯示方式是否為圖像形式出現(xiàn).Visible屬性:確定控件運行時是否為可見.Index屬性:當(dāng)控件為一控件數(shù)組時,此屬性值為該控件在數(shù)組的下標(biāo)值.DownPicture屬性：設(shè)置/返回一個對圖片的引用，該圖片在按鈕被單擊處于壓下狀態(tài)時顯示。DisabledPicture屬性：設(shè)置/返回一個對圖片的引用，該圖片在控件無效時顯示在控件中。MaskColor屬性：設(shè)置/返回一個在按鈕的圖片中作為“掩碼“的的顏色Picture屬性：設(shè)置返回commandButton控件中要顯示的圖片。命令按鈕類的事件：單擊事件――Click事件觸發(fā)與適用此事件是在一個命令按鈕對象上按下然后釋放一個鼠標(biāo)按鈕時發(fā)生。命令按鈕的Click事件僅對當(dāng)單擊鼠標(biāo)時發(fā)生。事件處理過程按鈕單擊事件的處理過程為：PrivateSubobject-Click（IndexAsInteger）其中Object為引發(fā)該事件的對象名稱。如果是命令按鈕的控件是數(shù)組，則需要使用Index參數(shù)標(biāo)識該控件。獲得焦點――GotFocus事件觸發(fā)與適用當(dāng)命令按鈕獲得焦點產(chǎn)生該事件，獲得焦點可以通過諸如Tab切換或單擊對象之類的用戶動作，或在代碼中用SetFocus方法改變焦點來實現(xiàn)。事件處理過程命令按鈕GotFoucs事件處理過程為：PrivateSubObject-GotFocus（IndexAsInteger）LostFocus事件：當(dāng)一個對象失去焦點時發(fā)生KeyDown事件：當(dāng)命令按鈕具有焦點時按下一個鍵時發(fā)生KeyUp事件：當(dāng)命令按鈕具有焦點時釋放一個鍵時發(fā)生。KeyPress事件：當(dāng)用戶按下或松開一個ANSI鍵時發(fā)生。MouseDown事件：當(dāng)在命令按鈕上按下鼠標(biāo)按鈕時發(fā)生。MouseMove事件：當(dāng)命令按鈕上移動鼠標(biāo)時發(fā)生。MouseUp事件：當(dāng)在命令按鈕上釋放鼠標(biāo)按鈕時發(fā)生。標(biāo)簽框類的控件類的控件：Caption屬性：在應(yīng)用程序界面上加入說明。Autosize屬性：決定控件是否自動改變大小以顯示其全部內(nèi)容。Backstyle屬性：用以指示標(biāo)簽是否透明.Bordstyle屬性:用以設(shè)定控件是否有邊框。文本框類的控件：Text屬性：通過像text屬性賦值的方法來改變該屬性的值。Maxlength屬性：該屬性設(shè)定在文本框控件中能夠輸入的最大字符數(shù)。Multline屬性：該屬性設(shè)定text字符串中是否接受換行符。Scrollbars屬性：該屬性決定是否為文本框加滾動條。Passwordchar屬性：該屬性設(shè)定輸入文本的特殊顯示字符,在設(shè)計密碼程序時非常有用。Change事件屬性：文本框的內(nèi)容發(fā)生改變時,相應(yīng)的控件之間發(fā)生相應(yīng)的改變,具有即時性。Keypress：事件由用戶在文本框控件中按任意鍵觸發(fā)。Alignment屬性：設(shè)定控件中的文本對其方式Appearance屬性：設(shè)定一個對象在運行時是否可以3D效果顯示。BackColor屬性：設(shè)置返回背景色BorderStyle屬性：設(shè)置對象的邊框樣式DataField屬性：設(shè)定數(shù)據(jù)使用者將被綁定到的字段名DataFormat屬性：設(shè)定DataFormat對象，用于數(shù)據(jù)綁定DataMember屬性：從數(shù)據(jù)供應(yīng)程序提供的幾個數(shù)據(jù)成員中返回/設(shè)定一個特定的數(shù)據(jù)成員DataSource屬性：設(shè)定控件綁定的一個數(shù)據(jù)源DragIcon屬性：設(shè)定圖標(biāo)，它將在拖放操作中作為指針顯示DragMode模式：設(shè)定一個值，確定在拖放操作中所用方式Enabled屬性：設(shè)置/返回運行時TextBox是否相應(yīng)用戶事件Font屬性：設(shè)置/返回字體屬性ForeColor屬性：設(shè)置/返回文本的前景色Height屬性：設(shè)置/返回TextBox的高度IMEMode屬性：設(shè)置/返回數(shù)值用來確定輸入方法編輯器的狀態(tài)Index屬性：設(shè)置/返回唯一的標(biāo)識控件數(shù)組中該控件的編號Left屬性：設(shè)置/返回TextBox控件的水平位置Locked屬性：設(shè)置/返回TextBox中文本是否可編輯LinkItem屬性：設(shè)置/返回DDE與另一個應(yīng)用程序會話時，傳給接受端的數(shù)據(jù)MaxLength屬性：設(shè)置/返回一個值，指定在TextBox控件中能夠輸入的字符最大值MouseIcon屬性：設(shè)置/返回自定義鼠標(biāo)的圖標(biāo)Top屬性：設(shè)置/返回TextBox控件的垂直位置Tag屬性：存儲過程所需的附加數(shù)據(jù)文本框類的事件：Change事件：當(dāng)改變文本框內(nèi)容時發(fā)生Click事件：鼠標(biāo)單擊控件時發(fā)生DblClick事件：用鼠標(biāo)左鍵雙擊控件時發(fā)生DragDrop事件：在一個完整的拖放動作完成或使用Drag方法，并將其Action參數(shù)設(shè)置為2時發(fā)生DragOver事件：在拖放操作正在進行時發(fā)生GotFocus事件：當(dāng)一個命令按鈕獲得焦點時發(fā)生LinkClose事件：當(dāng)一個DDE對話結(jié)束時發(fā)生LinkError事件：當(dāng)一個DDE對話框過程中出現(xiàn)錯誤時，該事件發(fā)生KeyDown事件：當(dāng)命令按鈕具有焦點時按下一個鍵時發(fā)生Validate事件：在焦點轉(zhuǎn)換到另一個控件之前發(fā)生，此時該控件的CausesValidation屬性值設(shè)置為True單選按鈕類的控件：Caption屬性：顯示在控件上的文本,是單選按鈕的標(biāo)題。Alignment屬性：決定單選按鈕的標(biāo)題在控件上的位置。Enable屬性：該控件為灰色時為false,表示運行時不可用。Index屬性：屬性值表示為單選按鈕組成的控件中某個按鈕的索引值。Tabindex屬性：建立控件時,vb自動為其分配一個tabindex值,利用tab鍵可以在控件之間切換焦點。Value屬性：反映控件狀態(tài)的屬性,返回true表示已選擇了該按鈕。Appearance屬性：設(shè)置/返回一個對象在運行時是否以3D效果顯示。BackColor屬性：設(shè)置/返回背景色。Container屬性：設(shè)置/返回Form上的控件屬性。DataField屬性：設(shè)置/返回數(shù)據(jù)使用者將被綁定到的字段名。DataFormat屬性：設(shè)置/返回DataFormat對象，一個綁定對象將附加到它。DisabledPicture屬性：設(shè)置/返回一個對圖像的引用，該圖片在控件無效時顯示在控件中。DownPicture屬性：設(shè)置/返回一個對圖片的引用，該圖片在控件單擊下處于壓下狀態(tài)時顯示。DragMode屬性：設(shè)置/返回一個值，確定在拖放操作中所用的方式。Font屬性：設(shè)置/返回字體屬性。FontBold屬性：設(shè)置/返回字體粗體樣式。FontItalic屬性：設(shè)置/返回字體斜體樣式。FontStrikethru屬性：設(shè)置/返回字體刪除線樣式。FontUnderLine屬性：設(shè)置/返回字體下劃線樣式。FontName屬性：設(shè)置/返回控件中顯示文本所用的字體大小。FontSize屬性：設(shè)置/返回控件中顯示文本所用的字體大小Height屬性：設(shè)置/返回控件的高度。MaskColor屬性：設(shè)置/返回一個在控件的圖片中作為掩碼的顏色。MousePointer屬性：設(shè)置/返回一個值，該值指示在運行時當(dāng)鼠標(biāo)移動到對象上時顯示的指針類型。單選按鈕類的常用事件：Click事件：鼠標(biāo)單擊控件時發(fā)生。DbClick事件：當(dāng)在一個對象上按下和釋放鼠標(biāo)按鈕并再次按下和釋放按鈕時，該事件發(fā)生。DragDrop事件：在一個完整的拖放動作或使用Drag方法，并將其Action參數(shù)設(shè)置位2時，該事件發(fā)生。DragOver事件：在拖放操作正在進行時發(fā)生。GotFocus事件：當(dāng)獲的對象焦點時發(fā)生。LostFocus事件：當(dāng)對象失去焦點時發(fā)生。KeyDown事件：當(dāng)控件具有焦點時按下一個鍵時發(fā)生。KeyUp事件：當(dāng)控件具有焦點時釋放一個鍵時發(fā)生。KeyPress事件：當(dāng)用戶按下或釋放ANSI一個鍵時發(fā)生。MouseDown事件：當(dāng)在控件上按下鼠標(biāo)鍵時發(fā)生。MouseMove事件：在控件上移動鼠標(biāo)時發(fā)生。MouseUp事件：在控件上釋放鼠標(biāo)時發(fā)生。復(fù)選按鈕類的控件：Caption屬性：缺省為check1…。Index屬性:該屬性值為復(fù)選框控件數(shù)組的下標(biāo).Value屬性:value為0表空白,為1表勾號,為2表示灰色勾號.Container屬性：Form控件上的容器。DataChangeed屬性：設(shè)置/返回一個值，指出被綁定的控件中的數(shù)據(jù)已經(jīng)被某進程修改。DataField屬性：設(shè)置或返回數(shù)據(jù)使用者將被綁定到的字段名。DataFormat屬性：設(shè)置或返回DataFormat對象，用于數(shù)據(jù)綁定。Datasource屬性：設(shè)置或返回控件綁定的一個數(shù)據(jù)源。DisabledPicture屬性：設(shè)置或返回一個對圖片的引用，該圖片在控件無效時顯示在控件中。DownPicture屬性：設(shè)置或返回一個對圖片的引用，該圖片在控件被單擊處于壓下狀態(tài)時顯示。DragIcon屬性：設(shè)置或返回圖標(biāo)，它將在拖放操作中做為指針顯示。DragMode屬性：設(shè)置返回一個值，確定在拖放操作中所用方式。Font屬性：設(shè)置或返回字體的屬性。Name屬性：設(shè)置或返回控件的標(biāo)識名。Value屬性：設(shè)置或返回控件的狀態(tài)。復(fù)選按鈕類的控件的基本事件：Click事件：鼠標(biāo)單擊控件時發(fā)生。DragDrop事件：在一個完整的拖放動作完成或使用Drag方法，并將其Action參數(shù)設(shè)置為2時發(fā)生。DragOver事件：在拖放操作正在進行時發(fā)生。GotFocus事件：在對象獲的焦點時發(fā)生。，OLECompleteDrag事件：當(dāng)源部件被放到目標(biāo)時發(fā)生，并通知源部件拖放操作被執(zhí)行或取消。OLEDragDrag事件：當(dāng)源部件決定放操作能發(fā)生，卻源部件被放到目標(biāo)部件時，此事件發(fā)生?？蚣茴惖目丶?)List屬性：列表框控件的表項是使用數(shù)組的方式保存,數(shù)組的每一個元素存儲列表控件的一個表項Listcount屬性:控件列表部分項目的個數(shù)。Mutselect屬性:可以設(shè)置列表框為單選或允許多選屬性.Selectd屬性:標(biāo)示一個數(shù)組,數(shù)組各元素為:Selected(0),selected(1)…滾動條類的控件：Value屬性：滾動條上滑塊所在位置由value值所決定。Max和min屬性：對value值的最大,最小進行限制。Largechange屬性：用戶點擊滾動條與鍵頭之間的區(qū)域時,value的改變量。4)OnClick事件：用來添加按鈕的單擊事件所執(zhí)行的程序代碼。定時器類類的控件：Interval屬性：表示定時的時間間隔,以毫秒為單位。Enable屬性:為true時(缺省值),激活定時器開始計時;為false時處于休眠狀態(tài).Visualbasic6.0連接數(shù)據(jù)庫的主要方式以下幾種方式：一是：用data控件進行數(shù)據(jù)庫鏈接，二是利用adodc（ADODataControl)進行數(shù)據(jù)庫鏈接。三是:利用DataEnvironment進行數(shù)據(jù)庫鏈接.四是利用ADO(ActiveXDataObjects)進行編程:現(xiàn)在我們來大致對這幾種技術(shù)應(yīng)用介紹：用data控件進行數(shù)據(jù)庫鏈接.第一步：給窗體添加一個Data控件。

第二步：用Access建立一個名為Pad的數(shù)據(jù)庫，在庫中建立一個表Myset，給表添加四個字段：backcolor（數(shù)據(jù)），forecolor(文本），fontname(文本）,fontsize（文本）。注意：請將庫文件存入程序所在目錄。

如果你的機器沒安裝有Access，可通過VB建庫。利用adodc（ADODataControl)進行數(shù)據(jù)庫鏈接：使用adodata控件訪問數(shù)據(jù)庫可以完全不用編寫代碼,只需要通過簡單的設(shè)置和操作其屬性就可以實現(xiàn)與數(shù)據(jù)庫的連接,通過綁定數(shù)據(jù)感知控件,就能提供一個訪問數(shù)據(jù)庫的界面,用來實現(xiàn)對數(shù)據(jù)庫的瀏覽,貼加,刪除,修改等操作.利用DAO對數(shù)據(jù)庫進行操縱:在visualbasic中提供了兩種與jet數(shù)據(jù)引擎接口的方法:data控件與數(shù)據(jù)訪問對象(DAO)DAO是databaseobject的英文縮寫,要訪問數(shù)據(jù)庫一方面數(shù)據(jù)庫要提供訪問接口,另一方面要在編程環(huán)境中有對數(shù)據(jù)庫的支持.

DAO模型是設(shè)計關(guān)系數(shù)據(jù)庫系統(tǒng)結(jié)構(gòu)的對象類的集合.他們提供了管理關(guān)系型數(shù)據(jù)庫系統(tǒng)所需要的全部操作屬性和方法,這其中包括建立數(shù)據(jù)庫,定義表,字段和建立表間關(guān)系,定位和查詢數(shù)據(jù)庫等.關(guān)系數(shù)據(jù)庫介紹:關(guān)系數(shù)據(jù)庫是目前各類數(shù)據(jù)庫中最重要、最流行的數(shù)據(jù)庫，他應(yīng)用數(shù)學(xué)方法來處理數(shù)據(jù)庫數(shù)據(jù)，是目前使用最廣泛的數(shù)據(jù)庫系統(tǒng)。20世紀(jì)70年代以后開發(fā)的數(shù)據(jù)庫管理系統(tǒng)產(chǎn)品幾乎都是基于關(guān)系的。在數(shù)據(jù)庫發(fā)展的歷史上，最重要的成就就是關(guān)系模型。

關(guān)系數(shù)據(jù)庫系統(tǒng)與非關(guān)系數(shù)據(jù)庫系統(tǒng)的區(qū)別是：關(guān)系系統(tǒng)只有“表“這一種數(shù)據(jù)結(jié)構(gòu)；而非關(guān)系數(shù)據(jù)庫系統(tǒng)還有其他數(shù)據(jù)結(jié)構(gòu)，對這些數(shù)據(jù)結(jié)構(gòu)有其他的操作。結(jié)構(gòu)化查詢語言SQL（StructuredQueryLanguage）是一種介于關(guān)系代數(shù)與關(guān)系演算之間的語言，其功能包括查詢、操縱、定義和控制四個方面，是一個通用的、功能極強的關(guān)系數(shù)據(jù)庫語言。目前已成為關(guān)系數(shù)據(jù)庫的標(biāo)準(zhǔn)語言

Microsoft

Access介紹:使用

Microsoft

Access，可以在單一的數(shù)據(jù)庫文件中管理所有的信息。在這個文件中，用戶可以將自己的數(shù)據(jù)分別保存在各自獨立的存儲空間中，這些空間稱作表；可以使用聯(lián)機窗體來查看、添加及更新表中的數(shù)據(jù)；使用查詢來查找并檢索所要的數(shù)據(jù)；也可以使用報表以特定的版面布置來分析及打印數(shù)據(jù)。

如果要保存數(shù)據(jù)，請為每一種類型的信息創(chuàng)建一個表。如果要從查詢、窗體或報表中的多個表中將數(shù)據(jù)合并在一起，就要定義各個表之間的關(guān)系。

如果要搜索并檢索符合指定條件的數(shù)據(jù)，包括來自多個表中的數(shù)據(jù)，就要創(chuàng)建查詢。查詢的同時也可以更新或刪除多條記錄，并對數(shù)據(jù)執(zhí)行內(nèi)嵌或自定義的計算。

如果要簡單地直接在某個表中查看、輸入及更改數(shù)據(jù)，請創(chuàng)建一個窗體。在打開一個窗體時，Microsoft

Access

將從一個或多個表中檢索數(shù)據(jù)，并使用用戶在“窗體向?qū)А边x擇的版面布局或所創(chuàng)建的版面布局，將窗體顯示在屏幕上。

如果要分析數(shù)據(jù)或?qū)?shù)據(jù)以特定的方式打印出來，請創(chuàng)建一個報表。例如，可以打印一份將數(shù)據(jù)分組并計算數(shù)據(jù)總和的報表，也可以打印另一份帶有各種數(shù)據(jù)格式的打印郵件標(biāo)簽的報表。系統(tǒng)的分析系統(tǒng)開發(fā)的目標(biāo)和思想本系統(tǒng)開發(fā)目標(biāo)是服務(wù)于企事業(yè)單位財務(wù)管理人員,方便工作人員,收集員工工資信息,發(fā)布工資發(fā)放信息,對本單位部門員工工資分類管理等.同時力求做到界面人性化,功能齊全,數(shù)據(jù)存儲安全.系統(tǒng)的可行性分析技術(shù)上:本系統(tǒng)采用visualbasic6.0與微軟的access作為數(shù)據(jù)庫,技術(shù)上開發(fā)難度一般.經(jīng)濟上:本系統(tǒng)服務(wù)于企事業(yè)單位財務(wù)管理人員,提高了工作人員辦事效率,節(jié)省了開支.所以具有經(jīng)濟上的可行性.社會上:本系統(tǒng)同時也方便了企業(yè)管理人員者,以及員工.所以具有社會可行性.系統(tǒng)的設(shè)計3．1系統(tǒng)的功能結(jié)構(gòu)設(shè)計程序登陸程序登陸主界面數(shù)據(jù)錄入數(shù)據(jù)整理打印報表系統(tǒng)維護退出系統(tǒng)3．2系統(tǒng)的數(shù)據(jù)庫設(shè)計1:部門表:2:工資信息表:3:用戶登陸表:界面設(shè)計與代碼設(shè)計1:登陸界面設(shè)計登陸界面代碼設(shè)計:PrivateSubCommand1_Click()IfTrim(Text3.Text)=Data1.Recordset.Fields(2)Thenczy=Data1.Recordset.Fields(1)bz=Text1.TextUnloadMegzglxt.ShowElseMsgBox"密碼不符，請核對后再輸入"Text3.Text=""Text3.SetFocusEndIfEndSubPrivateSubCommand2_Click()EndEndSubPrivateSubForm_Load()Data1.DatabaseName=App.Path+"\gzglxt.mdb"Data1.RecordSource="mmk"Data1.RefreshEndSubPrivateSubText1_Change()IfLen(Text1.Text)>=2ThenData1.Recordset.FindFirst"czydm="+"'"+Text1.Text+"'"IfData1.Recordset.NoMatch=TrueThenMsgBox"操作員代碼不存在，請核對后再輸入!"Text1.Text=""Text1.SetFocusElseText2.Text=Data1.Recordset.Fields(1)Text3.SetFocusEndIfEndIfEndSubPrivateSubText3_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenCommand1.SetFocusEndIfEndSub2.數(shù)據(jù)恢復(fù)界面:數(shù)據(jù)恢復(fù)代碼設(shè)計:PrivateSubCommand1_Click()Data1.Recordset.MoveFirstCalldisp4EndSubSubdisp4()Text1.Text=Data1.Recordset.Fields(0)Text2.Text=Data1.Recordset.Fields(1)Text3.Text=Data1.Recordset.Fields(2)EndSubPrivateSubCommand10_Click()Command1.Enabled=TrueCommand2.Enabled=TrueCommand3.Enabled=TrueCommand4.Enabled=TrueCommand5.Enabled=TrueCommand6.Enabled=TrueCommand7.Enabled=TrueCommand8.Enabled=TrueCommand9.Enabled=FalseCommand1.SetFocusCalldisp4EndSubPrivateSubCommand2_Click()IfData1.Recordset.BOF=FalseThenData1.Recordset.MovePreviousIfData1.Recordset.BOF=TrueThenData1.Recordset.MoveNextCalldisp4EndSubPrivateSubCommand3_Click()IfData1.Recordset.EOF=FalseThenData1.Recordset.MoveNextIfData1.Recordset.EOF=TrueThenData1.Recordset.MovePreviousCalldisp4EndSubPrivateSubCommand4_Click()Data1.Recordset.MoveLastCalldisp4EndSubPrivateSubCommand5_Click()dm=InputBox("請輸入您要查找的操作員的代碼")Data1.Recordset.FindFirst"czydm="+"'"+dm+"'"IfData1.Recordset.NoMatch=TrueThenMsgBox"查無此操作員"ExitSubElseCalldisp4EndIfEndSubPrivateSubCommand6_Click()Command1.Enabled=FalseCommand2.Enabled=FalseCommand3.Enabled=FalseCommand4.Enabled=FalseCommand5.Enabled=FalseCommand6.Enabled=FalseCommand7.Enabled=FalseCommand8.Enabled=FalseCommand9.Enabled=TrueCommand10.Enabled=TrueText1.Locked=FalseText2.Locked=FalseText3.Locked=FalseText1.SetFocusbz1=111EndSubPrivateSubCommand7_Click()Command1.Enabled=FalseCommand2.Enabled=FalseCommand3.Enabled=FalseCommand4.Enabled=FalseCommand5.Enabled=FalseCommand6.Enabled=FalseCommand7.Enabled=FalseCommand8.Enabled=FalseCommand9.Enabled=TrueCommand10.Enabled=TrueText1.Locked=FalseText2.Locked=FalseText3.Locked=FalseText1.Text=""Text2.Text=""Text3.Text=""Text1.SetFocusbz1=222EndSubPrivateSubCommand8_Click()k=MsgBox("您確認(rèn)要刪除名稱為："&Text2.Text&"的操作員嗎？",vbYesNo+32)Ifk=6ThenIfText1.Text<>"00"ThenData1.Recordset.DeleteData1.RefreshCalldisp4ElseMsgBox"管理員記錄不能刪除"ExitSubEndIfElseCalldisp4EndIfEndSubPrivateSubCommand9_Click()Ifbz1=111ThenData1.Recordset.EditData1.Recordset.Fields(0)=Text1.TextData1.Recordset.Fields(1)=Text2.TextData1.Recordset.Fields(2)=Text3.TextData1.Recordset.UpdateEndIfIfbz1=222ThenData1.Recordset.FindFirst"czydm="+"'"+Text1.Text+"'"IfData1.Recordset.NoMatch=FalseThenMsgBox"操作員代碼重復(fù)，請重新輸入"ExitSubElseData1.Recordset.AddNewData1.Recordset.Fields(0)=Text1.TextData1.Recordset.Fields(1)=Text2.TextData1.Recordset.Fields(2)=Text3.TextData1.Recordset.UpdateEndIfEndIfCommand1.Enabled=TrueCommand2.Enabled=TrueCommand3.Enabled=TrueCommand4.Enabled=TrueCommand5.Enabled=TrueCommand6.Enabled=TrueCommand7.Enabled=TrueCommand8.Enabled=TrueCommand9.Enabled=FalseCommand1.SetFocusData1.RefreshEndSubPrivateSubForm_Activate()Text1.Locked=TrueText2.Locked=TrueText3.Locked=TrueCommand1.SetFocusCalldisp4Command9.Enabled=FalseEndSubPrivateSubForm_Load()Me.Top=600Me.Left=1100Data1.DatabaseName=App.Path+"\gzglxt.mdb"Data1.RecordSource="mmk"Data1.RefreshEndSub3主界面設(shè)計:主界面代碼設(shè)計:PrivateSubbmgl_Click()Form6.ShowEndSubPrivateSubdgzb_Click()Dr2.ShowEndSubPrivateSubdgzt_Click()Dr1.ShowEndSubPrivateSubdhzb_Click()Form7.ShowEndSubPrivateSubggdx_Click()Form3.ShowEndSubPrivateSubgldx_Click()Form4.ShowEndSubPrivateSublgdx_Click()Form2.ShowEndSubPrivateSublrbm_Click()Form1.ShowEndSubPrivateSubMDIForm_Activate()sb1.Panels(2).Text="操作員："+czyIfbz>0Andbz<>0Thenggdx.Enabled=Falselgdx.Enabled=Falseqxgl.Enabled=FalseEndIfEndSubPrivateSubqxgl_Click()Form11.ShowEndSubPrivateSubrygl_Click()Form5.ShowEndSubPrivateSubsjbf_Click()Form9.ShowEndSubPrivateSubsjhf_Click()Form10.ShowEndSubPrivateSubszbj_Click()Cd1.FileName=""Cd1.ShowOpenMe.Picture=LoadPicture(Cd1.FileName)EndSubPrivateSubtcxt_Click()EndEndSubPrivateSubTimer1_Timer()sb1.Panels(5).Text="日期："&Date&"時間："&Time()EndSubPrivateSubtkfa_Click()MsgBox"此模塊為選做模塊，如果需要使用此模塊的功能，請與作者聯(lián)系"EndSubPrivateSubToolbar1_ButtonClick(ByValButtonAsMSComctlLib.Button)SelectCaseButton.IndexCase1Form1.ShowCase2Form2.ShowCase3Form3.ShowCase4Form4.ShowCase5Form5.ShowCase6