【正文】 sg) Else strSql = select * from t_br where 工號(hào) =39。 amp。刪除記錄 strSql = delete * from t_br where 工號(hào) =39。 \ 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。 Set rs = ExecuteSQL(strSql, strMsg) 39。 amp。如果不要?jiǎng)h除 If blnDelPhoto = False Then strSql = select * from t_br where 工號(hào) =39。添加員工基本信息 Private Sub cmdOK_Click() Dim rs As Dim strSql As String Dim strMsg As String Dim tmpPath As String Dim iStm As 39。根據(jù)提示 在 該窗體中輸入相應(yīng)的信息，最后單擊“保存”按鈕，進(jìn)行信息的保存。 vbCrLf amp。 vbCrLf amp。) Set objRs = ExecuteSQL(strSql, strMsg) Unload Me End If End If End If End If End If Logontimes = Logontimes + 1 39。 Now amp。,39。 txtUserName amp。添加操作員登陸時(shí)間 strSql = insert into t_login (用戶 ,登錄時(shí)間 ) values(39。 If Then MsgBox 用戶名錯(cuò)誤！ , vbOKOnly + vbCritical, 系統(tǒng)登錄 = Else If objRs!口令 txtPassword Then MsgBox 密碼錯(cuò)誤 !請(qǐng)重新輸入 !, vbOKOnly + vbCritical, 系統(tǒng)登錄 = Else 39。 txtUserName amp。On Error GoTo Dealerror Dim objCn As New Connection str = CS() = str XXII Set objRs = New Recordset Set = objCn = adUseClient strSql = SELECT * FROM 系統(tǒng)用戶 strSql = Nothing Set objCn = Nothing If Logontimes = 3 Then MsgBox 你已經(jīng)超過(guò)最大登陸次數(shù)！退出系統(tǒng) , vbOKOnly + vbCritical, 系統(tǒng)登錄 End Else 用戶名 =39。用戶名分為管理員用戶和普通用戶。 具體描述如下 : 、 登錄窗口的實(shí)現(xiàn) 系統(tǒng)登陸時(shí)，要求正確輸入用戶名和密 碼。擁有高級(jí)權(quán)限的用戶，可以創(chuàng)建不同的組，并可將全部或部分權(quán)限分配給創(chuàng)建用戶。為了方便記憶，本數(shù)據(jù)庫(kù)的打開(kāi)密碼為： wlz。在用 ACCESS數(shù)據(jù)庫(kù)打開(kāi)時(shí)要求輸入打開(kāi)密碼， 如圖 35 所 示。 表 35 員工工資表 salary 字段 類型 長(zhǎng)度 必填字段 ID 自動(dòng)編號(hào) 是 工號(hào) 文本 5 是 姓名 文本 10 是 工作日 日期 /時(shí)間 是 產(chǎn)品類型 一 文本 文本 否 產(chǎn)品類型二 文本 否 產(chǎn)品類型三 文本 否 數(shù)量一 數(shù)字 否 數(shù)量二 數(shù)字 否 數(shù)量三 數(shù)字 否 單價(jià)一 數(shù)字 否 單價(jià)二 數(shù)字 否 單價(jià)三 數(shù)字 否 每日匯總 數(shù)字 是 XX 最后，設(shè)計(jì)數(shù)據(jù)庫(kù)時(shí)， 考慮 數(shù)據(jù)庫(kù)的安全性，防止非管理人員用第三方軟件打開(kāi)數(shù)據(jù)庫(kù)，特對(duì)數(shù)據(jù)庫(kù)文件也進(jìn)行了處理，將數(shù)據(jù)庫(kù)的擴(kuò)展名 mdb 替換為 ldl， 起到了一定的迷惑性。 該 表 即完成每日產(chǎn)品考勤，同時(shí)也保存由系統(tǒng)自動(dòng)計(jì)算出的每天的員工工資，月底時(shí)只要匯總出這些每天的工資和即可。 為了方便系統(tǒng)的管理， 員工 加班信息同樣也作為一個(gè)獨(dú)立的表存儲(chǔ)。工資結(jié)算時(shí)根據(jù)記錄進(jìn)行扣除。 表 32 員工考勤信息表 AttendanceInfo 字段 類型 長(zhǎng)度 必填字段 工號(hào) 文本 6 是 姓名 文本 10 是 當(dāng)前日期 文本 10 是 出入標(biāo)志 文本 2 是 上班時(shí)間 日期 /時(shí)間 是 下班時(shí)間 日期 /時(shí)間 是 遲到次數(shù) 數(shù)字 10 否 早退次數(shù) 數(shù)字 10 否 LeaveInfo 員工請(qǐng)假 信息表， 其結(jié)構(gòu)如 表 33 所示。保存員工考勤信息的相關(guān)信息 。以 工號(hào) 作為主關(guān)鍵字，盡量減少數(shù)據(jù)的冗余，保證數(shù)據(jù)的一致性。 圖 32 基本檔案表 ER圖 工號(hào) 姓名 性別 部門(mén) 薪金 所學(xué)專業(yè) 合同終止時(shí)間 合同開(kāi)始時(shí)間 基本檔案表 t_br 職務(wù) 工資類別 職工類型 生日 工齡 年齡 文化程度 民族 政治面貌 身份證號(hào) 手機(jī) 籍貫 照片 XVI 圖 33 系統(tǒng)用戶 圖 34 員工考勤信息表 AttendanceInfo 系統(tǒng)用戶 用戶名稱 用戶密碼 管理圓否 工號(hào) 姓名 當(dāng)前日期 出入標(biāo)志 上班時(shí)間 下班時(shí)間 遲到次數(shù) 早退 次數(shù) 員工請(qǐng)假信息 LeaveInfo XVII 職工 基本檔案表 t_br，其結(jié)構(gòu)如 表 31 所示。 XV 圖 31 數(shù)據(jù)庫(kù)表 各個(gè)實(shí)體具體的描述 ER 圖如下。 、 數(shù)據(jù)庫(kù)設(shè)計(jì) 數(shù)據(jù)庫(kù)中共有 18 張表，如 圖 31 所示。 對(duì)一個(gè)數(shù)據(jù)管理員來(lái)說(shuō)，設(shè)計(jì)良好的數(shù)據(jù)庫(kù)應(yīng)使之開(kāi)始于一個(gè)合理的邏輯設(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ù)結(jié)構(gòu)設(shè)計(jì)的好壞將直接對(duì)應(yīng)用系統(tǒng)的效率以及實(shí)現(xiàn)的效果產(chǎn)生影響。 、 系統(tǒng)功能 本系統(tǒng)將實(shí)現(xiàn) 以下主要功能： 用戶和組管理功能 數(shù)據(jù)的添加、刪除、修改功能 數(shù)據(jù)統(tǒng)計(jì)功能 信息保存功能 數(shù)據(jù)導(dǎo)出功能 XII 方便的數(shù)據(jù)庫(kù)備份功能 提供實(shí)用的工具箱 、 數(shù)據(jù)流圖 具有相應(yīng)權(quán)限的用戶在正確登陸后，可以打開(kāi)并添加新員工的個(gè)人檔案，添加完成后可以使用數(shù)據(jù)導(dǎo)出功能，導(dǎo)出數(shù)據(jù)。 工具箱部分，帶有常用的工具，如計(jì)算器、記事本， EMIAL 發(fā)送等。 考勤信息列表：分為員工上下班信息列表和員工其它考勤信息列表。包括上下班，加班和出差信息，但是不能夠?qū)π畔⑦M(jìn)行任何的操作。 修改員工考勤信息：當(dāng)考勤信息出現(xiàn)錯(cuò)誤需要修改的時(shí)候，可以從這里修改相應(yīng)的記錄。 、 員工考勤信息 設(shè)置上下班的時(shí)間：設(shè)置公司的上下班時(shí)間。 在用戶暫時(shí)離開(kāi)時(shí)可鎖定操作畫(huà)面，防止非法操作。將系統(tǒng)具體分為系統(tǒng)管理、員工信息設(shè)定 、 工資信息管理、工資結(jié)算管理 、數(shù)據(jù)庫(kù)管理、工具箱、幫助七大模塊 : 系統(tǒng)管理 分為操作員登錄管理，用戶管理，鎖定操作畫(huà)面及退出。本系統(tǒng)著重圍繞這幾點(diǎn)進(jìn)行開(kāi)發(fā)設(shè)計(jì)。在表中使用的關(guān)鍵字類型用于描述庫(kù)表示什么以及在數(shù)據(jù)庫(kù)中如何與其它的庫(kù)建立關(guān)系。這種連接是指一個(gè)表被連接到它自己的一個(gè)字段，或在不同的記錄中由重復(fù)數(shù)據(jù)的組合字段。一個(gè)連接是指一種虛擬的表，這種表是在當(dāng)用戶要求從相互關(guān)聯(lián)的各個(gè)不同的表中獲取信息時(shí)建立的，關(guān)鍵字段用于在相互連接的不同表中查找匹配的記錄。這三種操作均可由 Visual Basic 創(chuàng)建的程序來(lái)完成，下面的章節(jié)將詳細(xì)描述實(shí)現(xiàn)的具體方法。 1．標(biāo)識(shí)需要的數(shù)據(jù)； 2．收集被標(biāo)識(shí)的字段到表中； 3．標(biāo)識(shí)主關(guān)鍵字字段； 4．繪制一個(gè)簡(jiǎn)單的數(shù)據(jù)圖表； 5．規(guī)范數(shù)據(jù)； 6．標(biāo)識(shí)指定字段的信息； 7．創(chuàng)建物理表。 X ? 新建一個(gè)數(shù)據(jù)庫(kù) 創(chuàng)建任何一個(gè)數(shù)據(jù)庫(kù)的第一步是仔細(xì)的規(guī)劃數(shù)據(jù)庫(kù)，設(shè)計(jì)必須是靈活的、有邏輯的。計(jì)算機(jī)的數(shù)據(jù)庫(kù)可以分為兩類：非關(guān)系數(shù)據(jù)庫(kù)（ flatfile）和關(guān)系數(shù)據(jù)庫(kù)（ relational）。 使用 Access2021 實(shí)現(xiàn)關(guān)系型數(shù)據(jù)庫(kù) ? 數(shù)據(jù)庫(kù)的概念 數(shù)據(jù)庫(kù)是一種存儲(chǔ)數(shù)據(jù)并對(duì)數(shù)據(jù)進(jìn)行操作的工具。在 “控件”選項(xiàng)卡列表中選擇“ Microsoft Windows Common Controls ”后工具相中增加改控件。通過(guò)在 CoolBar 中遷入其他空間你也可以向用戶提供更好的靈活性和義用性。 實(shí)現(xiàn)工具欄 CoolBar 控件與 Office2021 中看到的 CoolBar 是類似的。 實(shí)現(xiàn)菜單選項(xiàng) 菜單是程序最重要的特性之一，大多數(shù)程序都依賴一個(gè)定義良好的菜單使程序易于使用和維護(hù)， Visual Basic 也提供了 強(qiáng)大的創(chuàng)建菜單功能是程序更加標(biāo)準(zhǔn)。 VB 為用戶提供大量的界面元素 (在 VB 中稱為控件對(duì)象 ),這些控件對(duì)象對(duì)于熟悉Windows 應(yīng)用程序的用戶而言是一點(diǎn)也不陌生 ,如 窗體 、 菜單 、 命令按鈕 、 工具按鈕 、 檢查框 等等 ,用戶只需要利用鼠標(biāo)、鍵盤(pán)把這 些控件對(duì)象拖動(dòng)到適當(dāng)?shù)奈恢?,設(shè)置它們的大小、形狀、屬性等 ,就可以設(shè)計(jì)出所需的應(yīng)用程序界面。系統(tǒng)程序大體可分成四個(gè)模塊：數(shù)據(jù)輸入、根據(jù)查詢、數(shù)據(jù)打印和通訊。 (6) 過(guò)程 (Procedure) 過(guò)程是指經(jīng)過(guò)定義或說(shuō)明的，或基于某一對(duì)象對(duì)應(yīng)的事件所引發(fā)的程序段。它是在程序執(zhí)行的過(guò)程中要計(jì)算機(jī)執(zhí)行的某種操作。程序所用的鍵盤(pán)事件有 KeyPress（按鍵）事件， KeyDown 事件和 KeyUp 事件；鼠標(biāo)事件有Click（單擊鼠標(biāo)）事件， DbDlicd（雙擊鼠標(biāo)）。 (4) 事件 (Events) 事件是指用戶或操作者對(duì)計(jì)算機(jī)進(jìn)行的某一操作（如擊鍵、單擊或移動(dòng)鼠標(biāo)等）的行為或系統(tǒng)狀態(tài)發(fā)生的變化。用戶通過(guò)適當(dāng)?shù)卦O(shè)置或改變對(duì)象的屬性來(lái)確定對(duì) 象的外觀及性能特征，從而有效地使用系統(tǒng)提供的對(duì)象。正確使用對(duì)象可以減少程序和開(kāi)發(fā)時(shí)間，提高程序設(shè)計(jì)者的工作效率。當(dāng)把這些工具放置到用戶界面對(duì)應(yīng)的窗體上時(shí)，被稱為對(duì)象或控件。 (2) 對(duì)象 (Object) 對(duì)象是 VB 系統(tǒng)內(nèi)部提供給設(shè)計(jì)者可以直接使用的處理輸出的控制工具。其基本含義如下： (1) 視窗（ Form） 視窗是進(jìn)行人機(jī)交互的界面或接口，也叫窗體。 VIII 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)編程。 VB 是極有和功能強(qiáng)大的軟件，主要表現(xiàn)在：所見(jiàn)即所得的界面設(shè)計(jì)，基于對(duì)象的設(shè)計(jì)方法，極短的軟件開(kāi)發(fā)周期，較易維護(hù)的生成代碼。尤其是 VB對(duì)數(shù)據(jù)庫(kù)應(yīng)用的強(qiáng)大支持，大大提高了數(shù)據(jù)庫(kù)應(yīng)用軟件開(kāi)發(fā)的效率，縮短了開(kāi)發(fā)周期，深受廣大數(shù)據(jù)庫(kù)應(yīng)用程序設(shè)計(jì)人員的喜愛(ài)。它提供了靈活的可視化設(shè)計(jì)工具，將可視化界面與面向?qū)ο蠹夹g(shù)完善、緊密地結(jié)合起來(lái)，并封裝了 Windows 編程的復(fù)雜性。 作為數(shù)據(jù)庫(kù)系統(tǒng)的開(kāi)發(fā)， VB 是一個(gè)非常理想選擇。目前在我國(guó)市場(chǎng)上最為流行、使用最多、最為先進(jìn)的可用作企業(yè)級(jí)開(kāi)發(fā)工具的