【正文】 strDuty = Else strDuty = and =39。 End If If = 0 Then strDept = Else strDept = and =39。設(shè)置錯(cuò)誤陷阱 On Error GoTo ERR_CONN If Trim(MskId) = Then strId = Else strId = and = 39。 雙擊“數(shù)據(jù)源（ODBC）”，打開“ODBC數(shù)據(jù)源管理器”對話框，如圖（）所示。Database=man。關(guān)系圖 建立數(shù)據(jù)庫Create table employee(emp_id int(4) not null,emp_name nvarchar(20) not null,sex nvarchar(2) not null,birthday smaldatetime(4) not null,native nvarchar(20),profession nvarchar(20),edu_id int(4),not null,title_id int(4),not null,dept_id int(4),not null,duty_id int(4),not null,emp_date1 smaldatetime(4),not null,emp_date2 smaldatetime(4),not null,emp_des nvarchar(255),zzmm nvarchar(50),ygjstc nvarchar(50),bisx nvarchar(50),ygxz nvarchar(50),htqx nvarchar(50),constraint EmPK primary key(emp_id),constraint EduFK foreign key(edu_id) references education(edu_id),constraint TitleFK foreign key(title_id) references education(title_id),constraint DuFK foreign key(duty_id) references education(duty_id),constraint DeFK foreign key(dept_id) references education(dept_id),)Create table title(title_id int(4) not null,title_name nvarchar(20) not null,title_des nvarchar(255)constraint TiPK primary key(title_id),)Create table education(edu_id int(4) not null,edu _name nvarchar(20) not null,edu _des nvarchar(255)constraint EdPK primary key(edu _id),)Create table duty(duty _id int(4) not null,duty _name nvarchar(20) not null,duty _des nvarchar(255)constraint DuPK primary key(duty _id),)Create table department(dept_id int(4) not null,dept _name nvarchar(20) not null,dept _des nvarchar(255)constraint DePK primary key(dept _id),) 安全性（權(quán)限）grant all privileges on employee to sasagrant all privileges on checkin to sasagrant all privileges on sysuser to sasagrant all privileges on duty to sasagrant all privileges on title to sasagrant all privileges on department to sasagrant all pr ivileges on education to sasa 觸發(fā)器功能：使姓名中不能出現(xiàn)數(shù)字。同時(shí)對整個(gè)系統(tǒng)的分析、設(shè)計(jì)過程給出一個(gè)完整的論證。2）通過設(shè)計(jì)實(shí)際的數(shù)據(jù)庫系統(tǒng)應(yīng)用課題，進(jìn)一步熟悉數(shù)據(jù)庫管理系統(tǒng)的操作技術(shù)，提高動手能力，提高分析問題和解決問題的能力。要有數(shù)據(jù)庫和表的創(chuàng)建腳本，輸入必要的初始數(shù)據(jù)（每表至少有20條以上記錄）。系統(tǒng)前臺的設(shè)計(jì)，可由學(xué)生自選開發(fā)工具完成，但要完成與數(shù)據(jù)庫連接配置與相關(guān)數(shù)據(jù)控件的綁定。科學(xué)技術(shù)日新月異的進(jìn)步，讓人類生活發(fā)生了巨大的變化，計(jì)算機(jī)技術(shù)的飛速發(fā)展，使各行各業(yè)在計(jì)算機(jī)技術(shù)應(yīng)用方面得到了廣泛的普及和使用。在技術(shù)難度方面，由于有指導(dǎo)老師的指導(dǎo)和相關(guān)參考文獻(xiàn)，特別是網(wǎng)上和圖書館資料，特別是參考其它程序的功能，因此完全可以實(shí)現(xiàn)。 ) BEGIN RAISERROR(39。 = Provider=msdasql。 在該對話框中輸入數(shù)據(jù)源名“emp”、服務(wù)器名，按要求填空完成后，即可完成數(shù)據(jù)源的連接設(shè)置（）。 39。 39。 39。 39。 amp。 amp。部門 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 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。 Trim(Text1) amp。按時(shí)間查詢 If cboCheckYear = Then If cboCheckMonth = Then 39。 amp。 01 amp。 amp。 39。 cboCheckYear amp。,39。 08 amp。 amp。 39。 amp。 strDept amp。 條記錄 End SubPrivate Sub Form_Load() = LoadPicture( amp。 i Else i End If If i = Month(Date) Then = End If Next i 39。因此，我們借了很多的書籍進(jìn)行惡補(bǔ)，逐漸了解摸索，直到可以簡單編程，然后再到連接、編譯、運(yùn)行。因此在以后的生活和學(xué)習(xí)的過程中，我一定會把課程設(shè)計(jì)的精神帶到生活中，不畏艱難，勇往直前！設(shè)計(jì)成績： 教師簽名： 年 月