【正文】 ☆ 用戶表 : 字段名稱 字段類型 字段大小 索引 必須填寫 ID 數(shù)字 30 有 (無(wú)重復(fù) ) 是 Name 文本 8 是 Number 數(shù)字 20 是 表二 四 .物理設(shè)計(jì) 及概要設(shè)計(jì) 經(jīng)過(guò)了以上的分析之后 ,對(duì)所要開發(fā)的系統(tǒng)有了總體上的把握 ,接下來(lái)就是通過(guò)一些編寫工具對(duì)系統(tǒng)進(jìn)行具體的編寫了 , 設(shè)計(jì)本系統(tǒng)時(shí)，用到多個(gè)窗體，用與實(shí)現(xiàn)本系統(tǒng)的所有功能，和一個(gè)數(shù)據(jù)庫(kù)，擁有所有表格，用來(lái)存放所有系統(tǒng)所需要的信息，以及保留以后系統(tǒng)中所修改的信息，以及幾個(gè)數(shù)據(jù)報(bào)表，它們用于數(shù)據(jù)的輸出和更新和添加、刪除等功能的顯示。給用戶一目了然的效果。這寫設(shè)計(jì)結(jié)構(gòu)足以實(shí)現(xiàn)所要求 的所有的功能，同時(shí)也使所有信息以最簡(jiǎn)便的方式展現(xiàn)給用戶 . 1．系統(tǒng)開發(fā)環(huán)境 本系統(tǒng)是利用 VB+ACCESS 數(shù)據(jù)庫(kù)技術(shù)實(shí)現(xiàn)的。 VB 的運(yùn)行環(huán)境如下： WinXP+Visual Microsoft Access2021 VB+ACCESS 數(shù)據(jù)庫(kù)技術(shù)對(duì)系統(tǒng)進(jìn)行具體的編寫 登陸界面的設(shè)計(jì) 3) 在 frmLogin窗體中加入兩個(gè)標(biāo)簽： =用戶名 =密碼 4) 在 frmLogin 窗 體 中 加 入 兩 個(gè) 文 本 框 ， 名 稱 為 txtName 、 txtPassword(passwordchar=*)； 5) 再加入兩個(gè)按鈕： 名稱為 cmdOK（ Caption=確認(rèn) Default=true）、cmdCancel(Caption=取消 ) 6) 在 VB工程設(shè)計(jì)中的 frmLogin設(shè)計(jì)后的格式如下： ☆ 窗體 1 主窗體設(shè)置 ☆ 添加 MDI主窗體 1) 單 “ 工程 ” 菜單下的 “ 添加 MDI窗體 ” 2) 在出現(xiàn)的如下對(duì)話框中，單擊 “ 打開 ” 按鈕，則向當(dāng)前 VB工程中加入一個(gè) MDI（多文檔）窗體，它可以是一個(gè)裝載許多子窗體的一個(gè)母窗體 容器。 3) MDI 主窗體如下圖，按 F4 或 在 出現(xiàn)的屬性窗口中設(shè)置屬性（如下右表格），保存 ☆ 窗體 2 ☆ 添加系統(tǒng)菜單 1) 在 VB 工程設(shè)計(jì)環(huán)境的工具欄中單擊 “ 菜單編輯器 ” ，在出現(xiàn)的 “ 菜單編輯器 ” 對(duì)話框中，輸入顯示菜單的標(biāo)題和名稱（一般是以 mnu 開頭的英文，主要是用來(lái)事件編程的添加完一個(gè)后，可以單擊 “ 下一個(gè) ” 按鈕，進(jìn)行下一個(gè)菜單項(xiàng)的輸入，顯示標(biāo)題和名稱 ☆ 窗體 3 2) 是已經(jīng)確定好且有一定實(shí)際意義。若某個(gè)菜單項(xiàng)是前一項(xiàng)的下一級(jí)菜單，可單擊向若的箭頭 . 3) 加入完畢后，單擊 “ 確定 ” 按鈕完成。當(dāng)然可以在以后的設(shè)計(jì)過(guò)程中再加新菜單。 名稱 frmSystem Caption 個(gè)人 信息管理系統(tǒng) WindowState 2Maximized 4) 運(yùn)行效果 ☆ 顯示 主界面 1) 新建一個(gè) ” Listview1” ,用來(lái)顯示數(shù)據(jù)庫(kù)表內(nèi)容 ,把數(shù)據(jù)庫(kù)中的信息列出來(lái) . 2) 再建一個(gè) ” Frame1” ,把 ” Comption” 設(shè)置為 ” 詳細(xì)情況 ” 。 3) 然后在 ” Frame1” 中添上多個(gè)文本框 ,如 圖 : ☆ 窗體 4 ☆ 數(shù)據(jù)庫(kù)中信息庫(kù)登陸界面及密碼的修改設(shè)置 1) 設(shè)置一個(gè)數(shù)據(jù)庫(kù)中的信息庫(kù)的查看權(quán)限界面 :如 ☆ 窗體 5 2) 對(duì)數(shù)據(jù)庫(kù)查看權(quán)限的密碼的修改及設(shè)置 :如 ☆ 窗體 6 ☆ 添加修改界面 1) 新 建一個(gè) ” Frame1” 框 ,把 ” Comption” 設(shè)置為 ” 詳細(xì)情況 ” 。 2) 然后在 ” Frame2” 中添上多個(gè)文本框 ,如 ” 呢稱 ” .” 性別 ” 等 ,如 圖 : 加上三個(gè)按鈕 :”添加 ”.”修改 ”.”取消 ” ☆ 窗體 7 ☆ 查詢信息表界面 創(chuàng)建一個(gè)框架用來(lái)查詢質(zhì)料 ,設(shè)置查找方式 ”精確查詢 ”,”模糊查詢 ”,以及根據(jù)提供的項(xiàng)目及關(guān)鍵字來(lái)查詢個(gè)人的有關(guān)的信息 ☆ 窗體 8 ☆ 有關(guān)本軟件的介紹界面 該界面主要用于介紹本軟件 ,在使用方面應(yīng)注意的問(wèn)題 ,即使用時(shí)應(yīng)注意的事項(xiàng) ,及用戶在使用時(shí)遇到問(wèn)題時(shí)可以于開發(fā)者聯(lián)系 ,聯(lián)系方式 . ☆ 窗體 9 五 .源程序 在物理設(shè)計(jì)中 ,我們已經(jīng)編輯好個(gè)窗體 ,接下來(lái)就是編 寫源程序了 ,以及各模塊所要編寫的程序 . 部份程序 ☆窗體 1:(登陸界面 ) 1) 在窗體的裝載事件中輸入如下代碼：（藍(lán)色的是系統(tǒng)給出的不必輸入，也可自己輸） Private Sub Form_Load() On Error GoTo ErrMsg 39。清空文本框 = = 39。調(diào)用模塊中的 ConnectDB過(guò)程連接數(shù)據(jù)庫(kù)，可以把連接模塊直接寫在這里 Call ConnectDB 39。錯(cuò)誤處理功能 ErrMsg: If 0 Then MsgBox amp。 , vbOKOnly + vbCritical, 出錯(cuò)提示 Exit Sub End Sub 2) 在 “ 確認(rèn) ” 按鈕 cmdOK 的單擊事件中輸入如下代碼： Private Sub cmdOK_Click() 39。運(yùn)行時(shí)自動(dòng)檢測(cè)錯(cuò)誤，檢測(cè)到則到 ErrMsg標(biāo)號(hào)處做相應(yīng)的處理 On Error GoTo ErrMsg Dim SQL As String 39。定義一個(gè)保存 SQL語(yǔ)句的變量 39。到 Login 表中查詢是否 有符合條件的記錄存在 39。使用的是 Select Count(*) From ...返回值是一個(gè)大于等于 0的整數(shù) SQL = SQL = Select Count(*) From Login Where Name=39。 amp。 Trim() amp。 39。 SQL = SQL amp。 And Password=39。 amp。 Trim() amp。 39。 Set adoRS = (SQL) If adoRS(0) = 0 Then MsgBox 您輸入的用戶名或密碼有誤，請(qǐng)更正！ , vbOKOnly + vbExclamation, 系統(tǒng)提示 Exit Sub End If 39。通過(guò)身份驗(yàn)證后卸載登錄窗體 Unload Me 39。顯示系統(tǒng)界面，可以進(jìn)入系統(tǒng)操作 39。錯(cuò)誤處理 ErrMsg: If 0 Then MsgBox amp。, vbOKOnly + vbCritical, 錯(cuò)誤提示 Exit Sub End If End Sub 3) 在 “ 取消 ” 按鈕 cmdCancel的單擊事件中編寫如下代碼： Private Sub cmdCancel_Click() If MsgBox(您真的要退出本系統(tǒng)的使用嗎？ , vbYesNo + vbQuestion, 退出詢問(wèn) ) = vbYes Then 39。把記錄集從內(nèi)存中清除 Set adoRS = Nothing 39。斷開與數(shù)據(jù)庫(kù)的連接 39。把連接變量從內(nèi)存中清除 Set adoCon = Nothing 39。從內(nèi)存中卸載登錄窗體，終止程序的執(zhí)行 Unload Me End If End Sub ☆ 窗體 4:(主界面程序 ) Option Explicit Public mdbFile, mdbDataName As String Public DataNumbel As Integer Public Uo As Boolean Public ListView_Name, ListView_, ListView_Love As String Public ListViewItem As Integer Public Password As String Private Sub TuBiao() 39。初始化任務(wù)欄圖標(biāo) ( ) / 3, ( ) / 3 = Len(TrayIcon) = = vbNull = NIF_ICON Or NIF_TIP Or NIF_MESSAGE = WM_MOUSEMOVE = 39。 提供任務(wù)欄圖標(biāo) = Mind39。s Tray Icon Example amp。 Chr$(0) 39。將圖標(biāo)放到任務(wù)欄 Call Shell_NotifyIcon(NIM_ADD, TrayIcon) = False End Sub Private Sub About_Click() 39。關(guān)于版本 vbModal End Sub Private Sub DeleteAll_Click() Dim Result If Not And Not Then Result = MsgBox(所有記錄將被刪除！ , vbYesNo, 警告 ) SetWindowPos , HWND_topmost, 0, 0, 0, 0, flag 39。設(shè)置窗口在前 If Result = vbYes Then Dim i As Integer For i = 1 To Next i ListRefresh End If Else Result = MsgBox(無(wú)法刪除記錄！ , vbOKOnly, 提示 ) End If SetWindowPos , HWND_notopmost, 0, 0, 0, 0, flag End Sub Private Sub DocuAdd_Click() 39。添加記錄 Uo = False = False Load frmTJ vbModal End Sub Public Sub DocuDelete_Click() 39。刪除記錄 Dim Result If Not And Not Then If 0 Then If 0 Then Result = MsgBox(當(dāng)前記錄將被刪除！ , vbYesNo, 警告 ) SetWindowPos , HWND_topmost, 0, 0, 0, 0, flag 39。設(shè)置窗口在前 If Result = vbYes Then ListRefresh End If Else Result = MsgBox(請(qǐng) 選擇要?jiǎng)h除的記錄！ , vbOKOnly, 警告 ) SetWindowPos , HWND_topmost, 0, 0, 0, 0, flag 39。設(shè)置窗口在前 End If End If Else Result = MsgBox(無(wú)法刪除當(dāng)前記錄！ , vbOKOnly, 提示 ) End If SetWindowPos , HWND_notopmost, 0, 0, 0, 0, flag 39。 ListRefresh End Sub Private Sub DocuExit_Click() 39。退出程序 Unload frmData End Sub Private Sub DocuSeek_Click() 39。查詢記錄 numRem_Click Load frmCX vbModal End Sub Private Sub Form_Resize() If WindowState = 1 Then = False End Sub Private Sub Form_Load() 39。程 序初始化 If Then Dim Recut As Integer Recut = MsgBox(程序已經(jīng)運(yùn)行，請(qǐng)檢查窗口是否已被最小化！ , 48, 提示 ) Unload Me Exit Sub End If ListViewStyle_Click 39。使 ListView 控件可以整行選擇 ListViewStyleBiaoG_Click 39。使 ListView 控件有表格風(fēng)格 ListViewStyleOne_Click 39。允許單擊選擇 ListViewStyleTwo_Click 39。允許雙擊選擇 Frm_Load TuBiao 39。 SetWindowPos , HWND_topmost, 0, 0, 0, 0, flag 39。設(shè)置窗口在前 Dim i As String Dim j As Integer 39。開始初始化 For j = 0 To 13 Text1(j).Text = Next j End Sub Private