倉庫管理系統(tǒng)課件

1、倉庫管理系統(tǒng)Access運用一、新建ACCESS數(shù)據(jù)庫打開access2007.新建空白數(shù)據(jù)庫，命名為“倉庫管理”打開ACCESS選項，在信任中心-宏設置中，設定啟用宏三、建立如下的表1、客戶2、貨物3、進庫類型4、進庫編號5、進庫明細6、出庫類型7、出庫編號8、出庫明細“進倉編號”表中的“進倉類型”為查閱向導，在“進庫類型”的表中選擇數(shù)據(jù)；“出倉編號”表中的“出倉類型”為查閱向導，在“出庫類型”的表中選擇數(shù)據(jù)；“進倉明細”以進倉編號的字段與“進倉編號”表進行關聯(lián)，為其子表；“出倉明細”以出倉編號的字段與“出倉編號”表進行關聯(lián)，為其子表。三、進倉類型、出倉類型這是常見的四種進出庫方式四、建立客

2、戶及貨物輸入窗體打開客戶表，可以輸入一行數(shù)據(jù)；打開貨物表，可以輸入一行數(shù)據(jù)打開客戶表，創(chuàng)建單個輸入窗體：創(chuàng)建一個客戶窗體，可以調(diào)整格式插入子窗體：選擇貨物表進行創(chuàng)建這是輸入窗提的完整視圖七、設置打印進倉單新建進倉查詢，參數(shù)設置在進倉編號字段輸入進倉編號第七周八、設計打印出倉單本項為課后作業(yè)，請同學們仿照進倉單的設計過程，完成出倉單的創(chuàng)建九、思考如何能實現(xiàn)庫存表一、進倉和出倉的表是分開的，他們之間有什么關系？二、庫存需要按照貨品和批號來統(tǒng)計，庫存=進倉數(shù)量-出倉數(shù)量三、如何實現(xiàn)具有貨品和批號的進倉、出倉數(shù)量統(tǒng)計？四、統(tǒng)計好的數(shù)據(jù)又如何講進倉和出倉放在同一張表中進行計算？創(chuàng)建：進倉合計查詢和出倉合

3、計查詢選擇進倉明細表作為查詢數(shù)據(jù)源，選擇其中的三個字段名，并對數(shù)量進行匯總，并更改顯示的字段名為“進倉數(shù)量”，保存查詢?yōu)椤斑M倉合計”同理，建立出倉合計查詢，保存為“出倉合計”查詢 建立一張新表庫存表，并導入數(shù)據(jù)創(chuàng)建一張新表庫存表，字段及數(shù)據(jù)屬性如下在設計視圖中打開“進倉合計”查詢，更改查詢類型為：追加表查詢，追加到“庫存表當中，對應字段如下：同樣，設置“出倉合計”查詢運行“進倉合計”和“出倉合計”查詢，向“庫存表”中追加數(shù)據(jù)，系統(tǒng)會提示信息運行查詢后，“庫存表”中追加進數(shù)據(jù)十、在出倉窗體上實時顯示庫存數(shù)量出倉時，我們要隨時掌握庫存動態(tài)，以免產(chǎn)生負庫存的錯誤。在設計視圖下打開“出倉編號”窗體，添

4、加子窗體根據(jù)實際需要，調(diào)整窗體布局，這樣庫存就可以顯示在出庫窗體上了思考：每次刷新窗體庫存，都要連續(xù)運行多個查詢，而且系統(tǒng)反復提示信息，需要確認，非常麻煩，該如何解決？而且，運行查詢會重復向：庫存表中寫入數(shù)據(jù)。十一、利用宏，連續(xù)操作多個步驟創(chuàng)建宏，命名為：刷新庫存，連續(xù)運行查詢。在操作中選擇openquery的選項根據(jù)“庫存表”，創(chuàng)建“庫存表清空”查詢。前面的步驟一樣，最后選擇刪除查詢的類型即可在下面的查詢列表中選擇對應的查詢但是在“出倉編號”的窗體上，并沒有能自動運行的命令按鈕，而且，運行“刷新庫存”宏以后，打開的庫存查詢表思考：ACCESS在窗體沒有刷新的情況下，并不能動態(tài)更變窗體數(shù)據(jù)，因

5、此我們需要把刷新窗體和運行宏結合起來。我們針對出倉的窗體，再創(chuàng)建一個“刷新窗體”的宏：在“出倉編號”窗體上創(chuàng)建一個命令鈕，并在彈出的命令向導中，選擇“雜項”，“運行宏”，指定“刷新窗體”的宏。在窗體上再增加“保存、新增、退出”等命令按鈕十一、設置分頁主窗體為系統(tǒng)設計一個過渡的登錄主窗體，十分必要。創(chuàng)建一個空白窗體，并在上面創(chuàng)建一個選項控件根據(jù)需要更改頁面的名稱，通過右擊菜單，可以插入“頁面”。在不同的頁面上創(chuàng)建命令按鈕，并運行“打開窗體”，選擇對應的窗體為窗體創(chuàng)建按照實際或個人興趣的標簽內(nèi)容，在最下面可以創(chuàng)建一個命令按鈕退出應用程序。十二、怎樣保證數(shù)據(jù)庫的安全？一、設計不同人員的登錄賬號？二、

6、可以為數(shù)據(jù)庫增加密碼三、數(shù)據(jù)庫還可以分離，將查詢、窗體、報表和表進行分離，不同的使用人員可以使用不同的客戶端設計，這樣可以屏蔽一些不讓其使用的功能。登錄界面展示主要對應的vba語言代碼Public Function openrecord(str1 As String, record As ADODB.Recordset)為記錄集record 分配空間 Set record = New ADODB.Recordset使用本數(shù)據(jù)庫的連接打開記錄集record.Open str1, CurrentProject.Connection, adopenkeyset, adlockoptimisticEn

7、d FunctionPrivate Sub Form_Open(Cancel As Integer) cmdenter.Enabled = False Form.KeyPreview = TrueEnd Sub以上上窗體賦值及打開狀態(tài)設置Private Sub cmdenter_Click()Dim strpassword, strusername As String Dim flag As Integer Dim record As ADODB.Recordset flag = 0 從用戶表中讀取用戶名和密碼 openrecord select*from 用戶, record 循環(huán)判斷用戶名

8、是否存在，密碼是否正確 Do Until record.EOF strusername = record(用戶名) strpassword = record(密碼) If UCase(Me.txtusername.Value) UCase(strusername) Then record.MoveNext 若相等，說明用戶名存在，可以跳出循環(huán) Else flag = 1 Exit Do End If Loop flag=0,說明用戶名不存在，進行處理 設置文本框內(nèi)容為空，“確定”按鈕不可用，焦點設在txtusername If flag = 0 Then MsgBox 沒用這個用戶名，請重新輸

9、入 Me.txtpassword.Value = Me.txtusername.Value = Me.txtusername.SetFocus cdmenter.enabied = False Exit Sub 若flag=1，說明輸入的用戶名正確，進一步比較密碼是否正確 若密碼出錯，設置txtusername的內(nèi)容不變，txtpassword文本為空 若密碼出錯，焦點在txtpassword，確定按鈕不可用 Else If UCase(Me.txtpassword.Value) UCase(strpassword) Then MsgBox (密碼錯誤，請重新輸入) Me.txtpasswor

10、d.Value = Me.txtpassword.SetFocus cmdenter.Enabled = False Exit Sub End If End If 用戶名和密碼都正確打開主窗體 DoCmd.Close DoCmd.OpenForm 主窗體“End Sub（以上為“確定”按鈕代碼）Private Sub cmdcancle_Click()txtpassword = Me.txtusername.Value = cmdenter.Enabled = False txtusername.SetFocus End Sub(取消按鈕代碼）Private Sub cmdexit_Click()DoCmd.QuitEnd Sub（退出按鈕代碼）十三，設置啟動時打開窗體進入ACCESS選項-當前數(shù)據(jù)庫-顯示窗體。選擇你需要的窗體，在打開數(shù)據(jù)庫時就會自動打開這一窗體十四、作業(yè)1、完成第八項內(nèi)容出倉單設計2、在客戶貨物窗體建立新數(shù)據(jù)：客戶名稱：每個同學的姓名貨物：進倉：進倉編號J20141114,供貨單位：京東商城