【正文】 成計算機可以識別的機器指令，并判斷每個語句的語法錯誤。例如，命令按鈕是一個對象，當(dāng)用戶單擊該按鈕時，將產(chǎn)生一個“單擊“(CLICK)事件，而在產(chǎn)生該事件時將執(zhí)行一段程序，用來實現(xiàn)指定的操作。同時，Visual Basic還能直接編輯和訪問其他外部數(shù)據(jù)庫，如dBASE，F(xiàn)oxPro，Paradox等，這些數(shù)據(jù)庫格式都可以用Visual Basic編輯和處理。當(dāng)原始數(shù)據(jù)變化時，可以自動更新鏈接的數(shù)據(jù)。利用OLE技術(shù)，可以方便地建立復(fù)合式文檔(pound document)，這種文檔由來自多個不同應(yīng)用程序的對象組成，文檔中的每個對象都與原來的應(yīng)用程序相聯(lián)系，并可執(zhí)行與原來應(yīng)用程序完全相同的操作。微軟公司的Visual Basic ，使目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_發(fā)工具。其基本含義如下：(1) 視窗（Form）視窗是進行人機交互的界面或接口，也叫窗體。當(dāng)把這些工具放置到用戶界面對應(yīng)的窗體上時，被稱為對象或控件。用戶通過適當(dāng)?shù)卦O(shè)置或改變對象的屬性來確定對象的外觀及性能特征，從而有效地使用系統(tǒng)提供的對象。程序所用的鍵盤事件有KeyPress（按鍵）事件，KeyDown事件和KeyUp事件；鼠標(biāo)事件有Click（單擊鼠標(biāo)）事件，DbDlicd（雙擊鼠標(biāo)）。(6) 過程 (Procedure)過程是指經(jīng)過定義或說明的，或基于某一對象對應(yīng)的事件所引發(fā)的程序段。20世紀70年代以后開發(fā)的數(shù)據(jù)庫管理系統(tǒng)產(chǎn)品幾乎都是基于關(guān)系的。目前已成為關(guān)系數(shù)據(jù)庫的標(biāo)準語言數(shù)據(jù)表示圖提供了一種類似于 Excel 的電子表格，可以使數(shù)據(jù)庫一目了然。如上所述，Access 作為關(guān)系數(shù)據(jù)庫開發(fā)具備了許多優(yōu)點，可以在一個數(shù)據(jù)包中同時擁有桌面數(shù)據(jù)庫的便利和關(guān)系數(shù)據(jù)庫的強大功能。注意：請將庫文件存入程序所在目錄。第4章 系統(tǒng)設(shè)計 系統(tǒng)設(shè)計分析人事部門人員變動單報表人員獎勵單人員懲罰單工資發(fā)放情況單工資發(fā)放人員決策部門財務(wù)部門人事部門人員變動統(tǒng)計員工財務(wù)部門人員獎勵統(tǒng)計人員懲罰統(tǒng)計工資發(fā)放工資臺帳 數(shù)據(jù)流程圖公司員工工資管理系統(tǒng)員工基本信息員工獎勵管理信息查詢員工懲罰管理報表打印工資發(fā)放管理員工基本信息報表員工獎勵信息報表 員工懲罰信息報表工資發(fā)放信息報表添加用戶用戶管理幫助操作說明關(guān)于系統(tǒng)刪除用戶用戶登錄 功能結(jié)構(gòu)圖 系統(tǒng)數(shù)據(jù)庫設(shè)計啟動Access 2000，創(chuàng)建新的數(shù)據(jù)庫，保存在要存放這個系統(tǒng)所有工程文件的文件夾中。良好的數(shù)據(jù)庫設(shè)計，可以提高數(shù)據(jù)信息的存儲效率，確保數(shù)據(jù)信息的完整性和一致性。（1）數(shù)據(jù)庫的安全性 數(shù)據(jù)庫的安全性是指保護數(shù)據(jù)庫以防止不合法的使用所造成的數(shù)據(jù)泄露、更改或破壞。 （2）數(shù)據(jù)完整性為了保證數(shù)據(jù)庫數(shù)據(jù)的正確性和相容性，數(shù)據(jù)庫管理系統(tǒng)（DBMS）都提供了一種機制來檢查數(shù)據(jù)庫中的數(shù)據(jù)，看它是否滿足語義的規(guī)定條件，DBMS稱這種機制為“數(shù)據(jù)完整性檢查”。（4）數(shù)據(jù)庫后備與恢復(fù)主要使用轉(zhuǎn)儲、日志等方法進行數(shù)據(jù)庫的恢復(fù)。因此，簡潔、實用、友好是設(shè)計時應(yīng)當(dāng)考慮到的風(fēng)格。 設(shè)置最多登錄次數(shù)為3 Exit SubEnd If Set myCn = New Set myRs = New Provider=。If Trim( = ) Then MsgBox 用戶名不能為空,請輸入您的用戶名!, vbOKOnly + vbExclamation, 警告 = Sum = Sum + 1 Exit SubEnd Ifstr1 = select * from 用戶資料 where 用戶名=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(確定要退出系統(tǒng)嗎？, vbYesNo, 請問)If a1 = 6 Then Unload MeElse = = End IfEnd SubPrivate Sub Form_Load() = 0 = ( ) / 2Set myCn = New Set myRs = New Sum = 0 = = = Provider=。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 請?zhí)顚懲暾匈Y料！, vbOKOnly, 警告 Exit SubEnd If Provider=。 strName amp。Ysnow(j, 2) = 10 + (Rnd * 20) 39。雪花i的Y座標(biāo)變一次If snow(i, 1) Then 39。雪花i重算1個新的水平位置oldx = 0: oldy = 0 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() 本次查看的起始位置：Do Until Trim(rs(用戶名)) () = rs(ID) LoopEnd SubPrivate Sub Form_Load() = 0 = ( ) / 2Set = New Set rs = New = Provider=。Persist Security Info=False select * from 用戶資料 order by 用戶名 , , adOpenKeyset, adLockPessimisticDo Until Trim(rs(用戶名)) () = rs(ID) LoopEnd SubPrivate Sub List1_Click()Dim tempId As LongtempId = () id= amp。 %39。 \。 order by , , adOpenKeyset, adLockPessimisticSet = rsEnd SubPrivate Sub CmdWeman_Click() select ID as 編號,姓名 as 姓名,性別 as 性別,職務(wù) as 職務(wù),工資 as 工資,總工資是否發(fā)放 as 總工資是否發(fā)放 from xx where 總工資是否發(fā)放 =39。 order by ID, , adOpenKeyset, adLockPessimisticSet = rsEnd SubPrivate Sub CmdUnite_Click() select as 編號, as 姓名, as 性別, as 職務(wù), as 工資, as 獎勵金額, as 懲罰金額, as 實際工資, as 總工資是否發(fā)放 from xx,獎勵表,懲罰表 where = and = order by , , adOpenKeyset, adLockPessimisticSet = rsEnd SubPrivate Sub CmdYes_Click() select ID as 編號,姓名 as 姓名,性別 as 性別,職務(wù) as 職務(wù),工資 as 工資 from xx where 性別 =39。 amp。 select ID as 編號,姓名 as 姓名,性別 as 性別,職務(wù) as 職務(wù),工資 as 工資,獎勵金額 as 獎勵金額,懲罰金額 as 懲罰金額 from xx where amp。 \?！敖Y(jié)論”以前的所有正文內(nèi)容都要編寫在此行之前。通過此系統(tǒng)的開發(fā)達到了綜合運用所學(xué)知識，學(xué)以致用的目的，通過系統(tǒng)的開發(fā)使我對系統(tǒng)開發(fā)有了一個系統(tǒng)的認識，不僅熟悉了開發(fā)系統(tǒng)中所可能遇到的問題，而且使在思想上形成了系統(tǒng)的概念，使自己的動手能力和綜合能力有了新的提高。2．通過實踐，提高了系統(tǒng)分析的能力，對數(shù)據(jù)流圖、數(shù)據(jù)字典、系統(tǒng)流程圖等系統(tǒng)設(shè)計工具的使用有了更深刻的認識。通過這次煅煉，使我們的系統(tǒng)開發(fā)水平各方面都有了較大的進步。J寫不寫都行。L千萬不要刪除行尾的分節(jié)符，此行不會被打印。還可以插入“交叉引用”，實現(xiàn)對一篇文獻的多次引