數(shù)據(jù)庫原理論文

摘要數(shù)據(jù)庫技術(shù)是計算機科學技術(shù)中開展最快的領(lǐng)域之一，也是應(yīng)用最廣的技術(shù)之一。數(shù)據(jù)庫管理系統(tǒng)〔簡稱DBMS〕是國家信息根底設(shè)施的重要組成局部，是國家信息平安的核心技術(shù)之一。數(shù)據(jù)庫系統(tǒng)已成為計算機信息系統(tǒng)與應(yīng)用系統(tǒng)的核心技術(shù)和重要根底。數(shù)據(jù)庫技術(shù)是數(shù)據(jù)管理的最新技術(shù)，是計算機科學的重要分支。它是計算機科學技術(shù)中開展最快的領(lǐng)域之一，也是應(yīng)用最廣的技術(shù)之一。它已成為計算機信息系統(tǒng)的核心技術(shù)和重要根底。數(shù)據(jù)庫已經(jīng)成為人們存儲數(shù)據(jù)、管理信息、共享資源的最先進最常用的技術(shù)。這個職工工資管理系統(tǒng)是用VB程序做成的，首先在SQL中建出員工的根本信息表，再將SQL與VB程序連接，在VB中實現(xiàn)各種查詢、添加、刪除等操作，從而實現(xiàn)對員工工資的管理，系統(tǒng)很簡單而且方便瀏覽員工信息。關(guān)鍵詞：數(shù)據(jù)庫管理系統(tǒng)；職工工資管理系統(tǒng)；SQL;VB目錄第1章系統(tǒng)功能概述 11.1系統(tǒng)功能 11.2系統(tǒng)結(jié)構(gòu)總圖 1第2章數(shù)據(jù)庫設(shè)計 12.1需求分析 12.2職工工資管理系統(tǒng)的E-R模型 32.3關(guān)系模型 32.4表結(jié)構(gòu)設(shè)計 4第3章系統(tǒng)各功能模塊的詳細設(shè)計 53.1歡送界面 63.2登陸界面 63.3主窗體 93.4文件菜單 113.5數(shù)據(jù)管理 143.6數(shù)據(jù)查詢 20總結(jié) 24參考文獻 25職工工資管理系統(tǒng)第1章系統(tǒng)功能概述1.1系統(tǒng)功能〔1〕實現(xiàn)登錄系統(tǒng)，進入系統(tǒng)前方可進行各種操作〔2〕能夠進行職工根本信息的瀏覽、編輯〔3〕能夠進行職工工資信息的瀏覽、編輯 〔4〕能夠按姓名、或部門、或職稱查詢職工的根本信息；查詢職工工資信息1.2系統(tǒng)結(jié)構(gòu)總圖職工工資管理系統(tǒng)職工工資管理系統(tǒng)用戶登錄用戶登錄注冊新用戶信息查詢按條件查詢員工管理顯示員工信息刪除員工添加員工圖1.1結(jié)構(gòu)總圖第2章數(shù)據(jù)庫設(shè)計2.1需求分析本系統(tǒng)是用于統(tǒng)計，添加，查找，刪除公司員工。本系統(tǒng)主要有兩局部組成，一局部是數(shù)據(jù)庫設(shè)計局部，另一局部為窗體設(shè)計局部。數(shù)據(jù)庫中包含四個表，職工信息〔職工編號、姓名、性別、部門、出生日期、參加工作時間〕，職工工資〔工資號，根本工資、獎金、繳稅、水電費、保險費、應(yīng)發(fā)工資、實發(fā)工資〕,崗位信息〔編號，職稱類別，薪酬標準〕，系統(tǒng)信息〔用戶名、密碼〕。(1).啟動界面窗體及登錄對話框的設(shè)計要求：圖片背景、歡送類文字、單擊顯示“進入系統(tǒng)”的標簽或按鈕，將翻開“登錄”對話框，用戶輸入用戶名和密碼，假設(shè)正確那么翻開下面的主窗體；否那么提示密碼錯誤，請重新輸入。最多允許輸入3次；單擊“注冊新用戶”標簽或按鈕，翻開對話框如圖2。(2).主窗體設(shè)計為MDI窗體，含有主菜單：[文件]、[數(shù)據(jù)管理]、[數(shù)據(jù)查詢]。[文件]菜單包含以下子菜單及其功能：[注冊新用戶]菜單：翻開“注冊新用戶”窗體[退出]：結(jié)束程序運行[數(shù)據(jù)管理]包含以下子菜單：[職工根本信息]菜單：顯示職工信息窗體[職工工資信息]菜單：顯示工資信息窗體[崗位信息]菜單：顯示崗位信息窗體[數(shù)據(jù)查詢]包含以下子菜單：[查詢職工信息]：顯示職工信息查詢窗體[查詢工資信息]：顯示工資信息查詢窗體[查詢崗位信息]：顯示崗位信息查詢窗體(3).注冊新用戶窗體用于添加新的用戶名和密碼。要求：假設(shè)新用戶名與系統(tǒng)信息表原有用戶名相同，那么提示“用戶名已存在，重新輸入”；判斷二次輸入密碼假設(shè)不一致，那么提示用戶“輸入密碼不一致，重新輸入密碼”；判斷假設(shè)輸入密碼為空，那么提示“密碼不能為空”；假設(shè)輸入正確，那么將輸入的用戶名保存到“系統(tǒng)信息”表，并提示“注冊用戶成功”，關(guān)閉本窗體。以下各窗體設(shè)為MDI主窗體的子窗體(4).分別設(shè)計各個信息窗體功能：瀏覽和編輯各信息。該窗體以文本框顯示當前記錄，用按鈕[首記錄]、[末記錄]、[前一個]、[后一個]，控制記錄指針的移動；用一個標簽Label顯示：當前記錄號/記錄總數(shù)；單擊[表格顯示]按鈕，顯示DataGrid控件(Visible=True),以表格形式顯示商品信息表，單擊[返回]按鈕，可以關(guān)閉本窗體，返回主窗體?？梢詫τ涗涍M行新增、確認、刪除、取消操作。(5)．各種信息的查詢窗體可以按各種條件查找，這些條件放在組合列表框Combo中,供用戶選擇。在文本框中輸入要查詢的內(nèi)容，單擊[查詢]按鈕，查詢結(jié)果用網(wǎng)格控件顯示.。2.2職工工資管理系統(tǒng)的E-R模型職工編號職工編號姓名性別部門出生日期參加工作時間職工信息工資信息職工工資工資號根本工資獎金繳稅水電費保險費應(yīng)發(fā)工資實發(fā)工資職工崗位崗位信息編號職稱類別薪酬標準圖2.1E-R模型2.3關(guān)系模型職工信息〔職工編號、姓名、性別、部門、出生日期、參加工作時間〕職工編號是主碼職工工資〔工資號，根本工資、獎金、繳稅、水電費、保險費、應(yīng)發(fā)工資、實發(fā)工資〕工資號是主碼崗位信息〔編號，職稱類別，薪酬標準〕編號是主碼系統(tǒng)信息〔用戶名、密碼〕2.4表結(jié)構(gòu)設(shè)計(1)表的建立CREATETABLE職工信息〔職工編號VARCHAR(10)PRIMARYKEY,姓名VARCHAR(10)UNIQUE,性別VARCHAR(2),部門VARCHAR(10),出生日期DATETIME,參加工作時間DATETIME);CREATETABLE職工工資(工資號VARCHAR(10),根本工資VARCHAR(10),獎金VARCHAR(10),繳稅VARCHAR(10),水電費VARCHAR(10),保險費VARCHAR(10),應(yīng)發(fā)工資VARCHAR(10),實發(fā)工資VARCHAR(10));CREATETABLE崗位信息(編號VARCHAR(10),職稱類別VARCHAR(10),薪酬標準VARCHAR(10));CREATETABLE系統(tǒng)信息(用戶名VARCHAR(10),密碼VARCHAR(10))〔2〕根本數(shù)據(jù)如下：表2.1職工信息表表2.2職工工資表表2.3崗位信息表表2.4系統(tǒng)信息表按如下步驟，根據(jù)向?qū)渲孟到y(tǒng)數(shù)據(jù)源。開始→設(shè)置→控制面板→管理工具→數(shù)據(jù)源〔ODBC〕→系統(tǒng)DSN→添加→驅(qū)動程序選為SQLServer→成功→給出該數(shù)據(jù)源的名稱、描述、效勞器→更改默認數(shù)據(jù)庫為〔自己所建的數(shù)據(jù)庫〕→測試→成功→確定→確定。第3章系統(tǒng)各功能模塊的詳細設(shè)計3.1歡送界面歡送界面，本界面應(yīng)用VB中的Label控件輸入以下字符，背景設(shè)為透明。點擊“點擊此處進入”便可進去本系統(tǒng)。圖3.1歡送界面代碼實現(xiàn)如下：PrivateSubCommand1_Click()Form2.ShowUnloadMeEndSub3.2登陸界面用戶輸入用戶名和密碼，假設(shè)正確那么翻開下面的主窗體；否那么提示密碼錯誤，請重新輸入。最多允許輸入3次；單擊“注冊新用戶”標簽或按鈕那么翻開注冊新用戶界面登陸界面：“用戶名”、“密碼”均由Label控件輸入，背景設(shè)為image圖片，之后介紹的界面中的字符均由此方法輸入，故將不做說明。給出可以輸入字符的空白由TextBox控件做成，可進行字體大小與顏色的修改。按鈕由CommandButton設(shè)置，添加Adodc〔Visible=False〕，用來與數(shù)據(jù)庫相連。圖3.2登錄界面代碼實現(xiàn)如下：DimmiCountAsInteger'用于記錄輸入密碼次數(shù)PrivateSubCmdLand_Click()DimsqlstrAsStringsqlstr="Select*From系統(tǒng)信息Where用戶名='"&Text1&"'"Adodc1.RecordSource=sqlstrAdodc1.RefreshIfAdodc1.Recordset.BOFThen'假設(shè)沒找到符合條件的記錄MsgBox"用戶名錯誤，重新輸入",vbExclamation,"警告"Text1.Text=""Text1.SetFocus'Text1獲得焦點Else'判斷密碼是否正確IfAdodc1.Recordset.Fields("密碼")=Text2ThenMDIForm1.ShowUnloadMeElseMsgBox"密碼錯誤，重新輸入",vbExclamation,"警告"Text2.Text=""Text2.SetFocusEndIfEndIfmiCount=miCount+1IfmiCount=3ThenUnloadMeEndSubPrivateSubCmdCancel_Click()UnloadMeEndSubPrivateSubCommand1_Click()Form4.ShowUnloadMeEndSub用戶名輸入錯誤提示如下：圖3.3錯誤提示密碼輸入錯誤提示如下：圖3.4錯誤提示用戶名和密碼輸入正確后，顯示主界面如下：圖3.5主界面單擊“注冊新用戶”標簽或按鈕那么翻開注冊新用戶界面如下：圖3.6注冊界面3.3主窗體主窗體設(shè)計為MDI窗體，含有主菜單：[文件]、[數(shù)據(jù)管理]、[數(shù)據(jù)查詢]。[文件]菜單包含以下子菜單及其功能：[注冊新用戶]菜單：翻開“注冊新用戶”窗體[退出]：結(jié)束程序運行[數(shù)據(jù)管理]包含以下子菜單：[職工根本信息]菜單：顯示職工信息窗體[職工工資信息]菜單：顯示工資信息窗體[崗位信息]菜單：顯示崗位信息窗體[數(shù)據(jù)查詢]包含以下子菜單：[查詢職工信息]：顯示職工信息查詢窗體[查詢工資信息]：顯示工資信息查詢窗體[查詢崗位信息]：顯示崗位信息查詢窗體圖3.7主界面代碼實現(xiàn)如下：PrivateSubcxgwxx_Click()Form9.ShowEndSubPrivateSubcxgzxx_Click()Form3.ShowEndSubPrivateSubcxzgxx_Click()Form8.ShowEndSubPrivateSubgwxx_Click()Form7.ShowEndSubPrivateSubtc_Click()UnloadMeEndSubPrivateSubzcxyh_Click()Form4.ShowEndSubPrivateSubzgjbxx_Click()Form5.ShowEndSubPrivateSubzzgzxx_Click()Form6.ShowEndSub3.4文件菜單文件菜單包含注冊新用戶和退出兩個子菜單注冊新用戶：假設(shè)新用戶名與系統(tǒng)信息表原有用戶名相同，那么提示“用戶名已存在，重新輸入”；判斷二次輸入密碼假設(shè)不一致，那么提示用戶“輸入密碼不一致，重新輸入密碼”；判斷假設(shè)輸入密碼為空，那么提示“密碼不能為空”；假設(shè)輸入正確，那么將輸入的用戶名保存到“系統(tǒng)信息”表，并提示“注冊用戶成功”，關(guān)閉本窗體。退出：退出本系統(tǒng)圖3.8注冊界面代碼實現(xiàn)如下：PrivateSubCmdCancel__Click()UnloadMeEndSubPrivateSubCmdOk_Click()DimsqlstrAsStringIfText1=""ThenMsgBox"請輸入用戶名！",vbExclamation,"確認用戶名"Text1.SetFocusExitSubElsesqlstr="Select*from系統(tǒng)信息where用戶名='"&Text1&"'"Adodc1.RecordSource=sqlstrAdodc1.Refresh'判斷輸入的用戶名是否已存在：IfAdodc1.Recordset.EOF=FalseThenMsgBox"用戶名已存在，請重新輸入！",vbExclamation,"檢驗用戶名"Text1=""Text1.SetFocusExitSubEndIfEndIf'判斷二次輸入密碼是否一致：IfText2<>Text3ThenMsgBox"二次輸入的密碼不一致，請重新輸入",vbExclamation,"檢驗密碼"Text2="":Text3=""Text2.SetFocusExitSubElseIfText2=""ThenMsgBox"密碼不能為空！",vbExclamation,"檢驗密碼"Text2.SetFocusElseAdodc1.Recordset.Fields("用戶名")=Trim(Text1)Adodc1.Recordset.Fields("密碼")=Trim(Text2)Me.HideMsgBox"成功注冊新用戶！",vbInformation,"添加用戶"EndIfEndSub用戶名存在提示如下：圖3.9錯誤提示二次輸入密碼假設(shè)不一致提示如下:圖3.10錯誤提示輸入密碼為空提示如下：圖3.11錯誤提示注冊新用戶成功提示如下：圖3.12成功提示注冊新用戶后然后進入主窗體3.5數(shù)據(jù)管理數(shù)據(jù)管理菜單包含職工根本信息，職工工資信息，崗位信息3個子菜單，在每個信息窗口都可以進行查詢、添加、刪除、前移、后移等操作，要實現(xiàn)此功能那么必須用Adodc〔Visible=False〕控件與數(shù)據(jù)庫相連，在運行中隱藏此控件。(1)職工根本信息界面：圖3.13職工信息界面刪除截圖如下：圖3.14刪除界面代碼實現(xiàn)如下：PrivateSubCmdAdd_Click()CmdAdd.Enabled=FalseCmdDel.Enabled=FalseCmdOk.Enabled=TrueCmdEsc.Enabled=TrueEndSubPrivateSubCmdDel_Click()x=MsgBox("確實要刪除當前記錄嗎？",vbYesNo+vbQuestion,"確認")Ifx=vbYesThenIfAdodc1.Recordset.EOFThenEndIfElseAdodc1.RefreshEndIfEndSubPrivateSubCmdEsc_Click()Adodc1.RefreshCmdAdd.Enabled=TrueCmdDel.Enabled=TrueCmdOk.Enabled=FalseCmdEsc.Enabled=FalseEndSubPrivateSubCmdFirst_Click()Adodc1.Recordset.MoveFirst'記錄指針移到首記錄〔顯示首記錄〕CmdFirst.Enabled=False'讓[首記錄]按鈕無效CmdPre.Enabled=False'讓[前移]按鈕無效CmdNext.Enabled=True'讓[后移]按鈕有效CmdLast.Enabled=True'讓[末記錄]按鈕有效'在Label6上顯示當前記錄號/記錄總數(shù)：EndSubPrivateSubCmdLast_Click()Adodc1.Recordset.MoveLast'移到末記錄CmdFirst.Enabled=TrueCmdPre.Enabled=TrueCmdNext.Enabled=FalseCmdLast.Enabled=FalseEndSubPrivateSubCmdN_Click()DimnAsIntegern=Text7.TextAdodc1.Recordset.MovenIfAdodc1.Recordset.BOFThen'如果記錄指針移到首記錄之前,Adodc1.Recordset.MoveFirst'那么記錄指針移到首記錄上CmdFirst.Enabled=FalseCmdPre.Enabled=FalseEndIfIfAdodc1.Recordset.EOFThen'如果記錄指針移到了末記錄之后Adodc1.Recordset.MoveLast'那么記錄指針移到末記錄上CmdNext.Enabled=FalseCmdLast.Enabled=FalseEndIfLabel7.Caption="記錄EndSubPrivateSubCmdNext_Click()Adodc1.Recordset.MoveNext'記錄指針移到下一條記錄CmdFirst.Enabled=TrueCmdPre.Enabled=TrueIfAdodc1.Recordset.EOFThen'如果記錄指針移到了末記錄之后Adodc1.Recordset.MoveLast'那么記錄指針移到末記錄上CmdNext.Enabled=FalseCmdLast.Enabled=FalseEndIfEndSubPrivateSubCmdOk_Click()CmdAdd.Enabled=TrueCmdDel.Enabled=TrueCmdOk.Enabled=FalseCmdEsc.Enabled=FalseEndSubPrivateSubCmdPre_Click()Adodc1.Recordset.MovePrevious'記錄指針移到前一條記錄CmdNext.Enabled=TrueCmdLast.Enabled=TrueIfAdodc1.Recordset.BOFThen'如果記錄指針移到首記錄之前,Adodc1.Recordset.MoveFirst'那么記錄指針移到首記錄上CmdFirst.Enabled=FalseCmdPre.Enabled=FalseEndIfEndSubPrivateSubForm_Load()CmdFirst.Enabled=False'[首記錄]按鈕無效CmdPre.Enabled=False'[前移]按鈕無效CmdNext.Enabled=True'[后移]按鈕有效CmdLast.Enabled=True'[末記錄]按鈕有效CmdAdd.Enabled=True'[添加]按鈕有效CmdDel.Enabled=True'[刪除]按鈕有效CmdOk.Enabled=False'[確定]按鈕無效CmdEsc.Enabled=False'[取消]按鈕無效EndSub(2)職工工資信息界面圖3.15職工工資信息界面刪除截圖如下：圖3.16刪除界面職工工資信息的代碼實現(xiàn)與職工信息的代碼實現(xiàn)類似，故不再給出。(3)崗位信息界面:圖3.17崗位信息界面刪除截圖如下：圖3.18刪除界面崗位信息的代碼實現(xiàn)與職工信息的代碼實現(xiàn)也相似，故也不再給出。3.6數(shù)據(jù)查詢查詢菜單包含查詢職工信息、查詢工資信息、查詢崗位信息3個子菜單，職工信息查詢，在職以上查詢中可以對數(shù)據(jù)庫中的數(shù)據(jù)進行查詢，要實現(xiàn)此功能那么必須用Adodc〔Visible=False〕控件DateCombo〔Visible=True〕與數(shù)據(jù)庫相連，在運行中隱藏Adodc控件(1)查詢職工窗體圖3.19查詢職工界面查詢操作窗口如下：代碼實現(xiàn)如下：PrivateSubCmd1_Click()DimstrAsStringAdodc1.CommandType=adCmdTextAdodc1.RecordSource="select*from職工信息where職工信息."&Combo1.Text&"like'%"&Text1.Text&"%'"Adodc1.RefreshEndSubPrivate