【文章內(nèi)容簡(jiǎn)介】 /時(shí)間備注文本員工懲罰信息表（懲罰表）字段名數(shù)據(jù)類型字段大小可否為空默認(rèn)值說(shuō)明ID數(shù)字長(zhǎng)整形是0索引（無(wú)重復(fù)）姓名文本16性別文本職務(wù)文本懲罰原因文本懲罰金額數(shù)字懲罰日期日期/時(shí)間備注文本數(shù)據(jù)庫(kù)的安全性、完整性、并發(fā)控制和恢復(fù)信息數(shù)據(jù)是公司的資源，因此保證數(shù)據(jù)庫(kù)的安全可靠、正確有效是非常重要的問(wèn)題。一般的數(shù)據(jù)庫(kù)管理系統(tǒng)（DBMS）都有提供了一定的數(shù)據(jù)保護(hù)功能。數(shù)據(jù)庫(kù)保護(hù)也稱為數(shù)據(jù)控制，主要包括數(shù)據(jù)的安全性、完整性、并發(fā)控制和數(shù)據(jù)庫(kù)的恢復(fù)等。（1）數(shù)據(jù)庫(kù)的安全性 數(shù)據(jù)庫(kù)的安全性是指保護(hù)數(shù)據(jù)庫(kù)以防止不合法的使用所造成的數(shù)據(jù)泄露、更改或破壞。由于數(shù)據(jù)庫(kù)系統(tǒng)中存放著大量的數(shù)據(jù)，且為許多用戶所共享，因此安全性問(wèn)題是必須首先要解決的。一般計(jì)算機(jī)系統(tǒng)中的安全措施是按照“用戶標(biāo)識(shí)和鑒別”、“DBMS存取控制”、“OS級(jí)安全控制”、“DB密碼存儲(chǔ)”來(lái)一級(jí)一級(jí)設(shè)置的。在現(xiàn)在流行的數(shù)據(jù)庫(kù)系統(tǒng)中一般都提供以下兩種控制：用戶標(biāo)識(shí)和鑒別、數(shù)據(jù)存取控制。 （2）數(shù)據(jù)完整性為了保證數(shù)據(jù)庫(kù)數(shù)據(jù)的正確性和相容性，數(shù)據(jù)庫(kù)管理系統(tǒng)（DBMS）都提供了一種機(jī)制來(lái)檢查數(shù)據(jù)庫(kù)中的數(shù)據(jù)，看它是否滿足語(yǔ)義的規(guī)定條件，DBMS稱這種機(jī)制為“數(shù)據(jù)完整性檢查”。一般的DBMS中是通過(guò)完整性約束和數(shù)據(jù)庫(kù)觸發(fā)器來(lái)實(shí)現(xiàn)這一機(jī)制的。（3）并發(fā)控制在多用戶數(shù)據(jù)庫(kù)環(huán)境中，多個(gè)用戶程序可并行存取數(shù)據(jù)庫(kù)中的數(shù)據(jù)，為了以正確的方式調(diào)度該并發(fā)操作，避免造成“丟失修改”、“不能重讀”、“讀臟數(shù)據(jù)”等不一致的情況，DBMS引入了“并發(fā)控制”這一機(jī)制。并發(fā)控制的主要方法是采用封鎖機(jī)制，一般采用兩種封鎖機(jī)制：共享機(jī)制和排它機(jī)制來(lái)實(shí)現(xiàn)。（4）數(shù)據(jù)庫(kù)后備與恢復(fù)主要使用轉(zhuǎn)儲(chǔ)、日志等方法進(jìn)行數(shù)據(jù)庫(kù)的恢復(fù)。用戶界面設(shè)計(jì)用戶界面是指軟件系統(tǒng)與用戶之間交互的接口，通常包括輸出，輸入，人機(jī)對(duì)話的界面與方式等。由于本系統(tǒng)的最終用戶是那些對(duì)計(jì)算機(jī)技術(shù)并不算很精通的管理人員，因此本系統(tǒng)采用了基于菜單選擇，填寫表格和簡(jiǎn)單的問(wèn)答選擇等友好的用戶界面交互方式。系統(tǒng)安全性驗(yàn)證用戶界面設(shè)計(jì)用戶登錄窗口界面是用戶看到的第一幅畫面，也是進(jìn)入系統(tǒng)之前必須經(jīng)過(guò)的一道“關(guān)口”。因此，簡(jiǎn)潔、實(shí)用、友好是設(shè)計(jì)時(shí)應(yīng)當(dāng)考慮到的風(fēng)格。系統(tǒng)主畫面屏幕區(qū)域設(shè)計(jì)進(jìn)行系統(tǒng)的主畫面屏幕區(qū)域設(shè)計(jì)時(shí)，是將整個(gè)屏幕劃分為三個(gè)區(qū)域，如下圖所示：主 菜 單 區(qū)工 作 區(qū)狀 態(tài) 信 息 區(qū)在屏幕的最上方是主菜單區(qū)，顯示本系統(tǒng)的功能主菜單。用戶可以有鼠標(biāo)左鍵來(lái)選擇相應(yīng)的菜單，也可以用快捷鍵進(jìn)行操作，然后用同樣的方法在相應(yīng)菜單下拉出該項(xiàng)的二級(jí)菜單（如果有的話），如果還有三級(jí)菜單，用戶可在二級(jí)菜單選擇相應(yīng)的功能項(xiàng)，系統(tǒng)會(huì)自動(dòng)彈出三級(jí)菜單。 系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)代碼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。 設(shè)置最多登錄次數(shù)為3 Exit SubEnd If Set myCn = New Set myRs = New Provider=。Data Source= amp。 amp。 \。If Trim( = ) Then MsgBox 用戶名不能為空,請(qǐng)輸入您的用戶名!, vbOKOnly + vbExclamation, 警告 = Sum = Sum + 1 Exit SubEnd Ifstr1 = select * from 用戶資料 where 用戶名=39。 amp。 amp。 39。 str1, myCnIf = True Then MsgBox 該用戶名不存在,請(qǐng)重新輸入!, vbOKOnly + vbExclamation, 警告 = = Sum = Sum + 1 Exit SubEnd IfIf (密碼) Trim() Then MsgBox 密碼不正確,請(qǐng)重新輸入!, vbOKOnly + vbExclamation, 警告 Sum = Sum + 1 Exit SubEnd If Unload MeEnd SubPrivate Sub Command2_Click()Dim a1 As Integera1 = MsgBox(確定要退出系統(tǒng)嗎？, vbYesNo, 請(qǐng)問(wèn))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 請(qǐng)?zhí)顚懲暾匈Y料！, vbOKOnly, 警告 Exit SubEnd If Provider=。Data Source=。 select * from 用戶資料 where 用戶名=39。 amp。 strName amp。 39。, myCnIf Not Then MsgBox 該用戶名已經(jīng)存在，請(qǐng)使用其他用戶名！, vbOKOnly, 警告 Exit SubEnd IfIf strPass strPassAgain Then MsgBox 兩次輸入的密碼不同！, vbOKOnly, 警告 Exit SubEnd If = adOpenKeyset = adLockOptimistic 用戶資料, myCn, 3, 2myRs!用戶名 = myRs!密碼 = MsgBox 注冊(cè)成功！, 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波動(dòng)(用于控制速度)Next jDo While DoEvents 0For i = 1 To amounty 39。循環(huán)325次,每朵雪1次,屏幕每行325朵雪花oldx = snow(i, 0): oldy = snow(i, 1) 39。備份雪花i的坐標(biāo)snow(i, 1) = snow(i, 1) + snow(i, 2) 39。雪花i的Y座標(biāo)變一次If snow(i, 1) Then 39。如果雪花i落到最底部snow(i, 1) = 0 39。雪花i的Y座標(biāo)置0(又從最上出現(xiàn))snow(i, 2) = 5 + (Rnd * 30) 39。雪花i重算1個(gè)新的Y位移(速度)snow(i, 0) = Int(Rnd * ) 39。雪花i重算1個(gè)新的水平位置oldx = 0: oldy = 0 39。備份坐標(biāo)置0End IfColoury = 8 * (snow(i, 2) 10) + 60 39。計(jì)算顏色，值為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() 本次查看的起始