【導(dǎo)讀】近幾年來，隨著我國城鄉(xiāng)居民收入的增加和生活水平的提高，家庭理財已成為人們居家過日子的重要內(nèi)容?，F(xiàn)在的城鄉(xiāng)家庭生活發(fā)生了明顯的變化，人們的收入逐。漸拉開檔次，消費水平也高了。大多數(shù)家庭關(guān)注的是提高生活質(zhì)。證適當(dāng)?shù)膴蕵坊顒?、社會交際、智力開發(fā)等方面的開支。不少家庭就有中長期財務(wù)預(yù)算，有基本建設(shè)規(guī)劃。值為目標(biāo)，處理好積累和消費的關(guān)系。因此，應(yīng)樹立以下四個觀。資金運動，是家庭經(jīng)濟活動的價值反應(yīng)，家庭理財應(yīng)管好用活資金，加速資金周轉(zhuǎn)，提高資金利用效果，金的載體，應(yīng)力爭實現(xiàn)其保值增值。其中包括了買入賣出實物，娛樂消費，起居飲食。消費，還有發(fā)放工資，收繳保費等。歐元，今天所得的利潤進行統(tǒng)計。后根據(jù)貨幣兌換率提供的值計算現(xiàn)金賬戶今天該錄入的數(shù)值。的變賣值轉(zhuǎn)入存款賬戶。查找，轉(zhuǎn)賬，統(tǒng)計。愿望，以便更好地做好家庭收支計劃，和家庭財務(wù)管理。交易賬戶，實物資產(chǎn)賬戶，債權(quán)債務(wù)賬戶，保險賬戶。

　　

【正文】 存儲查詢 模塊 （ 1）模塊編號： S2 （ 2）模塊名稱： 存儲 （ 3）模塊功能： 對銀行存儲進行管理，并可以查詢存款的多少。 算法 （ 1） 如果數(shù)據(jù)庫中沒有與輸入合理日期，則視為“輸入無效”。 （ 2） 如果用戶輸入的名字和數(shù)據(jù)庫中內(nèi)容不一致，則視為“用戶不存在”。 算法描述 圖 17 查詢 算法流程圖 開始 輸入查詢?nèi)掌? 檢索庫中是否存在 顯示信息 結(jié)束 Y N 界面設(shè)計 登錄窗口界面 圖 18 用戶登錄界面 系統(tǒng)登窗口主界面 圖 19 系統(tǒng)主界面 ． 4“一般收入”窗口界面 圖 20“ 一般 收入”界面 ” 存款 ” 窗口界面 ” 存款 ” 窗口界面 5 程序代碼 Dim Mydb As New Dim Mydb1 As New Dim Str_text As String Dim strflag As String Private Sub cmd_add_Click() = False = False = False = False = True = True = = = = strflag = 添加 = True End Sub Private Sub cmd_close_Click() Unload Me End Sub Private Sub cmd_del_Click() Dim A As Boolean A = MsgBox(是否真的要刪除這條記錄？ , vbOKCancel + 32 + 256, 刪除 ) If A = True Then ExeCutesql delete from 借出 where 得款人 =39。 amp。 amp。 39。, Str_text MsgBox 記錄已刪除！ , , 刪除 If 0 Then If Then Call Db Call Bangding = End If End If End Sub Private Sub cmd_edit_Click() On Error Resume Next Dim A As Boolean = False = False = False = False = True = True strflag = 修改 = True End Sub Private Sub Cmdsave_Click() On Error Resume Next Dim A As Boolean If strflag = 添加 Then A = MsgBox(是否添加前記錄？ , vbYesNo + 32, 添加記錄 ) If A = True Then ExeCutesql insert into 借出 values(39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。), Str_text MsgBox 數(shù)據(jù)已經(jīng)保存！ , vbOKOnly + 64, 成功 Call Db = End If ElseIf strflag = 修改 Then A = MsgBox(是否修改前記錄？ , vbYesNo + 32, 添加記錄 ) If A = True Then 39。 Call Db MsgBox 數(shù)據(jù)修改成功！ , vbOKOnly + 64, 成功 End If End If = False = True = True = True = True = False = False End Sub Private Sub Combo1_Change() Dim A As Integer Set Mydb1 = ExeCutesql(select 姓名 from 成員 , Str_text) 39。 Set = Mydb1 A = For I = 1 To A (0) If Then Exit For Next I End Sub Private Sub Command1_Click() On Error Resume Next 39。Call Db Call Bangding End Sub Private Sub Command2_Click() On Error Resume Next 39。Call Db 39。If Not Then If Then MsgBox 這已經(jīng)是第一條記錄了！ , vbOKOnly + 32, 注意 End If Call Bangding End Sub Private Sub Command3_Click() On Error Resume Next 39。Call Db 39。 39。If Then 39。 MsgBox 這已經(jīng)是第一條記錄了！ , vbOKOnly + 32, 注意 39。 39。End If If Then MsgBox 這已經(jīng)是最后一條記錄了！ , vbOKOnly + 32, 注意 End If Call Bangding End Sub Private Sub Command4_Click() On Error Resume Next 39。Call Db Call Bangding End Sub Private Sub Form_Load() On Error Resume Next 39。Set Mydb = ExeCutesql(select * from 借出 , Str_text) Call Db 39。Call Bangding = 0 = = Date = False = True = True = True = True = False = False End Sub Private Function Db() On Error Resume Next Set Mydb = ExeCutesql(select * from 借出 , Str_text) End Function Private Function Bangding() On Error Resume Next Set = Mydb Set = Mydb Set = Mydb Set = Mydb Set = Mydb = 得款人 = 金額 = 日期 = 借款原因 = 已還 Set = Mydb = 出借人 End Function 參考文獻 [1] 黃梯云、李一軍 .管理信息系統(tǒng)教程 ［ M］ .北京：高等教育出版社 .2020(2020 重印 ) [2]薩師煊，王珊 .數(shù)據(jù)庫系統(tǒng)概論教程 ［ M］ .北京：高等教育出版社 .2020(2020 重印 ) [3]孟小峰 .開發(fā)數(shù)據(jù)庫互連 — ODBC 使用大全 ［ M］ .北京：清華大學(xué)出版社 .1995 [4]黃浩、趙宏杰 .PowerBuilder 精彩編程百例 ［ M］ .中國水 利水電出版社 .2020 [5]沈磊 .零售業(yè)的網(wǎng)絡(luò)時代 .上海財經(jīng)大學(xué)工商管理學(xué)院學(xué)報 (商業(yè)研究 ) ［ N］ .2020 年第 5期 [6]鄭人杰、殷人昆 .實用軟件工程 ［ M］ .清華大學(xué)出版社 .2020 [7]李澤建、許亮 .淺析多媒體數(shù)據(jù)庫技術(shù)的發(fā)展 和展望 ［ N］ .昆明理工大學(xué)學(xué)報 (理工版 ).2020 年 2月 [8]余金山、馮星紅、李肖 .PowerBuilder 數(shù)據(jù)開發(fā)高級實例 ［ M］ .北京：科學(xué)出版社 .2020 [9]夏翔 .PowerBuilder 商場零售系統(tǒng)開發(fā)實例導(dǎo)航 ［ M］ .人民郵電出版社 .2020 [10]何旭洪、趙昊彤、歐陽軍等 .Oracle+PowerBuilder 數(shù)據(jù)庫應(yīng)用開發(fā) ［ M］ . 人民郵電出版社 .2020