【正文】 輸入！, vbOKOnly + vbExclamation, 警告 = Exit Sub End If例二：If CInt(Trim()) CInt(Trim()) + CInt(Trim()) Then MsgBox 出勤次數(shù)過(guò)少！, vbOKOnly + vbExclamation, 警告 = Exit Sub End If例三：strSql = Select , from employee a,department b where = strSql, dbConn, adOpenForwardOnly, adLockReadOnly If Then MsgBox 沒有員工資料，請(qǐng)先輸入資料！, vbOKOnly + vbExclamation, 警告 = False Exit Sub End If3）使用觸發(fā)器，在底層保證數(shù)據(jù)安全性功能：使姓名中不能出現(xiàn)數(shù)字。同時(shí)，我們逐漸掌握了對(duì)VB與SQL軟件的應(yīng)用，讓我們進(jìn)一步的提升了自己的知識(shí)。表頭項(xiàng)居中 = flexFillRepeat = 0 = 0 = 1 = 1 = 4 39。 strCheck amp。 cboCheckYear amp。 amp。,39。 39。 39。按姓名查詢 If Len(Trim(Text1)) = 0 Then strName = Else strName = and =39。性別 男 女 = 0 39。 amp。 amp。 amp。uid=ZFS。由于本系統(tǒng)管理的對(duì)象簡(jiǎn)單，且每個(gè)數(shù)據(jù)內(nèi)容之間都具有關(guān)聯(lián)性，涉及過(guò)程并不是很復(fù)雜。對(duì)典型功能鼓勵(lì)使用存儲(chǔ)過(guò)程、函數(shù)和觸發(fā)器的設(shè)計(jì)與應(yīng)用。設(shè)計(jì)環(huán)境或器材、原理與說(shuō)明：VB SQL?。樱牛遥郑牛摇。玻埃埃霸O(shè)計(jì)過(guò)程（步驟）或程序代碼：1 需求分析在人才過(guò)剩的今天，企業(yè)對(duì)于有用人才的需求逐步加大，企業(yè)內(nèi)部的人事變動(dòng)和部門規(guī)劃也開始加速，傳統(tǒng)的人事檔案已經(jīng)不能滿足各個(gè)企業(yè)的人員流動(dòng)速度，迫使人們起用新的管理方法來(lái)管理員工的相關(guān)信息。%[09]%39。 單擊“完成”按鈕。 amp。 amp。 strEdu amp。表頭項(xiàng)居中 = flexFillRepeat = 0 = 0 = 1 = 1 = 4 = 1 39。 End If 39。 cboCheckYear amp。 04 amp。 39。,39。指定的年月 strCheck = and in(39。 1 amp。,16,1) ROLLBACK RETURN END設(shè)計(jì)體會(huì)與建議：在起初，我們根本不知道該如何著手，VB是我們接觸不多的軟件，我們對(duì)它的應(yīng)用，它的語(yǔ)言，它各種代碼的使用都不是很了解。 由于是第一次設(shè)計(jì)數(shù)據(jù)庫(kù)系統(tǒng)，我們期間也遇到了種種困難，比如姓名中不能出現(xiàn)數(shù)字、存儲(chǔ)過(guò)程及觸發(fā)器的使用等。 \)39。 cboCheckYear amp。 cboCheckYear amp。 amp。,39。 39。年月都為空時(shí) strCheck = Else 39。按工號(hào)查詢 If Len(Trim(MskId)) = 0 Then strId = Else strId = and = 39。 strSex amp。 End If 39。 End If If = 0 Then strTitle = Else strTitle = and =39。 5 應(yīng)用程序設(shè)計(jì)員工信息管理系統(tǒng)基于用戶驗(yàn)證登錄的方式實(shí)現(xiàn)員工個(gè)人信息管理和員工考勤信息管理。錯(cuò)誤！姓名中不可出現(xiàn)數(shù)字39。信息化時(shí)代的到來(lái)成為不可抗拒的潮流，人類文明正在進(jìn)入一個(gè)嶄新的時(shí)代。要有數(shù)據(jù)完整性設(shè)計(jì)，應(yīng)包括必要的數(shù)據(jù)完整性校驗(yàn)、一致性檢查等。本次課程設(shè)計(jì)題目：“員工信息管理系統(tǒng)”，主要目的是編制一個(gè)登陸系統(tǒng)，連接數(shù)據(jù)庫(kù)系統(tǒng)，用以實(shí)現(xiàn)員工個(gè)人信息與考勤信息的管理。設(shè)置服務(wù)器名稱，數(shù)據(jù)庫(kù)名稱，登錄名（此時(shí)假設(shè)密碼為空） = dsn=rsgl。新增功能模塊包含2個(gè)功能模塊：?jiǎn)T工個(gè)人信息的添加、員工考勤信息的添加編輯功能模塊包含2個(gè)功能模塊：?jiǎn)T工個(gè)人信息的刪除、按月份進(jìn)行員工考勤信息編輯與刪除查詢功能模塊包含2個(gè)功能模塊：?jiǎn)T工個(gè)人信息查詢、按月份進(jìn)行員工考勤信息查詢系統(tǒng)操作流程圖（）:： Y登錄密碼框判斷密碼員工信息管理系統(tǒng)其他管理結(jié)束開始N保存操作結(jié)果 設(shè)計(jì)結(jié)果與分析(可以加頁(yè))：?jiǎn)T工信息查詢 ()：?jiǎn)T工信息查詢界面主要代碼如下: Private Sub Command1_Click() Dim strId As String Dim strName As String Dim strDept As String Dim strTitle As String Dim strDuty As String Dim strEdu As String Dim strSex As String 39。 39。 amp。 1 amp。 39。 Year(Date) amp。 cboCheckYear amp。 05 amp。 39。,39。) End If End If 39。設(shè)置列寬 (0) = 1000 (1) = 0 (2) = 1200 (3) = 1200 (4) = 1200 (5) = 820 (6) = 820 (7) = 820 (8) = 820 (9) = 900 39。此管理系統(tǒng)只是進(jìn)行一些簡(jiǎn)單的員工管理，還有很多功能可以添加，比如工資發(fā)放，福利分配等，由于時(shí)間和能力上的原因不能進(jìn)行對(duì)該系統(tǒng)的完善，但是設(shè)計(jì)中也已一定程度上的考慮了以后的功能擴(kuò)充，在功能增加的基礎(chǔ)上使數(shù)據(jù)庫(kù)和前臺(tái)設(shè)計(jì)的調(diào)整最小化。%[09]%39。 strId amp。 12 amp。 cboCheckYear amp。 amp。,39。) End If Else If cboCheckMonth = Then 39。 amp。列標(biāo)題 (0, 0) = 工號(hào) (0, 1) = (0, 2) = 姓名 (0, 3) = 性別 (0, 4) = 學(xué)歷 (0, 5) = 部門 (0, 6) = 職務(wù) (0, 7) = 職稱 39。 amp。 39。 39。pwd= ConnectToDatabase =