公司員工工資管理系統畢業論文(編輯修改稿)

　

【文章內容簡介】 /時間備注文本員工懲罰信息表（懲罰表）字段名數據類型字段大小可否為空默認值說明ID數字長整形是0索引（無重復）姓名文本16性別文本職務文本懲罰原因文本懲罰金額數字懲罰日期日期/時間備注文本數據庫的安全性、完整性、并發控制和恢復信息數據是公司的資源，因此保證數據庫的安全可靠、正確有效是非常重要的問題。一般的數據庫管理系統（DBMS）都有提供了一定的數據保護功能。數據庫保護也稱為數據控制，主要包括數據的安全性、完整性、并發控制和數據庫的恢復等。（1）數據庫的安全性 數據庫的安全性是指保護數據庫以防止不合法的使用所造成的數據泄露、更改或破壞。由于數據庫系統中存放著大量的數據，且為許多用戶所共享，因此安全性問題是必須首先要解決的。一般計算機系統中的安全措施是按照“用戶標識和鑒別”、“DBMS存取控制”、“OS級安全控制”、“DB密碼存儲”來一級一級設置的。在現在流行的數據庫系統中一般都提供以下兩種控制：用戶標識和鑒別、數據存取控制。 （2）數據完整性為了保證數據庫數據的正確性和相容性，數據庫管理系統（DBMS）都提供了一種機制來檢查數據庫中的數據，看它是否滿足語義的規定條件，DBMS稱這種機制為“數據完整性檢查”。一般的DBMS中是通過完整性約束和數據庫觸發器來實現這一機制的。（3）并發控制在多用戶數據庫環境中，多個用戶程序可并行存取數據庫中的數據，為了以正確的方式調度該并發操作，避免造成“丟失修改”、“不能重讀”、“讀臟數據”等不一致的情況，DBMS引入了“并發控制”這一機制。并發控制的主要方法是采用封鎖機制，一般采用兩種封鎖機制：共享機制和排它機制來實現。（4）數據庫后備與恢復主要使用轉儲、日志等方法進行數據庫的恢復。用戶界面設計用戶界面是指軟件系統與用戶之間交互的接口，通常包括輸出，輸入，人機對話的界面與方式等。由于本系統的最終用戶是那些對計算機技術并不算很精通的管理人員，因此本系統采用了基于菜單選擇，填寫表格和簡單的問答選擇等友好的用戶界面交互方式。系統安全性驗證用戶界面設計用戶登錄窗口界面是用戶看到的第一幅畫面，也是進入系統之前必須經過的一道“關口”。因此，簡潔、實用、友好是設計時應當考慮到的風格。系統主畫面屏幕區域設計進行系統的主畫面屏幕區域設計時，是將整個屏幕劃分為三個區域，如下圖所示：主 菜 單 區工 作 區狀 態 信 息 區在屏幕的最上方是主菜單區，顯示本系統的功能主菜單。用戶可以有鼠標左鍵來選擇相應的菜單，也可以用快捷鍵進行操作，然后用同樣的方法在相應菜單下拉出該項的二級菜單（如果有的話），如果還有三級菜單，用戶可在二級菜單選擇相應的功能項，系統會自動彈出三級菜單。 系統的設計與實現代碼Option ExplicitDim myCn As Dim myRs As Dim Sum As IntegerPrivate Sub Combo1_Click() = 0 = Len()End SubPrivate Sub Command1_Click()Dim str1 As StringIf Sum = 3 Then Unload Me39。 設置最多登錄次數為3 Exit SubEnd If Set myCn = New Set myRs = New Provider=。Data Source= amp。 amp。 \。If Trim( = ) Then MsgBox 用戶名不能為空,請輸入您的用戶名!, vbOKOnly + vbExclamation, 警告 = Sum = Sum + 1 Exit SubEnd Ifstr1 = select * from 用戶資料 where 用戶名=39。 amp。 amp。 39。 str1, myCnIf = True Then MsgBox 該用戶名不存在,請重新輸入!, vbOKOnly + vbExclamation, 警告 = = Sum = Sum + 1 Exit SubEnd IfIf (密碼) Trim() Then MsgBox 密碼不正確,請重新輸入!, vbOKOnly + vbExclamation, 警告 Sum = Sum + 1 Exit SubEnd If Unload MeEnd SubPrivate Sub Command2_Click()Dim a1 As Integera1 = MsgBox(確定要退出系統嗎？, vbYesNo, 請問)If a1 = 6 Then Unload MeElse = = End IfEnd SubPrivate Sub Form_Load() = 0 = ( ) / 2Set myCn = New Set myRs = New Sum = 0 = = = Provider=。Data Source= amp。 amp。 \。Persist Security Info=False select * from 用戶資料 order by 用戶名 , myCn, adOpenKeyset, adLockPessimisticDo Until Trim(myRs(用戶名))() = myRs(ID)LoopEnd SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = 13 Then End IfEnd SubPrivate Sub Text2_Click() = 0 = Len()End Sub代碼:Dim myCn As New Dim myRs As New Private Sub Command1_Click()Dim strName, strPass, strPassAgain As String strName = Trim() strPass = Trim() strPassAgain = Trim()If strName = Or strPass = Or strPassAgain = Then MsgBox 請填寫完整所有資料！, vbOKOnly, 警告 Exit SubEnd If Provider=。Data Source=。 select * from 用戶資料 where 用戶名=39。 amp。 strName amp。 39。, myCnIf Not Then MsgBox 該用戶名已經存在，請使用其他用戶名！, vbOKOnly, 警告 Exit SubEnd IfIf strPass strPassAgain Then MsgBox 兩次輸入的密碼不同！, vbOKOnly, 警告 Exit SubEnd If = adOpenKeyset = adLockOptimistic 用戶資料, myCn, 3, 2myRs!用戶名 = myRs!密碼 = MsgBox 注冊成功！, vbOKOnly, 提示 = = = End SubPrivate Sub Command2_Click()End SubPrivate Sub Form_Load() = 0 = ( ) / 2Dim snow(1 To 325, 0 To 2) = 0DoEventsRandomize: amounty = 325For j = 1 To amountysnow(j, 0) = Int(Rnd * ) 39。Xsnow(j, 1) = Int(Rnd * ) 39。Ysnow(j, 2) = 10 + (Rnd * 20) 39。位移量10~30波動(用于控制速度)Next jDo While DoEvents 0For i = 1 To amounty 39。循環325次,每朵雪1次,屏幕每行325朵雪花oldx = snow(i, 0): oldy = snow(i, 1) 39。備份雪花i的坐標snow(i, 1) = snow(i, 1) + snow(i, 2) 39。雪花i的Y座標變一次If snow(i, 1) Then 39。如果雪花i落到最底部snow(i, 1) = 0 39。雪花i的Y座標置0(又從最上出現)snow(i, 2) = 5 + (Rnd * 30) 39。雪花i重算1個新的Y位移(速度)snow(i, 0) = Int(Rnd * ) 39。雪花i重算1個新的水平位置oldx = 0: oldy = 0 39。備份坐標置0End IfColoury = 8 * (snow(i, 2) 10) + 60 39。計算顏色，值為60~220或60~260PSet (oldx, oldy), QBColor(0) 39。在舊位置擦除雪花iPSet (snow(i, 0), snow(i, 1)), RGB(Coloury, Coloury, Coloury) 39。在新位置畫雪花，顏色為灰白Next iLoopEnd SubPrivate Sub Text2_Click() = 0 = Len()End SubPrivate Sub Text3_Click() = 0 = Len()End SubPrivate Sub Text1_Click() = 0 = Len()End Sub代碼Option ExplicitDim As Dim rs As Private Sub Command1_Click()End SubPrivate Sub Command2_Click()End SubPrivate Sub Command3_Click() 本次查看的起始