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