【文章內(nèi)容簡(jiǎn)介】 序排放的，電話號(hào)碼簿中就按照姓的字母順序來(lái)排放號(hào)碼。 計(jì)算機(jī)的數(shù)據(jù)庫(kù)在概念上是和電話號(hào)碼簿相同的，因?yàn)樗鼈兌继峁┝艘环N方便快捷的存取數(shù)據(jù)的方法。計(jì)算機(jī)通常有兩種類型的數(shù)據(jù)庫(kù) —— 平面型和關(guān)系型。電話號(hào)碼簿就是平面型數(shù)據(jù)庫(kù)的例子。這就意味著單個(gè)的記錄把 所有的字段或者離散的數(shù)據(jù)存儲(chǔ)在一個(gè)表目中，而一張表則用來(lái)存放數(shù)據(jù)庫(kù)中所有的記錄如圖 所示。 圖 字段的集合的每一個(gè)實(shí)例稱為記錄 了解數(shù)據(jù)庫(kù)術(shù)語(yǔ)： field field field field field record record Last name fistname street city phone Chopin fiederick 1rue raspail Milwaukee 2930087 Liszt franz 1pennylane green bay 4559897 表 數(shù)據(jù)庫(kù)術(shù)語(yǔ) 元素 描述 數(shù)據(jù)庫(kù) 一組包括了相關(guān)信息的數(shù)據(jù)表 表 一組數(shù)據(jù)記錄，每個(gè)記錄中的信息都具有相同的類型。例如，對(duì)電話號(hào)碼來(lái)說(shuō)，它本身就是一張表 記錄 表中的一個(gè)表目，包括多個(gè)數(shù)據(jù)字段。在電話號(hào)碼簿中，一個(gè)記錄就是一條表 目 字段 記錄中包含的一條特定的數(shù)據(jù)。電話號(hào)碼簿中至少包括四個(gè)字段，分別是姓、名、地址和電話號(hào)碼 索引 一種特殊類型的表，其中包括關(guān)鍵字字段或其他字段的值以及指向真正的記錄所在位置的指針。這些值和記錄都以一種特定的順序來(lái)存放，這種順序是用來(lái)代表數(shù)據(jù)的。以電話號(hào)碼簿為例，一個(gè)索引可能采用姓名的字母順序來(lái)組織信息，而另一個(gè)索引可能采用地址的字母順序來(lái)組織信息，第三種組織方法就是按電話號(hào)碼來(lái)排序 查詢 一條基于特定的條件和標(biāo)準(zhǔn)集合的命令，用來(lái)獲取來(lái)自一個(gè)或多個(gè)表的一組記 錄，或者在某張表中執(zhí)行一個(gè)操作。例如，你可以寫一條查詢命令，用來(lái)列出班級(jí)中所有姓氏以 S 開頭并且平均成績(jī)大于 的學(xué)生 數(shù)據(jù)處理是現(xiàn)代計(jì)算機(jī)應(yīng)用中的一個(gè)重要組成部分 .數(shù)據(jù)處理是指對(duì)各種形式的數(shù)據(jù)進(jìn)行分類 ,組織 ,編碼 ,存儲(chǔ) ,檢索和維護(hù)的一系列活動(dòng)的總和 .其目的是從大量的 ,原始的數(shù)據(jù)中抽取 ,推導(dǎo)出對(duì)人們有價(jià)值的信息以作為活動(dòng)和決策的依據(jù) 。也是為了借助計(jì)算機(jī)科學(xué)地保存和管理復(fù)雜的大量的數(shù)據(jù) ,以便人們能夠方便而充分的利用這些寶貴的信息資源 . 數(shù)據(jù)處理隨著計(jì)算機(jī)硬件和軟件的發(fā)展而不斷發(fā)展 .30多年來(lái)經(jīng)歷了三個(gè)階段 :人工管理階段 ,文件系統(tǒng)階段 ,數(shù)據(jù)庫(kù)系統(tǒng)階段 .數(shù)據(jù)庫(kù)體統(tǒng)又經(jīng)歷了三個(gè)階段 :網(wǎng)狀數(shù)據(jù)庫(kù) ,層次數(shù)據(jù)庫(kù)和關(guān)系數(shù)據(jù)庫(kù) . 本系統(tǒng)采用微軟的辦公自動(dòng)化系統(tǒng) Office2020 中的 Access2020 數(shù)據(jù)庫(kù)做為本系統(tǒng)的主數(shù)據(jù)庫(kù)， Access2020 具有性能穩(wěn)定、易于操作、存儲(chǔ)數(shù)據(jù)量較大等優(yōu)點(diǎn)。本數(shù)據(jù)庫(kù)共有九個(gè)數(shù)據(jù)庫(kù)表，各數(shù)據(jù)表結(jié)構(gòu)如下所示： 表 3． 2 操作員信息表 (DL) 字段名 類型 說(shuō)明 ID 自動(dòng)編號(hào) 關(guān)鍵字 編號(hào) 文本 存儲(chǔ)操作員編號(hào) 密碼 文本 存儲(chǔ)操作員密碼 表 3． 3 工資發(fā)放表（ GZFF） 字段名 類型 說(shuō)明 ID 自動(dòng)編號(hào) 關(guān)鍵字 編號(hào) 文本 職工編號(hào) 年月 文本 工資發(fā)放所屬期 金額 貨幣 發(fā)放金額 發(fā)放日期 日期 /時(shí)間 工資發(fā)放日期 表 3． 4工資信息表（ GZXX） 字段名 類型 說(shuō)明 ID 自動(dòng)編號(hào) 關(guān)鍵字 個(gè)人編號(hào) 文本 職工編號(hào) 項(xiàng)目名稱 文本 工資項(xiàng)目名稱 金額 數(shù)字 該項(xiàng)工資金額 表 職工信息表（ zGXX） 字段名 類型 說(shuō)明 ID 自動(dòng)編號(hào) 關(guān)鍵字 個(gè)人編號(hào) 文本 職工編號(hào) 姓名 文本 職工姓名 部門 文本 職工所在部門 簡(jiǎn) 歷 文本 職工簡(jiǎn)歷 應(yīng)用程序設(shè)計(jì) 應(yīng)用程序設(shè)計(jì)主要完成用戶界面設(shè)計(jì)。 登錄模塊 控制登錄，防止非法用戶闖入本系統(tǒng)，保證系統(tǒng)的安全， 輸入口令時(shí)屏幕顯示為 “*” 以利保密 。初始登陸口令：登陸口令與用戶名相同，取消退出程序，第一次登陸后請(qǐng)修改口令。系統(tǒng)登錄界面設(shè)計(jì)如 圖所示。 圖 登錄界面 各控件的屬性設(shè)置見表 。 表 控件屬性 控件名稱 屬性 值 LblLabels Caption 用戶名稱 (amp。U): FONT 宋體五號(hào)字 LblLabels Caption 密碼 (amp。P): FONT 宋體五號(hào)字 txtUserName FONT 宋體五號(hào)字 TEXT 空格 txtPassword FONT 宋體五號(hào)字 TEXT 空格 CmdOK Caption 確定 FONT 宋體五號(hào)字 控件名稱 屬性 值 cmdCancel Caption 取消 FONT 宋體五號(hào)字 登錄模塊設(shè)計(jì)代碼如下 ： Option Explicit Dim As Dim rs As Public LoginSucceeded As Boolean Private Sub cmdCancel_Click() End End Sub Private Sub cmdOK_Click() Dim sql As String Set rs = New sql = select * from dl where 編號(hào) =39。 + + 39。and 密碼 =39。 + + 39。 sql, , adOpenDynamic, adLockOptimistic 39。檢查正確的密碼 If = 1 Then 39。將代碼放在這里傳遞 39。成功到 calling 函數(shù) 39。設(shè)置全局變量時(shí)最容易的 LoginSucceeded = True Else MsgBox 無(wú)效的密碼，請(qǐng)重試 !, , 登錄 SendKeys {Home}+{End} End If End Sub Private Sub Form_Load() Set = New Provider=。Data Source= + + \。Persist Security Info=False = adUseClient End Sub Private Sub txtPassword_Change() 職工信息管理模塊 職工信息編輯管理模塊的主要功能是完成數(shù)據(jù)庫(kù)的更新和維護(hù) , 錄入單位的員工人員 ,姓名和其實(shí)簡(jiǎn)歷以保存 .以上各項(xiàng)全部錄入完成按 (保存 )這樣一個(gè)員工的基本信息以保存 .按新增一項(xiàng) ,繼續(xù)第二個(gè)員工的錄入 .繼續(xù)以前的操作 ,完成所有員工的錄入 ..按 (查詢 )可以看出員工的信息 ,如果有不對(duì)的地方可以進(jìn)行修改 ..,刷新一項(xiàng)則是如果認(rèn)識(shí)此次操作有誤 ,可以重新進(jìn)行操作 ..退出則退出此功能模塊 .屏幕格式設(shè)計(jì)如 ： 圖 職工信息編輯 各控件的屬性設(shè)置如下表所示 . 表 控件的屬性 控件名稱 屬性 值 LblLabels Caption 個(gè)人編號(hào) FONT 宋體五號(hào)字 Label2 Caption 姓名 FONT 宋體五號(hào)字 控件名稱 屬性 值 Label3 Caption 部門 FONT 宋體五號(hào)字 Label4 Caption 簡(jiǎn)歷 FONT 宋體五號(hào)字 Command1 Caption 新增 FONT 宋體五號(hào)字 Height 495 Command2 Caption 保存 FONT 宋體五號(hào)字 Height 495 Command3 Caption 查詢 FONT 宋體五號(hào)字 Height 495 Command4 Caption 退出 FONT 宋體五號(hào)字 Height 495 Command5 Caption 刷新 FONT 宋體五號(hào)字 Height 495 職工信息模塊設(shè)計(jì)代碼如下 ： Dim As Dim rs As Private Sub Command1_Click() = = = = = False End Sub Private Sub Command2_Click() bh = xm = bm = jl = If bh = Or xm = Then MsgBox 請(qǐng)輸入編號(hào)，姓名。 , 48, 提示 Else Set rs = New sql = select * from zgxx where 個(gè)人編號(hào) =39。 + bh + 39。 = = adUseClient sql, , adOpenDynamic, adLockOptimistic If = 1 Then update zgxx set 姓名 = + 39。 + xm + 39。,部門 = + 39。 + bm + 39。,簡(jiǎn)歷 = + 39。 + jl + 39。 + where 個(gè)人編號(hào) = + 39。 + bh + 39。, MsgBox 修改保存完畢。 , 48, 提示 Else insert into zgxx(個(gè)人編號(hào) ,姓名 ,部門 ,簡(jiǎn)歷 )values( + 39。 + bh + 39。,39。 + xm + 39。,39。 + bm + 39。,39。 + jl + 39。), MsgBox 新增保存完畢。 , 48, 提示 End If End If End Sub Private Sub Command3_Click() bh = If bh = Then MsgBox 請(qǐng)輸入個(gè)人編號(hào)。 , 48, 提示 Else Set rs = New sql = select * from zgxx where 個(gè)人編號(hào) =39。 + bh + 39。 sql, , adOpenDynamic, adLockOptimistic If = 1 Then = (個(gè)人編號(hào) ) = (姓名 ) = (部門 ) = (簡(jiǎn)歷 ) = True Else MsgBox 無(wú)效的個(gè)人編號(hào)。 , 16, 提示 End If End If End Sub Private Sub Command4_Click() End Sub Private Sub Command5_Click() = = = = = False End Sub Private Sub Form_Activate() (銷售部 ) (工程部 ) (軟件部 ) (培訓(xùn)部 ) End Sub Private Sub Form_Load() Set = New Provider=。Data Source= + + \。Persist Security Info=False = adUseClient End Sub 職工信息查詢模塊 此項(xiàng)功能為針對(duì)于員工的信息進(jìn)行查詢?cè)?” 姓名或個(gè)人編號(hào) ” 里面輸入你要查詢?nèi)说?” 姓名 ” 或 ” 個(gè)人編號(hào) ” ,按 ” 查詢 ” 鍵 ,這樣在下方就出現(xiàn)一個(gè)對(duì)話框 ,把你所要查找的個(gè)人信息顯示出來(lái) .屏幕格式設(shè)計(jì)如下 圖 職工信息查詢 各控件的屬性設(shè)置如下表所示： 表 控件的屬性 控件名稱 屬性 值 Label2 Caption 姓名或個(gè)人編號(hào) FONT 宋體五號(hào)字 控件名稱 屬性 值 Label2 HEIGHT 210 LEFT 120 TOP 420 WIDTH 1470 Command1 Caption 查詢 FONT 宋體 Command2 Caption 退出 FONT 宋體 職工信息查詢?cè)O(shè)計(jì)代碼： Private Su