【正文】 設(shè)置用戶類型 If Format(, ) = admin Then lblUserType = 系統(tǒng)管理員 Else lblUserType = 普通用戶 End If End Sub Private Sub Form_Load() lblUserType = lblUserName = = Conn = adCmdTable = Users End Sub 編輯用戶信息窗體代碼 Public Modify As Boolean Public OriUser As String Private Sub Cmd_Cancel_Click() Unload Me 購(gòu)買設(shè)計(jì) ： 382540551 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢選購(gòu) ,價(jià)格最低質(zhì)量最好 38 End Sub Private Sub Cmd_OK_Click() 39。同時(shí)，在 系統(tǒng)開發(fā)過(guò)程中還有同組的同學(xué) 也 給 了 我不 少幫助，這里一并表示感謝。 購(gòu)買設(shè)計(jì) ： 382540551 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢選購(gòu) ,價(jià)格最低質(zhì)量最好 30 設(shè)計(jì)家庭資金統(tǒng)計(jì)窗體 家庭資金統(tǒng)計(jì)窗體的名稱為 FrmSFund，窗體布局如圖 19 所示。設(shè)置列表中顯示字段 = TypeId 39。 窗體中主要控件的屬性如表 11所示。如果密碼不同，要求用戶重新輸入，同時(shí)將計(jì)數(shù)變量 Try_times 加 1。 主鍵表 主鍵字段 相關(guān)表 外鍵字段 Types Typeld InOutList Typeld Members Memld InOutList Memld Account AccountNo InOutList Ano Banks Bankld Account Bid Members Memld Account Memld Banks Bankld BankOper Bid Members Memld BankOper Memld Account AccountNo BankOper Ano 在系統(tǒng)菜單中選擇“工具” /“關(guān)系”，打開關(guān)系窗口，將數(shù)據(jù)庫(kù)中所有表都添加到關(guān)系窗口中。 例如，開發(fā) C/S（客戶 /服務(wù)器）結(jié)構(gòu)的應(yīng)用程序時(shí)，前臺(tái)開發(fā)語(yǔ)言通常可以選擇 Visual Basic、 Visual C++、 Delphi 和 Power Builder 等；如果 開發(fā)網(wǎng)絡(luò)應(yīng)用程序，則需要選擇一個(gè)網(wǎng)絡(luò)數(shù)據(jù)庫(kù)開發(fā)系統(tǒng)，如 Access、 Oracle 和 IBM DB2 等；如果開發(fā)單機(jī)應(yīng)用程序，則只要選擇一個(gè)小型數(shù)據(jù)庫(kù)系統(tǒng)就可以了，例如 Access。 添加基本信息后，就可以添加 理財(cái) 信息了。在系統(tǒng)初始化時(shí)，有兩個(gè)默認(rèn)的用戶。對(duì)硬件資源進(jìn)行可行性分析時(shí)主要考慮計(jì)算機(jī)的主機(jī)內(nèi)存、類型、功能、聯(lián)網(wǎng)能力、安全保護(hù)措施以及輸入 /輸出設(shè)備，外存儲(chǔ)器和聯(lián)網(wǎng)數(shù)據(jù)通信設(shè)備的配置、功能、效率等指標(biāo)是否符合系統(tǒng)方案設(shè)計(jì)要求，同時(shí)還要考慮計(jì)算機(jī)的性能 /價(jià)格比。 （ 1）明確用戶的要求，以根據(jù)調(diào)查結(jié)果進(jìn)行可行性分析，確認(rèn)系統(tǒng)的開發(fā)是否可行。對(duì)用戶滿意的原型系統(tǒng)進(jìn)行進(jìn)一步的開發(fā)，不斷補(bǔ)充、完善，最終形成一個(gè)適用的管理信息系統(tǒng)。 目前，管理信息系統(tǒng)的應(yīng)用已經(jīng)非常廣泛，隨著計(jì)算機(jī)技術(shù)、網(wǎng)絡(luò)技術(shù)和通信技術(shù)的發(fā)展，管理信息系統(tǒng)的功能也日趨完善，并朝著智能化、網(wǎng)絡(luò)化、集成化等方向發(fā)展。它能提供信息支持企業(yè)或組織的運(yùn)行、管理和決策功能。它將促進(jìn)整個(gè)社會(huì)的發(fā)展。 在當(dāng)今的社會(huì)，可以 說(shuō)是信息技術(shù)的發(fā)展時(shí)代，在社會(huì)的方方面面無(wú)不涉及到各種信息的處理。 (2)作者的主要 任務(wù) 本人獨(dú)立完成了此課題的研究與開發(fā)，包括調(diào)研、分析、設(shè)計(jì)、編碼、測(cè) 試、文檔編寫等內(nèi)容。 (3)預(yù)測(cè)功能： 通過(guò)運(yùn)用一定的數(shù)學(xué)方法和預(yù)測(cè)模型，對(duì)過(guò)去的數(shù)據(jù)進(jìn)行分析，就可能對(duì)未來(lái)可能發(fā)生的情況進(jìn)行預(yù)測(cè)，為高級(jí)管理人員進(jìn)行管理決策提供依據(jù)。將建造好的原型系統(tǒng)交給用戶，并投入試運(yùn)行，用戶將使用過(guò)程中發(fā)現(xiàn)的問(wèn)題一一記錄下來(lái)，并與開發(fā)人員進(jìn)行交流。 面向?qū)ο蠓ǖ闹饕秉c(diǎn)與原型法一樣，因此這種方法也不 適用于開發(fā)大的、復(fù)雜的系統(tǒng)。 （ 1）技術(shù)支持： 首先根據(jù)新系統(tǒng)的目標(biāo)，考慮目前有關(guān)的技術(shù)能否支持所開發(fā)的新系統(tǒng)。 圖 1 家庭理財(cái) 管理系統(tǒng)功能模塊圖 在功能模塊示意圖的樹狀結(jié)構(gòu)中，每一個(gè)葉結(jié)點(diǎn)都是一個(gè)最小的功能模塊。 在本系統(tǒng)中，應(yīng)該首先增加基本信息，之后才能增加 理財(cái) 信息。如果 3次輸入的用戶名和密碼都無(wú)法與數(shù)據(jù)庫(kù)中的數(shù)據(jù)匹配，則強(qiáng)制退出系統(tǒng)。 表 6 表 Amount 的結(jié)構(gòu) 編號(hào) 字段名稱 數(shù)據(jù)結(jié)構(gòu) `說(shuō)明 1 AccountNo 文本，長(zhǎng)度 50 記錄編號(hào)，主鍵 2 Atype 文本，長(zhǎng)度 50 帳戶類型。 ? 調(diào)用 ()函數(shù)，判斷當(dāng)臆用戶名是否存在。在窗體 FrmBankMan 中，使用DataGrid 和 Adodc 控件來(lái)顯示銀行信息數(shù)據(jù)。設(shè)置連接字符串 = Conn 39。 數(shù)據(jù)統(tǒng)計(jì)管理模塊設(shè)計(jì) 數(shù)據(jù)統(tǒng)計(jì)管理模塊包括日常收支統(tǒng)計(jì)、銀行交易統(tǒng)計(jì)和家庭資產(chǎn)等功能。他無(wú)論在理論上還是在實(shí)踐中，都給與我很大的幫助，使我得到 很大 的提高 ， 這對(duì)于我以 后 的工作和學(xué)習(xí)都有一種巨大的幫助， 在此 感謝他耐心的輔導(dǎo)。如果沒有選擇用戶名，則返回 購(gòu)買設(shè)計(jì) ： 382540551 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢選購(gòu) ,價(jià)格最低質(zhì)量最好 37 If = Then Exit Sub End If 39。如果是插入新的用戶，則必須進(jìn)行判斷；如果是修改已有的用戶，則當(dāng)用戶名被修改時(shí)進(jìn)行判斷 With MyUser If Modify = False Or OriUser Trim(txtUserName) Then If .In_DB(txtUserName) = True Then MsgBox 用戶名已經(jīng)存在，請(qǐng)重新輸入 購(gòu)買設(shè)計(jì) ： 382540551 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢選購(gòu) ,價(jià)格最低質(zhì)量最好 39 = 0 = Len(txtUserName) Exit Sub End If End If .UserName = Trim(txtUserName) .UserPwd = Trim(txtPass) 39。如果選擇用戶名為 Admin，則提示不能刪除，返回 If Format(, ) = admin Then MsgBox 此用戶不能刪除 Exit Sub End If 39。 編輯用戶信息窗體 結(jié)束語(yǔ) 購(gòu)買設(shè)計(jì) ： 382540551 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢選購(gòu) ,價(jià)格最低質(zhì)量最好 32 在本系統(tǒng)的開發(fā)過(guò)程中，由于本人是初次開發(fā)軟件，在知識(shí)、經(jīng)驗(yàn)方面都存在著不足。判斷數(shù)據(jù)庫(kù)中是否已經(jīng)存在此類型名稱 If (Trim(txtName), nFlag) = True Then MsgBox (已經(jīng)存在此類型名稱 ) Exit Sub End If 39。 End If TmpSource = Select BankId AS 銀行編號(hào) ,BankName AS 銀行全稱 ,BShort AS 簡(jiǎn)稱 ,Place AS 所在地址 _ + From Banks + strSearch + Order By BankId = Conn = TmpSource Set = Adodc1 (0).Width = 1000 (1).Width = 2400 (2).Width = 1200 (3).Width = 2400 End Sub Cmd_Add_Click 過(guò)程 當(dāng)用戶單 擊“ 添加 ”按鈕時(shí)觸發(fā) Cmd_Add_Click 事件，代碼如下： Private Sub Cmd_Add_Click() = False 1 39。 ? 關(guān)閉登錄窗體。 設(shè)計(jì)登錄窗體 登錄窗體的名稱為 FrmLogin，它的界面布局如圖 4 所示。因?yàn)閿?shù)據(jù)庫(kù)結(jié)構(gòu)的變化會(huì)造成編碼的改動(dòng)，所以必須認(rèn)真設(shè)計(jì)數(shù)據(jù)庫(kù)結(jié)構(gòu)后再進(jìn)行編碼，從而避免無(wú)所謂的重復(fù)工作。在添加日常收支信息時(shí)，需要選擇收支類型、家庭成員和帳號(hào)信息。用戶管理功能模塊的關(guān)系如圖 2 所示。 第四章 系統(tǒng)分析與總體設(shè)計(jì) 要開發(fā)一個(gè)管理信息系統(tǒng)，首先需要進(jìn)行需求分析和總體設(shè)計(jì)，分析系統(tǒng)的使用對(duì)象和用戶需求，設(shè)計(jì)系統(tǒng)的體系結(jié)構(gòu)和數(shù)據(jù)庫(kù)結(jié)構(gòu)，決定使用的開發(fā)工具和后臺(tái)數(shù)據(jù)庫(kù)，規(guī)劃項(xiàng)目開展進(jìn)度。 （ 3）企業(yè)的現(xiàn)行系統(tǒng)可能是手工系統(tǒng)，也可能是使用和計(jì)算機(jī)的系統(tǒng)，無(wú)論是何種情況，都要詳細(xì)地調(diào)查現(xiàn)行系統(tǒng)中信息處理的具體情況，系統(tǒng)內(nèi)部功能結(jié)構(gòu)，以便設(shè)計(jì)出一個(gè)合理的、好的新系統(tǒng)邏輯模型，為新系統(tǒng)的設(shè)計(jì)工作打好基礎(chǔ)，保證整個(gè)系統(tǒng)開發(fā)的質(zhì)量。 (2)面向?qū)ο蟮拈_發(fā)方法 面向?qū)ο螅?Object Oriented）的技術(shù)于 20 世紀(jì) 80 年興起，隨后廣泛地應(yīng)用于計(jì)算機(jī)技術(shù)的幾乎所有領(lǐng)域。 下面僅對(duì)原型 法和面對(duì)對(duì)象的開發(fā)方法進(jìn)行簡(jiǎn)單的描述?！? 因此，我們可以看出，管理系統(tǒng)系統(tǒng)具有幾個(gè)基本含義： （ 1）管理信息系統(tǒng)不是一個(gè)單純的軟件系統(tǒng)，而是一個(gè)人－機(jī)系統(tǒng)，由人和機(jī)器協(xié)同工作。不斷開發(fā)適應(yīng)用戶需求、市場(chǎng)需要的新型軟件產(chǎn)品，參與市場(chǎng)競(jìng)爭(zhēng)，獲取最大利潤(rùn)是全球信息企業(yè)追求的目標(biāo)。這也是本系統(tǒng)的特色和優(yōu)勢(shì)。理財(cái)信息的添加、修改、刪除和查詢。 管理信息系統(tǒng)應(yīng)具有如下幾個(gè)功能。系統(tǒng)開發(fā)人員根據(jù)用戶的要求建立原型系統(tǒng)，但該系統(tǒng)只是一個(gè)初步的、不成熟的系統(tǒng)，從系統(tǒng)的工作效率上看也是不完善的。 C、由信息系統(tǒng)的模型轉(zhuǎn)換成計(jì)算機(jī)軟件系統(tǒng)的模型。 ④經(jīng)濟(jì)可行性分析 經(jīng)濟(jì)可行性分析主要是對(duì)開發(fā)新系統(tǒng)所投入的資金與系統(tǒng)投入使用后所帶來(lái)的經(jīng)濟(jì)效益進(jìn)行比較，確認(rèn)新系統(tǒng)是否會(huì)給企業(yè)帶來(lái)一定的經(jīng)濟(jì)效益。 ? 數(shù)據(jù)統(tǒng)計(jì)模塊包括日常收支統(tǒng)計(jì)、銀行交易統(tǒng)計(jì)和家庭資產(chǎn)統(tǒng)計(jì)等功能。如果還要?jiǎng)?chuàng)建其他用戶，可以在用戶管理模塊中創(chuàng)建和管理。日常收支統(tǒng)計(jì)信息包括收支分類和收支金額等信息；銀行交易統(tǒng)計(jì)信息包括銀行帳號(hào)、交易金額和所得利息等信息；家庭資產(chǎn)統(tǒng)計(jì)信息包括銀行總存款、現(xiàn)金總額、收支總額和支出總額等信息。 購(gòu)買設(shè)計(jì) ： 382540551 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢選購(gòu) ,價(jià)格最低質(zhì)量最好 12 表 3 表 Members 的結(jié)構(gòu) 編號(hào) 字段名稱 數(shù)據(jù)結(jié)構(gòu) `說(shuō)明 1 Memld 自動(dòng)編號(hào) 記錄編號(hào)，主鍵 2 MemName 文本，長(zhǎng)度 50 姓名 3 Sex 文本，長(zhǎng)度 10 性別 4 Birth 文本，長(zhǎng)度 50 生日 5 Mobile 文本，長(zhǎng)度 50 手術(shù) 6 Job 文本，長(zhǎng)度100 工作單位 日常收支信息表 InOutList 表 InOutList 用來(lái)保存日常收支信息，結(jié)構(gòu)如表 4 所示。登錄成功，將當(dāng)前用戶的信息保存在 CurUser 中 購(gòu)買設(shè)計(jì) ： 382540551 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢選購(gòu) ,價(jià)格最低質(zhì)量最好 17 () 39。 設(shè)計(jì) 銀行信息 編輯窗體 銀行信息 編輯窗體 的名稱為 FrmBankEdit，其布局如圖 6所示。 表 12 窗體 FrmType 中包含的控件及其屬性 對(duì)象名 屬性 屬性值 /說(shuō)明 DataList1 Name DataList1(用來(lái)顯示收入類型名稱 ) 購(gòu)買設(shè)計(jì) ： 382540551 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬(wàn)余套設(shè)計(jì) ,歡迎咨詢選購(gòu) ,價(jià)格最低質(zhì)量最好 23 AdoType Visible False(用于提供數(shù)據(jù)源 ) txtName Name txtName（用來(lái)編輯分類名稱） Cmd_Add Caption 添加 Cmd_Modi Caption 修改 Cmd_Del Caption 刪除 Cmd_Back Caption 返回 窗體布局如