【導(dǎo)讀】徐州機電工程高等職業(yè)學(xué)校。班級：04高職計算機應(yīng)用。日期：2020年5月22日

　　

【正文】 SQL As String SQL = SELECT ID, 分類 , 單位 , 名稱 , 備注 , 數(shù)量 FROM 庫存材料表 WHERE 分類 = 39。 amp。 CStr() amp。 39。 = False = amp。 \庫存管理 .mdb = SQL = True End Sub Private Sub DBCombo3_Click(Area As Integer) = True End Sub Private Sub DBCombo4_Click(Area As Integer) = True End Sub Private Sub Form_Load() MakeWindow Me 39。 AlwaysOnTop Me, True = / 2 / 2 1000 = / 2 / 2 = amp。 \庫存管理 .mdb = 。pwd=lee1012 = 材料分類表 = False = amp。 \庫存管理 .mdb = 。pwd=lee1012 = 庫存材料表 = False = amp。 \庫存管理 .mdb = 。pwd=lee1012 = 供應(yīng)商表 = False = amp。 \庫存管理 .mdb = 。pwd=lee1012 = 員工表 = False = amp。 \庫存管理 .mdb = 。pwd=lee1012 = 入庫表 = False = False End Sub 商品出庫代碼： Private Sub asPopup3_Click(Cancel As Boolean) If Val() Val() 0 Then MsgBox 庫存量不夠！請及時采購。 Exit Sub End If If = Then MsgBox 請選擇出庫材料名稱！ Exit Sub End If If = Then MsgBox 請選擇經(jīng)手人！ Exit Sub End If Dim a As Integer a = MsgBox(********你確定此操作嗎？ ********** amp。 vbCrLf _ amp。 材料名稱： amp。 amp。 vbCrLf _ amp。 原庫存量： amp。 amp。 amp。 vbCrLf _ amp。 本次出庫： amp。 amp。 amp。 vbCrLf _ amp。 服 務(wù)客戶： amp。 amp。 vbCrLf _ 超市進貨管理系統(tǒng) 畢業(yè)設(shè)計 32 amp。 經(jīng)手人： amp。 amp。 vbCrLf _ , vbExclamation + vbOKCancel + vbApplicationModal, 提示 ) If a = 1 Then (名稱 ) = (用途 ) = (數(shù)量 ) = (經(jīng)手人 ) = (日期 ) = Date (時間 ) = Time = 39。************************ (數(shù)量 ) = Val() Val() MsgBox 出庫完成！ = True End If End Sub Private Sub asPopup4_Click(Cancel As Boolean) (2).Controls(Label1).Caption = 出庫單據(jù) (2).Controls(Label2).Caption = CStr() (2).Controls(Label3).Caption = 數(shù)量： amp。 CStr() (2).Controls(Label4).Caption = 用 途 ： amp。 CStr() (2).Controls(Label5).Caption = (2).Controls(Label6).Caption = 經(jīng)手人： amp。 CStr() (2).Controls(Label7).Caption = 時間： amp。 CStr(Date) amp。 amp。 CStr(Time) amp。 amp。 CStr((ID)) = False End Sub Private Sub DBCombo2_Click(Area As Integer) If = Then MsgBox 請先選擇類別！ Exit Sub End If Dim SQL As String SQL = SELECT ID, 分類 , 單位 , 名稱 , 備注 , 數(shù)量 FROM 庫存材料表 WHERE 分類 = 39。 amp。 CStr() amp。 39。 = False = amp。 \庫存管理 .mdb = SQL = True = 2020 End Sub Private Sub DBCombo3_Click(Area As Integer) = True = 2020 End Sub Private Sub DBCombo4_Click(Area As Integer) = True = 2020 End Sub Private Sub Form_Load() MakeWindow Me 39。 AlwaysOnTop Me, True = / 2 / 2 1000 = / 2 / 2 = amp。 \庫存管理 .mdb = 。pwd=lee1012 = 材料分類表 = False = amp。 \庫存管理 .mdb = 。pwd=lee1012 = 庫存材料表 = False = amp。 \庫存管理 .mdb = 。pwd=lee1012 = 客戶表 = False = amp。 \庫存管理 .mdb = 。pwd=lee1012 = 員工表 = False = amp。 \庫存管理 .mdb = 。pwd=lee1012 = 出庫表 = False 超市進貨管理系統(tǒng) 畢業(yè)設(shè)計 34 = False End Sub 商品入庫、出庫信 息查詢以及打印代碼： Private Sub asPopup1_Click(Cancel As Boolean) If adStateClosed Then End If 39。 讀取 Text1 設(shè)定給參數(shù)一 (Command2).Parameters(0) = CStr() 39。 讀取 Text2 設(shè)定給參數(shù)二 (Command2).Parameters(1) = CStr() = Command2 Set = DataEnvironment1 End Sub Private Sub asPopup10_Click(Cancel As Boolean) If adStateClosed Then End If 39。 讀取 Text1 設(shè)定給參數(shù)一 (Command1).Parameters(0) = CStr() 39。 讀取 Text2 設(shè)定給參數(shù)二 (Command1).Parameters(1) = CStr() = Command1 Set = DataEnvironment1 (2).Controls(Label13).Caption = 開 始 時 間 : amp。 CStr() (2).Controls(Label14).Caption = 結(jié) 束 時 間 : amp。 CStr() End Sub Private Sub asPopup11_Click(Cancel As Boolean) If adStateClosed Then End If 39。 讀取 Text1 設(shè)定給參數(shù)一 (Command2).Parameters(0) = CStr() 39。 讀取 Text2 設(shè)定給參數(shù)二 (Command2).Parameters(1) = CStr() = Command2 Set = DataEnvironment1 (2).Controls(Label13).Caption = 開 始 時 間 : amp。 CStr() (2).Controls(Label14).Caption = 結(jié) 束 時 間 : amp。 CStr() End Sub Private Sub asPopup2_Click(Cancel As Boolean) If adStateClosed Then End If 39。 讀取 Text1 設(shè)定給參數(shù)一 (Command1).Parameters(0) = CStr() 39。 讀取 Text2 設(shè)定給參數(shù)二 (Command1).Parameters(1) = CStr() = Command1 Set = DataEnvironment1 End Sub Private Sub asPopup5_Click(Cancel As Boolean) = 0 = amp。HFFC0C0 = amp。H8000000F End Sub Private Sub asPopup6_Click(Cancel As Boolean) = 1 = amp。H8000000F = amp。HFFC0C0 End Sub Private Sub Form_Load() MakeWindow Me 39。 AlwaysOnTop Me, True = / 2 / 2 1000 = / 2 / 2 = Date = Date = 0 = amp。HFFC0C0 = amp。H8000000F End Sub 超市進貨管理系統(tǒng) 畢業(yè)設(shè)計 36 華聯(lián) 超市進貨管理系統(tǒng) 分工表 魏蒙蒙：系統(tǒng)整體設(shè)計、數(shù)據(jù)庫、系統(tǒng)整體框架 張軼群：系統(tǒng)項目管理模塊實現(xiàn) 戴化云：系統(tǒng)登錄、入庫、出庫管理模塊實現(xiàn) 蔣盼：系統(tǒng)報表、系統(tǒng)測試