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

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

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

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

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

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

6、可以為數(shù)據(jù)庫增加密碼三、數(shù)據(jù)庫還可以分離，將查詢、窗體、報(bào)表和表進(jìn)行分離，不同的使用人員可以使用不同的客戶端設(shè)計(jì)，這樣可以屏蔽一些不讓其使用的功能。登錄界面展示主要對(duì)應(yīng)的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)設(shè)置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,說明用戶名不存在，進(jìn)行處理 設(shè)置文本框內(nèi)容為空，“確定”按鈕不可用，焦點(diǎn)設(shè)在txtusername If flag = 0 Then MsgBox 沒用這個(gè)用戶名，請(qǐng)重新輸

9、入 Me.txtpassword.Value = Me.txtusername.Value = Me.txtusername.SetFocus cdmenter.enabied = False Exit Sub 若flag=1，說明輸入的用戶名正確，進(jìn)一步比較密碼是否正確 若密碼出錯(cuò)，設(shè)置txtusername的內(nèi)容不變，txtpassword文本為空 若密碼出錯(cuò)，焦點(diǎn)在txtpassword，確定按鈕不可用 Else If UCase(Me.txtpassword.Value) UCase(strpassword) Then MsgBox (密碼錯(cuò)誤，請(qǐng)重新輸入) 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（退出按鈕代碼）十三，設(shè)置啟動(dòng)時(shí)打開窗體進(jìn)入ACCESS選項(xiàng)-當(dāng)前數(shù)據(jù)庫-顯示窗體。選擇你需要的窗體，在打開數(shù)據(jù)庫時(shí)就會(huì)自動(dòng)打開這一窗體十四、作業(yè)1、完成第八項(xiàng)內(nèi)容出倉單設(shè)計(jì)2、在客戶貨物窗體建立新數(shù)據(jù)：客戶名稱：每個(gè)同學(xué)的姓名貨物：進(jìn)倉：進(jìn)倉編號(hào)J20141114,供貨單位：京東商城