【正文】 修改密碼 : 39。 設(shè)置 Connect 屬性為 。HFF8080 = False End Sub Private Sub Label6_Click() Dim Email Email = ShellExecute(0amp。更新數(shù)據(jù)庫顯示信息 = = SQLoriginal + SQLadd + SQLorder ListRefresh Unload Me Exit Sub ErrHandle: MsgBox Unload Me Exit Sub End Sub Private Sub Command3_Click() 39。 End If 39。 + Text1(8).Text + 39。判斷宅電查詢 If Check1(7).Value = 1 And Not IsNull(Text1(7).Text) Then SQLadd = SQLadd + and Home=39。 End If 39。 End If End If 39。性別查詢 If Check1(3).Value = 1 Then If Option1(0).Value = True Then SQLadd = SQLadd + and Sex=39。 End If 39。 + Text1(0).Text + 39。更新數(shù)據(jù)庫顯示信息 = 39。 End If 39。* + Text1(8).Text + *39。判斷宅電查詢 If Check1(7).Value = 1 And Not IsNull(Text1(7).Text) Then SQLadd = SQLadd + and Home like39。 End If 39。 End If End If 39。性別查詢 If Check1(3).Value = 1 Then If Option1(0).Value = True Then SQLadd = SQLadd + and Sex=39。 End If 39。* + Text1(0).Text + *39。判斷性別輸入是否 有效 Option1(0).Enabled = Check1(3).Value Option1(1).Enabled = Check1(3).Value 39。傳真 Text1(11).Text = (12).Text 39。電話 Text1(7).Text = (8).Text 39。年齡 Combo1(2).Text = (4).Text 39。昵稱 Combo1(0).Text = (0).Text 39。 For i = 0 To 12 Text1(i).Text = Next i Text1(1).Text = Date Else 39。 Combo1(3).AddItem Combo1(3).AddItem A 型 Combo1(3).AddItem B 型 Combo1(3).AddItem AB 型 Combo1(3).AddItem O 型 39。修改 On Error GoTo erren Resul Add_Uo Unload frmTJ Exit Sub erren: Dim Result As Integer If Not IsDate(Text1(1).Text) Then Result = MsgBox(出生年月不符合格式！ , 48, 提示 ) Text1(1).Text = Date End If Exit Sub End Sub Private Sub Command3_Click() 39。在沒有輸入法錯(cuò)誤的前提下，添加新記錄 39。更新數(shù)據(jù)庫 ListRefresh 39。電子信箱 (Appendix) = Text1(12).Text 39。傳呼 (Fax) = Text1(10).Text 39。手機(jī) (Home) = Text1(8).Text 39。地址 (TelepNo) = Text1(6).Text 39。星座 (Attributive) = Combo1(2).Text (Blood) = Combo1(3).Text (Oicq) = Text1(4).Text 39。姓名 (Sex) = Combo1(0).Text 39。昵稱 (Age) = Text1(2).Text 39。 MsgBox 密碼修改成功 ,請(qǐng)牢記！ , vbOKOnly Unload Me Else MsgBox 新密碼不一致，請(qǐng)重新輸入！ , vbOKOnly = End If End Sub Private Sub Form_Load() txtUserName = End Sub Private Sub lblLabels_Click(Index As Integer) End Sub ☆ 窗體 7:(添加修改界面程序 ) Option Explicit Private Sub Add_Uo() (Year) = CDate(Text1(1).Text) 39。取消登錄 NoLogin = True Unload Me End Sub Private Sub cmdOK_Click() = 。把數(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。 Dim i As Integer If Not Then 39。進(jìn)行記錄更新 39。MsgBox End Sub Private Sub AddNumbel() On Error GoTo ErrHandle AddRead_Numbel 39。設(shè)置字符串變量來調(diào)用 SQL 語句 SQLoriginal = select * from amp。 39。刷新數(shù)據(jù)窗 口 39。設(shè)置窗口在前 WindowState = 0 39。 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。 Chr(0) amp。 CStr(Index) numMPgl_Click End Sub Private Sub numAcess_Click() 39。 lPassword((Email)) (13).Text = (Appendix) 39。lPassword((MoveCall)) (9).Text = (Home) 39。lPassword((Constell)) (3).Text = (Constell) (4).Text = (Attributive) (5).Text = (Blood) 39。(Oicq) ListViewItem = Count (0).Text = (Sex) 39。Data SQLadd = where Name=Name SQLorder = = mdbFile 39。 mdbDataName amp。設(shè)置窗口在前 Dim i As String Dim j As Integer 39。使 ListView 控件有表格風(fēng)格 ListViewStyleOne_Click 39。退出程序 Unload frmData End Sub Private Sub DocuSeek_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。將圖標(biāo)放到任務(wù)欄 Call Shell_NotifyIcon(NIM_ADD, TrayIcon) = False End Sub Private Sub About_Click() 39。初始化任務(wù)欄圖標(biāo) ( ) / 3, ( ) / 3 = Len(TrayIcon) = = vbNull = NIF_ICON Or NIF_TIP Or NIF_MESSAGE = WM_MOUSEMOVE = 39。把記錄集從內(nèi)存中清除 Set adoRS = Nothing 39。通過身份驗(yàn)證后卸載登錄窗體 Unload Me 39。 amp。 Trim() amp。定義一個(gè)保存 SQL語句的變量 39。調(diào)用模塊中的 ConnectDB過程連接數(shù)據(jù)庫，可以把連接模塊直接寫在這里 Call ConnectDB 39。 名稱 frmSystem Caption 個(gè)人 信息管理系統(tǒng) WindowState 2Maximized 4) 運(yùn)行效果 ☆ 顯示 主界面 1) 新建一個(gè) ” Listview1” ,用來顯示數(shù)據(jù)庫表內(nèi)容 ,把數(shù)據(jù)庫中的信息列出來 . 2) 再建一個(gè) ” Frame1” ,把 ” Comption” 設(shè)置為 ” 詳細(xì)情況 ” 。 VB 的運(yùn)行環(huán)境如下： WinXP+Visual Microsoft Access2021 VB+ACCESS 數(shù)據(jù)庫技術(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è)母窗體 容器。當(dāng)然也可以在系統(tǒng)中再增加其他的功能。當(dāng)然也可以在系統(tǒng)中再增加其他的功能。實(shí)現(xiàn)它的思想就是找出所有可能發(fā)生變化的項(xiàng)， 昵稱 、民族、 地址 （性別就不用了）等，形成各自的表（這里叫它們?yōu)榛颈恚葘?duì)這些基本表進(jìn)行維護(hù)，必須這些基本表中有足夠的記錄時(shí)才可以做其他的事。本系統(tǒng)在制作中采用 Microsoft Corporation的 Visual Data Report，即快又好用，可以把學(xué)生記錄輸出以作為永久保存。在修改子模塊中，首先查詢出要修改的記錄，然后對(duì)每一條記錄進(jìn)行除 編 號(hào)外的任何一項(xiàng)的修改。它包含如下子模塊 ： 1) 新增記錄： 為保證數(shù)據(jù)的有效性、一致性、完整性，在錄入新記錄時(shí)，系統(tǒng)能個(gè)人信息 性別 電話 備注 郵箱 地址 年齡 姓名 昵稱 個(gè)人用戶 基本表的維護(hù) 用戶管理 信息管理