員工信息管理系統n改-資料下載頁

　　

【正文】 鈕的源碼如下: Private Sub cmdSave_Click() Dim Emp_ID As Variant Dim Emp_Name As Variant Dim Emp_Sex As Variant Dim Depart_ID As Variant Dim Job_ID As Variant Dim Titel_ID As Variant Dim E_ID As Variant Dim P_ID As Variant Dim MS_ID As Variant Dim Emp_ID_cord As Variant Dim Emp_birthday As Variant Dim Emp_Attend_time As Variant Dim Emp_Join_time As Variant Dim Emp_mobile_num As Variant Dim Emp_Tel_num As Variant Dim Emp_Address As Variant Dim Emp_Memo As Variant Dim Emp_name_char As Variant Dim vtempdata As String If = Empty Then MsgBox 工作證號不能為空!, vbInformation, 數據不完整 Exit Sub Else If = Empty Then MsgBox 員工姓名不能為空!, vbInformation, 數據不完整 Exit Sub Else If Left(, 1) Then If InStr(, 0 Then MsgBox 日期格式填寫不完整!, vbInformation, 數據不完整 Exit Sub Else Emp_birthday = CDate() End If End If If Left(, 1) Then If InStr(, 0 Then MsgBox 日期格式填寫不完整!, vbInformation, 數據不完整 Exit Sub Else If Left(, 1) Then If CDate() = CDate() Then MsgBox 員工參加工作日期不能小于或等于員工的出生日期, vbInformation, 輸入日期錯誤 Exit Sub Else Emp_Attend_time = CDate() End If End If End If End If If Left(, 1) Then If InStr(, 0 Then MsgBox 日期格式填寫不完整!, vbInformation, 數據不完整 Exit Sub Else If Left(, 1) Then If CDate() = CDate() Then MsgBox 員工加入本單位日期不能小于或等于員工的出生日期, vbInformation, 輸入日期錯誤 Exit Sub End If End If If Left(, 1) Then If CDate() CDate() Then MsgBox 員工加入本單位日期不能小于員工的參加工作日期, vbInformation, 輸入日期錯誤 Exit Sub End If End If Emp_Join_time = CDate() End If End If End If End If If = Empty Then MsgBox 員工字首拼音十分重要，不能為空!, vbInformation, 數據不完整 Exit Sub End If If Empty And Len() 15 Then MsgBox 身份證號必須是大于或等于15位,小于18位！, vbInformation, 無效的身份證號 Exit Sub End If Emp_ID = Trim() Emp_Name = Trim() Emp_Sex = If Trim() Empty Then Emp_ID_cord = Trim() End If If Trim() Empty Then Emp_mobile_num = Trim() End If If Trim() Empty Then Emp_Tel_num = Trim() End If If Trim() Empty Then Emp_Address = Trim() End If If Trim() Empty Then Emp_Memo = Trim() End If Emp_name_char = Trim() If Trim() Empty Then vtempdata = Trim() Depart_ID = (rctDepartList, Depart_Name, vtempdata, 0) End If If Trim() Empty Then vtempdata = Trim() MS_ID = (rctMarriageStatus, MS_Name, vtempdata, 0) End If If Trim() Empty Then vtempdata = Trim() P_ID = Trim((rctPlitics, P_Name, vtempdata, 0)) End If If Trim() Empty Then vtempdata = Trim() E_ID = Trim((rctEdulevel, E_Name, vtempdata, 0)) End If If Trim() Empty Then vtempdata = Trim() Job_ID = Trim((rctJobList, Job_Name, vtempdata, 0)) End If If Trim() Empty Then vtempdata = Trim() Titel_ID = Trim((rctTitelList, Titel_Name, vtempdata, 0)) End If 39。下面是寫入數據庫 39。MsgBox no error If = 新增記錄 Then End If If SaveEmployeesRecords(rctEmployees, Emp_ID, Emp_Name, Emp_Sex, Depart_ID, Job_ID, Titel_ID, E_ID, P_ID, MS_ID, Emp_ID_cord, Emp_birthday, Emp_Attend_time, Emp_Join_time, Emp_mobile_num, Emp_Tel_num, Emp_Address, Emp_Memo, Emp_name_char) = True Then If = 新增記錄 Then Call frmEmpAddClear End If 39。 = False 39。 Call () 39。 Call (rctEmployees, ) 39。 = True MsgBox 保存記錄成功, vbInformation, 保存記錄 End If End Sub請假查詢窗體運行如下:窗體源碼如下: Private Sub mnuLeavelQuery_Click() (add).Visible = False (delete).Visible = False (modify).Visible = False = 30 = = 請假查詢 vbModal, Me End Sub第六章 主菜單的設計與系統的編譯發行 在實際的系統設計中,菜單可分為兩種類型,即下拉式菜單和彈出式菜單,下拉式菜單系統中,一般有一個主菜單,它是通過菜單編輯器建立,其步驟如下: 1) 選取要建立菜單的窗體 2) 從“工具”菜單中,選取“菜單編輯器”建立如下圖所示的系統主菜單: 可以看出菜單系統的建立比較直觀,因此不作重點描述 一個典型的數據庫應用程序由數據結構，操作界面，查詢選項和報表打印等組成。在設計應用程序時，應仔細考慮每個組件提供的功能以及與其他組件之間的關系。設計好的功能模塊制作完畢后，單擊全編譯執行在確認無誤后,。 結 論在剛剛開始學習數據庫的時候，對很多細節很沒有概念。特別是對窗體的作用還有過程的概念的掌握，理解不準確。通過老師的幫助才慢慢的有了一點體會。對書本的學習完成以后，開始著手對數據庫系統開始制作，開始對系統的需求分析不足，造成多次重做。在對表單的制作過程中，對窗體的尺寸的把握，對各個控件尺寸的把握是比較困難的，各個控件在表單中的布局也非常重要。在本系統中，程序主界面和登陸界面的制作是比較困難的。表單制作完成后就是對控件編程，其中要注意程序編寫時的細節，格式，命令的拼寫，運用的合理性等等都要進行分析。 總的來說，做完一個數據庫的收獲不僅僅是技術上的，對事情的宏觀的控制有了更深的看法。 致 謝首先要感謝袁小維老師在設計期間對我的悉心指導。袁老師嚴謹的治學態度、求實的工作作風使我深受感染，在我設計期間，耐心的指出我所犯下的錯誤，不厭其煩為我講解不懂的知識，因為有袁老師的精心指導，我才能順利完成這次設計！我還要真誠的感謝母校在?？迫曛袑ξ业呐嘤c教誨，感謝幫助、關愛我的各位老師，是你們對我學業上的悉心指導和努力教誨使我得以成為一個合格的大學生。同時感謝三年來與我朝夕相伴的同學們，感謝你們長久以來對我的幫助和支持，是你們讓我快樂地度過了這難忘的三年，讓我有了更為豐富的人生經歷。感謝四川航天學院，感謝四川航天學院三星堆校區，正是因為學校良好的環境和氛圍，我才能結識如此多的良師益友。參考文獻 馬力 Visual Basic 簡明教程 機械工業出版社 2001年8月 劉韜 駱娟 何旭洪 Visual 數據庫系統開發實例導航 人民郵電出版社 程序員雜志2002年合訂本 電子工業出版社 王小平，－理論、：西安交通大學出版社，