【正文】 1 三級模式結(jié)構(gòu)圖 模式是數(shù)據(jù)庫數(shù)據(jù)在邏輯級上的視圖，它以某一種數(shù)據(jù)模型為基礎，不僅要定義數(shù)據(jù)的邏輯結(jié)構(gòu)（如數(shù)據(jù)項構(gòu)成、名字、類型、值域等），而且要定義與數(shù)據(jù)有關的安全性、完整性以及數(shù)據(jù)之間的聯(lián)系。內(nèi)模式也 稱存儲模式，它是數(shù)據(jù)物理結(jié)構(gòu)和存儲結(jié)構(gòu)的描述，是數(shù)據(jù)在數(shù)據(jù)庫內(nèi)部的表示方式。外模式 /模式映象定義了外模式與模式之間的對應關系。該映象定義通常包含在模式描述中。 、 數(shù)據(jù)庫管理系統(tǒng)分析 在數(shù)據(jù)庫系統(tǒng)中，應用程序、數(shù)據(jù)庫管理系統(tǒng)、操作系統(tǒng)、硬件等幾個方面必須協(xié)同工 作。如果拒絕執(zhí)行，則向用戶返回錯誤信息。操作系統(tǒng)執(zhí)行后，將數(shù)據(jù)送至系統(tǒng)緩沖區(qū)。然后，翻譯處理程序?qū)⑺鼈兎g成相應的內(nèi)部表示，即對數(shù)據(jù)庫框架的描述。實用程序：完成數(shù)據(jù)庫的建立與維護，以及數(shù)據(jù)格式的轉(zhuǎn)換與通信等功能。重點的說明了系統(tǒng)設計的重點、設計思想、難點技術和解決方案 。 作為數(shù)據(jù)庫系統(tǒng)的開發(fā)， VB 是一個非常理想選擇。尤其是 VB對數(shù)據(jù)庫應用的強大支持，大大提高了數(shù)據(jù)庫應用軟件開發(fā)的效率，縮短了開發(fā)周期，深受廣大數(shù)據(jù)庫應用程序設計人員的喜愛。 VIII VB語言的基本特點及 VB 應用程 序的基本持點 VB 程序語言具有許多優(yōu)秀的特性，用其設計應用程序時有兩個基本特點：可視化設計和事件驅(qū)動編程。 (2) 對象 (Object) 對象是 VB 系統(tǒng)內(nèi)部提供給設計者可以直接使用的處理輸出的控制工具。正確使用對象可以減少程序和開發(fā)時間，提高程序設計者的工作效率。 (4) 事件 (Events) 事件是指用戶或操作者對計算機進行的某一操作（如擊鍵、單擊或移動鼠標等）的行為或系統(tǒng)狀態(tài)發(fā)生的變化。它是在程序執(zhí)行的過程中要計算機執(zhí)行的某種操作。系統(tǒng)程序大體可分成四個模塊：數(shù)據(jù)輸入、根據(jù)查詢、數(shù)據(jù)打印和通訊。 實現(xiàn)菜單選項 菜單是程序最重要的特性之一，大多數(shù)程序都依賴一個定義良好的菜單使程序易于使用和維護， Visual Basic 也提供了 強大的創(chuàng)建菜單功能是程序更加標準。通過在 CoolBar 中遷入其他空間你也可以向用戶提供更好的靈活性和義用性。 使用 Access2021 實現(xiàn)關系型數(shù)據(jù)庫 ? 數(shù)據(jù)庫的概念 數(shù)據(jù)庫是一種存儲數(shù)據(jù)并對數(shù)據(jù)進行操作的工具。 X ? 新建一個數(shù)據(jù)庫 創(chuàng)建任何一個數(shù)據(jù)庫的第一步是仔細的規(guī)劃數(shù)據(jù)庫，設計必須是靈活的、有邏輯的。這三種操作均可由 Visual Basic 創(chuàng)建的程序來完成，下面的章節(jié)將詳細描述實現(xiàn)的具體方法。這種連接是指一個表被連接到它自己的一個字段，或在不同的記錄中由重復數(shù)據(jù)的組合字段。本系統(tǒng)著重圍繞這幾點進行開發(fā)設計。 在用戶暫時離開時可鎖定操作畫面，防止非法操作。 修改員工考勤信息：當考勤信息出現(xiàn)錯誤需要修改的時候，可以從這里修改相應的記錄。 考勤信息列表：分為員工上下班信息列表和員工其它考勤信息列表。 、 系統(tǒng)功能 本系統(tǒng)將實現(xiàn) 以下主要功能： 用戶和組管理功能 數(shù)據(jù)的添加、刪除、修改功能 數(shù)據(jù)統(tǒng)計功能 信息保存功能 數(shù)據(jù)導出功能 XII 方便的數(shù)據(jù)庫備份功能 提供實用的工具箱 、 數(shù)據(jù)流圖 具有相應權(quán)限的用戶在正確登陸后，可以打開并添加新員工的個人檔案，添加完成后可以使用數(shù)據(jù)導出功能，導出數(shù)據(jù)。 、數(shù)據(jù)庫概念結(jié)構(gòu)設計 數(shù)據(jù)庫需求分析是數(shù)據(jù)庫結(jié)構(gòu)設計的第一個階段，是非常重要的一個階段。 、 數(shù)據(jù)庫設計 數(shù)據(jù)庫中共有 18 張表，如 圖 31 所示。 圖 32 基本檔案表 ER圖 工號 姓名 性別 部門 薪金 所學專業(yè) 合同終止時間 合同開始時間 基本檔案表 t_br 職務 工資類別 職工類型 生日 工齡 年齡 文化程度 民族 政治面貌 身份證號 手機 籍貫 照片 XVI 圖 33 系統(tǒng)用戶 圖 34 員工考勤信息表 AttendanceInfo 系統(tǒng)用戶 用戶名稱 用戶密碼 管理圓否 工號 姓名 當前日期 出入標志 上班時間 下班時間 遲到次數(shù) 早退 次數(shù) 員工請假信息 LeaveInfo XVII 職工 基本檔案表 t_br，其結(jié)構(gòu)如 表 31 所示。保存員工考勤信息的相關信息 。工資結(jié)算時根據(jù)記錄進行扣除。 該 表 即完成每日產(chǎn)品考勤，同時也保存由系統(tǒng)自動計算出的每天的員工工資，月底時只要匯總出這些每天的工資和即可。在用 ACCESS數(shù)據(jù)庫打開時要求輸入打開密碼， 如圖 35 所 示。擁有高級權(quán)限的用戶，可以創(chuàng)建不同的組，并可將全部或部分權(quán)限分配給創(chuàng)建用戶。用戶名分為管理員用戶和普通用戶。 txtUserName amp。添加操作員登陸時間 strSql = insert into t_login (用戶 ,登錄時間 ) values(39。,39。) Set objRs = ExecuteSQL(strSql, strMsg) Unload Me End If End If End If End If End If Logontimes = Logontimes + 1 39。 vbCrLf amp。添加員工基本信息 Private Sub cmdOK_Click() Dim rs As Dim strSql As String Dim strMsg As String Dim tmpPath As String Dim iStm As 39。 amp。 \ If Not IsNull((照片 ).Value) Then Set iStm = New With iStm .Mode = adModeReadWrite .Type = adTypeBinary .Open .Write (照片 ).Value .SaveToFile tmpPath blnDel = True End With strFileName = tmpPath 39。 amp。 amp。年齡為數(shù)字型 If = Then (年齡 ) = 0 Else (年齡 ) = End If 39。二進制模式 .Open .LoadFromFile strFileName End With (照片 ) = Else End If XXX Set rs = Nothing = True Call DisabledControl = True MsgBox 添加成功 If blnDel Then If tmpPath Then Kill tmpPath End If End If Call RefreshGrid End Sub 、 員工考勤信息的實現(xiàn) 、 設置員工上下班時間 在 該窗體中輸入相應的上下班信息，具體如 圖 44 所示，相應部分代碼如下 ： 圖 44 設置上下班時間 XXXI Private Sub cmdOK_Click() 39。設置焦點 Exit Sub End If If = Or = Or = Then 39。 amp。 amp。 amp。 amp。判斷上下午上班時間是否遲到 tmsb1 = h = Hour(tmsb1) m = Minute(tmsb1) s = Second(tmsb1) tmsb1 = CDate(h amp。 s) tmsetswsb = CDate((上午上班時間 )) tmsetswxb = CDate((上午下班時間 )) tmsetxwsb = CDate((下午上班時間 )) 39。 amp。判斷上下午下班時間是否早退 tmxb1 = XXXV h = Hour(tmxb1) m = Minute(tmxb1) s = Second(tmxb1) tmxb1 = CDate(h amp。 s) tmsetxwsb = CDate((下午上班時間 )) tmsetswxb = CDate((上午下班時間 )) tmsetxwxb = CDate((下午下班時間 )) 39。 amp。根據(jù)需要進行字段限制 If = True Then If = Then MsgBox 產(chǎn)品類型不能為空 TextFocus Combo1 Exit Sub End If If = True Then If 。 (出入標志 ) = aflag (早退次數(shù) ) = iearly XXXVI MsgBox 已完成添加下班信息 , vbOKOnly + vbInformation, 添加結(jié)果！ Unload Me Exit Sub End If End Sub Private Sub Form_Load() = Date 39。判斷下午下班時間 Else If tmxb1 tmsetxwxb Then iearly = 1 MsgBox 早退 Else iearly = 0 MsgBox 正常下班 End If End If aflag = 出 (工號 ) = (姓名 ) = (當前日期 ) = ( 下班時間 ) = amp。 m amp。 (出入標志 ) = aflag (遲到次數(shù) ) = ilate MsgBox 已完成添加上班信息 , vbOKOnly + vbInformation, 添加結(jié)果！ Unload Me Exit Sub End If 39。判斷下午上班時間是否遲到 Else If tmsb1