進(jìn)銷存管理系統(tǒng)優(yōu)秀畢業(yè)論文-文庫(kù)吧
2025-06-05 12:46 本頁(yè)面
【正文】 是很苛刻。所以輸入、輸出數(shù)據(jù)精度要求不是很高，用于計(jì)算的數(shù)用浮點(diǎn)數(shù)就可以了。 2時(shí)間特性要求：本軟件運(yùn)行的響應(yīng)時(shí)間要求不超過(guò)1~2秒，基本能實(shí)現(xiàn)。 3輸入要求：輸入的數(shù)據(jù)基本為：商品編號(hào)、商品名稱、數(shù)量等。4輸出要求：輸出一般為表格或表單形式，輸出數(shù)據(jù)主要有消費(fèi)的金額及客戶的消費(fèi)歷史記錄。．?dāng)?shù)據(jù)庫(kù) ．實(shí)體聯(lián)系圖 根據(jù)需求分析中系統(tǒng)的要求，系統(tǒng)主要分為三個(gè)實(shí)體：商品、用戶及意見(jiàn)，三者間的關(guān)系是管理與被管理的關(guān)系，其中用戶擔(dān)任管理角色，而商品和意見(jiàn)扮演被管理角色。根據(jù)各自關(guān)系及屬性可以得出三者間的實(shí)體聯(lián)系圖如下： ．系統(tǒng)數(shù)據(jù)此處取數(shù)據(jù)庫(kù)名：JXC 由系統(tǒng)的實(shí)體聯(lián)系圖及系統(tǒng)的邏輯關(guān)系，需要建立如下表格3．項(xiàng)目設(shè)計(jì) ．進(jìn)度計(jì)劃 進(jìn)銷存管理系統(tǒng)是典型的信息管理系統(tǒng)，由于本系統(tǒng)邏輯結(jié)構(gòu)簡(jiǎn)單，沒(méi)有加入高技術(shù)的算法，故在系統(tǒng)需求分析、設(shè)計(jì)等方面將費(fèi)時(shí)較短，然而由于之前并沒(méi)有VB開(kāi)發(fā)經(jīng)驗(yàn)，故在代碼編寫方面會(huì)遇到較大困難，所以初步預(yù)計(jì)代碼編寫方面需要較長(zhǎng)的時(shí)間。預(yù)測(cè)各個(gè)階段的時(shí)間安排大致如下圖： ．系統(tǒng)設(shè)計(jì) 進(jìn)銷存管理系統(tǒng)是典型的數(shù)據(jù)庫(kù)應(yīng)用程序，系統(tǒng)由前臺(tái)功能模塊和后臺(tái)數(shù)據(jù)庫(kù)管理組成。其中前臺(tái)主要包括系統(tǒng)管理、商品管理及銷售管理。后臺(tái)主要管理數(shù)據(jù)表及進(jìn)行數(shù)據(jù)連接更新等操作。 ．系統(tǒng)流圖 根據(jù)需求分析及對(duì)數(shù)據(jù)庫(kù)的設(shè)計(jì)，計(jì)劃系統(tǒng)流程圖如下 ．部分UML建模圖 ．模塊界面展示及代碼 ． 數(shù)據(jù)備份（frmSJBF）代碼：Dim StrCnn As New Dim key, list, sql As String 39。定義字符串變量Private Sub Command1_Click() = FalseIf = ThenMsgBox 請(qǐng)您選擇數(shù)據(jù)庫(kù)備份的路徑!, 64, 進(jìn)銷存管理系統(tǒng)ElseDim connter As IntegerDim sql, workarea(15) As String = True = UBound(workarea) = For connter = LBound(workarea) To UBound(workarea) workarea(connter) = initial value amp。 connter = connter Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=JXC。Data Source=(Local)\GSQL 39。 Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=JXC。Data Source=(Local)\GSQL sql = BACKUP DATABASE JXC TO disk=39。 amp。 amp。 39。 (sql) 39。執(zhí)行SQL語(yǔ)句 Next connter = MsgBox 數(shù)據(jù)庫(kù)備份成功!!, 64, 進(jìn)銷存管理系統(tǒng) = True End IfEnd SubPrivate Sub Command2_Click() Call CmdEnd(Me)End SubPrivate Sub Command3_Click() = 備份文件(*.bak)|*.bak|文本文件(*.txt)|*.txt|ALL File(*.*)|*.* = End SubPrivate Sub Command4_Click() = FalseIf = ThenMsgBox 請(qǐng)您選擇數(shù)據(jù)庫(kù)恢復(fù)的路徑!, 64, 進(jìn)銷存管理系統(tǒng)ElseDim connter As IntegerDim sql, workarea(15) As String = True = UBound(workarea) = For connter = LBound(workarea) To UBound(workarea) workarea(connter) = initial value amp。 connter = connter Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=JXC。Data Source=(Local)\GSQL sql = RESTORE DATABASE JXC from disk=39。 amp。 amp。 39。 (sql) 39。執(zhí)行SQL語(yǔ)句 Next connter = MsgBox 數(shù)據(jù)庫(kù)恢復(fù)成功!!, 64, 進(jìn)銷存管理系統(tǒng) = TrueEnd IfEnd SubPrivate Sub Command5_Click() = 備份文件(*.bak)|*.bak|文本文件(*.txt)|*.txt|ALL File(*.*)|*.* = End SubPrivate Sub Form_Load() = ( ) / 2 = ( ) / 2Unload frmZJMEnd SubPrivate Sub Form_Unload(Cancel As Integer) Call CmdEnd(Me)End Sub ． 數(shù)據(jù)恢復(fù)（frmSJHF）代碼：Option ExplicitDim StrCnn As New Connection 39。定義連接Dim key, list, sql, Temp, Intext As String 39。定義字符串變量Private Sub Command1_Click()If = Then MsgBox 請(qǐng)您選擇數(shù)據(jù)庫(kù)恢復(fù)的路徑!, 64, 提示信息Else = 11 = FalseDim connter As IntegerDim sql, workarea(12) As String = True = UBound(workarea) = For connter = LBound(workarea) To UBound(workarea) workarea(connter) = initial value amp。 connter = connter Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=JXC
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1