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