【正文】 因此，我們借了很多的書(shū)籍進(jìn)行惡補(bǔ)，逐漸了解摸索，直到可以簡(jiǎn)單編程，然后再到連接、編譯、運(yùn)行。 條記錄 End SubPrivate Sub Form_Load() = LoadPicture( amp。 amp。 amp。,39。 39。 01 amp。按時(shí)間查詢 If cboCheckYear = Then If cboCheckMonth = Then 39。強(qiáng)制跨越整個(gè)行選擇 = flexSelectionByRowEnd Sub 員工考勤查詢 ( )員工考勤查詢界面主要代碼如下:Private Sub Command3_Click() Dim strId As String Dim strName As String Dim strDept As String Dim strCheck As String 39。 amp。 39。 39。 在該對(duì)話框中輸入數(shù)據(jù)源名“emp”、服務(wù)器名，按要求填空完成后，即可完成數(shù)據(jù)源的連接設(shè)置（）。 ) BEGIN RAISERROR(39。科學(xué)技術(shù)日新月異的進(jìn)步，讓人類生活發(fā)生了巨大的變化，計(jì)算機(jī)技術(shù)的飛速發(fā)展，使各行各業(yè)在計(jì)算機(jī)技術(shù)應(yīng)用方面得到了廣泛的普及和使用。要有數(shù)據(jù)庫(kù)和表的創(chuàng)建腳本，輸入必要的初始數(shù)據(jù)（每表至少有20條以上記錄）。同時(shí)對(duì)整個(gè)系統(tǒng)的分析、設(shè)計(jì)過(guò)程給出一個(gè)完整的論證。Database=man。設(shè)置錯(cuò)誤陷阱 On Error GoTo ERR_CONN If Trim(MskId) = Then strId = Else strId = and = 39。 End If If = 0 Then strDuty = Else strDuty = and =39。 strName amp。 條記錄 End If Exit Sub ERR_CONN: MsgBox 請(qǐng)檢查輸入的數(shù)據(jù)是否有效End SubPrivate Sub Command3_Click() Unload MeEnd SubPrivate Sub Form_Load() 39。 End If 39。 cboCheckMonth amp。 02 amp。 39。,39。 amp。打開(kāi)一個(gè)數(shù)據(jù)集 strSql = select , from checkin a ,employee b,department c where = and = amp。設(shè)置各列的對(duì)齊方式 For i = 0 To 9 (i) = 0 Next i 39。這次的學(xué)習(xí)實(shí)踐過(guò)程中，我充分了解到團(tuán)隊(duì)的重要性，我們一組四個(gè)人開(kāi)始并沒(méi)有很明確的分工，但是大家都共同解決這每一個(gè)發(fā)現(xiàn)的問(wèn)題，在辛苦中也品嘗著樂(lè)趣。CREATE TRIGGER T_IN ON FOR INSERT,UpdateAS IF EXISTS ( SELECT * FROM employee WHERE emp_name like 39。 amp。 cboCheckYear amp。 amp。,39。 39。 39。按部門(mén)查詢 If cboDept = Then strDept = Else strDept = and =39。設(shè)置列數(shù) = 8 39。 strTitle amp。 amp。 Trim(Text2) amp。uid=sa。部門(mén)信息：包括部門(mén)編號(hào)、部門(mén)名稱、部門(mén)簡(jiǎn)介職稱信息：包括職稱序號(hào)、職稱名稱、備注學(xué)歷信息：包括學(xué)歷序號(hào)、學(xué)歷名稱、備注職務(wù)信息：包括職務(wù)序號(hào)、職務(wù)名稱、備注用戶信息：包括用戶的帳號(hào)及密碼。設(shè)計(jì)思路與設(shè)計(jì)過(guò)程需求分析；進(jìn)行數(shù)據(jù)庫(kù)的概念設(shè)計(jì)；進(jìn)行數(shù)據(jù)庫(kù)的邏輯設(shè)計(jì)；進(jìn)行數(shù)據(jù)庫(kù)的物理設(shè)計(jì)；進(jìn)行應(yīng)用程序設(shè)計(jì)；編程實(shí)現(xiàn)。課程設(shè)計(jì)任務(wù)書(shū)姓 名學(xué) 號(hào)班 級(jí)課題組成員姓名性別班級(jí)在本項(xiàng)目中的分工VB界面設(shè)計(jì)、系統(tǒng)查詢功能、SQL表的創(chuàng)建完善及權(quán)限、觸發(fā)器設(shè)計(jì)、系統(tǒng)健壯性維護(hù)VB界面設(shè)計(jì)、系統(tǒng)添加功能、SQL表的建立及索引設(shè)計(jì)、數(shù)據(jù)字典、系統(tǒng)測(cè)試、系統(tǒng)邏輯設(shè)計(jì)系統(tǒng)修改功能、SQL表的創(chuàng)建、需求分析、系統(tǒng)用戶注冊(cè)、考勤修改功能、SQL表的創(chuàng)建、功能設(shè)計(jì)分析課程名稱數(shù)據(jù)庫(kù)系統(tǒng)原理課程性質(zhì)專業(yè)必修課設(shè)計(jì)時(shí)間2009年5月3日——2009年6月15日設(shè)計(jì)名稱員工信息管理系統(tǒng)設(shè)計(jì)要求成果提交形式：課程設(shè)計(jì)報(bào)告＋完成系統(tǒng)功能的、有一定健壯性的系統(tǒng)。員工考勤基本信息：包括員工編號(hào)、姓名、應(yīng)出勤天數(shù)、遲到次數(shù)、早退次數(shù)、請(qǐng)假天數(shù)、曠工天數(shù)、加班天數(shù)、加班天數(shù)、補(bǔ)休天數(shù)、加班費(fèi)、扣款、備注。server=puter。 amp。 amp。 amp。職稱 strSql = Select title_id,title_name from title Order By title_id strSql, dbConn, adOpenForwardOnly, adLockReadOnly Do While Not ((title_name).Value) () = (title_id).Value Loop = 0 39。 End If 39。 cboCheckMonth amp。 03 amp。 39。,39。 amp。 strName amp。例如，圖（）中生日年份越界會(huì)出現(xiàn)警告： 2）系統(tǒng)設(shè)置了部分主要信息的錯(cuò)誤提示（輸入不能為空、姓名中不能出現(xiàn)數(shù)字、工號(hào)中只能出現(xiàn)數(shù)字、生日必須合法輸入、出勤次數(shù)必須大于缺勤、請(qǐng)假次數(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 姓名不能為空，請(qǐng)重新輸入！, vbOKOnly + vbExclamation, 警告 = Exit Sub End If If flag1 = True Then MsgBox 姓名不能含有數(shù)字！, vbOKOnly + vbExclamation, 警告 = Exit Sub End If If flag2 = True Then MsgBox 工號(hào)只能含有數(shù)字！, vbOKOnly + vbExclamation, 警告 = Exit Sub End If If Not IsDate(Trim()) Then MsgBox 生日必須為合法日期，請(qǐng)重新