【正文】 登陸界面的設(shè)計 3) 在 frmLogin窗體中加入兩個標(biāo)簽： =用戶名 =密碼 4) 在 frmLogin 窗 體 中 加 入 兩 個 文 本 框 ， 名 稱 為 txtName 、 txtPassword(passwordchar=*)； 5) 再加入兩個按鈕： 名稱為 cmdOK（ Caption=確認(rèn) Default=true）、cmdCancel(Caption=取消 ) 6) 在 VB工程設(shè)計中的 frmLogin設(shè)計后的格式如下： ☆ 窗體 1 主窗體設(shè)置 ☆ 添加 MDI主窗體 1) 單 “ 工程 ” 菜單下的 “ 添加 MDI窗體 ” 2) 在出現(xiàn)的如下對話框中，單擊 “ 打開 ” 按鈕，則向當(dāng)前 VB工程中加入一個 MDI（多文檔）窗體，它可以是一個裝載許多子窗體的一個母窗體 容器。若某個菜單項是前一項的下一級菜單，可單擊向若的箭頭 . 3) 加入完畢后，單擊 “ 確定 ” 按鈕完成。 名稱 frmSystem Caption 個人 信息管理系統(tǒng) WindowState 2Maximized 4) 運行效果 ☆ 顯示 主界面 1) 新建一個 ” Listview1” ,用來顯示數(shù)據(jù)庫表內(nèi)容 ,把數(shù)據(jù)庫中的信息列出來 . 2) 再建一個 ” Frame1” ,把 ” Comption” 設(shè)置為 ” 詳細(xì)情況 ” 。 2) 然后在 ” Frame2” 中添上多個文本框 ,如 ” 呢稱 ” .” 性別 ” 等 ,如 圖 : 加上三個按鈕 :”添加 ”.”修改 ”.”取消 ” ☆ 窗體 7 ☆ 查詢信息表界面 創(chuàng)建一個框架用來查詢質(zhì)料 ,設(shè)置查找方式 ”精確查詢 ”,”模糊查詢 ”,以及根據(jù)提供的項目及關(guān)鍵字來查詢個人的有關(guān)的信息 ☆ 窗體 8 ☆ 有關(guān)本軟件的介紹界面 該界面主要用于介紹本軟件 ,在使用方面應(yīng)注意的問題 ,即使用時應(yīng)注意的事項 ,及用戶在使用時遇到問題時可以于開發(fā)者聯(lián)系 ,聯(lián)系方式 . ☆ 窗體 9 五 .源程序 在物理設(shè)計中 ,我們已經(jīng)編輯好個窗體 ,接下來就是編 寫源程序了 ,以及各模塊所要編寫的程序 . 部份程序 ☆窗體 1:(登陸界面 ) 1) 在窗體的裝載事件中輸入如下代碼：（藍(lán)色的是系統(tǒng)給出的不必輸入，也可自己輸） Private Sub Form_Load() On Error GoTo ErrMsg 39。調(diào)用模塊中的 ConnectDB過程連接數(shù)據(jù)庫，可以把連接模塊直接寫在這里 Call ConnectDB 39。 , vbOKOnly + vbCritical, 出錯提示 Exit Sub End Sub 2) 在 “ 確認(rèn) ” 按鈕 cmdOK 的單擊事件中輸入如下代碼： Private Sub cmdOK_Click() 39。定義一個保存 SQL語句的變量 39。使用的是 Select Count(*) From ...返回值是一個大于等于 0的整數(shù) SQL = SQL = Select Count(*) From Login Where Name=39。 Trim() amp。 SQL = SQL amp。 amp。 39。通過身份驗證后卸載登錄窗體 Unload Me 39。錯誤處理 ErrMsg: If 0 Then MsgBox amp。把記錄集從內(nèi)存中清除 Set adoRS = Nothing 39。把連接變量從內(nèi)存中清除 Set adoCon = Nothing 39。初始化任務(wù)欄圖標(biāo) ( ) / 3, ( ) / 3 = Len(TrayIcon) = = vbNull = NIF_ICON Or NIF_TIP Or NIF_MESSAGE = WM_MOUSEMOVE = 39。s Tray Icon Example amp。將圖標(biāo)放到任務(wù)欄 Call Shell_NotifyIcon(NIM_ADD, TrayIcon) = False End Sub Private Sub About_Click() 39。設(shè)置窗口在前 If Result = vbYes Then Dim i As Integer For i = 1 To Next i ListRefresh End If Else Result = MsgBox(無法刪除記錄！ , vbOKOnly, 提示 ) End If SetWindowPos , HWND_notopmost, 0, 0, 0, 0, flag End Sub Private Sub DocuAdd_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è)置窗口在前 End If End If Else Result = MsgBox(無法刪除當(dāng)前記錄！ , vbOKOnly, 提示 ) End If SetWindowPos , HWND_notopmost, 0, 0, 0, 0, flag 39。退出程序 Unload frmData End Sub Private Sub DocuSeek_Click() 39。程 序初始化 If Then Dim Recut As Integer Recut = MsgBox(程序已經(jīng)運行，請檢查窗口是否已被最小化！ , 48, 提示 ) Unload Me Exit Sub End If ListViewStyle_Click 39。使 ListView 控件有表格風(fēng)格 ListViewStyleOne_Click 39。允許雙擊選擇 Frm_Load TuBiao 39。設(shè)置窗口在前 Dim i As String Dim j As Integer 39。 mdbFile amp。 mdbDataName amp。設(shè)置字符串變量來調(diào)用 SQL 語句 SQLoriginal = select * from amp。Data SQLadd = where Name=Name SQLorder = = mdbFile 39。錯誤處理 ErrHandle: MsgBox End Sub Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single) End Sub Private Sub ListView1_Click() If 0 Then Dim i, Count As Integer Count = i = 1 Do While i Count i = i + 1 Loop 39。(Oicq) ListViewItem = Count (0).Text = (Sex) 39。 lPassword((Year)) 39。lPassword((Constell)) (3).Text = (Constell) (4).Text = (Attributive) (5).Text = (Blood) 39。lPassword((Address)) (7).Text = (TelepNo) 39。lPassword((MoveCall)) (9).Text = (Home) 39。lPassword((Call)) (11).Text = (Fax) 39。 lPassword((Email)) (13).Text = (Appendix) 39。雙擊修改 ListView1_Click numUo_Click End Sub Private Sub ListView1_ItemClick(ByVal Item As ) 39。 CStr(Index) numMPgl_Click End Sub Private Sub numAcess_Click() 39。 Chr(0) amp。 Chr(0) amp。 Chr(0) amp。新建數(shù)據(jù)庫 nummdbData_Click Dim i As Integer For i = 2 To 5 mdbFileData(i).Visible = False Next i = True = True = True End Sub Private Sub nummdbData_Click() 39。修改數(shù)據(jù)表記錄 ReadNumbel 39。 Chr(0) amp。 Chr(0) amp。 Chr(0) amp。*********任務(wù)欄圖標(biāo) ********** Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Static Message As Long Static RR As Boolean Message = X / If RR = False Then RR = True Select Case Message Case WM_LBUTTONDBLCLK 39。設(shè)置窗口在前 WindowState = 0 39。設(shè)置窗口在前 Else WindowState = 1 = False End If Case WM_RBUTTONUP numFile End Select RR = False End If End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) = Len(TrayIcon) = = vbNull 39。刷新數(shù)據(jù)窗 口 39。 + \ SQLadd = where Name=Name = SQLoriginal + SQLadd + SQLorder ListRefresh Unload frmCX End Sub Private Sub numUo_Click() 39。 39。 mdbFile amp。設(shè)置字符串變量來調(diào)用 SQL 語句 SQLoriginal = select * from amp。\ = SQLoriginal + SQLadd + SQLorder Exit Sub 39。MsgBox End Sub Private Sub AddNumbel() On Error GoTo ErrHandle AddRead_Numbel 39。編輯開始更改表總數(shù)的記錄 Else End If (ID) = 1 (Name) = 數(shù)據(jù)表總數(shù) (Numbel) = DataNumbel + 1 39。進(jìn)行記錄更新 39。錯誤處理 ErrHandle: Exit Sub 39。 Dim i As Integer If Not Then 39。 For i = 1 To DataNumbel = (Numbe l) 39。把數(shù)據(jù)表當(dāng)前記錄位置復(fù)原 End If If DataNumbel 5 Then DataNumbel = 5 For i = 1 To DataNumbel mdbFileData(i).Visible = True Next i 39。錯誤處理 ErrHandle: Exit Sub 39。取消登錄