【正文】 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é)束時間 fromdate = amp。起始時間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 請輸入舊密碼, vbOKOnly + vbExclamation, 警告 Exit Sub Else If Trim() = Then 39。保存用戶名稱 Unload Me Else MsgBox 密碼不正確，請重新輸入！, 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 沒有輸入用戶名稱，請重新輸入！, vbOKOnly + vbExclamation, 警告 Else 39。判斷是否為回車鍵 SendKeys {TAB} 39。執(zhí)行命令 iflag = 1 End IfTransactSQL_Exit: Set rs = Nothing Set con = Nothing Exit FunctionTransactSQL_Error: MsgBox 查詢錯誤： 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。保存加班記錄編號Public ErecordID As Integer 39。保存上下班記錄編號Public LrecordID As Integer 39。保存查詢考勤結(jié)果SQL語句Public kqsql2 As String 39。在這個系統(tǒng)中，每個功能模塊都要使用數(shù)據(jù)庫，因此可以使用一個公用有數(shù)據(jù)操作函數(shù)，來執(zhí)行一系列的SQL語句。在這個實(shí)例中，先刪除這個窗體，然后選擇“文件”→“保存工程”菜單，在出現(xiàn)的“文件另存為”對話框中輸入這個工程項目的名稱stuff_mis,并且選擇要保存這個工程的目錄，單擊“保存”按鈕，保存工程。 人事管理系統(tǒng)模塊設(shè)計舉例 一、建立公共模塊 運(yùn)行VisualBasic后，選擇“文件”→“新建工程”菜單，然后從工程模板中選擇“標(biāo)準(zhǔn)EXE”項，單擊“確定”按鈕。 在“設(shè)計”視圖中，可使用工具欄、工具箱、主題和其他功能設(shè)計頁，與您用來創(chuàng)建窗體和報表的工具類似。例如，如果字段中的一個值包含 HTML 標(biāo)記，它將文字的格式設(shè)置為斜體，IText/I，可以在頁上使用一個綁定 HTML 控件按斜體顯示該值。顯示 HTML 文本分析數(shù)據(jù)和進(jìn)行數(shù)據(jù)影射 在分組的頁中，通過展開和折疊組標(biāo)題，可以只查看所需的細(xì)節(jié)。 您可以使用頁添加、編輯和查看 Microsoft Access 數(shù)據(jù)庫或 Microsoft Access 項目中的數(shù)據(jù)；可以在 Internet 或 Intranet 上使用這些數(shù)據(jù)，也可以在電子郵件中發(fā)送這些數(shù)據(jù)。也可以創(chuàng)建顯示按層次分組記錄的頁，類似于 Access 報表。 數(shù)據(jù)訪問頁的新增功能數(shù)據(jù)訪問頁是一個 Web 頁，可以用來添加、編輯、查看或處理 Microsoft Access 數(shù)據(jù)庫或 SQL Server 數(shù)據(jù)庫中的當(dāng)前數(shù)據(jù)。 如果選擇，更改默認(rèn)行為，并將光標(biāo)置于其上以選中數(shù)據(jù)對象， 單擊以打開該對象。自定義在“數(shù)據(jù)庫”窗口中選擇及打開對象的方式 單擊“組”欄查看組，其中包含對不同類型數(shù)據(jù)庫對象的快捷方式。將數(shù)據(jù)庫對象組織為組 在“對象”欄中查看數(shù)據(jù)庫對象使用“對象”欄“數(shù)據(jù)庫”窗口的新增功能Microsoft Access 2000 的“數(shù)據(jù)庫”窗口提供了下列查看和處理數(shù)據(jù)庫對象的選項。 組織地存儲數(shù)據(jù)　Access 是一個數(shù)據(jù)庫管理系統(tǒng)，可以使復(fù)雜的瑣碎的數(shù)據(jù)，集合起來組織成為有用的信息，然后將數(shù)據(jù)完整地存儲起來，并提供許多工具，方便數(shù)據(jù)的規(guī)劃及重復(fù)使用。(DataBase Management System 。二、 后臺數(shù)據(jù)庫引擎Access簡介Access 2000 是一套簡單易學(xué)的數(shù)據(jù)庫軟件除了可以單機(jī)作業(yè)之外，也增強(qiáng)了與后端的SQL Server 服務(wù)器的鏈接功能，方便建立主從式結(jié)構(gòu)的數(shù)據(jù)庫環(huán)境。由于 Visual Basic 的交互特性，因此可以發(fā)現(xiàn)在開發(fā)應(yīng)用程序時，您自己正頻繁地運(yùn)行著您的應(yīng)用程序。當(dāng)準(zhǔn)備運(yùn)行和測試應(yīng)用程序時，只需極短時間即可完成編譯。Visual Basic 在編程者輸入代碼時便進(jìn)行解釋，即時捕獲并突出顯示大多數(shù)語法或拼寫錯誤，這看起來就像一位專家在實(shí)時監(jiān)視代碼的輸入。但是 Visual Basic 與傳統(tǒng)的編程評議不同，它使用交互式方法開發(fā)應(yīng)用程序，使得三個步驟之間不再有明顯的界限。當(dāng)作出某些假設(shè)時，應(yīng)該組織好應(yīng)用程序的結(jié)構(gòu)，以確保該假設(shè)始終有效。這些事件的順序決定了代碼執(zhí)行的順序，因此應(yīng)用程序每次運(yùn)行時所經(jīng)過的代碼的路徑都是不同的。在事件驅(qū)動的應(yīng)用程序中，代碼不是按照預(yù)定的路徑執(zhí)行，而是在響應(yīng)不同的事件時執(zhí)行不同的代碼片段。從第一行代碼執(zhí)行程序并按應(yīng)用程序中預(yù)定的路徑執(zhí)行，必要時調(diào)用過程。這樣就可以快速創(chuàng)建強(qiáng)大的應(yīng)用程序而無需涉及不必要的細(xì)節(jié)。幸運(yùn)的是，visual Basic 使您擺脫所有的低層消息處理。簡單地說就是三個關(guān)鍵的概念：窗口、事件和消息。為了理解 Visual Basic 應(yīng)用程序的開發(fā)過程，首先要理解 visual Basic 的一些關(guān)鍵概念。用 Visual Basic 既可以開發(fā)現(xiàn)一般的 Windows應(yīng)用程序，也可以實(shí)現(xiàn)先進(jìn)的客戶機(jī)/服務(wù)器、瀏覽器/服務(wù)器系統(tǒng)。Visual Basic 是在原有 Basic 語言基礎(chǔ)上進(jìn)一步發(fā)展，至今包含了數(shù)百條語句、函數(shù)及關(guān)鍵詞，其中很多和Windows GUI 有直接關(guān)系。如果您現(xiàn)在想學(xué)習(xí) Windows 編程，我們建議您先從 Visual Basic 學(xué)起，因?yàn)樗唵我讓W(xué)，功能強(qiáng)大，可以很輕松地開發(fā)出 Windows 應(yīng)用程序。 開發(fā)環(huán)境的選擇一、前端開發(fā)工具 Visual Basic 簡介Visual Basic 是在世界范圍內(nèi)廣泛使用的一種強(qiáng)大的編程語言，它為 Windows 應(yīng)用程序的開發(fā)提供了最迅速和便捷的方法。(4) 刪除調(diào)動信息：刪除那些不需要的信息。(2) 修改調(diào)動信息：修改相應(yīng)的員工調(diào)動信息。(5) 設(shè)置上下班時間：設(shè)置公司上下班時間。(3) 查詢考勤信息：分為刪除上下班信息和刪除其他考勤信息。3． 員工考勤信息：(1) 添加考勤信息:,而其他考勤信息包含有請假、加班、出差信息。并且可以針對查詢結(jié)果進(jìn)行修改和刪除操作。(2) 修改員工信息：選擇一個員工，可以修改這個員工的基本信息。1． 系統(tǒng)：系統(tǒng)啟動的時候有一個管理員用戶,使用這個用戶登錄后,可以添加其它用戶,而且每一個用戶都可以更改自己的密碼。 模塊設(shè)計 按照功能分析及數(shù)據(jù)庫的設(shè)計結(jié)果，為本系統(tǒng)設(shè)計如下模塊，最終得到如下圖所示的功能模塊圖： (附圖)員工出勤管理系統(tǒng)員工基本信息管理員工考勤信息管理員工實(shí)習(xí)信息管理系統(tǒng)添加員工基本信息修改員工基本信息查詢員工基本信息刪除員工基本信息添加員工考勤信息修改員工考勤信息查詢員工考勤信息刪除員工考勤信息添加員工調(diào)動信息修改員工調(diào)動信息查詢員工調(diào)動信息刪除員工調(diào)動信息添加用戶、修改密碼圖3－8從總體結(jié)構(gòu)圖容易列出應(yīng)用程序的菜單，由總體結(jié)構(gòu)圖轉(zhuǎn)換到菜單時，其對應(yīng)情況如下：系統(tǒng)對應(yīng)菜單文件，子系統(tǒng)層對應(yīng)菜單標(biāo)題，功能層對應(yīng)子菜單項。由于本系統(tǒng)只是進(jìn)行一般的數(shù)據(jù)庫操作，對速度要求并不十分高，所以數(shù)據(jù)庫中未調(diào)用Windows API函數(shù)。本程序采用Access作為數(shù)據(jù)庫引擎，其主要原因是考慮到現(xiàn)在的大多數(shù)辦公室應(yīng)用系統(tǒng)軟件均支持Access數(shù)據(jù)庫，所以只要應(yīng)用于格式符合的計算機(jī)系統(tǒng)上即可運(yùn)行，并且由于Access與VB皆是微軟公司開發(fā)出來的軟件，所以它們之間的兼容性非常好，容易配合使用。此處著重討論如何進(jìn)行規(guī)范化設(shè)計，關(guān)系范式規(guī)范化過程如下：消去重復(fù)項1NF消除部分函數(shù)依賴2NF消除傳遞函數(shù)依賴3NF和空白數(shù)據(jù)項非規(guī)范化關(guān)系 由邏輯結(jié)構(gòu)設(shè)計中得出的關(guān)系模型可知，轉(zhuǎn)化的各關(guān)系中均無重復(fù)項和空白數(shù)據(jù)項，故是第一范式；而且如下圖中的a, b所示(以出差信息及請假信息為例其它略)，所有非主屬性都完全函數(shù)依賴于任一侯選關(guān)鍵字，故是第二范式；在第二范式的前提下，可知ER圖中a,b所示的四個關(guān)系的非主屬性之間都不存在函數(shù)依賴關(guān)系，故圖a,b所表示的關(guān)系均屬于第三范式。計算機(jī)系統(tǒng)的建成是建立在原系統(tǒng)充分調(diào)研的基礎(chǔ)上的，它既不能脫離原系統(tǒng)的大框架，也不是簡單的重復(fù)和替代。(3) 數(shù)據(jù)結(jié)構(gòu)具有相對的穩(wěn)定性數(shù)據(jù)結(jié)構(gòu)的相對穩(wěn)定性，可以作為新、舊系統(tǒng)轉(zhuǎn)換的依據(jù)。(2) 結(jié)構(gòu)設(shè)計與操作設(shè)計相結(jié)合在設(shè)計數(shù)據(jù)庫結(jié)構(gòu)時，有時為了編程實(shí)現(xiàn)的簡捷和思路的清晰，往往故意增加一些冗余數(shù)據(jù)。167。每個關(guān)系的碼用下劃線表示。(3) 若實(shí)體間聯(lián)系為n:m，則將聯(lián)系轉(zhuǎn)換為關(guān)系，關(guān)系的屬性為諸個實(shí)體的碼加上聯(lián)系具有的屬性，而關(guān)系的碼則為諸實(shí)體的碼的組合。 對于實(shí)體間的聯(lián)系我們分不同的情況討論：(1) 若實(shí)體間的聯(lián)系是1:1