【正文】 bisxnvarchar畢業(yè)學校50ygxznvarchar用工性質50htqxnvarchar合同期限50職稱信息表（title）字段類型說明大小是否為空title_idint職稱序號4NOT NULLtitle_namenvarchar職稱名稱20NOT NULLtitle_desnvarchar備注255學歷信息表（education）字段類型說明大小是否為空edu_idint學歷序號4NOT NULLedu_namenvarchar學歷名稱20NOT NULLedu_desnvarchar備注255職務信息表（duty）字段類型說明大小是否為空duty_idint職務序號4NOT NULLduty_namenvarchar職務名稱20NOT NULLduty_desnvarchar備注255考勤信息表（checkin）字段類型說明大小是否為空emp_idint員工編號4NOT NULLcheck_ymnvarchar員工姓名6NOT NULLw_dayreal應出勤天數4NOT NULLl_numsint遲到次數4NOT NULLe_numsint早退次數4NOT NULLh_daysreal請假天數4NOT NULLn_daysreal曠工天數4NOT NULLo_daysreal加班天數4NOT NULLr_daysreal補休天數4NOT NULLovertime_sreal加班費4NOT NULLd_checkreal扣款4NOT NULLcheck_desnvarchar備注255注：波浪線為主鍵。 ) BEGIN RAISERROR(39。設置服務器名稱，數據庫名稱，登錄名（此時假設密碼為空） = dsn=rsgl。 = Provider=msdasql。pwd= ConnectToDatabase = True Exit FunctionERR_CONN: ConnectToDatabase = FalseEnd Function ODBC連接連接數據庫方法如下： 打開我的電腦控制面板管理工具。 在該對話框中輸入數據源名“emp”、服務器名，按要求填空完成后，即可完成數據源的連接設置（）。新增功能模塊包含2個功能模塊：員工個人信息的添加、員工考勤信息的添加編輯功能模塊包含2個功能模塊：員工個人信息的刪除、按月份進行員工考勤信息編輯與刪除查詢功能模塊包含2個功能模塊：員工個人信息查詢、按月份進行員工考勤信息查詢系統(tǒng)操作流程圖（）:： Y登錄密碼框判斷密碼員工信息管理系統(tǒng)其他管理結束開始N保存操作結果 設計結果與分析(可以加頁)：員工信息查詢 ()：員工信息查詢界面主要代碼如下: Private Sub Command1_Click() Dim strId As String Dim strName As String Dim strDept As String Dim strTitle As String Dim strDuty As String Dim strEdu As String Dim strSex As String 39。 39。 39。 39。 39。 39。 39。 39。 amp。 amp。 amp。 amp。 1 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。列標題 (0, 0) = 工號 (0, 1) = (0, 2) = 姓名 (0, 3) = 性別 (0, 4) = 學歷 (0, 5) = 部門 (0, 6) = 職務 (0, 7) = 職稱 39。強制跨越整個行選擇 = flexSelectionByRowEnd Sub 員工考勤查詢 ( )員工考勤查詢界面主要代碼如下:Private Sub Command3_Click() Dim strId As String Dim strName As String Dim strDept As String Dim strCheck As String 39。 39。 Trim(Text1) amp。 amp。按時間查詢 If cboCheckYear = Then If cboCheckMonth = Then 39。 Year(Date) amp。 amp。) End If Else If cboCheckMonth = Then 39。 01 amp。 cboCheckYear amp。 amp。,39。 39。 05 amp。 cboCheckYear amp。 amp。,39。 39。 08 amp。 cboCheckYear amp。 amp。,39。 39。 12 amp。 amp。) End If End If 39。 strDept amp。 strId amp。 條記錄 End SubPrivate Sub Form_Load() = LoadPicture( amp。設置列寬 (0) = 1000 (1) = 0 (2) = 1200 (3) = 1200 (4) = 1200 (5) = 820 (6) = 820 (7) = 820 (8) = 820 (9) = 900 39。 i Else i End If If i = Month(Date) Then = End If Next i 39。%[09]%39。因此，我們借了很多的書籍進行惡補，逐漸了解摸索，直到可以簡單編程，然后再到連接、編譯、運行。此管理系統(tǒng)只是進行一些簡單的員工管理，還有很多功能可以添加，比如工資發(fā)放，福利分配等，由于時間和能力上的原因不能進行對該系統(tǒng)的完善，但是設計中也已一定程度上的考慮了以后的功能擴充，在功能增加的基礎上使數據庫和前臺設計的調整最小化。因此在以后的生活和學習的過程中，我一定會把課程設計的精神帶到生活中，不畏艱難，勇往直前！設計成績： 教師簽名： 年 月