【正文】 連 — ODBC 使用大全 ［ M］ .北京：清華大學出版社 .1995 [4]黃浩、趙宏杰 .PowerBuilder 精彩編程百例 ［ M］ .中國水 利水電出版社 .2020 [5]沈磊 .零售業(yè)的網絡時代 .上海財經大學工商管理學院學報 (商業(yè)研究 ) ［ N］ .2020 年第 5期 [6]鄭人杰、殷人昆 .實用軟件工程 ［ M］ .清華大學出版社 .2020 [7]李澤建、許亮 .淺析多媒體數據庫技術的發(fā)展 和展望 ［ N］ .昆明理工大學學報 (理工版 ).2020 年 2月 [8]余金山、馮星紅、李肖 .PowerBuilder 數據開發(fā)高級實例 ［ M］ .北京：科學出版社 .2020 [9]夏翔 .PowerBuilder 商場零售系統開發(fā)實例導航 ［ M］ .人民郵電出版社 .2020 [10]何旭洪、趙昊彤、歐陽軍等 .Oracle+PowerBuilder 數據庫應用開發(fā) ［ M］ . 人民郵電出版社 .2020 。Call Db Call Bangding End Sub Private Sub Form_Load() On Error Resume Next 39。If Then 39。Call Db 39。), Str_text MsgBox 數據已經保存！ , vbOKOnly + 64, 成功 Call Db = End If ElseIf strflag = 修改 Then A = MsgBox(是否修改前記錄？ , vbYesNo + 32, 添加記錄 ) If A = True Then 39。,39。,39。,39。,39。,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。 算法描述 圖 17 查詢 算法流程圖 開始 輸入查詢日期 檢索庫中是否存在 顯示信息 結束 Y N 界面設計 登錄窗口界面 圖 18 用戶登錄界面 系統登窗口主界面 圖 19 系統主界面 ． 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。 （ 2） 如果用戶輸入的密碼和數據庫中內容不一致 ，則視為“密碼錯誤”。數 據可以手動或者自動備份，對破損數據可以及時恢復。 在網絡傳輸方面，可建立一條成本較低的后備網絡，以保證當主網絡斷路時數據的通信。返回輸入階段。 運行時間 使用高性能的服務器，如 Pentium4，將縮短數據庫反應時間。在接收數據模塊得到充分的數據時，并等待接收服務器返回的信息。 關系模式設計 人員表（ 成員編號 ，成員姓名，成員密碼） 銀行設置表（ 銀行編碼 ，銀行名稱） 消費名稱表（ 消費編號 ，消費名稱） 消費用途表（ 編號 ，名稱） 收入來源表 （ 編碼 ，收入來源） 一般收入表（ 收入人 ，收入金額 ,收入來源 ,收入日期 ,說明） 借入收入表（ 借款人 ，借款日期，借入金額，借款時間，說明） 返還收入表（ 借款人 ，返還日期，返還金額，返還時間，說明） 股票收入表（ 股票名稱 ，賣出日期，賣出時間，買出人，說明） 存入銀行表（存款人，存款金額，銀行，日期，說明） 借出支出表（ 借出人 ，借出日期，借款金額，借出時間，說明） 日常支出表（ 消費人 ，消費日期，消費時間，消費用途，說明） 還貸支出表（ 還貸人 ，還貸日期，還貸時間，還貸金額，說明） 股票支出表（ 股票名稱 ，購買日期， 購買時間，首數，說明） 存款支出表（ 支款人 ，支款金額，銀行，日期，說明） 數據字典 表 6 用戶數據表 列含義 列標志 類型 長度 是否主健 完整性約束 成員編號 Char 2 是 數字字符 成員姓名 Char 10 否 字符型數據 成員密碼 Char 10 否 字符型數據 表 7 銀行設置數據表 列含義 列標志 類型 長度 是否主健 完整性約束 銀行編碼 Char 10 是 數字字符 銀行名稱 Char 10 否 字符型數據 表 8 消費名稱表 列含義 列標志 類型 長度 是否主健 完整性約束 消費編號 Char 8 是 數字字符 消費名稱 Char 10 否 字符型數據 表 9 消費用途表 列含義 列標志 類型 長度 是否主健 完整性約束 編號 Char 6 是 數字字符 名稱 Char 10 否 字符型數據 表 10 收入來源表 列含義 列標志 類型 長度 是否主健 完整性約束 編碼 Char 6 是 數字字符 收入來源 Char 10 否 字符型數據 表 11 一般收入表 列含義 列標志 類型 長度 是否主健 完整性約束 收入人 Char 10 是 數字字符 收入金額 Char 10 否 字符型數據 收入來源 Char 10 否 字符型數據 收入日期 Date time 否 =系統日期 說明 Char 50 否 字符型數據 表 12 借入收入表 列含義 列標志 類型 長度 是否主健 完整性約束 借款人 Char 10 是 數字字符 借入金額 Char 10 否 字符型數據 貸款人 Char 10 否 字符型數據 借款時間 Char 10 否 字符型數據 借款日期 Date time 否 = 系統日期 說明 Char 50 否 字符型數據 表 13 返還收入表 列含義 列標志 類型 長度 是否主健 完整性約束 借款人 Char 10 是 數字字符 返還金額 Char 10 否 字符型數據 收款人 Char 10 否 字符型數據 返還時間 Char 10 否 字符型數據 返還日期 Date time 否 =系統日期 說明 Char 50 否 字符型數據 表 14 股票收入表 列含義 列標志 類型 長度 是否主健 完整性約束 股票名稱 Char 10 是 數字字符 買出人 Char 10 數字字符 總金額 Char 10 否 字符型數據 首數 Char 10 否 字符型數據 賣出時間 Char 10 否 字符型數據 賣出日期 Date time 否 =系統日期 說明 Char 50 否 字符型數據 表 15 存入銀行表 列含義 列標志 類型 長度