【導(dǎo)讀】括后臺數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個方面，實(shí)現(xiàn)了員工信息管理的自動化和信息化.本文還簡單介紹了。簡要介紹了窗體的制作過程，程序的編寫，添加，最后。并且敘述了作者在軟件開發(fā)過程中的心得體會。數(shù)據(jù)庫技術(shù)的基本思想是對數(shù)據(jù)實(shí)行集中，統(tǒng)一，獨(dú)立的管理，用戶可以最大限度的共享數(shù)據(jù)資源。息管理無疑是一條行之有效的途徑。員工管理方面的信息化與科學(xué)化，已成為現(xiàn)代化生活水平步入高臺階的重要標(biāo)志。VisualBasic是美國微軟公司的第一個編程工具和系統(tǒng)開發(fā)的第一個產(chǎn)品，VisualBasic以優(yōu)良的性能、較。作為管理信息系統(tǒng)的開發(fā)，VisualBasic是一個非常理想選擇。率高，且功能強(qiáng)大，可以與Windows的專業(yè)開發(fā)工具SDK相媲美，而且程序開發(fā)人員不必具有C/C++編。在VisualBasic環(huán)境下，利用事件驅(qū)動的編程機(jī)制、新穎易用的可視化設(shè)計(jì)工具，使用Windows. 開放式數(shù)據(jù)訪問等技術(shù)，可以高效、快速地開發(fā)出Windows環(huán)境下功能強(qiáng)大、圖形界面豐富的應(yīng)。成符合給定規(guī)范的產(chǎn)品。

　　

【正文】 Dim vtempdata As String If = Empty Then MsgBox 工作證號不能為空 !, vbInformation, 數(shù)據(jù)不完整 Exit Sub Else If = Empty Then MsgBox 員工姓名不能為空 !, vbInformation, 數(shù)據(jù)不完整 Exit Sub Else If Left(, 1) Then If InStr(, 0 Then MsgBox 日期格式填寫不完整 !, vbInformation, 數(shù)據(jù)不完整 Exit Sub Else Emp_birthday = CDate() End If End If If Left(, 1) Then If InStr(, 0 Then MsgBox 日期格式填寫不完整 !, vbInformation, 數(shù)據(jù)不完整 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, 數(shù)據(jù)不完整 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, 數(shù)據(jù)不完整 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。下面是寫入數(shù)據(jù)庫 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 請假查詢窗體運(yùn)行如下 : 窗體源碼如下 : Private Sub mnuLeavelQuery_Click() (add).Visible = False (delete).Visible = False (modify).Visible = False = 30 = = 請假查詢 vbModal, Me End Sub 幫助 管理模塊的設(shè)計(jì) 該模塊不涉及到代碼的編寫故不作描述 第七章 主菜單的設(shè)計(jì)與系統(tǒng)的編譯發(fā)行 1系統(tǒng)主菜單的設(shè)計(jì) 在實(shí)際的系統(tǒng)設(shè)計(jì)中 ,菜單可分為兩種類型 ,即下拉式菜單和彈出式菜單 ,下拉式菜單系統(tǒng)中 ,一般有一個主菜單 ,其中包括若干個選擇項(xiàng) .主菜單單的每一項(xiàng)又可下拉出下一級子菜單 .這樣用一個個的窗口的形式彈出在屏幕上 ,它是通過菜單編輯器建立 ,其步 驟如下 : 1) 選取要建立菜單的窗體 2) 從 “工具 ”菜單中 ,選取 “菜單編輯器 ”建立如下圖所示的系統(tǒng)主菜單 : 可以看出菜單系統(tǒng)的建立比較直觀 ,因此不作重點(diǎn)描述 一個典型的數(shù)據(jù)庫應(yīng)用程序由數(shù)據(jù)結(jié)構(gòu)，操作界面，查詢選項(xiàng)和報表打印等組成。在設(shè)計(jì)應(yīng)用程序時，應(yīng)仔細(xì)考慮每個組件提供的功能以及與其他組件之間的關(guān)系。設(shè)計(jì)好的功能模塊制作完畢后，單擊全編譯執(zhí)行在確認(rèn)無誤后 ,單擊文件菜單下的生成工程得到一個 .EXE的可執(zhí)行程序 .到此一個完整的系統(tǒng)設(shè)計(jì)完成 . 結(jié) 論 在剛剛開始學(xué)習(xí)數(shù)據(jù)庫的時候，對很 多細(xì)節(jié)很沒有概念。特別是對窗體的作用還有過程的概念的掌握，理解不準(zhǔn)確。通過老師的 幫助 才慢慢的有了一點(diǎn)體會。對書本的學(xué)習(xí)完成以后，開始著手對數(shù)據(jù)庫系統(tǒng)開始制作，開始對系統(tǒng)的需求分析不足，造成多次重做。在對表單的制作過程中，對窗體的尺寸的把握，對各個控件尺寸的把握是比較困難的，各個控件在表單中的布局也非常重要。在本系統(tǒng)中，程序主界面和登陸界面的制作是比較困難的。表單制作完成后就是對控件編程，其中要注 意程序編寫時的細(xì)節(jié)，格式，命令的拼寫，運(yùn)用的合理性等等都要進(jìn)行分析。 總的來說，做完一個數(shù)據(jù)庫的收獲不僅僅是技術(shù)上的，對事情的宏觀的控制有了更深的看法。 致 謝 感謝老師在設(shè)計(jì)中的指導(dǎo)和關(guān)懷，并且感謝所有同學(xué)對我的支持。 參考文獻(xiàn) 參考文獻(xiàn)： 馬力 Visual Basic 簡明教程 機(jī)械工業(yè)出版社 2021年 8月 劉韜 駱娟 何旭洪 Visual 數(shù)據(jù)庫系統(tǒng)開發(fā)實(shí)例導(dǎo)航 人民郵電出版社 程序員雜志 2021年合訂本 電 子工業(yè)出版社 王小平，曹立明 .遺傳算法－理論、應(yīng)用與軟件實(shí)現(xiàn) .西安：西安交通大學(xué)出版社，