《數(shù)據(jù)庫(kù)原理》課程設(shè)計(jì)報(bào)告農(nóng)產(chǎn)品信息管理系統(tǒng)

《《數(shù)據(jù)庫(kù)原理》課程設(shè)計(jì)報(bào)告農(nóng)產(chǎn)品信息管理系統(tǒng)》由會(huì)員分享，可在線閱讀，更多相關(guān)《《數(shù)據(jù)庫(kù)原理》課程設(shè)計(jì)報(bào)告農(nóng)產(chǎn)品信息管理系統(tǒng)（46頁(yè)珍藏版）》請(qǐng)?jiān)谘b配圖網(wǎng)上搜索。

1、 《數(shù)據(jù)庫(kù)原理》課程設(shè)計(jì)報(bào)告 農(nóng)產(chǎn)品信息管理系統(tǒng) 系 部： 計(jì)算機(jī)與信息科學(xué)系 學(xué)生姓名： 指導(dǎo)教師： 專 業(yè)： 計(jì)算機(jī)與信息科學(xué) 班 級(jí)： 信本0902班 完成時(shí)間： 2011年6月15日 目 錄 1 引 言 1 2 設(shè)計(jì)目的與任務(wù) 2 3 數(shù)據(jù)庫(kù)設(shè)計(jì) 3 3.1 需求分析 3 3.1.1 數(shù)據(jù)需求 3 3.1.2 數(shù)據(jù)字典 4 3.2 概念設(shè)計(jì) 6 3.2.1 實(shí)體集 6 3.2.

2、2 E-R圖 7 3.2.3 概念模型 7 3.3 邏輯設(shè)計(jì) 8 3.3.1 物理模型 8 3.3.2 關(guān)系模型 9 3.4 數(shù)據(jù)庫(kù)實(shí)現(xiàn) 10 3.4.1建立數(shù)據(jù)庫(kù)模式及視圖 10 3.4.2源代碼 12 4 結(jié) 論 40 5 致 謝 41 6 參考文獻(xiàn) 42 7 附 錄 43 1 引 言 隨著計(jì)算機(jī)行業(yè)的興起，信息管理技術(shù)在現(xiàn)實(shí)生活中得到了越來(lái)越廣泛的應(yīng)用，信息管理系統(tǒng)的實(shí)施在技術(shù)上已逐步成熟。信息管理系統(tǒng)是一個(gè)不斷發(fā)展的新型學(xué)科，任何一個(gè)單位要生存要發(fā)展，要高效率地把內(nèi)部活動(dòng)有機(jī)地組織起來(lái)，就必須建立與自身特點(diǎn)相適應(yīng)的管理系統(tǒng)。對(duì)于農(nóng)產(chǎn)品生

3、產(chǎn)機(jī)構(gòu)而言，能有一個(gè)完善的農(nóng)產(chǎn)品信息的管理系統(tǒng)來(lái)方便快捷的完成對(duì)農(nóng)產(chǎn)品信息和倉(cāng)庫(kù)管理員信息的查詢、修改和管理，在提高管理效率和查找農(nóng)產(chǎn)品信息效率上是不可缺少的。 對(duì)于我們而言，通過(guò)完成每期的課程設(shè)計(jì)，不但可以不斷的提升自己的動(dòng)手能力，加強(qiáng)的我們的團(tuán)隊(duì)合作精神，培養(yǎng)我們敏捷的思維能力。還可以提升我們對(duì)專業(yè)認(rèn)識(shí)，更好的理解和掌握我們的專業(yè)知識(shí)。 2 設(shè)計(jì)目的與任務(wù) 通過(guò)本次課程設(shè)計(jì)，學(xué)習(xí)數(shù)據(jù)庫(kù)設(shè)計(jì)工具的使用，掌握數(shù)據(jù)庫(kù)設(shè)計(jì)的流程和基本方法。 熟練VB與數(shù)據(jù)庫(kù)之間的鏈接，完成對(duì)某一小型數(shù)據(jù)庫(kù)設(shè)計(jì)和相應(yīng)文檔的編寫(xiě)工作。從而更加深入地掌握數(shù)據(jù)庫(kù)系統(tǒng)分析與設(shè)計(jì)的基本

4、概念和基本方法，提高從事數(shù)據(jù)庫(kù)系統(tǒng)建設(shè)和管理工作的基本技能和能力。 本課程設(shè)計(jì)要求設(shè)計(jì)一個(gè)農(nóng)產(chǎn)品信息管理系統(tǒng)，能對(duì)數(shù)據(jù)庫(kù)中的農(nóng)產(chǎn)品信息隨時(shí)進(jìn)行新增、修改和刪除。數(shù)據(jù)庫(kù)中包含農(nóng)產(chǎn)品信息表，職員信息表和倉(cāng)庫(kù)信息表和用戶表。同時(shí)創(chuàng)建基本視圖，實(shí)現(xiàn)對(duì)數(shù)據(jù)的查詢、新增、修改和刪除。用戶登錄需驗(yàn)證用戶的身份，對(duì)于不合權(quán)限的用戶，拒絕其登錄本系統(tǒng)。 3 數(shù)據(jù)庫(kù)設(shè)計(jì) 3.1 需求分析 3.1.1 數(shù)據(jù)需求 通過(guò)與農(nóng)產(chǎn)品信息管理系統(tǒng)數(shù)據(jù)庫(kù)用戶的交談、團(tuán)隊(duì)的分析、市場(chǎng)需求等方式，獲得了農(nóng)產(chǎn)品信息管理系統(tǒng)的數(shù)據(jù)需求。 有多個(gè)用戶可以訪問(wèn)該數(shù)據(jù)庫(kù)，為了數(shù)據(jù)庫(kù)的安全，

5、對(duì)于每個(gè)用戶登錄前都需通過(guò)身份認(rèn)證，認(rèn)證通過(guò)后方能進(jìn)入該系統(tǒng)。 一個(gè)農(nóng)產(chǎn)品公司可生產(chǎn)多種農(nóng)產(chǎn)品，不同農(nóng)產(chǎn)品存放在不同的倉(cāng)庫(kù)，每個(gè)倉(cāng)庫(kù)有固定的管理員。 每個(gè)農(nóng)產(chǎn)品信息包含產(chǎn)品編號(hào)、倉(cāng)庫(kù)號(hào)、產(chǎn)品名、入庫(kù)時(shí)間、庫(kù)存量和總值。 每個(gè)倉(cāng)庫(kù)信息包含倉(cāng)庫(kù)號(hào)、面積和電話號(hào)碼。 每位管理員信息包括管理員號(hào)、姓名、性別、出生年月和聯(lián)系方式。 圖3.11農(nóng)產(chǎn)品信息管理系統(tǒng)數(shù)據(jù)流圖 3.1.2 數(shù)據(jù)字典 以下將對(duì)本數(shù)據(jù)庫(kù)設(shè)計(jì)中的各個(gè)數(shù)據(jù)表名稱進(jìn)行解釋。 表3.1農(nóng)產(chǎn)品信息管理清單 表名 解釋 農(nóng)產(chǎn)品信息表 用來(lái)記錄農(nóng)產(chǎn)品的相關(guān)信息 用戶 用來(lái)記錄登錄用

6、戶的用戶名和密碼 職員表 用來(lái)記錄管理員的相關(guān)信息 倉(cāng)庫(kù)信息表 用來(lái)記錄倉(cāng)庫(kù)里農(nóng)產(chǎn)品的相關(guān)信息 表3.2農(nóng)產(chǎn)品信息表 農(nóng)產(chǎn)品信息表 是否主鍵 屬性名 數(shù)據(jù)類型 長(zhǎng)度 可 空 約 束 缺省值 備 注 是 產(chǎn)品編號(hào) Char(10) 10 倉(cāng)庫(kù)號(hào) Char(10) 10 產(chǎn)品名 Char(10) 10 入庫(kù)時(shí)間 Char(20) 10 庫(kù)存量 Char(10) 20 √ 總 值 Char(10) 10 √

7、 表3.3用戶信息表 用戶 是否主鍵 屬性名 數(shù)據(jù)類型 長(zhǎng)度 可空 約 束 缺省值 備 注 是 用戶名 Char(10) 10 密碼 Char(20) 20 √ 表3.4職員信息表 職員信息表 是否主鍵 屬性名 數(shù)據(jù)類型 長(zhǎng)度 可空 約 束 缺省值 備 注 是 管理員號(hào) Char(10) 10 姓名 Char(10) 10 性別 Char(2) 2 出生年月 Char(40) 40 √

8、 聯(lián)系方式 Char(14) 14 √ 表3.5倉(cāng)庫(kù)信息表 倉(cāng)庫(kù)信息表 是否主鍵 屬性名 數(shù)據(jù)類型 長(zhǎng)度 可 空 約 束 缺省值 備 注 是 倉(cāng)庫(kù)號(hào) Char(10) 10 面 積 Char(20) 10 電話號(hào)碼 Char(14) 10 3.2 概念設(shè)計(jì) 3.2.1 實(shí)體集 本數(shù)據(jù)庫(kù)E-R圖設(shè)計(jì)中包含4個(gè)實(shí)體，其中4個(gè)實(shí)體都是強(qiáng)實(shí)體集。實(shí)體的具體屬性可見(jiàn)下表。 表3.6農(nóng)產(chǎn)品信息管理系統(tǒng)實(shí)體集 農(nóng)產(chǎn)品信息管理系統(tǒng)實(shí)體集 實(shí)

9、體集 屬性 農(nóng)產(chǎn)品信息表 產(chǎn)品編號(hào)、倉(cāng)庫(kù)號(hào)、產(chǎn)品名、入庫(kù)時(shí)間、庫(kù)存量、總值 職員信息表 管理員號(hào)、姓名、性別、出生年月、聯(lián)系方式 倉(cāng)庫(kù)信息表 倉(cāng)庫(kù)號(hào)、面積、電話號(hào)碼 用戶 用戶名、密碼 3.2.2 E-R圖 圖3.22 農(nóng)產(chǎn)品信息管理系統(tǒng)數(shù)據(jù)庫(kù)E-R圖 3.2.3 概念模型 由圖3.1的E-R圖中實(shí)體之間的聯(lián)系，利用powerdesigner工具概念模型。最終概念模型圖如圖2所示 圖3.23農(nóng)產(chǎn)品信息管理系統(tǒng)數(shù)據(jù)庫(kù)概念模型 3.3 邏輯設(shè)計(jì) 3.3.1 物理模型 根據(jù)圖3.2的概念模型圖，可以利用powerdesigner導(dǎo)

10、出農(nóng)產(chǎn)品管理系統(tǒng)數(shù)據(jù)庫(kù)的物理模型圖。 圖3.31農(nóng)產(chǎn)品信息管理系統(tǒng)數(shù)據(jù)庫(kù)物理模型 3.3.2 關(guān)系模型 根據(jù)關(guān)系模式轉(zhuǎn)換規(guī)則，把圖1E-R圖轉(zhuǎn)換為關(guān)系模式，如下所示(有實(shí)下劃線的為主碼)： 農(nóng)產(chǎn)品信息=(產(chǎn)品編號(hào),倉(cāng)庫(kù)號(hào),產(chǎn)品名,入庫(kù)時(shí)間，庫(kù)存量，總值) 倉(cāng)庫(kù)信息=(倉(cāng)庫(kù)號(hào),面積，電話號(hào)碼) 職員信息=(管理員號(hào)，姓名，性別，出生年月，聯(lián)系方式) 用戶=(用戶名,密碼) 管理=(倉(cāng)庫(kù)號(hào)，管理員號(hào)) 3.4 數(shù)據(jù)庫(kù)實(shí)現(xiàn) 3.4.1建立數(shù)據(jù)庫(kù)模式及視圖 以下將對(duì)數(shù)據(jù)庫(kù)進(jìn)行實(shí)現(xiàn)，實(shí)現(xiàn)的環(huán)境為SQLSERVER2008。 create d

11、atabase 農(nóng)產(chǎn)品信息管理 on primary ( Name=農(nóng)產(chǎn)品信息管理_data, Filename= D:\數(shù)據(jù)庫(kù)\課程設(shè)計(jì)\農(nóng)產(chǎn)品信息.mdf , size=10, Filegrowth=10%, maxsize=unlimited ) log on ( Name=農(nóng)產(chǎn)品信息管理_log, Filename=D:\ 數(shù)據(jù)庫(kù)\課程設(shè)計(jì)\農(nóng)產(chǎn)品信息.ldf, size=1, Filegrowth=10%, maxsize=5 ) 1.建立農(nóng)產(chǎn)品信息表 CREATE TABLE 農(nóng)

12、產(chǎn)品信息表 ( 產(chǎn)品編號(hào) CHAR(10) PRIMARY KEY , 倉(cāng)庫(kù)號(hào) CHAR(10) 產(chǎn)品名 CHAR(10), 入庫(kù)時(shí)間 char(10) NOT NULL, 庫(kù)存量 CHAR(10) 總 值 CHAR(10) ) 2.倉(cāng)庫(kù)信息表 CREATE TABLE 倉(cāng)庫(kù)信息表 ( 倉(cāng)庫(kù)號(hào) CHAR(10) PRIMARY KEY , 面 積 CHAR(10) NOT NULL, 電話號(hào)碼 CHAR(10)， ) 3.職員信息表 CREATE

13、TABLE 職員信息表 ( 管理員號(hào) CHAR(10) PRIMARY KEY , 姓 名 CHAR(10)， 性 別 CHAR(10)， 出生年月 CHAR(10)， 聯(lián)系方式 CHAR(10)， ) 4.用戶 CREATE TABLE 用戶 ( 用戶名 CHAR(10) PRIMARY KEY ， 密 碼 CHAR(30) ) ********************新建視圖*********************** 建立農(nóng)產(chǎn)品信息視圖 CREATE VIEW 農(nóng)產(chǎn)品信

14、息（產(chǎn)品編號(hào)，倉(cāng)庫(kù)號(hào)，入庫(kù)時(shí)間，庫(kù)存量，總值） AS SELECT 產(chǎn)品編號(hào)，倉(cāng)庫(kù)號(hào)，入庫(kù)時(shí)間，庫(kù)存量，總值 FROM 農(nóng)產(chǎn)品信息表 建立倉(cāng)庫(kù)信息視圖 CREATE VIEW 倉(cāng)庫(kù)信息（倉(cāng)庫(kù)號(hào)，面積，電話號(hào)碼） AS SELECT 倉(cāng)庫(kù)號(hào)，面積，電話號(hào)碼 FROM 倉(cāng)庫(kù)信息表 建立職員信息 CREATE VIEW 職員信息（管理員號(hào)，姓名，性別，出生年月，聯(lián)系方式） AS SELECT 管理員號(hào)，姓名，性別，出生年月，聯(lián)系方式 FROM 管理員信息表 3.4.2源代碼 用戶登錄 Private Sub Command1_Clic

15、k() Adodc1.Recordset.MoveFirst Adodc1.Recordset.Find "用戶名=" & Text1.Text & " " SQL = "SELECT 用戶名 FROM 用戶 WHREE 用戶名 LIKE Text1.Text" Adodc1.RecordSource = SQL Static i As Integer If Adodc1.Recordset.EOF And i < 3 Then MsgBox "用戶名錯(cuò)誤，請(qǐng)重新輸入！", 32, "提示信息" i

16、 = i + 1 Text1.Text = "" Text1.SetFocus Exit Sub End If Adodc1.Recordset.MoveFirst Adodc1.Recordset.Find "密碼=" & Text2.Text & " " SQL = "SELECT 密碼 FROM 用戶 WHREE 用戶名 LIKE Text1.Text" Adodc1.RecordSource = SQL If Adodc1.Recordset.EOF And i < 3 T

17、hen MsgBox "密碼錯(cuò)誤，請(qǐng)重新輸入！", 32, "提示信息" i = i + 1 Text2.Text = "" Text2.SetFocus Exit Sub End If If i = 3 Then MsgBox "請(qǐng)不起，您無(wú)權(quán)登錄本系統(tǒng)！", 16, "提示信息" Form3.Show Form2.Hide Exit Sub End If Form5.Show Fo

18、rm2.Hide Text1.Text = "" Text2.Text = "" End Sub Private Sub Text2_KeyUp(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then Adodc1.Recordset.MoveFirst Adodc1.Recordset.Find "用戶名=" & Text1.Text & " " SQL = "SELECT 用戶名 FROM 用戶 WHREE 用戶名 LIKE Text1.

19、Text" Adodc1.RecordSource = SQL Static i As Integer If Adodc1.Recordset.EOF And i < 3 Then MsgBox "用戶名錯(cuò)誤，請(qǐng)重新輸入！", 32, "提示信息" i = i + 1 Text1.Text = "" Text1.SetFocus Exit Sub End If Adodc1.R

20、ecordset.MoveFirst Adodc1.Recordset.Find "密碼=" & Text2.Text & " " SQL = "SELECT 密碼 FROM 用戶 WHREE 用戶名 LIKE Text1.Text" Adodc1.RecordSource = SQL If Adodc1.Recordset.EOF And i < 3 Then MsgBox "密碼錯(cuò)誤，請(qǐng)重新輸入！", 32, "提示信息" i = i + 1

21、 Text2.Text = "" Text2.SetFocus Exit Sub End If If i = 3 Then MsgBox "請(qǐng)不起，您無(wú)權(quán)登錄本系統(tǒng)！", 16, "提示信息" Form3.Show Form2.Hide Exit Sub End If Form5.Show Form2.Hide Text1.Text

22、= "" Text2.Text = "" End If End Sub 密碼修改 Private Sub Command1_Click() If Text2.Text <> Text3.Text Then MsgBox "兩次新密碼輸入不一致，請(qǐng)重新輸入！", 32, "提示信息" Text2.Text = "" Text3.Text = "" Text2.SetFocus Exit Sub End If If KeyCode = 13

23、And Text2.Text = Text3.Text Then Adodc1.Recordset.MoveFirst Adodc1.Recordset.Find "用戶名=" & Text4.Text & " " SQL = "SELECT 用戶名 FROM 用戶 WHREE 用戶名 LIKE Text4.Text" Adodc1.RecordSource = SQL Adodc1.Recordset("用戶名") = Trim$(Text4.Text) Adodc1.Recordse

24、t("密碼") = Trim$(Text2.Text) Adodc1.Recordset.Update MsgBox "密碼修改成功！", vbInformation Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Exit Sub End If End Sub Private Sub Text1_KeyUp(KeyCode As Integer, Shift As I

25、nteger) If KeyCode = 13 Then Adodc1.Recordset.MoveFirst Adodc1.Recordset.Find "密碼=" & Text1.Text & " " SQL = "SELECT 密碼 FROM 用戶 WHREE 用戶名 LIKE Text4.Text" Adodc1.RecordSource = SQL If Adodc1.Recordset.EOF And i < 3 Then MsgBox "舊密碼密碼輸入錯(cuò)誤

26、，請(qǐng)重新輸入！", 32, "提示信息" i = i + 1 Text1.Text = "" Text1.SetFocus Exit Sub End If If i = 3 Then MsgBox "請(qǐng)不起，您無(wú)權(quán)修改本用戶密碼！", 16, "提示信息" Form2.Show Form4.Hide Exit Sub End If

27、 Text2.SetFocus End If End Sub Private Sub Text3_KeyUp(KeyCode As Integer, Shift As Integer) If KeyCode = 13 And Text2.Text <> Text3.Text Then MsgBox "兩次新密碼輸入不一致，請(qǐng)重新輸入！", 32, "提示信息" Text2.Text = "" Text3.Text = "" Text2.SetFocus Exit S

28、ub End If If KeyCode = 13 And Text2.Text = Text3.Text Then Adodc1.Recordset.MoveFirst Adodc1.Recordset.Find "用戶名=" & Text4.Text & " " SQL = "SELECT 用戶名 FROM 用戶 WHREE 用戶名 LIKE Text4.Text" Adodc1.RecordSource = SQL Adodc1.Recordset("用戶名") = Trim$(

29、Text4.Text) Adodc1.Recordset("密碼") = Trim$(Text2.Text) Adodc1.Recordset.Update MsgBox "密碼修改成功！", vbInformation Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Exit Sub End If End Sub Private Sub Text4_Ke

30、yUp(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then Adodc1.Recordset.MoveFirst Adodc1.Recordset.Find "用戶名=" & Text4.Text & " " SQL = "SELECT 用戶名 FROM 用戶 WHREE 用戶名 LIKE Text4.Text" Adodc1.RecordSource = SQL Static i As Integer If A

31、dodc1.Recordset.EOF Then MsgBox "用戶名輸入錯(cuò)誤，請(qǐng)重新輸入！", 32, "提示信息" Text4.Text = "" Text4.SetFocus Exit Sub End If Text1.SetFocus End If End Sub 農(nóng)產(chǎn)品信息查詢 Private Sub Command1_Click() Adodc1.Recordset.MoveFirst Adodc1.R

32、ecordset.Find "產(chǎn)品名=" & Text1.Text & " " SQL = "SELECT 產(chǎn)品名 FROM 農(nóng)產(chǎn)品信息表 WHREE 產(chǎn)品名 LIKE Text1.Text" Adodc1.RecordSource = SQL If Adodc1.Recordset.EOF Then MsgBox "請(qǐng)不起，暫時(shí)還沒(méi)有您要查找的信息！", 32, "提示信息" Text1.Text = "" Text1.SetFocus Exit Sub End If T

33、ext2.Text = Adodc1.Recordset("產(chǎn)品編號(hào)") Text3.Text = Adodc1.Recordset("倉(cāng)庫(kù)號(hào)") Text4.Text = Adodc1.Recordset("產(chǎn)品名") Text5.Text = Adodc1.Recordset("入庫(kù)時(shí)間") Text6.Text = Adodc1.Recordset("庫(kù)存量") Text7.Text = Adodc1.Recordset("總值") End Sub Private Sub Command6_Click() Dim i A

34、s Integer i = MsgBox("確定要?jiǎng)h除當(dāng)前記錄嗎？", 4 + 48, "警告") If i = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = ""

35、 Text7.Text = "" MsgBox "刪除成功！", vbInformation, "提示信息" End If End Sub Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then Adodc1.Recordset.MoveFirst Adodc1.Recordset.Find "產(chǎn)品名=" & Text1.Text & " " SQL = "SELECT 產(chǎn)品名

36、FROM 農(nóng)產(chǎn)品信息表 WHREE 產(chǎn)品名 LIKE Text1.Text" Adodc1.RecordSource = SQL If Adodc1.Recordset.EOF Then MsgBox "請(qǐng)不起，暫時(shí)還沒(méi)有您要查找的信息！", 32, "提示信息" Text1.Text = "" Text1.SetFocus Exit Sub End If Text2.Text = Adodc1.Recordse

37、t("產(chǎn)品編號(hào)") Text3.Text = Adodc1.Recordset("倉(cāng)庫(kù)號(hào)") Text4.Text = Adodc1.Recordset("產(chǎn)品名") Text5.Text = Adodc1.Recordset("入庫(kù)時(shí)間") Text6.Text = Adodc1.Recordset("庫(kù)存量") Text7.Text = Adodc1.Recordset("總值") End If End Sub 倉(cāng)庫(kù)信息查詢 Privat

38、e Sub Command1_Click() Adodc1.Recordset.MoveFirst Adodc1.Recordset.Find "倉(cāng)庫(kù)號(hào)=" & Text1.Text & " " SQL = "SELECT 倉(cāng)庫(kù)號(hào) FROM 倉(cāng)庫(kù)信息表 WHREE 倉(cāng)庫(kù)號(hào) LIKE Text1.Text" Adodc1.RecordSource = SQL If Adodc1.Recordset.EOF Then MsgBox "請(qǐng)不起，暫時(shí)還沒(méi)有您要查找的信息！", 32, "提示信息" Text1.Tex

39、t = "" Text1.SetFocus Exit Sub End If Text2.Text = Adodc1.Recordset("倉(cāng)庫(kù)號(hào)") Text3.Text = Adodc1.Recordset("面積") Text7.Text = Adodc1.Recordset("電話號(hào)碼") End Sub Private Sub Command4_Click() Dim i As Integer i = MsgBox("確定要?jiǎng)h除當(dāng)前記錄嗎？", 4 + 48, "警告")

40、If i = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext Text1.Text = "" Text2.Text = "" Text3.Text = "" Text7.Text = "" MsgBox "刪除成功！", vbInformation, "提示信息" End If End Sub Private Sub Text1_KeyUp(KeyCode As Integer,

41、 Shift As Integer) If KeyCode = 13 Then Adodc1.Recordset.MoveFirst Adodc1.Recordset.Find "倉(cāng)庫(kù)號(hào)=" & Text1.Text & " " SQL = "SELECT 倉(cāng)庫(kù)號(hào) FROM 倉(cāng)庫(kù)信息表 WHREE 倉(cāng)庫(kù)號(hào) LIKE Text1.Text" Adodc1.RecordSource = SQL If Adodc1.Recordset.EOF Then MsgBox "請(qǐng)不起

42、，暫時(shí)還沒(méi)有您要查找的信息！", 32, "提示信息" Text1.Text = "" Text1.SetFocus Exit Sub End If Text2.Text = Adodc1.Recordset("倉(cāng)庫(kù)號(hào)") Text3.Text = Adodc1.Recordset("面積") Text7.Text = Adodc1.Recordset("電話號(hào)碼") End If End Sub 職員信息查詢 Priva

43、te Sub Command1_Click() Adodc1.Recordset.MoveFirst Adodc1.Recordset.Find "姓名=" & Text1.Text & " " SQL = "SELECT 姓名 FROM 職員信息表 WHREE 姓名 LIKE Text1.Text " Adodc1.RecordSource = SQL If Adodc1.Recordset.EOF Then MsgBox "請(qǐng)不起，暫時(shí)還沒(méi)有您要查找的信息！", 32, "提示信息" Text1.Text

44、 = "" Text1.SetFocus Exit Sub End If Text2.Text = Adodc1.Recordset("管理員號(hào)") Text3.Text = Adodc1.Recordset("姓名") Text4.Text = Adodc1.Recordset("性別") Text5.Text = Adodc1.Recordset("出生年月") Text6.Text = Adodc1.Recordset("聯(lián)系方式") End Sub Private Sub Comma

45、nd6_Click() Dim i As Integer i = MsgBox("確定要?jiǎng)h除當(dāng)前記錄嗎？", 4 + 48, "警告") If i = vbYes Then Adodc1.Recordset.Delete Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" MsgBox

46、 "刪除成功！", vbInformation, "提示信息" End If End Sub Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then Adodc1.Recordset.MoveFirst Adodc1.Recordset.Find "姓名=" & Text1.Text & " " SQL = "SELECT 姓名 FROM 職員信息表 WHREE 姓名 LIKE Text1.Text"

47、 Adodc1.RecordSource = SQL If Adodc1.Recordset.EOF Then MsgBox "請(qǐng)不起，暫時(shí)還沒(méi)有您要查找的信息！", 32, "提示信息" Text1.Text = "" Text1.SetFocus Exit Sub End If Text2.Text = Adodc1.Recordset("管理員號(hào)") Text3.Text = Adodc1.Recor

48、dset("姓名") Text4.Text = Adodc1.Recordset("性別") Text5.Text = Adodc1.Recordset("出生年月") Text6.Text = Adodc1.Recordset("聯(lián)系方式") End If End Sub 新增農(nóng)產(chǎn)品信息 Private Sub Command2_Click() If Text1.Text = "" Then MsgBox "請(qǐng)輸入農(nóng)產(chǎn)品編名！", vbExclamation Text1

49、.SetFocus Exit Sub End If If Text2.Text = "" Then MsgBox "請(qǐng)輸入農(nóng)產(chǎn)品名！", vbExclamation Text2.SetFocus Exit Sub End If If Text3.Text = "" Then MsgBox "請(qǐng)輸入農(nóng)產(chǎn)品入庫(kù)號(hào)！", vbExclamation Text3.SetFocus Exit Sub End If Ado

50、dc1.Refresh Adodc1.Recordset.Find ("產(chǎn)品編號(hào)= " & Text1.Text & " ") If Not Adodc1.Recordset.EOF Then MsgBox "產(chǎn)品號(hào)重復(fù)，請(qǐng)重新輸入！", vbExclamation Text1.SetFocus Exit Sub End If Adodc1.Recordset.Find ("產(chǎn)品名= " & Text3.Text & " ") If Not Adodc1.Recordset.EOF Th

51、en MsgBox "產(chǎn)品名重復(fù)，請(qǐng)重新輸入！", vbExclamation Text2.SetFocus Exit Sub Else Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(0) = Trim$(Text1.Text) Adodc1.Recordset.Fields(1) = Trim$(Text2.Text) Adodc1.Recordset.Fields(2) = Trim$(Text3.Text

52、) Adodc1.Recordset.Fields(3) = Trim$(Text4.Text) Adodc1.Recordset.Fields(4) = Trim$(Text5.Text) Adodc1.Recordset.Fields(5) = Trim$(Text6.Text) Adodc1.Recordset.Update MsgBox "農(nóng)產(chǎn)品信息已經(jīng)添加成功！", vbInformation Adodc1.Refresh Text1.Text = ""

53、 Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" End If End Sub Private Sub Text6_Change() If KeyCode = 13 Then If Text1.Text = "" Then MsgBox "請(qǐng)輸入農(nóng)產(chǎn)品編名！", vbExclamation Text1.S

54、etFocus Exit Sub End If If Text2.Text = "" Then MsgBox "請(qǐng)輸入農(nóng)產(chǎn)品名！", vbExclamation Text2.SetFocus Exit Sub End If If Text3.Text = "" Then MsgBox "請(qǐng)輸入農(nóng)產(chǎn)品入庫(kù)號(hào)！", vbExclamation Text3.SetFocus

55、 Exit Sub End If Adodc1.Refresh Adodc1.Recordset.Find ("產(chǎn)品編號(hào)= " & Text1.Text & " ") If Not Adodc1.Recordset.EOF Then MsgBox "產(chǎn)品號(hào)重復(fù)，請(qǐng)重新輸入！", vbExclamation Text1.SetFocus Exit Sub End If Adodc1.Re

56、cordset.Find ("產(chǎn)品名= " & Text3.Text & " ") If Not Adodc1.Recordset.EOF Then MsgBox "產(chǎn)品名重復(fù)，請(qǐng)重新輸入！", vbExclamation ext2.SetFocus Exit Sub Else Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(0) = Trim$(Text1.Text)

57、 Adodc1.Recordset.Fields(1) = Trim$(Text2.Text) Adodc1.Recordset.Fields(2) = Trim$(Text3.Text) Adodc1.Recordset.Fields(3) = Trim$(Text4.Text) Adodc1.Recordset.Fields(4) = Trim$(Text5.Text) Adodc1.Recordset.Fields(5) = Trim$(Text6.Text)

58、 Adodc1.Recordset.Update MsgBox "農(nóng)產(chǎn)品信息已經(jīng)添加成功！", vbInformation Adodc1.Refresh Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" End If

59、 End If End Sub 新增倉(cāng)庫(kù)信息 Private Sub Command1_Click() If Text1.Text = "" Then MsgBox "請(qǐng)輸入倉(cāng)庫(kù)號(hào)！", vbExclamation Text1.SetFocus Exit Sub End If If Text2.Text = "" Then MsgBox "請(qǐng)輸入面積！", vbExclamation Text2.SetFocus Exit Sub

60、 End If Adodc1.Refresh Adodc1.Recordset.Find ("倉(cāng)庫(kù)號(hào)= " & Text1.Text & " ") If Not Adodc1.Recordset.EOF Then MsgBox "倉(cāng)庫(kù)號(hào)重復(fù)，請(qǐng)重新輸入！", vbExclamation Text1.SetFocus Exit Sub Else Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(0) = Trim$(

61、Text1.Text) Adodc1.Recordset.Fields(1) = Trim$(Text2.Text) Adodc1.Recordset.Fields(2) = Trim$(Text3.Text) Adodc1.Recordset.Update MsgBox "倉(cāng)庫(kù)信息已經(jīng)添加成功！", vbInformation Text1.Text = "" Text2.Text = "" Text3.Text = "" End If End Sub

62、 新增職員信息 Private Sub Command1_Click() If Text1.Text = "" Then MsgBox "請(qǐng)輸入管理員號(hào)！", vbExclamation Text1.SetFocus Exit Sub End If If Text2.Text = "" Then MsgBox "請(qǐng)輸入管理員姓名！", vbExclamation Text3.SetFocus Exit Sub End If Adodc1

63、.Refresh Adodc1.Recordset.Find ("管理員號(hào)= " & Text1.Text & " ") If Not Adodc1.Recordset.EOF Then MsgBox "管理員號(hào)重復(fù)，請(qǐng)重新輸入！", vbExclamation Text1.SetFocus Exit Sub Else Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(0) = Trim$(Text1.Text)

64、 Adodc1.Recordset.Fields(1) = Trim$(Text2.Text) Adodc1.Recordset.Fields(2) = Trim$(Text3.Text) Adodc1.Recordset.Fields(3) = Trim$(Text4.Text) Adodc1.Recordset.Fields(4) = Trim$(Text5.Text) Adodc1.Recordset.Update MsgBox "管理員信息添加成功！", vbInformation

65、 Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" End If End Sub Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" End Sub Private Sub

66、 Text5_Change() If KeyCode = 13 Then If Text1.Text = "" Then MsgBox "請(qǐng)輸入管理員號(hào)！", vbExclamation Text1.SetFocus Exit Sub End If If Text2.Text = "" Then MsgBox "請(qǐng)輸入管理員姓名！", vbExclamation Text3.SetFocus Exit Sub End If Adodc1.Refresh Adodc1.Recordset.Find ("管理員號(hào)= " & Text1.Text & " ") If Not Adodc1.Re