個(gè)人信息管理課程設(shè)計(jì)報(bào)告-資料下載頁
2025-01-20 21:35本頁面
【導(dǎo)讀】人財(cái)務(wù)管理等方面。同時(shí)可以讓某些個(gè)體自我注冊(cè)一個(gè)賬號(hào)來查詢自己的所需信息。據(jù)庫相關(guān)知識(shí)解決實(shí)際問題的能力。本設(shè)計(jì)要求對(duì)實(shí)際問題進(jìn)行需求分析，提煉實(shí)際。問題中的數(shù)據(jù)，建立關(guān)系模型，并在大型數(shù)據(jù)庫中得以實(shí)現(xiàn)。營、管理及使用上進(jìn)行必要的規(guī)劃和實(shí)現(xiàn)。通訊錄信息，包括通訊人姓名、聯(lián)系方式、工作地點(diǎn)、城市、備注等；如果沒有對(duì)應(yīng)的UID或。若日記較長，窗口能顯示部分。計(jì)算出用戶的總收入，總支出，和剩余金額。5．備忘錄模塊：顯示用戶的備忘錄內(nèi)容，提醒用戶重要事件的時(shí)間地點(diǎn)。若新用戶的用戶名已經(jīng)存在，則報(bào)錯(cuò)。
【正文】 記錄 Dim RSContact As Set RSContact=( Execcontactrecord amp。ID2Use) 39。調(diào)用 ContactRecord 存儲(chǔ)過程 If Then ’如果存儲(chǔ)過程調(diào)用返回文件結(jié)束標(biāo)識(shí)，則調(diào)用 “清除 Command7_Click ’按鈕的 click 程序 ， 清除界面上的數(shù)據(jù)。 19 Else ‘否則顯示一條記錄 currentID = RSContact( ContactID ) = RSContact( Name ) = RSContact( Address ) = RSContact( ZipCode ) = RSContact( EmailAddress ) = RSContact( ContactNote ) DisplayPhoneList 39。顯示該聯(lián)系人的電話號(hào)碼 End If End Sub B： 調(diào)用 contactRecord 存儲(chǔ)過程查詢 聯(lián)系人姓名和編號(hào)，然后加入到下拉列表bo1 中 Public Sub UpdateNameCombo() Dim RSNames As 39。定義一記錄集變量 39。通過連接變量執(zhí)行存儲(chǔ)過程 Set RSNames = ( Exec contactlist ) Do Until RSNames( Name ) ()= RSNames( ContactID ) Loop End Sub C： 調(diào)用存儲(chǔ)過程 contactPhonelist， 讀取聯(lián)系人對(duì)應(yīng)的電話號(hào)碼，然后將其加入到列表框 List1 中 ： Public Sub DisplayPhoneList() Dim RSPhoneList As 20 SetRSPhoneList=(Exec contactphonelist amp。 currentID) Do Until RSPhoneList( ThePhone ) ()= RSPhoneList( ContactPhoneID ) Loop End Sub （ 7） form2 各控件的事件驅(qū)動(dòng)程序 ： A： 調(diào)用 DisPlayContact 子程序來顯示 bo1 下拉表中被選項(xiàng)目的對(duì)應(yīng)記錄 Private Sub Combo1_Click() DisPlayContact () End Sub B： 調(diào)用 contacAdd 存儲(chǔ)過程，添加一條記錄至 contacts 表中，同時(shí)記錄聯(lián)系人編號(hào)和聯(lián)系人姓名加入 bo1 下拉表中 。 Private Sub Command3_Click() ’ 聯(lián)系人添加按鈕的驅(qū)動(dòng)程序 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)系人按鈕的驅(qū)動(dòng)程序 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)系人刪除按鈕的事件驅(qū)動(dòng)程序 Private Sub Command4_Click() If currentID = 0 Then Command5_Click ‘聯(lián)系人清除按鈕 Else Exec deletecontactamp。 currentID UpdateNameCombo DisPlayContact 0 End If End Sub E:清除當(dāng)前窗口信息 Private Sub Command5_Click() currentID = 0 = = = = = 22 End Sub F： 退出按鈕 Private Sub Command7_Click() 39。退出程序 Unload Me End Sub G： 調(diào)用子程序 DiaPlayContact 顯示 contacts 表中第一條記錄，然后調(diào)用UpdateNameCombo 將 contacts 表中記錄聯(lián)系人編號(hào)和聯(lián)系人姓名加入 bo1下拉表 Private Sub Form_Load() DisPlayContact 0 UpdateNameCombo End Sub
試題試卷相關(guān)推薦
鄂ICP備17016276號(hào)-1