倉庫管理系統(tǒng)的設(shè)計說明.doc

數(shù)據(jù)庫課程設(shè)計報告數(shù)據(jù)庫課程設(shè)計報告?zhèn)}庫管理系統(tǒng)的設(shè)計專業(yè)學(xué)生姓名班級學(xué)號指導(dǎo)教師完成日期1目 錄1 課程設(shè)計目的及要求12 課程設(shè)計的主要內(nèi)容13數(shù)據(jù)庫設(shè)計13.1 概念設(shè)計23.2 邏輯設(shè)計33.3 物理設(shè)計64程序模塊設(shè)計84.1 登錄界面模塊設(shè)計84.2 出、入庫模塊設(shè)計84.3 查詢模塊設(shè)計95 小結(jié)10附 錄11附錄1 源程序清單1倉庫管理系統(tǒng)的設(shè)計1 課程設(shè)計目的及要求 數(shù)據(jù)庫課程設(shè)計是為數(shù)據(jù)庫原理及應(yīng)用課程而獨(dú)立開設(shè)的實踐性課程。數(shù)據(jù)庫課程設(shè)計對于鞏固數(shù)據(jù)庫知識，加強(qiáng)學(xué)生的實際動手能力和提高學(xué)生綜合素質(zhì)十分必要。本課程分為系統(tǒng)分析與數(shù)據(jù)庫設(shè)計、應(yīng)用程序設(shè)計和系統(tǒng)集成調(diào)試三個階段進(jìn)行。數(shù)據(jù)庫課程設(shè)計的主要目標(biāo)是：a）加深對數(shù)據(jù)庫系統(tǒng)、程序設(shè)計語言的理論知識的理解和應(yīng)用水平。b）通過設(shè)計實際的數(shù)據(jù)庫系統(tǒng)應(yīng)用課題，進(jìn)一步熟悉數(shù)據(jù)庫管理系統(tǒng)的操作技術(shù)，提高動手能力，提高分析問題和解決問題的能力。2 課程設(shè)計的主要內(nèi)容A)系統(tǒng)分析與數(shù)據(jù)庫設(shè)計階段1) 通過社會調(diào)查，選擇一個實際應(yīng)用數(shù)據(jù)庫系統(tǒng)的課題。2）進(jìn)行系統(tǒng)需求分析和系統(tǒng)設(shè)計，寫出系統(tǒng)分析和設(shè)計報告。3）設(shè)計數(shù)據(jù)模型并進(jìn)行優(yōu)化，確定數(shù)據(jù)庫結(jié)構(gòu)、功能結(jié)構(gòu)和系統(tǒng)安全性和完整性要求。B)應(yīng)用程序設(shè)計階段1）完成數(shù)據(jù)庫定義工作，實現(xiàn)系統(tǒng)數(shù)據(jù)的數(shù)據(jù)處理和數(shù)據(jù)錄入。2）實現(xiàn)應(yīng)用程序的設(shè)計、編程、優(yōu)化功能，實現(xiàn)數(shù)據(jù)安全性、數(shù)據(jù)完整性和并發(fā)控制技術(shù)等功能，并針對具體課題問題提出解決方法。C)系統(tǒng)集成調(diào)試階段對系統(tǒng)的各個應(yīng)用程序進(jìn)行集成和調(diào)試，進(jìn)一步優(yōu)化系統(tǒng)性能，改善系統(tǒng)用戶界面。系統(tǒng)需求分析 倉庫管理系統(tǒng)主要用于倉庫貨品信息的管理，系統(tǒng)包括倉庫管理、入庫、出庫和一些統(tǒng)計查詢等幾部分組成。倉庫管理系統(tǒng)實現(xiàn)對貨品信息的管理和總體的統(tǒng)計等，倉庫信息，供貨單位和操作員信息的查看及維護(hù)。倉庫管理人員可以瀏覽、查詢、添加、刪除等產(chǎn)品的基本信息。 產(chǎn)品入庫管理，可以填寫入庫單，確認(rèn)產(chǎn)品入庫； 產(chǎn)品出庫管理，可以填寫出庫單，確認(rèn)產(chǎn)品出庫； 借出管理，憑借條借出，然后能夠還庫； 初始庫存設(shè)置，設(shè)置庫存的初始值，庫存的上下警戒限； 可以進(jìn)行盤庫，反映每月、年的庫存情況； 可以查詢產(chǎn)品入庫情況、出庫情況、當(dāng)前庫存情況，可以按出庫單、入庫單，產(chǎn)品、時間進(jìn)行查詢；3數(shù)據(jù)庫設(shè)計3.1 概念設(shè)計倉庫管理系統(tǒng)基本信息管理操作員登陸產(chǎn)品信息管理倉庫警示管理倉庫管理操作客戶信息管理查詢產(chǎn)品信息入庫操作管路修改產(chǎn)品信息刪除產(chǎn)品信息添加產(chǎn)品信息倉庫信息管理出庫操作管理查詢倉庫信息圖 倉庫管理系統(tǒng)功能模塊示意圖3-1查詢管理操作操作員信息管理查詢產(chǎn)品信息查詢客戶信息填寫入庫單修改客戶信息添加客戶信息填寫出庫單刪除客戶信息產(chǎn)品數(shù)量報警倉庫容量報警查詢客戶信息 E-R圖：圖 產(chǎn)品及其屬性E-R圖3-2 圖 出入庫單據(jù)屬性E-R圖3-3入庫表倉庫號產(chǎn)品號入庫時間數(shù)量圖 入庫表屬性E-R圖3-4 出庫表倉庫號產(chǎn)品號出庫時間數(shù)量圖 出庫表屬性E-R圖3-5 圖 倉庫管理系統(tǒng)E-R圖3-6數(shù)據(jù)字典：名字：產(chǎn)品別名： 描述：唯一的標(biāo)識一個產(chǎn)品的信息集合定義：產(chǎn)品=編號+名稱+規(guī)格+體積+類別+價格+數(shù)量+重量+顏色+產(chǎn)地位置：存儲在數(shù)據(jù)庫名字：倉庫別名： 描述：唯一的標(biāo)識一個倉庫的信息集合定義：倉庫=倉庫號+倉庫名+剩余容量+總?cè)萘课恢茫捍鎯υ跀?shù)據(jù)庫名字：客戶別名： 描述：唯一的標(biāo)識一個客戶特征的信息集合定義：客戶=客戶號+客戶名+地址+電話 +客戶類型位置：存儲在數(shù)據(jù)庫名字：管理員別名： 描述：唯一的標(biāo)識管理員特征的信息集合定義：管理員=編號+性別+年齡+姓名+工齡+職務(wù)位置：存儲在數(shù)據(jù)庫名字：庫存表別名： 描述：倉庫存儲物資的情況定義：庫存表=倉庫號+產(chǎn)品號+產(chǎn)品總數(shù)量位置：存儲在數(shù)據(jù)庫名字：入庫表別名： 描述：物資的入庫信息定義：入庫表=產(chǎn)品號+入庫時間+數(shù)量位置：存儲在數(shù)據(jù)庫名字：出庫表別名： 描述：物資的出庫信息定義：出庫表=編號+出庫時間+數(shù)量+管理員位置：存儲在數(shù)據(jù)庫3.2 邏輯設(shè)計根據(jù)E-R圖，數(shù)據(jù)庫倉庫管理系統(tǒng)主要包含以下5個表：倉庫信息表“倉庫”、產(chǎn)品信息表“產(chǎn)品”、入庫操作信息表“入庫”、出庫操作信息表“出庫”和庫存產(chǎn)品信息表“庫存”。3.2.1 倉庫信息表“倉庫”倉庫信息表“倉庫”用來保存?zhèn)}庫信息，表“倉庫”的結(jié)構(gòu)如表所示。表3.2.1倉庫信息表“倉庫”編號字段名稱數(shù)據(jù)結(jié)構(gòu)說 明1倉庫號int倉庫編號2倉庫名varchar(50)倉庫名稱3倉庫備注varchar(100)倉庫說明3.2.2 產(chǎn)品信息表“產(chǎn)品”產(chǎn)品信息表“產(chǎn)品”用來保存產(chǎn)品的基本信息，表“產(chǎn)品”的結(jié)構(gòu)如表所示。表3.2.2產(chǎn)品信息表“產(chǎn)品”編號字段名稱數(shù)據(jù)結(jié)構(gòu)說 明1產(chǎn)品號int產(chǎn)品編號2產(chǎn)品名varchar(50)產(chǎn)品名稱3產(chǎn)品數(shù)量int產(chǎn)品的數(shù)量4產(chǎn)品單價Varchar(20)產(chǎn)品的每單位價格5客戶號int供應(yīng)商編號3.2.3 入庫操作信息表“入庫表”入庫操作信息表“入庫表”用來保存入庫操作的基本信息，表“入庫表”的結(jié)構(gòu)如表所示。表3.2.3入庫操作信息表“入庫表”編號字段名稱數(shù)據(jù)結(jié)構(gòu)說 明1產(chǎn)品號int入庫產(chǎn)品編號2入庫單價Varchar(20)入庫產(chǎn)品單價3入庫數(shù)量int入庫產(chǎn)品數(shù)量4客戶號int客戶編號5倉庫號int倉庫編號6入庫時間char(10)入庫日期3.2.4 出庫操作信息表“出庫表”出庫操作信息表“出庫表”用來保存出庫操作的基本信息。表“出庫表”的結(jié)構(gòu)如表所示。 表3.2.4出庫操作信息表“出庫表”編號字段名稱數(shù)據(jù)結(jié)構(gòu)說 明1產(chǎn)品號int出庫產(chǎn)品編號2出庫單價Varchar(20)出庫產(chǎn)品單價3出庫數(shù)量int出庫產(chǎn)品數(shù)量4客戶號int客戶編號5倉庫號int倉庫編號6出庫時間char(20)出庫日期3.2.5庫存產(chǎn)品信息表“庫存表”庫存產(chǎn)品信息表“庫存表”用來保存庫存產(chǎn)品的基本信息，表“庫存表”的結(jié)構(gòu)如表所示。 表3.2.5庫存產(chǎn)品信息表“庫存”編號字段名稱數(shù)據(jù)結(jié)構(gòu)說 明1產(chǎn)品號int產(chǎn)品編號2入庫價格Varchar(20)產(chǎn)品入庫單價3現(xiàn)存數(shù)量Int產(chǎn)品數(shù)量4倉庫號Int倉庫編號3.3 物理設(shè)計數(shù)據(jù)庫的物理結(jié)構(gòu)設(shè)計是指為給頂?shù)囊粋€邏輯數(shù)據(jù)模型選擇最適合應(yīng)用環(huán)境的物理結(jié)構(gòu)。關(guān)系數(shù)據(jù)庫的物理結(jié)構(gòu)主要是指數(shù)據(jù)的存取方法和存儲結(jié)構(gòu)。數(shù)據(jù)庫的物理結(jié)構(gòu)設(shè)計分為兩個部分，首先是確定數(shù)據(jù)庫的物理結(jié)構(gòu)，其次是對所設(shè)計的物理結(jié)構(gòu)進(jìn)行評估。確定數(shù)據(jù)庫的物理結(jié)構(gòu)為確定數(shù)據(jù)庫的物理結(jié)構(gòu)，設(shè)計人員必須了解下面的幾個問題。詳細(xì)了解給定的DBMS的功能和特點(diǎn)，特別是該DBMS所提供的物理環(huán)境和功能；熟悉應(yīng)用環(huán)境，了解所設(shè)計的應(yīng)用系統(tǒng)中各部分的重要程度、處理頻率、對響應(yīng)時間的要求，并把它們作為物理結(jié)構(gòu)設(shè)計過程中平衡時間和空間效率時的依據(jù)；了解外存設(shè)備的特性， 如分塊原則、塊因子大小的規(guī)定、設(shè)備的I/O特性等。在對上述問題進(jìn)行了全面的了解之后，就可以進(jìn)行物理結(jié)構(gòu)的設(shè)計了。一般地，物理結(jié)構(gòu)設(shè)計的內(nèi)容包括如下幾個方面。確定數(shù)據(jù)的存儲結(jié)構(gòu)。在此過程中需考慮存取時間、空間效率和維護(hù)代價間的平衡，如在引入冗余數(shù)據(jù)以加快存取速度時應(yīng)兼顧系統(tǒng)的空間效率。選擇合適的存取路徑，例如確定應(yīng)該為哪些關(guān)系模式建立索引，索引關(guān)鍵字是什么等。確定數(shù)據(jù)的存放位置，例如確定數(shù)據(jù)存放在一個磁盤上還是多個磁盤上，什么數(shù)據(jù)該存放在高速存儲器上，什么應(yīng)該存放在低速存儲器上等。確定存取分布，許多DBMS都提供了一些存儲分配參數(shù)供設(shè)計者使用，例如緩沖區(qū)的大小和個數(shù)、塊的長度、塊因子的大小等，設(shè)計者必須規(guī)定其中的一些參數(shù)的位置。4程序模塊設(shè)計4.1 登錄界面模塊設(shè)計系統(tǒng)登陸圖，客戶填完用戶名及密碼可以進(jìn)入主界面。 圖 系統(tǒng)登陸圖4-14.2出、入庫模塊設(shè)計商品入庫登記模塊圖，可以填寫商品編號，數(shù)量、規(guī)格等信息。 圖 商品入庫登記圖4-2商品出庫管理圖，主要錄入一些商品出庫單據(jù)信息。 圖 商品出庫管理圖4-34.3 查詢模塊設(shè)計商品出、入庫可以按照時間進(jìn)行查詢。 圖 出入庫查詢圖4-4庫存商品查詢，可以按照商品種類、名稱、產(chǎn)地進(jìn)行查詢。5 小結(jié)經(jīng)過幾個星期的努力終于把倉庫管理系統(tǒng)做完了，通過做這次課程設(shè)計，我對數(shù)據(jù)庫系統(tǒng)有了更深的認(rèn)識和理解，把理論知識和實踐結(jié)合起來，使理論知識得到了運(yùn)用，同時自己也掌握了知識。經(jīng)過自己親手實踐后，就會真正明白實踐是檢驗真理的唯一標(biāo)準(zhǔn)。在設(shè)計的過程中，我參考了很多有關(guān)數(shù)據(jù)庫的資料，掌握了很多課堂上沒有的知識，提高了自己的能力，了解了軟件開發(fā)的過程，受益匪淺。同時也發(fā)現(xiàn)了自己的不足之處并且改正，為以后的工作和學(xué)習(xí)打下了良好的基礎(chǔ)。 附 錄附錄1源程序清單1. 登陸代碼Private Sub Command1_Click()Dim cn As New ADODB.Connectioncn.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=倉庫管理系統(tǒng);Data Source=WWW-4FDE9FFEC01cn.OpenDim rs, rss As New ADODB.RecordsetSet rs = cn.Execute(select * from 管理員 where 管理員名= & Text1.Text & )Set rss = cn.Execute(select * from 管理員 where 密碼= & Text2.Text & )If rs.EOF Then MsgBox 用戶名錯誤! Text1.Text = Text1.SetFocus Else If rss.EOF Then MsgBox 密碼錯誤! Text2.Text = Text2.SetFocus Else Me.Hide Form2.Show MsgBox (Text1.Text + ) End IfEnd IfEnd Sub2. 添加客戶信息代碼Private Sub Command1_Click()Dim cn As New ADODB.ConnectionDim sql As Stringcn.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=倉庫管理系統(tǒng);Data Source=WWW-4FDE9FFEC01cn.OpenDim a1, a2, a3, a4, a5, a6, a7 As Stringa1 = Text1.Texta2 = Text2.Texta3 = Text3.Texta4 = Text4.Texta5 = Text5.Texta6 = Text6.Texta7 = Combo1.Textsql = insert into 客戶 values( & a1 & , & a2 & , & a7 & , & a3 & , & a4 & , & a5 & , & a6 & )cn.Execute (sql)cn.CloseMsgBox 已添加客戶信息End Sub3. 根據(jù)客戶號查看、刪除客戶代碼Private Sub Command1_Click()Dim kehuhao As Stringkehuhao = Text8.TextAdodc1.Recordset.Find 客戶號= & Val(kehuhao)End SubPrivate Sub Command2_Click()Dim cn As New ADODB.ConnectionDim sql As StringDim kehuhao As Stringkehuhao = Text8.Textcn.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=倉庫管理系統(tǒng);Data Source=WWW-4FDE9FFEC01cn.Opensql = delete from 客戶 where 客戶號= & kehuhao & cn.Execute (sql)MsgBox 已刪除編號為 & kehuhao & 的客戶信息End Sub4. 查看客戶信息代碼Private Sub Command1_Click()Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim sql As Stringcn.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=倉庫管理系統(tǒng);Data Source=WWW-4FDE9FFEC01cn.OpenIf Combo1.Text = 供應(yīng)商 Thenrs.Open select * from 客戶 where 客戶類型=供應(yīng)商, cn, adOpenKeyset, adLockBatchOptimistic, adCmdTextSet DataGrid1.DataSource = rsDataGrid1.Refresh Else If Combo1.Text = 購貨商 Then rs.Open select * from 客戶 where 客戶類型=購貨商, cn, adOpenKeyset, adLockBatchOptimistic, adCmdTextSet DataGrid1.DataSource = rsDataGrid1.Refresh Else rs.Open select * from 客戶, cn, adOpenKeyset, adLockBatchOptimistic, adCmdText Set DataGrid1.DataSource = rsDataGrid1.RefreshEnd IfEnd IfEnd SubPrivate Sub Command2_Click()Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim sql As Stringcn.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=倉庫管理系統(tǒng);Data Source=WWW-4FDE9FFEC01cn.Openrs.Open select * from 客戶 where 客戶號= & Text1.Text & , cn, adOpenKeyset, adLockBatchOptimistic, adCmdTextSet DataGrid1.DataSource = rsDataGrid1.RefreshEnd SubPrivate Sub Command3_Click()Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim sql As Stringcn.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=倉庫管理系統(tǒng);Data Source=WWW-4FDE9FFEC01cn.Openrs.Open select * from 客戶 where 客戶名= & Text2.Text & , cn, adOpenKeyset, adLockBatchOptimistic, adCmdTextSet DataGrid1.DataSource = rsDataGrid1.RefreshEnd Sub5. 查詢倉庫信息Dim sql As Stringcn.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=倉庫管理系統(tǒng);Data Source=WWW-4FDE9FFEC01cn.Openrs.Open select * from 倉庫 where 倉庫號= & Text1.Text & , cn, adOpenKeyset, adLockBatchOptimistic, adCmdTextSet DataGrid1.DataSource = rsDataGrid1.RefreshEnd SubPrivate Sub Command2_Click()Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim sql As Stringcn.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=倉庫管理系統(tǒng);Data Source=WWW-4FDE9FFEC01cn.Openrs.Open select * from 倉庫 where 倉庫名= & Text2.Text & , cn, adOpenKeyset, adLockBatchOptimistic, adCmdTextSet DataGrid1.DataSource = rsDataGrid1.RefreshEnd Sub6. 添加倉庫信息Private Sub Command1_Click()Dim cn As New ADODB.ConnectionDim sql As Stringcn.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=倉庫管理系統(tǒng);Data Source=WWW-4FDE9FFEC01cn.OpenDim a1, a2, a3 As Stringa1 = Text1.Texta2 = Text2.Texta3 = Text3.Textsql = insert into 倉庫 values( & a1 & , & a2 & , & a3 & )cn.Execute (sql)cn.CloseMsgBox 已添加倉庫信息End Sub7. 查看刪除倉庫信息Private Sub Command1_Click()Dim cangkuhao As Stringcangkuhao = Text1.TextAdodc1.Recordset.Find 產(chǎn)品號= & Val(cangkuhao)End SubPrivate Sub Command2_Click()Dim cn As New ADODB.ConnectionDim sql As StringDim cangkuhao As Stringcangkuhao = Text1.Textcn.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=倉庫管理系統(tǒng);Data Source=WWW-4FDE9FFEC01cn.Opensql = delete from 倉庫 where 倉庫號= & cangkuhao & cn.Execute (sql)MsgBox 已刪除編號為 & cangkuhao & 的倉庫信息End Sub8. 添加操作員信息Private Sub Command1_Click()Dim cn As New ADODB.ConnectionDim sql As Stringcn.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=倉庫管理系統(tǒng);Data Source=WWW-4FDE9FFEC01cn.OpenDim a1, a2, a3 As Stringa1 = Text1.Texta2 = Text2.Texta3 = Text3.Textsql = insert into 操作員 values( & a1 & , & a2 & , & a3 & )cn.Execute (sql)cn.CloseMsgBox 已添加操作員信息End Sub9. 查看刪除操作員信息Private Sub Command3_Click()Dim caozuoyuanhao As Stringcaozuoyuanhao = Text1.TextAdodc1.Recordset.Find 操作員號= & Val(caozuoyuanhao)End SubPrivate Sub Command1_Click()Dim cn As New ADODB.ConnectionDim sql As StringDim kehuhao As Stringcaozuoyuanhao = Text1.Textcn.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=倉庫管理系統(tǒng);Data Source=WWW-4FDE9FFEC01cn.Opensql = delete from 操作員 where 操作員號= & caozuoyuanhao & cn.Execute (sql)MsgBox 已刪除編號為 & caozuoyuanhao & 的操作員信息End Sub10. 添加產(chǎn)品信息Private Sub Command1_Click()Dim cn As New ADODB.ConnectionDim sql As Stringcn.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=倉庫管理系統(tǒng);Data Source=WWW-4FDE9FFEC01cn.OpenDim a1, a2, a3, a4, a5 As Stringa1 = Text1.Texta2 = Text2.Texta3 = Text3.Texta4 = Text4.Texta5 = Text5.Textsql = insert into 產(chǎn)品 values( & a1 & , & a2 & , & a3 & , & a4 & , & a5 & )cn.Execute (sql)cn.CloseMsgBox 已添加產(chǎn)品信息End Sub11. 查看刪除產(chǎn)品信息Private Sub Command3_Click()Dim chanpinhao As Stringchanpinhao = Text1.TextAdodc1.Recordset.Find 產(chǎn)品號= & Val(chanpinhao)End SubPrivate Sub Command1_Click()Dim cn As New ADODB.ConnectionDim sql As StringDim kehuhao As Stringchanpinhao = Text1.Textcn.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=倉庫管理系統(tǒng);Data Source=WWW-4FDE9FFEC01cn.Opensql = delete from 產(chǎn)品 where 產(chǎn)品號= & chanpinhao & cn.Execute (sql)MsgBox 已刪除編號為 & chanpinhao & 的產(chǎn)品信息End Sub12. 查詢產(chǎn)品信息Private Sub Command1_Click()Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim sql As Stringcn.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=倉庫管理系統(tǒng);Data Source=WWW-4FDE9FFEC01cn.Openrs.Open select * from 產(chǎn)品 where 倉庫號= & Text1.Text & , cn, adOpenKeyset, adLockBatchOptimistic, adCmdTextSet DataGrid1.DataSource = rsDataGrid1.RefreshEnd SubPrivate Sub Command2_Click()Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim sql As Stringcn.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=倉庫管理系統(tǒng);Data Source=WWW-4FDE9FFEC01cn.Openrs.Open select * from 產(chǎn)品 where 產(chǎn)品號= & Text2.Text & , cn, adOpenKeyset, adLockBatchOptimistic, adCmdTextSet DataGrid1.DataSource = rsDataGrid1.RefreshEnd SubPrivate Sub Command3_Click()Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim sql As Stringcn.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=倉庫管理系統(tǒng);Data Source=WWW-4FDE9FFEC01cn.Openrs.Open select * from 產(chǎn)品 where 客戶號= & Text3.Text & , cn, adOpenKeyset, adLockBatchOptimistic, adCmdTextSet DataGrid1.DataSource = rsDataGrid1.RefreshEnd Sub13. 填寫入庫表Private Sub Command1_Click()Dim cn As New ADODB.ConnectionDim sql As Stringcn.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=倉庫管理系統(tǒng);Data Source=WWW-4FDE9FFEC01cn.OpenDim a1, a2, a3, a4, a5, a6 As Stringa1 = Text1.Texta2 = Text2.Texta3 = Text3.Texta4 = Text4.Texta5 = Text5.Texta6 = Text6.Textsql = insert into 入庫表 values( & a1 & , & a2 & , & a3 & , & a4 & , & a5 & , & a6 & )cn.Execute (sql)cn.CloseMsgBox 已填寫入庫表信息End Sub14. 填寫出庫表Private Sub Command1_Click()Dim cn As New ADODB.ConnectionDim sql As Stringcn.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=倉庫管理系統(tǒng);Data Source=WWW-4FDE9FFEC01cn.OpenDim a1, a2, a3, a4, a5, a6 As Stringa1 = Text1.Texta2 = Text2.Texta3 = Text3.Texta4 = Text4.Texta5 = Text5.Texta6 = Text6.Textsql = insert into 出庫表 values( & a1 & , & a2 & , & a3 & , & a4 & , & a5 & , & a6 & )cn.Execute (sql)cn.CloseMsgBox 已填寫出庫表信息End Sub15. 入庫表信息查詢Private Sub Command1_Click()Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim sql As Stringcn.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=倉庫管理系統(tǒng);Data Source=WWW-4FDE9FFEC01cn.Openrs.Open select * from 入庫表 where 產(chǎn)品號= & Text1.Text & , cn, adOpenKeyset, adLockBatchOptimistic, adCmdTextSet DataGrid1.DataSource = rsDataGrid1.RefreshEnd SubPrivate Sub Command2_Click()Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim sql As Stringcn.ConnectionString = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=倉庫管理系統(tǒng);Data Source=WWW-4FDE9FFEC01cn.Openrs.Open select * from 入庫表 where 入庫時間= & Text2.Text & , cn, adOpenKeyset, adLockBatchOptimistic, adCmdTextSet DataGrid1.DataSource = rsDataGrid1.RefreshEnd SubPrivate Sub Command3_Click()Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetDim sql As Stringcn.ConnectionString = Provider=SQLOLEDB.1;Integrated Securi