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

　　

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