【導讀】人財務管理等方面。同時可以讓某些個體自我注冊一個賬號來查詢自己的所需信息。據(jù)庫相關知識解決實際問題的能力。本設計要求對實際問題進行需求分析，提煉實際。問題中的數(shù)據(jù)，建立關系模型，并在大型數(shù)據(jù)庫中得以實現(xiàn)。營、管理及使用上進行必要的規(guī)劃和實現(xiàn)。通訊錄信息，包括通訊人姓名、聯(lián)系方式、工作地點、城市、備注等；如果沒有對應的UID或。若日記較長，窗口能顯示部分。計算出用戶的總收入，總支出，和剩余金額。5．備忘錄模塊：顯示用戶的備忘錄內容，提醒用戶重要事件的時間地點。若新用戶的用戶名已經存在，則報錯。

　　

【正文】 記錄 Dim RSContact As Set RSContact=( Execcontactrecord amp。ID2Use) 39。調用 ContactRecord 存儲過程 If Then ’如果存儲過程調用返回文件結束標識，則調用 “清除 Command7_Click ’按鈕的 click 程序 ， 清除界面上的數(shù)據(jù)。 19 Else ‘否則顯示一條記錄 currentID = RSContact( ContactID ) = RSContact( Name ) = RSContact( Address ) = RSContact( ZipCode ) = RSContact( EmailAddress ) = RSContact( ContactNote ) DisplayPhoneList 39。顯示該聯(lián)系人的電話號碼 End If End Sub B： 調用 contactRecord 存儲過程查詢 聯(lián)系人姓名和編號，然后加入到下拉列表bo1 中 Public Sub UpdateNameCombo() Dim RSNames As 39。定義一記錄集變量 39。通過連接變量執(zhí)行存儲過程 Set RSNames = ( Exec contactlist ) Do Until RSNames( Name ) ()= RSNames( ContactID ) Loop End Sub C： 調用存儲過程 contactPhonelist， 讀取聯(lián)系人對應的電話號碼，然后將其加入到列表框 List1 中 ： Public Sub DisplayPhoneList() Dim RSPhoneList As 20 SetRSPhoneList=(Exec contactphonelist amp。 currentID) Do Until RSPhoneList( ThePhone ) ()= RSPhoneList( ContactPhoneID ) Loop End Sub （ 7） form2 各控件的事件驅動程序 ： A： 調用 DisPlayContact 子程序來顯示 bo1 下拉表中被選項目的對應記錄 Private Sub Combo1_Click() DisPlayContact () End Sub B： 調用 contacAdd 存儲過程，添加一條記錄至 contacts 表中，同時記錄聯(lián)系人編號和聯(lián)系人姓名加入 bo1 下拉表中 。 Private Sub Command3_Click() ’ 聯(lián)系人添加按鈕的驅動程序 Dim RSAddNew As Set RSAddNew = (Exec contactadd amp。 39。 amp。amp。 39。, amp。 39。 amp。 amp。 39。, amp。 39。 amp。 amp。 39。, amp。 39。 amp。 amp。 39。, amp。 39。 amp。 amp。 39。 ) currentID = RSAddNew( TheNewID ) () = RSAddNew( TheNewID ) End Sub C:聯(lián)系人按鈕的驅動程序 21 Private Sub Command8_Click() If currentID = 0 Then Command3_Click 39。聯(lián)系人添加按鈕 Else ( Exec contactupdate amp。 currentID amp。 , amp。 39。 amp。 amp。 39。, amp。 39。 amp。 amp。 39。, amp。 39。 amp。 amp。 39。, amp。 39。 amp。 amp。 39。, amp。 39。 amp。 amp。 39。 ) End If UpdateNameCombo End Sub D： 聯(lián)系人刪除按鈕的事件驅動程序 Private Sub Command4_Click() If currentID = 0 Then Command5_Click ‘聯(lián)系人清除按鈕 Else Exec deletecontactamp。 currentID UpdateNameCombo DisPlayContact 0 End If End Sub E:清除當前窗口信息 Private Sub Command5_Click() currentID = 0 = = = = = 22 End Sub F： 退出按鈕 Private Sub Command7_Click() 39。退出程序 Unload Me End Sub G： 調用子程序 DiaPlayContact 顯示 contacts 表中第一條記錄，然后調用UpdateNameCombo 將 contacts 表中記錄聯(lián)系人編號和聯(lián)系人姓名加入 bo1下拉表 Private Sub Form_Load() DisPlayContact 0 UpdateNameCombo End Sub