【導讀】根據(jù)現(xiàn)在流行的軟件開發(fā)手段我們選用了MicrosoftVisual. Basic作為前臺開發(fā)工具，MicrosoftAccess作為后臺數(shù)據(jù)庫。操作，完成數(shù)據(jù)錄入，分析，統(tǒng)計等工作。件有很強實用性與智能性，適合當前這種快速原形法的構(gòu)想。捷，界面友好功能完善。但由于時間關系及本人的能力有限，報告中一定存在。著許多不足之處，懇請老師和同學們多提寶貴意見。系統(tǒng)設計、系統(tǒng)實施。Microsoft的VisualBasic，有利于系統(tǒng)的開發(fā)，系統(tǒng)具有數(shù)據(jù)錄入、數(shù)據(jù)修改、記錄查詢、報表打印等功能。較全面滿足了材料。該系統(tǒng)采用模塊化原理編程，做到了模塊規(guī)模適中，模塊化使程序結(jié)構(gòu)清晰，易于設計、易于理解，提高了系統(tǒng)的可靠性。數(shù)據(jù)表之間的聯(lián)系，詳細說明了主要的程序邏輯。并以圖表的方式直觀的說明，使程

　　

【正文】 商品編號 =39。 amp。 amp。 39。 Set RSUP = (sql) ( 庫 存 數(shù) 量 ) = ( 庫 存 數(shù) 量 ).Value Val() cmdMoveN_Click End If End Sub Private Sub cmdMoveF_Click() = False = True Display End Sub Private Sub cmdMoveL_Click() = True = False Display End Sub Private Sub cmdMoveN_Click() = True If Then = False End If Display End Sub Private Sub cmdMoveP_Click() = True If Then = False End If Display End Sub Private Sub cmdSave_Click() (code) = (name) = (rate) = (date) = (number) = sql = select * from 庫存表 where 商品編號 =39。 amp。 amp。 39。 Set RSUP = (sql) If Then (商品編號 ) = (商品名稱 ) = (庫存數(shù)量 ) = Else (庫存數(shù)量 ) = Val() + (庫存數(shù)量 ).Value Cnumber Cnumber = 0 End If = False ZJ = False KJZT End Sub Private Sub cmdUp_Click() Cnumber = Val() ZJ = True KJZT = False = False End Sub Private Sub Form_Load() = + 1200 = + 1800 sql = select * from 進貨單 ORDER BY date Set Db = OpenDatabase( + \) Set RS = (sql) If Then MsgBox 記錄為空，請先添加記錄 ZJ = True KJZT Else Display End If End Sub Private Sub txtIcode_Validate(Cancel As Boolean) Cancel = True If txtIcode = Then MsgBox 請輸入商品代碼 Else Cancel = False End If End Sub Private Sub txtIname_Validate(Cancel As Boolean) Cancel = True If txtIname = Then MsgBox 請輸入商品名稱 Else Cancel = False End If End Sub Private Sub txtJG_Validate(Cancel As Boolean) Cancel = True If Val(txtJG) = 0 Then MsgBox 商品價格必須大于零 Else Cancel = False End If End Sub Private Sub txtNumber_Validate(Cancel As Boolean) Cancel = True If Val(txtNumber) = 0 Then MsgBox 商品入庫數(shù)量必須大于零 Else Cancel = False End If End SubOption Explicit Dim RS As Recordset Dim sql As String Dim RSkc As Recordset Private Sub KJZT() 39。設定控件的可用狀態(tài) = ZJ = ZJ = ZJ = ZJ = ZJ 39。 = ZJ = ZJ = Not ZJ = Not ZJ End Sub Private Sub cboName_Validate(Cancel As Boolean) If = Or = 請選擇 Then Cancel = True MsgBox 請選擇商品 End If End Sub Private Sub cboType_Validate(Cancel As Boolean) If = Or = 請選擇 Then Cancel = True MsgBox 請選擇商品銷售類型 End If End Sub Private Sub cmdAdd_Click() ZJ = True KJZT = True = 請選擇 = 請 選擇 txtJG = txtJE = txtNumber = = Date End Sub Private Sub cmdExit_Click() Unload Me End Sub Private Sub cmdSave_Click() Dim Icode As String 39。當銷售發(fā)生時更新庫存商品的數(shù)量 sql = select * from 庫存 表 where 商品名稱 =39。 amp。 amp。 39。 Set RSkc = (sql) 39。將銷售數(shù)量與庫存數(shù)量進行比較 If (庫存數(shù)量 ).Value Val() Then MsgBox 庫存數(shù)量不足，該商品的庫存數(shù)量為 amp。 (庫存數(shù)量 ) Exit Sub End If Icode = (商品編號 ) ( 庫存數(shù)量 ) = ( 庫存數(shù)量 ).Value Val() 39。將銷售記錄寫入表“銷售單” (code) = Icode (count) = Val() (outdate) = (price) = Val() (type) = 39。重新設定控件的可用狀態(tài) ZJ = False KJZT End Sub Private Sub Form_Load() = + 1200 = + 1800 Set Db = OpenDatabase( + \) Set RS = (庫存表 ) Do While Not (商品名稱 ) Loop = Date ZJ = False KJZT Set RS = (銷售單 ) End Sub Private Sub txtJG_Change() 39。計算銷售金額 If txtNumber And txtJG Then = Val(txtNumber) * Val(txtJG) Else txtJE = End If End Sub Private Sub txtJG_Validate(Cancel As Boolean) If Val() = 0 Then Cancel = True MsgBox 銷售單價必須大于零 End If End Sub Private Sub txtNumber_Change() 39。計算銷售金額 If txtNumber And txtJG Then = Val(txtNumber) * Val(txtJG) Else txtJE = End If End Sub Private Sub txtNumber_Validate(Cancel As Boolean) If Val() = 0 Then Cancel = True MsgBox 銷售數(shù)量必須大于零 End If End SubOption Explicit Private Sub MDIForm_load() Denglu_time = Now RiZhi End Sub Private Sub mnuAbout_Click() Load frmAbout End Sub 39。對數(shù)據(jù)庫文件進行備份，首先引用 Microsoft Scripting Runtime 39。聲明變量 Fso為 FileSystemObject對象，新建一個 back文件夾，將數(shù)據(jù)庫文件 copy進去 Private Sub mnuBackup_Click() On Error GoTo A: Dim Fso As New FileSystemObject ( + \back) + \, + \back\ MsgBox 系統(tǒng)已經(jīng)將數(shù)據(jù)文件進行了備份！ Exit Sub A: + \, + \back\ MsgBox 系統(tǒng)已經(jīng)將數(shù)據(jù)文件進行了備 份！ Exit Sub End Sub Private Sub mnuCascade_Click() (vbCascade) End Sub Private Sub mnuExit_Click() mnuBackup_Click Denglu_exit = Now RiZhi1 End End Sub Private Sub mnuHelp_Click() Dim myIE As New = True + \操作指南 .htm End Sub Private Sub mnuHorizonta_Click() (vbHorizontal) End Sub Private Sub mnuJH_Click() End Sub Private Sub mnuJHCX_Click() End Sub Private Sub mnuReportKC_Click() End Sub Private Sub mnuReportXS_Click() End Sub Private Sub mnuVertical_Click() (vbVertical) End Sub Private Sub mnuXGKL_Click() End Sub Private Sub mnuXS_Click() End Sub Private Sub