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

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

1、 《數(shù)據(jù)庫原理》課程設(shè)計(jì)報(bào)告 農(nóng)產(chǎn)品信息管理系統(tǒng) 系 部： 計(jì)算機(jī)與信息科學(xué)系 學(xué)生姓名： 指導(dǎo)教師： 專 業(yè)： 計(jì)算機(jī)與信息科學(xué) 班 級： 信本0902班 完成時(shí)間： 2011年6月15日 目 錄 1 引 言 1 2 設(shè)計(jì)目的與任務(wù) 2 3 數(shù)據(jù)庫設(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ù)庫實(shí)現(xiàn) 10 3.4.1建立數(shù)據(jù)庫模式及視圖 10 3.4.2源代碼 12 4 結(jié) 論 40 5 致 謝 41 6 參考文獻(xiàn) 42 7 附 錄 43 1 引 言 隨著計(jì)算機(jī)行業(yè)的興起，信息管理技術(shù)在現(xiàn)實(shí)生活中得到了越來越廣泛的應(yīng)用，信息管理系統(tǒng)的實(shí)施在技術(shù)上已逐步成熟。信息管理系統(tǒng)是一個(gè)不斷發(fā)展的新型學(xué)科，任何一個(gè)單位要生存要發(fā)展，要高效率地把內(nèi)部活動有機(jī)地組織起來，就必須建立與自身特點(diǎn)相適應(yīng)的管理系統(tǒng)。對于農(nóng)產(chǎn)品生

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

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

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

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

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

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

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

10、出農(nóng)產(chǎn)品管理系統(tǒng)數(shù)據(jù)庫的物理模型圖。 圖3.31農(nóng)產(chǎn)品信息管理系統(tǒng)數(shù)據(jù)庫物理模型 3.3.2 關(guān)系模型 根據(jù)關(guān)系模式轉(zhuǎn)換規(guī)則，把圖1E-R圖轉(zhuǎn)換為關(guān)系模式，如下所示(有實(shí)下劃線的為主碼)： 農(nóng)產(chǎn)品信息=(產(chǎn)品編號,倉庫號,產(chǎn)品名,入庫時(shí)間，庫存量，總值) 倉庫信息=(倉庫號,面積，電話號碼) 職員信息=(管理員號，姓名，性別，出生年月，聯(lián)系方式) 用戶=(用戶名,密碼) 管理=(倉庫號，管理員號) 3.4 數(shù)據(jù)庫實(shí)現(xiàn) 3.4.1建立數(shù)據(jù)庫模式及視圖 以下將對數(shù)據(jù)庫進(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ù)庫\課程設(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ù)庫\課程設(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)品編號 CHAR(10) PRIMARY KEY , 倉庫號 CHAR(10) 產(chǎn)品名 CHAR(10), 入庫時(shí)間 char(10) NOT NULL, 庫存量 CHAR(10) 總 值 CHAR(10) ) 2.倉庫信息表 CREATE TABLE 倉庫信息表 ( 倉庫號 CHAR(10) PRIMARY KEY , 面 積 CHAR(10) NOT NULL, 電話號碼 CHAR(10)， ) 3.職員信息表 CREATE

13、TABLE 職員信息表 ( 管理員號 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)品編號，倉庫號，入庫時(shí)間，庫存量，總值） AS SELECT 產(chǎn)品編號，倉庫號，入庫時(shí)間，庫存量，總值 FROM 農(nóng)產(chǎn)品信息表 建立倉庫信息視圖 CREATE VIEW 倉庫信息（倉庫號，面積，電話號碼） AS SELECT 倉庫號，面積，電話號碼 FROM 倉庫信息表 建立職員信息 CREATE VIEW 職員信息（管理員號，姓名，性別，出生年月，聯(lián)系方式） AS SELECT 管理員號，姓名，性別，出生年月，聯(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ò)誤，請重新輸入！", 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ò)誤，請重新輸入！", 32, "提示信息" i = i + 1 Text2.Text = "" Text2.SetFocus Exit Sub End If If i = 3 Then MsgBox "請不起，您無權(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ò)誤，請重新輸入！", 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ò)誤，請重新輸入！", 32, "提示信息" i = i + 1

21、 Text2.Text = "" Text2.SetFocus Exit Sub End If If i = 3 Then MsgBox "請不起，您無權(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 "兩次新密碼輸入不一致，請重新輸入！", 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、，請重新輸入！", 32, "提示信息" i = i + 1 Text1.Text = "" Text1.SetFocus Exit Sub End If If i = 3 Then MsgBox "請不起，您無權(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 "兩次新密碼輸入不一致，請重新輸入！", 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ò)誤，請重新輸入！", 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 "請不起，暫時(shí)還沒有您要查找的信息！", 32, "提示信息" Text1.Text = "" Text1.SetFocus Exit Sub End If T

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

34、s Integer i = MsgBox("確定要刪除當(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 "請不起，暫時(shí)還沒有您要查找的信息！", 32, "提示信息" Text1.Text = "" Text1.SetFocus Exit Sub End If Text2.Text = Adodc1.Recordse

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

38、e 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 "請不起，暫時(shí)還沒有您要查找的信息！", 32, "提示信息" Text1.Tex

39、t = "" Text1.SetFocus Exit Sub End If Text2.Text = Adodc1.Recordset("倉庫號") Text3.Text = Adodc1.Recordset("面積") Text7.Text = Adodc1.Recordset("電話號碼") End Sub Private Sub Command4_Click() Dim i As Integer i = MsgBox("確定要刪除當(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 "倉庫號=" & Text1.Text & " " SQL = "SELECT 倉庫號 FROM 倉庫信息表 WHREE 倉庫號 LIKE Text1.Text" Adodc1.RecordSource = SQL If Adodc1.Recordset.EOF Then MsgBox "請不起

42、，暫時(shí)還沒有您要查找的信息！", 32, "提示信息" Text1.Text = "" Text1.SetFocus Exit Sub End If Text2.Text = Adodc1.Recordset("倉庫號") Text3.Text = Adodc1.Recordset("面積") Text7.Text = Adodc1.Recordset("電話號碼") 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 "請不起，暫時(shí)還沒有您要查找的信息！", 32, "提示信息" Text1.Text

44、 = "" Text1.SetFocus Exit Sub End If Text2.Text = Adodc1.Recordset("管理員號") 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("確定要刪除當(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 "請不起，暫時(shí)還沒有您要查找的信息！", 32, "提示信息" Text1.Text = "" Text1.SetFocus Exit Sub End If Text2.Text = Adodc1.Recordset("管理員號") 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 "請輸入農(nóng)產(chǎn)品編名！", vbExclamation Text1

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

50、dc1.Refresh Adodc1.Recordset.Find ("產(chǎn)品編號= " & Text1.Text & " ") If Not Adodc1.Recordset.EOF Then MsgBox "產(chǎn)品號重復(fù)，請重新輸入！", 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ù)，請重新輸入！", 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 "請輸入農(nóng)產(chǎn)品編名！", vbExclamation Text1.S

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

55、 Exit Sub End If Adodc1.Refresh Adodc1.Recordset.Find ("產(chǎn)品編號= " & Text1.Text & " ") If Not Adodc1.Recordset.EOF Then MsgBox "產(chǎn)品號重復(fù)，請重新輸入！", 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ù)，請重新輸入！", 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 新增倉庫信息 Private Sub Command1_Click() If Text1.Text = "" Then MsgBox "請輸入倉庫號！", vbExclamation Text1.SetFocus Exit Sub End If If Text2.Text = "" Then MsgBox "請輸入面積！", vbExclamation Text2.SetFocus Exit Sub

60、 End If Adodc1.Refresh Adodc1.Recordset.Find ("倉庫號= " & Text1.Text & " ") If Not Adodc1.Recordset.EOF Then MsgBox "倉庫號重復(fù)，請重新輸入！", 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 "倉庫信息已經(jīng)添加成功！", vbInformation Text1.Text = "" Text2.Text = "" Text3.Text = "" End If End Sub

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

63、.Refresh Adodc1.Recordset.Find ("管理員號= " & Text1.Text & " ") If Not Adodc1.Recordset.EOF Then MsgBox "管理員號重復(fù)，請重新輸入！", 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 "請輸入管理員號！", vbExclamation Text1.SetFocus Exit Sub End If If Text2.Text = "" Then MsgBox "請輸入管理員姓名！", vbExclamation Text3.SetFocus Exit Sub End If Adodc1.Refresh Adodc1.Recordset.Find ("管理員號= " & Text1.Text & " ") If Not Adodc1.Re