【正文】 4) = 考勤時間 (0, 5) = 應出勤 (0, 6) = 遲到 (0, 7) = 早退 (0, 8) = 請假 (0, 9) = 曠工 39。設置列寬 (0) = 1000 (1) = 0 (2) = 1200 (3) = 1200 (4) = 1200 (5) = 820 (6) = 820 (7) = 820 (8) = 820 (9) = 900 39。設置各列的對齊方式 For i = 0 To 9 (i) = 0 Next i 39。表頭項居中 = flexFillRepeat = 0 = 0 = 1 = 1 = 4 39。強制跨越整個行選擇 = flexSelectionByRow = 1 Year(Date) Year(Date) 1 = 1 For i = 1 To 12 If i 10 Then 0 amp。 i Else i End If If i = Month(Date) Then = End If Next i 39。部門 strSql = Select dept_id,dept_name from department Order By dept_id strSql, dbConn, adOpenForwardOnly, adLockReadOnly Do While Not ((dept_name).Value) () = (dept_id).Value Loop = 0 End Sub系統(tǒng)特色：有較強的數(shù)據(jù)完整性、安全性設計1）系統(tǒng)中按鈕中基本都設置了錯誤陷阱語句：On Error GoTo ERR_CONNERR_CONN: MsgBox 請檢查輸入的數(shù)據(jù)是否有效所以系統(tǒng)一般不會出現(xiàn)輸入導致系統(tǒng)崩潰現(xiàn)象。例如，圖（）中生日年份越界會出現(xiàn)警告： 2）系統(tǒng)設置了部分主要信息的錯誤提示（輸入不能為空、姓名中不能出現(xiàn)數(shù)字、工號中只能出現(xiàn)數(shù)字、生日必須合法輸入、出勤次數(shù)必須大于缺勤、請假次數(shù)總和）：例一：flag1 = False flag2 = False For i = 1 To Len(Trim()) If Mid(Trim(), i, 1) = 0 And Mid(Trim(), i, 1) = 9 Then flag1 = True End If Next For i = 1 To Len(Trim()) If Mid(Trim(), i, 1) 0 Or Mid(Trim(), i, 1) 9 Then flag2 = True End IfNextIf Trim() = Then MsgBox 姓名不能為空，請重新輸入！, vbOKOnly + vbExclamation, 警告 = Exit Sub End If If flag1 = True Then MsgBox 姓名不能含有數(shù)字！, vbOKOnly + vbExclamation, 警告 = Exit Sub End If If flag2 = True Then MsgBox 工號只能含有數(shù)字！, vbOKOnly + vbExclamation, 警告 = Exit Sub End If If Not IsDate(Trim()) Then MsgBox 生日必須為合法日期，請重新輸入！, vbOKOnly + vbExclamation, 警告 = Exit Sub End If例二：If CInt(Trim()) CInt(Trim()) + CInt(Trim()) Then MsgBox 出勤次數(shù)過少！, vbOKOnly + vbExclamation, 警告 = Exit Sub End If例三：strSql = Select , from employee a,department b where = strSql, dbConn, adOpenForwardOnly, adLockReadOnly If Then MsgBox 沒有員工資料，請先輸入資料！, vbOKOnly + vbExclamation, 警告 = False Exit Sub End If3）使用觸發(fā)器，在底層保證數(shù)據(jù)安全性功能：使姓名中不能出現(xiàn)數(shù)字。CREATE TRIGGER T_IN ON FOR INSERT,UpdateAS IF EXISTS ( SELECT * FROM employee WHERE emp_name like 39。%[09]%39。 ) BEGIN RAISERROR(39。錯誤！姓名中不可出現(xiàn)數(shù)字39。,16,1) ROLLBACK RETURN END設計體會與建議：在起初，我們根本不知道該如何著手，VB是我們接觸不多的軟件，我們對它的應用，它的語言，它各種代碼的使用都不是很了解。因此，我們借了很多的書籍進行惡補，逐漸了解摸索，直到可以簡單編程，然后再到連接、編譯、運行。 由于是第一次設計數(shù)據(jù)庫系統(tǒng)，我們期間也遇到了種種困難，比如姓名中不能出現(xiàn)數(shù)字、存儲過程及觸發(fā)器的使用等。但通過查閱資料等方法，我們最終克服了這些困難。因此要設計出一個比較完整的數(shù)據(jù)庫，就要在摸索中不斷的學習，同時也要能過網(wǎng)絡資源與圖書資源進行強化，這也是我在這次設計過程中最大的收獲。此管理系統(tǒng)只是進行一些簡單的員工管理，還有很多功能可以添加，比如工資發(fā)放，福利分配等，由于時間和能力上的原因不能進行對該系統(tǒng)的完善，但是設計中也已一定程度上的考慮了以后的功能擴充，在功能增加的基礎上使數(shù)據(jù)庫和前臺設計的調整最小化。這次的學習實踐過程中，我充分了解到團隊的重要性，我們一組四個人開始并沒有很明確的分工，但是大家都共同解決這每一個發(fā)現(xiàn)的問題，在辛苦中也品嘗著樂趣。同時，我們逐漸掌握了對VB與SQL軟件的應用，讓我們進一步的提升了自己的知識。此次課程設計過程中，在收獲知識，提高能力的同時，我也學到了很多人生的哲理，懂得怎么樣去制定計劃，怎么樣去實現(xiàn)這個計劃，并掌握了在執(zhí)行過程中怎么樣去克服心理上的不良情緒。因此在以后的生活和學習的過程中，我一定會把課程設計的精神帶到生活中，不畏艱難，勇往直前！設計成績： 教師簽名： 年 月 33 / 33