【正文】 ID TransactSQL (SQL) MsgBox 已經(jīng)修改信息！,。 amp。 SQL = SQL amp。 39。 amp。 39。,ANewDept=39。 amp。 TransactSQL (SQL) SQL = update AlterationInfo set AOldDept=39。 amp。 where SID=39。 amp。, SPosition=39。 amp。Call checkinput SQL = update StuffInfo set SDept=39。Data Source= + + \ = SQL If SQL Then End If Set = 0 Call init 0 Else 39。 39。 amp。 39。 SQL = SQL amp。 39。 amp。添加記錄 39。設(shè)置年 Left(rs(0), 4) Left(rs(0), 4) End If Wend = 0 = 0 End If For i = 1 To 12 39。 todate amp。 End If If = vbChecked And = vbChecked Then query = query amp。 Trim() amp。 and SName=39。 Trim() query = query amp。 End If If = vbChecked And = vbChecked Then query = select * from StuffInfo where SID=39。 and amp。 End If If = vbChecked Then query = select * from StuffInfo where SInTime between query = query amp。 Trim() amp。 End If If = vbChecked Then query = select * from StuffInfo where SName=39。 Trim() amp。設(shè)置SQL語句 If = vbChecked Then query = select * from StuffInfo where SID=39。 amp。 1, yyyymmdd) todate = amp。 amp。 amp。獲得起始和結(jié)束時(shí)間 fromdate = amp。起始時(shí)間Private todate As String 39。 MsgBox 密碼已經(jīng)修改, vbOKOnly + vbExclamation, 修改結(jié)果 Unload Me End If End IfEnd SubPrivate Sub Form_Load() = = = End Sub查詢員工信息圖4－4相關(guān)代碼如下：Option ExplicitPrivate query As String 39。 39。 amp。判斷兩次密碼是否相同 MsgBox 兩次密碼不同, vbOKOnly + vbExclamation, 警告 = = Else 39。判斷是否輸入舊密碼 MsgBox 請(qǐng)輸入舊密碼, vbOKOnly + vbExclamation, 警告 Exit Sub Else If Trim() = Then 39。保存用戶名稱 Unload Me Else MsgBox 密碼不正確，請(qǐng)重新輸入！, vbOKOnly + vbExclamation, 警告 End If End If Else Unload Me End If End If pwdCount=pwdCount+1 39。顯示窗體End Sub二、登錄窗體： 圖4－1有關(guān)本窗體的代碼如下:Option ExplicitDim pwdCount As IntegerPrivate Sub cmdCancel_Click() Unload Me Exit SubEnd SubPrivate Sub cmdOK_Click() Dim SQL As String Dim rs As If Trim( = ) ThenMsgBox 沒有輸入用戶名稱，請(qǐng)重新輸入！, vbOKOnly + vbExclamation, 警告 Else 39。判斷是否為回車鍵 SendKeys {TAB} 39。執(zhí)行命令 iflag = 1 End IfTransactSQL_Exit: Set rs = Nothing Set con = Nothing Exit FunctionTransactSQL_Error: MsgBox 查詢錯(cuò)誤： amp。打開連接 If StrComp(UCase$(strArray(0)), select, vbTextCompare) = 0 Then Trim$(SQL), con, adOpenKeyset, adLockOptimistic Set TransactSQL = rs 39。 amp。創(chuàng)建記錄集On Error GoTo TransactSQL_Error strConnection= Provider=。數(shù)據(jù)庫是否打開標(biāo)志Public Function TransactSQL(ByVal SQL As String) As Dim con As Dim rs As Dim strConnection As StringDim strArray() As StringSet con = New 39。保存加班記錄編號(hào)Public ErecordID As Integer 39。保存上下班記錄編號(hào)Public LrecordID As Integer 39。保存查詢考勤結(jié)果SQL語句Public kqsql2 As String 39。添加和修改的標(biāo)志Public gSQL As String 39。 在項(xiàng)目資源管理器中為這個(gè)工程添加一個(gè)模塊，.代碼如下：Public gUserName As String 39。 為了提高代碼的效率方便維護(hù)，在VisualBasic中可以用公用模塊來存放工程中經(jīng)常使用的函數(shù)、過程和全局變量等。VisualBasic就會(huì)自動(dòng)生成一個(gè)窗體，這個(gè)窗體的屬性采用的都是默認(rèn)設(shè)置。167。使用熟悉的設(shè)計(jì)工具 可以將 HTML 代碼保存在數(shù)據(jù)庫的字段中，并在頁上將它顯示為 HTML 格式的文本。 使用數(shù)據(jù)透視表列表可以按不同方式組織數(shù)據(jù)，使用電子表格控件對(duì)進(jìn)行數(shù)據(jù)影射以及進(jìn)行復(fù)雜的計(jì)算，并且在圖表中通過圖形查看數(shù)據(jù)。也可以排序和篩選記錄。交互地查看分組的記錄 按幾種方式收集和發(fā)布當(dāng)前數(shù)據(jù)可以創(chuàng)建用于輸入和編輯數(shù)據(jù)的頁，類似于 Access 窗體。 例如，查看表對(duì)象列表時(shí)，鍵入“Sh”，可選擇“Shippers”表 。鍵入名稱以選中該對(duì)象 在“數(shù)據(jù)庫”窗口中，使用向?qū)Э焖賱?chuàng)建新的數(shù)據(jù)庫對(duì)象，或是在設(shè)計(jì)視圖中打開一個(gè)新的數(shù)據(jù)庫對(duì)象。使用新的對(duì)象快捷方式— 豎直方位更易于使用。 創(chuàng)建、打開或管理數(shù)據(jù)庫對(duì)象的快速查找命令。 使用“數(shù)據(jù)庫”窗口工具欄 Access 中，整理好的數(shù)據(jù)將按數(shù)據(jù)的用途，分別存于不同的表中，Access 數(shù)據(jù)庫中包含多個(gè)表及其它數(shù)據(jù)庫對(duì)象。 DBMS)　數(shù)據(jù)庫是指一群可組織有系統(tǒng)的數(shù)據(jù)集合。Access 是一套管理數(shù)據(jù)庫的應(yīng)用軟件，即數(shù)據(jù)庫管理系統(tǒng)。通過這種方式，代碼運(yùn)行的效果可以在開發(fā)時(shí)進(jìn)行測(cè)試，而不必等到編譯完成以后。如果編譯器發(fā)現(xiàn)了錯(cuò)誤，則將錯(cuò)誤突出顯示于代碼中，這時(shí)可以更正錯(cuò)誤并繼續(xù)編譯，而不需從頭開始。除即時(shí)捕獲錯(cuò)誤外，Visual Basic 也在輸入代碼時(shí)部分地編譯該代碼。在大多數(shù)語文里，如果編寫代碼時(shí)發(fā)生了錯(cuò)誤，則在開始編譯應(yīng)用程序時(shí)該錯(cuò)誤就會(huì)被編譯器捕獲，此時(shí)必須查找并改正該錯(cuò)誤，然后再次進(jìn)行編譯，對(duì)每一個(gè)發(fā)現(xiàn)的錯(cuò)誤都要重復(fù)這樣的過程。傳統(tǒng)的應(yīng)用程序開發(fā)過程可以分為三個(gè)明顯的步驟：編碼、編譯和測(cè)試代碼。因?yàn)槭录捻樞蚴菬o法預(yù)測(cè)的，所以在代碼中必須對(duì)執(zhí)行時(shí)的“各種狀態(tài)”作一定的假設(shè)。事件可以由用戶操作觸發(fā)，也可以由來自操作系統(tǒng)或其它應(yīng)用程序的消息觸發(fā)，甚至由應(yīng)用程序本身的消息觸發(fā)。Visual Basic 是事件驅(qū)動(dòng)的程序設(shè)計(jì)語言。在傳統(tǒng)的或“過程化”的應(yīng)用程序中，應(yīng)用程序自身控制了執(zhí)行哪一部分代碼及按何種順序執(zhí)行代碼。許多消息都由 Visual Basic自動(dòng)自理了，其它的作為事件過程由編程者自行處理。從這點(diǎn)上說 Visual Basic windows 應(yīng)用程序開發(fā)語言沒有大的區(qū)別，但是由于處理各種窗口、事件和消息的所有可能的組合將有驚人的工作量，動(dòng)用傳統(tǒng)方法開發(fā) Windows 應(yīng)用程序?qū)⒑馁M(fèi)程序員許多精力。因?yàn)?Visual Basic 是基于 Windows 的開發(fā)語言，所以有必要與 Windows 環(huán)境保持一定的相似性。目前 Visual Basic 有三種版本，即學(xué)習(xí)版、專業(yè)版和企業(yè)版，可以滿足不同的開發(fā)需要。專業(yè)人員可以用 Visual Basic 實(shí)現(xiàn)其它任何 windows 編程語言所能實(shí)現(xiàn)的功能，而初學(xué)者只要掌握幾個(gè)關(guān)鍵詞就可以建立實(shí)用的 Windows 應(yīng)用程序。目前 Visual Basic 軟件開發(fā)團(tuán)體是世界上最大的軟件開發(fā)團(tuán)體，它為全世界數(shù)千種工具和控件商所支持，因此選擇 Visual Basic 將使您獲得很大的優(yōu)勢(shì)。不論是 Windows 應(yīng)用程序的專業(yè)開發(fā)人員還是初學(xué)者，Visual Basic 都為他們提供了一整套的工具用來方便地開發(fā)應(yīng)用程序。第四章 人事管理系統(tǒng)的實(shí)現(xiàn)167。(3) 查詢調(diào)動(dòng)信息：查詢某個(gè)員工的調(diào)動(dòng)信息或者某段時(shí)間內(nèi)企業(yè)內(nèi)部的調(diào)動(dòng)情況。4． 員工調(diào)動(dòng)信息(1) 添加調(diào)動(dòng)信息：添加企業(yè)員工的原有部門、原有職務(wù)、新部門、新職務(wù)等信息。(4) 刪除考勤信息：分為刪除上下班信息和刪除其他考勤信息。(2) 修改考勤信息：當(dāng)考勤信息出現(xiàn)錯(cuò)誤需要修改的時(shí)候，可以從這里修改相應(yīng)的記錄。(4) 刪除員工信息：直接從列表中選中需要?jiǎng)h除的員工信息，然后進(jìn)行刪除操作，或者首先查詢需要?jiǎng)h除的員工信息，然后再刪除。(3) 查詢員工信息：可以根據(jù)員工的編號(hào)、姓名或者進(jìn)入公司的時(shí)間進(jìn)行查詢員工基本信息。2． 員工基本信息(1) 添加員工信息:系統(tǒng)自動(dòng)生成員工編號(hào),管理員可以添加員工的基本信息,包括姓名、性別、籍貫、年齡、生日、住址、Email、學(xué)歷、專業(yè)、進(jìn)入本公司時(shí)間等。本系統(tǒng)所使用的模塊包括：系統(tǒng)模塊，員工調(diào)動(dòng)信息模塊，員工考勤模塊，員工基本信息模塊等。167。在本程序數(shù)據(jù)庫中，還采用了ODBC——開放式數(shù)據(jù)庫鏈接系統(tǒng)，它維護(hù)了數(shù)據(jù)的獨(dú)立性，而且可以與其他程序鏈接，達(dá)到數(shù)據(jù)的關(guān)聯(lián)，方便地應(yīng)用于其他的程序中。請(qǐng)假編號(hào)員工編號(hào)病假天數(shù)事假天數(shù)假期開始時(shí)間出差編號(hào)出差開始時(shí)間出差目的地出差天數(shù)員工編號(hào) ab圖3－7基于以上三條設(shè)計(jì)原則，本系統(tǒng)中關(guān)于數(shù)據(jù)庫表結(jié)構(gòu)設(shè)計(jì)如下：員工信息表：字段名稱數(shù)據(jù)類型字段含義Sid文本員工編號(hào)Sname文本員工姓名Sgender文本性別Splace文本籍貫Sage 數(shù)字年齡Sbirthday日期/時(shí)間生日Sdegree文本學(xué)歷Sspecial文本專業(yè)Saddress文本住址Scode文本