最新數(shù)據(jù)庫課程設(shè)計員工信息管理系統(tǒng)免費(fèi)下載(參考版)
2025-04-20 22:41本頁面
【正文】 此次課程設(shè)計過程中，在收獲知識，提高能力的同時，我也學(xué)到了很多人生的哲理，懂得怎么樣去制定計劃，怎么樣去實(shí)現(xiàn)這個計劃，并掌握了在執(zhí)行過程中怎么樣去克服心理上的不良情緒。這次的學(xué)習(xí)實(shí)踐過程中，我充分了解到團(tuán)隊的重要性，我們一組四個人開始并沒有很明確的分工，但是大家都共同解決這每一個發(fā)現(xiàn)的問題，在辛苦中也品嘗著樂趣。因此要設(shè)計出一個比較完整的數(shù)據(jù)庫，就要在摸索中不斷的學(xué)習(xí)，同時也要能過網(wǎng)絡(luò)資源與圖書資源進(jìn)行強(qiáng)化，這也是我在這次設(shè)計過程中最大的收獲。 由于是第一次設(shè)計數(shù)據(jù)庫系統(tǒng)，我們期間也遇到了種種困難，比如姓名中不能出現(xiàn)數(shù)字、存儲過程及觸發(fā)器的使用等。,16,1) ROLLBACK RETURN END設(shè)計體會與建議：在起初，我們根本不知道該如何著手，VB是我們接觸不多的軟件，我們對它的應(yīng)用，它的語言，它各種代碼的使用都不是很了解。 ) BEGIN RAISERROR(39。CREATE TRIGGER T_IN ON FOR INSERT,UpdateAS IF EXISTS ( SELECT * FROM employee WHERE emp_name like 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)特色：有較強(qiáng)的數(shù)據(jù)完整性、安全性設(shè)計1）系統(tǒng)中按鈕中基本都設(shè)置了錯誤陷阱語句：On Error GoTo ERR_CONNERR_CONN: MsgBox 請檢查輸入的數(shù)據(jù)是否有效所以系統(tǒng)一般不會出現(xiàn)輸入導(dǎo)致系統(tǒng)崩潰現(xiàn)象。強(qiáng)制跨越整個行選擇 = flexSelectionByRow = 1 Year(Date) Year(Date) 1 = 1 For i = 1 To 12 If i 10 Then 0 amp。設(shè)置各列的對齊方式 For i = 0 To 9 (i) = 0 Next i 39。列標(biāo)題 (0, 0) = 工號 (0, 1) = (0, 2) = 姓名 (0, 3) = 部門 (0, 4) = 考勤時間 (0, 5) = 應(yīng)出勤 (0, 6) = 遲到 (0, 7) = 早退 (0, 8) = 請假 (0, 9) = 曠工 39。 \)39。 1 amp。 order by strSql, dbConn, adOpenForwardOnly, adLockReadOnly = 1 If Then Else 39。 amp。 amp。 amp。打開一個數(shù)據(jù)集 strSql = select , from checkin a ,employee b,department c where = and = amp。 39。 cboCheckYear amp。指定的年月 strCheck = and in(39。 39。 cboCheckYear amp。,39。 11 amp。 amp。 39。 cboCheckYear amp。,39。 09 amp。 amp。 39。 cboCheckYear amp。,39。 07 amp。 amp。 39。 cboCheckYear amp。,39。 06 amp。 amp。 39。 cboCheckYear amp。,39。 04 amp。 amp。 39。 cboCheckYear amp。,39。 02 amp。 amp。 39。 cboCheckYear amp。指定年份的任意月 strCheck = and in (39。 39。 Year(Date) 1 amp。,39。 cboCheckMonth amp。 amp。年月都為空時 strCheck = Else 39。 End If 39。 cboDept amp。按部門查詢 If cboDept = Then strDept = Else strDept = and =39。 39。 amp。 End If 39。 MskId amp。按工號查詢 If Len(Trim(MskId)) = 0 Then strId = Else strId = and = 39。表頭項居中 = flexFillRepeat = 0 = 0 = 1 = 1 = 4 = 1 39。設(shè)置列寬 (0) = 1000 (1) = 0 (2) = 1400 (3) = 800 (4) = 1400 (5) = 1400 (6) = 1400 (7) = 1410 39。設(shè)置列數(shù) = 8 39。職務(wù) strSql = Select duty_id,duty_name from duty Order By duty_id strSql, dbConn, adOpenForwardOnly, adLockReadOnly Do While Not ((duty_name).Value) () = (duty_id).Value Loop = 0 39。學(xué)歷 strSql = Select edu_id,edu_name from education Order By edu_id strSql, dbConn, adOpenForwardOnly, adLockReadOnly Do While Not ((edu_name).Value) () = (edu_id).Value Loop = 0 39。 條記錄 End If Exit Sub ERR_CONN: MsgBox 請檢查輸入的數(shù)據(jù)是否有效End SubPrivate Sub Command3_Click() Unload MeEnd SubPrivate Sub Form_Load() 39。填寫數(shù)據(jù) = 1 Do While Not = + 1 ( 1, 0) = (0).Value For i = 2 To ( 1, i) = (i 1).Value
公司管理相關(guān)推薦
鄂ICP備17016276號-1