【正文】 k_checkin on (emp_id,check_ym) VB數(shù)據(jù)庫連接語句Option ExplicitPublic dbConn As New Public loginUser As StringPublic loginOK As BooleanPublic cmdType As StringPublic tUser_id As StringPublic tDept_id As IntegerPublic tEmp_id As IntegerPublic tCheck_ym As StringPublic tQx As StringSub Main() If ConnectToDatabase = False Then MsgBox 連接數(shù)據(jù)庫出錯！ End End If loginOK = False cmdType = vbModal Unload frmLogin If loginOK Then End IfEnd Sub39。員工考勤基本信息：包括員工編號、姓名、應(yīng)出勤天數(shù)、遲到次數(shù)、早退次數(shù)、請假天數(shù)、曠工天數(shù)、加班天數(shù)、加班天數(shù)、補休天數(shù)、加班費、扣款、備注。因此，員工管理系統(tǒng)也以方便、快捷、費用低、綠色環(huán)保的優(yōu)點正慢慢地進入各個行業(yè)和領(lǐng)域，將傳統(tǒng)的員工管理方式徹底的解脫出來，提高效率，減輕工人人員以往繁忙的工作，加速信息的更新速度，使企業(yè)管理層第一時間了解到員工的信息，從而進一步的進行對員工的調(diào)配。成果提交形式：課程設(shè)計報告＋完成系統(tǒng)功能的、有一定健壯性的系統(tǒng)。要有體現(xiàn)數(shù)據(jù)庫安全性策略的設(shè)計過程，包括必要的權(quán)限設(shè)計與管理。課程設(shè)計任務(wù)書姓 名學(xué) 號班 級課題組成員姓名性別班級在本項目中的分工VB界面設(shè)計、系統(tǒng)查詢功能、SQL表的創(chuàng)建完善及權(quán)限、觸發(fā)器設(shè)計、系統(tǒng)健壯性維護VB界面設(shè)計、系統(tǒng)添加功能、SQL表的建立及索引設(shè)計、數(shù)據(jù)字典、系統(tǒng)測試、系統(tǒng)邏輯設(shè)計系統(tǒng)修改功能、SQL表的創(chuàng)建、需求分析、系統(tǒng)用戶注冊、考勤修改功能、SQL表的創(chuàng)建、功能設(shè)計分析課程名稱數(shù)據(jù)庫系統(tǒng)原理課程性質(zhì)專業(yè)必修課設(shè)計時間2009年5月3日——2009年6月15日設(shè)計名稱員工信息管理系統(tǒng)設(shè)計要求設(shè)計思路與設(shè)計過程需求分析；進行數(shù)據(jù)庫的概念設(shè)計；進行數(shù)據(jù)庫的邏輯設(shè)計；進行數(shù)據(jù)庫的物理設(shè)計；進行應(yīng)用程序設(shè)計；編程實現(xiàn)。功能需求詳細(xì)說明：—增加— 增加員工的基本信息、考勤信息—編輯— 用戶可以對員工信息、考勤信息進行刪除 用戶可以對員工的姓名、編號等員工基本信息進行修改 用戶可以對員工的出勤天數(shù)、請假天數(shù)等考勤信息進行修改—查詢— 用戶可以根據(jù)姓名、編號，準(zhǔn)確的查到要找的員工，也可以選擇部門，查看選中的部門的所有員工。部門信息：包括部門編號、部門名稱、部門簡介職稱信息：包括職稱序號、職稱名稱、備注學(xué)歷信息：包括學(xué)歷序號、學(xué)歷名稱、備注職務(wù)信息：包括職務(wù)序號、職務(wù)名稱、備注用戶信息：包括用戶的帳號及密碼。連接到數(shù)據(jù)庫Function ConnectToDatabase() As Boolean On Error GoTo ERR_CONN 39。uid=sa。用戶登陸員工信息管理系統(tǒng)采用用戶名及密碼驗證方式，進入員工信息管理系統(tǒng)前，用戶必須在登錄窗口輸入用戶名及密碼，只有驗證通過的用戶方可進入員工信息管理系統(tǒng)操作主頁面。 Trim(Text2) amp。 amp。 amp。 strId amp。 strTitle amp。填寫數(shù)據(jù) = 1 Do While Not = + 1 ( 1, 0) = (0).Value For i = 2 To ( 1, i) = (i 1).Value Next i Loop Label9 = 找到 amp。設(shè)置列數(shù) = 8 39。 MskId amp。按部門查詢 If cboDept = Then strDept = Else strDept = and =39。 amp。 39。 amp。 39。 cboCheckYear amp。,39。 07 amp。 amp。 39。 cboCheckYear amp。 39。 amp。列標(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。CREATE TRIGGER T_IN ON FOR INSERT,UpdateAS IF EXISTS ( SELECT * FROM employee WHERE emp_name like 39。因此要設(shè)計出一個比較完整的數(shù)據(jù)庫，就要在摸索中不斷的學(xué)習(xí)，同時也要能過網(wǎng)絡(luò)資源與圖書資源進行強化，這也是我在這次設(shè)計過程中最大的收獲。這次的學(xué)習(xí)實踐過程中，我充分了解到團隊的重要性，我們一組四個人開始并沒有很明確的分工，但是大家都共同解決這每一個發(fā)現(xiàn)的問題，在辛苦中也品嘗著樂趣。 ) BEGIN RAISERROR(39。設(shè)置各列的對齊方式 For i = 0 To 9 (i) = 0 Next i 39。 order by strSql, dbConn, adOpenForwardOnly, adLockReadOnly = 1 If Then Else 39。打開一個數(shù)據(jù)集 strSql = select , from checkin a ,employee b,department c where = and = amp。 39。 amp。 09 amp。,39。 cboCheckYear amp。 39。 amp。 02 amp。指定年份的任意月 strCheck = and in (39。 cboCheckMonth amp。 cboDept amp。 End If 39。設(shè)置列寬 (0) = 1000 (1) = 0 (2) = 1400 (3) = 800 (4) = 1400 (5) = 1400 (6) = 1400 (7) = 1410 39。 條記錄 End If Exit Sub ERR_CONN: MsgBox 請檢查輸入的數(shù)據(jù)是否有效End SubPrivate Sub Command3_Click() Unload MeEnd SubPrivate Sub Form_Load() 39。 strDuty amp。 strName amp。 End If If = 0 Then strSex = Else strSex = and =39。 End If If = 0 Then