【正文】 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］ .北京：清華大學出版社 .1995 [4]黃浩、趙宏杰 .PowerBuilder 精彩編程百例 ［ M］ .中國水 利水電出版社 .2020 [5]沈磊 .零售業(yè)的網(wǎng)絡時代 .上海財經(jīng)大學工商管理學院學報 (商業(yè)研究 ) ［ N］ .2020 年第 5期 [6]鄭人杰、殷人昆 .實用軟件工程 ［ M］ .清華大學出版社 .2020 [7]李澤建、許亮 .淺析多媒體數(shù)據(jù)庫技術的發(fā)展 和展望 ［ N］ .昆明理工大學學報 (理工版 ).2020 年 2月 [8]余金山、馮星紅、李肖 .PowerBuilder 數(shù)據(jù)開發(fā)高級實例 ［ M］ .北京：科學出版社 .2020 [9]夏翔 .PowerBuilder 商場零售系統(tǒng)開發(fā)實例導航 ［ M］ .人民郵電出版社 .2020 [10]何旭洪、趙昊彤、歐陽軍等 .Oracle+PowerBuilder 數(shù)據(jù)庫應用開發(fā) ［ M］ . 人民郵電出版社 .2020 。Call Db Call Bangding End Sub Private Sub Form_Load() On Error Resume Next 39。 39。If Then 39。Call Db 39。Call Db 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。), 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。 amp。,39。 amp。,39。 amp。,39。 amp。,39。 amp。,39。 amp。, 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。 算法描述 圖 17 查詢 算法流程圖 開始 輸入查詢?nèi)掌? 檢索庫中是否存在 顯示信息 結(jié)束 Y N 界面設計 登錄窗口界面 圖 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。 算法 （ 1） 如果數(shù)據(jù)庫中沒有與輸入合理日期，則視為“輸入無效”。 （ 2） 如果用戶輸入的密碼和數(shù)據(jù)庫中內(nèi)容不一致 ，則視為“密碼錯誤”。 登錄模塊 模塊定義 用戶注冊及登陸模塊 （ 1）模塊編號： S1 （ 2） 模塊名稱：用戶登陸 （ 3）模塊功能： 用戶 登陸，登陸時用戶添寫 用戶編號 和密碼請求登陸，系統(tǒng)會從數(shù)據(jù)庫中進行檢索，如果有匹配的信息，則表示登陸成功，否則登陸失敗，提示重新登陸。數(shù) 據(jù)可以手動或者自動備份，對破損數(shù)據(jù)可以及時恢復。 安全保密設計 系統(tǒng)設計了登錄界面，每個合法用戶都有一個編號、用戶名及密碼，該密碼都用戶個人維護，從而實現(xiàn)對用戶的身份驗證。 在網(wǎng)絡傳輸方面，可建立一條成本較低的后備網(wǎng)絡，以保證當主網(wǎng)絡斷路時數(shù)據(jù)的通信。 出錯處理對策 在客戶機和服務器上安裝不間斷電源以防止停電或電壓不穩(wěn)造成的數(shù)據(jù)丟失的損失。返回輸入階段。 對于軟錯誤，須在輸入數(shù)據(jù)驗證模塊由數(shù)據(jù)進行數(shù)據(jù)分析，判斷錯誤類型，再生成相應的錯誤提示語句，達到輸出模塊中。 運行時間 使用高性能的服務器，如 Pentium4，將縮短數(shù)據(jù)庫反應時間。 運行控制 運行控制嚴格按照各模塊間函數(shù)調(diào)用關系來實現(xiàn)。在接收數(shù)據(jù)模塊得到充分的數(shù)據(jù)時，并等待接收服務器返回的信息。 運行設計 運行環(huán)境 該系統(tǒng)為客戶端 /服務器模式，客戶端可安裝在個人計算機上，運行于 Windows98 以上的操作系統(tǒng)下，服務器端 DBMS 選用SQL SERVER 進行管理。 關系模式設計 人員表（ 成員編號 ，成員姓名，成員密碼） 銀行設置表（ 銀行編碼 ，銀行名稱） 消費名稱表（ 消費編號 ，消費名稱） 消費用途表（ 編號 ，名稱） 收入來源表 （ 編碼 ，收入來源） 一般收入表（ 收入人 ，收入金額 ,收入來源 ,收入日期 ,說明） 借入收入表（ 借款人 ，借款日期，借入金額，借款時間，說明） 返還收入表（ 借款人 ，返還日期，返還金額，返還時間，說明） 股票收入表（ 股票名稱 ，賣出日期，賣出時間，買出人，說明） 存入銀行表（存款人，存款金額，銀行，日期，說明） 借出支出表（ 借出人 ，借出日期，借款金額，借出時間，說明） 日常支出表（ 消費人 ，消費日期，消費時間，消費用途，說明） 還貸支出表（ 還貸人 ，還貸日期，還貸時間，還貸金額，說明） 股票支出表（ 股票名稱 ，購買日期， 購買時間，首數(shù)，說明） 存款支出表（ 支款人 ，支款金額，銀行，日期，說明）