《數(shù)據(jù)庫原理》課程設計報告農產品信息管理系統(tǒng)

數(shù)據(jù)庫原理課程設計報告 農產品信息管理系統(tǒng)系 部： 計算機與信息科學系 學生姓名： 指導教師： 專 業(yè)： 計算機與信息科學 班 級： 信本0902班 完成時間： 2011年6月15日 目 錄1 引 言12 設計目的與任務23 數(shù)據(jù)庫設計33.1 需求分析33.1.1 數(shù)據(jù)需求33.1.2 數(shù)據(jù)字典43.2 概念設計63.2.1 實體集63.2.2 E-R圖73.2.3 概念模型73.3 邏輯設計83.3.1 物理模型83.3.2 關系模型93.4 數(shù)據(jù)庫實現(xiàn)103.4.1建立數(shù)據(jù)庫模式及視圖103.4.2源代碼124 結 論405 致 謝416 參考文獻427 附 錄431 引 言隨著計算機行業(yè)的興起，信息管理技術在現(xiàn)實生活中得到了越來越廣泛的應用，信息管理系統(tǒng)的實施在技術上已逐步成熟。信息管理系統(tǒng)是一個不斷發(fā)展的新型學科，任何一個單位要生存要發(fā)展，要高效率地把內部活動有機地組織起來，就必須建立與自身特點相適應的管理系統(tǒng)。對于農產品生產機構而言，能有一個完善的農產品信息的管理系統(tǒng)來方便快捷的完成對農產品信息和倉庫管理員信息的查詢、修改和管理，在提高管理效率和查找農產品信息效率上是不可缺少的。對于我們而言，通過完成每期的課程設計，不但可以不斷的提升自己的動手能力，加強的我們的團隊合作精神，培養(yǎng)我們敏捷的思維能力。還可以提升我們對專業(yè)認識，更好的理解和掌握我們的專業(yè)知識。2 設計目的與任務通過本次課程設計，學習數(shù)據(jù)庫設計工具的使用，掌握數(shù)據(jù)庫設計的流程和基本方法。熟練VB與數(shù)據(jù)庫之間的鏈接，完成對某一小型數(shù)據(jù)庫設計和相應文檔的編寫工作。從而更加深入地掌握數(shù)據(jù)庫系統(tǒng)分析與設計的基本概念和基本方法，提高從事數(shù)據(jù)庫系統(tǒng)建設和管理工作的基本技能和能力。本課程設計要求設計一個農產品信息管理系統(tǒng)，能對數(shù)據(jù)庫中的農產品信息隨時進行新增、修改和刪除。數(shù)據(jù)庫中包含農產品信息表，職員信息表和倉庫信息表和用戶表。同時創(chuàng)建基本視圖，實現(xiàn)對數(shù)據(jù)的查詢、新增、修改和刪除。用戶登錄需驗證用戶的身份，對于不合權限的用戶，拒絕其登錄本系統(tǒng)。3 數(shù)據(jù)庫設計3.1 需求分析3.1.1 數(shù)據(jù)需求通過與農產品信息管理系統(tǒng)數(shù)據(jù)庫用戶的交談、團隊的分析、市場需求等方式，獲得了農產品信息管理系統(tǒng)的數(shù)據(jù)需求。有多個用戶可以訪問該數(shù)據(jù)庫，為了數(shù)據(jù)庫的安全，對于每個用戶登錄前都需通過身份認證，認證通過后方能進入該系統(tǒng)。一個農產品公司可生產多種農產品，不同農產品存放在不同的倉庫，每個倉庫有固定的管理員。每個農產品信息包含產品編號、倉庫號、產品名、入庫時間、庫存量和總值。每個倉庫信息包含倉庫號、面積和電話號碼。每位管理員信息包括管理員號、姓名、性別、出生年月和聯(lián)系方式。圖3.11農產品信息管理系統(tǒng)數(shù)據(jù)流圖3.1.2 數(shù)據(jù)字典 以下將對本數(shù)據(jù)庫設計中的各個數(shù)據(jù)表名稱進行解釋。表3.1農產品信息管理清單表名解釋農產品信息表用來記錄農產品的相關信息用戶用來記錄登錄用戶的用戶名和密碼職員表用來記錄管理員的相關信息倉庫信息表用來記錄倉庫里農產品的相關信息表3.2農產品信息表農產品信息表是否主鍵屬性名數(shù)據(jù)類型長度可 空約 束缺省值備 注是產品編號Char(10)10倉庫號Char(10)10產品名Char(10)10入庫時間Char(20)10庫存量Char(10)20總 值 Char(10)10表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聯(lián)系方式Char(14)14表3.5倉庫信息表倉庫信息表是否主鍵屬性名數(shù)據(jù)類型長度可 空約 束缺省值備 注是倉庫號Char(10)10面 積Char(20)10電話號碼Char(14)103.2 概念設計3.2.1 實體集 本數(shù)據(jù)庫E-R圖設計中包含4個實體，其中4個實體都是強實體集。實體的具體屬性可見下表。表3.6農產品信息管理系統(tǒng)實體集農產品信息管理系統(tǒng)實體集實體集屬性農產品信息表產品編號、倉庫號、產品名、入庫時間、庫存量、總值職員信息表管理員號、姓名、性別、出生年月、聯(lián)系方式倉庫信息表倉庫號、面積、電話號碼用戶用戶名、密碼3.2.2 E-R圖圖3.22 農產品信息管理系統(tǒng)數(shù)據(jù)庫E-R圖3.2.3 概念模型由圖3.1的E-R圖中實體之間的聯(lián)系，利用powerdesigner工具概念模型。最終概念模型圖如圖2所示圖3.23農產品信息管理系統(tǒng)數(shù)據(jù)庫概念模型 3.3 邏輯設計3.3.1 物理模型根據(jù)圖3.2的概念模型圖，可以利用powerdesigner導出農產品管理系統(tǒng)數(shù)據(jù)庫的物理模型圖。圖3.31農產品信息管理系統(tǒng)數(shù)據(jù)庫物理模型3.3.2 關系模型根據(jù)關系模式轉換規(guī)則，把圖1E-R圖轉換為關系模式，如下所示(有實下劃線的為主碼)：農產品信息=(產品編號,倉庫號,產品名,入庫時間，庫存量，總值)倉庫信息=(倉庫號,面積，電話號碼)職員信息=(管理員號，姓名，性別，出生年月，聯(lián)系方式)用戶=(用戶名,密碼)管理=(倉庫號，管理員號)3.4 數(shù)據(jù)庫實現(xiàn)3.4.1建立數(shù)據(jù)庫模式及視圖 以下將對數(shù)據(jù)庫進行實現(xiàn)，實現(xiàn)的環(huán)境為SQLSERVER2008。create database 農產品信息管理on primary( Name=農產品信息管理_data, Filename= D:數(shù)據(jù)庫課程設計農產品信息.mdf , size=10, Filegrowth=10%, maxsize=unlimited )log on( Name=農產品信息管理_log, Filename=D: 數(shù)據(jù)庫課程設計農產品信息.ldf, size=1, Filegrowth=10%, maxsize=5)1.建立農產品信息表CREATE TABLE 農產品信息表 ( 產品編號 CHAR(10) PRIMARY KEY ,倉庫號 CHAR(10) 產品名 CHAR(10),入庫時間 char(10) NOT NULL,庫存量CHAR(10)總 值CHAR(10)2.倉庫信息表CREATE TABLE 倉庫信息表( 倉庫號 CHAR(10) PRIMARY KEY ,面 積 CHAR(10) NOT NULL,電話號碼 CHAR(10)，)3.職員信息表CREATE TABLE 職員信息表( 管理員號CHAR(10) PRIMARY KEY ,姓 名 CHAR(10)，性 別 CHAR(10)，出生年月 CHAR(10)，聯(lián)系方式CHAR(10)，)4.用戶CREATE TABLE 用戶( 用戶名 CHAR(10) PRIMARY KEY ，密 碼 CHAR(30)*新建視圖*建立農產品信息視圖CREATE VIEW 農產品信息（產品編號，倉庫號，入庫時間，庫存量，總值）ASSELECT 產品編號，倉庫號，入庫時間，庫存量，總值FROM 農產品信息表建立倉庫信息視圖CREATE VIEW 倉庫信息（倉庫號，面積，電話號碼）ASSELECT 倉庫號，面積，電話號碼FROM 倉庫信息表建立職員信息CREATE VIEW 職員信息（管理員號，姓名，性別，出生年月，聯(lián)系方式）ASSELECT 管理員號，姓名，性別，出生年月，聯(lián)系方式FROM 管理員信息表3.4.2源代碼用戶登錄Private Sub Command1_Click() 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 "用戶名錯誤，請重新輸入！", 32, "提示信息" i = 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 Then MsgBox "密碼錯誤，請重新輸入！", 32, "提示信息" i = i + 1 Text2.Text = "" Text2.SetFocus Exit Sub End If If i = 3 Then MsgBox "請不起，您無權登錄本系統(tǒng)！", 16, "提示信息" Form3.Show Form2.Hide Exit Sub End If Form5.Show Form2.Hide Text1.Text = "" Text2.Text = ""End SubPrivate 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.Text" Adodc1.RecordSource = SQL Static i As Integer If Adodc1.Recordset.EOF And i < 3 Then MsgBox "用戶名錯誤，請重新輸入！", 32, "提示信息" i = 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 Then MsgBox "密碼錯誤，請重新輸入！", 32, "提示信息" i = i + 1 Text2.Text = "" Text2.SetFocus Exit Sub End If If i = 3 Then MsgBox "請不起，您無權登錄本系統(tǒng)！", 16, "提示信息" Form3.Show Form2.Hide Exit Sub End If Form5.Show Form2.Hide Text1.Text = "" Text2.Text = "" End IfEnd 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 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.Recordset("密碼") = Trim$(Text2.Text) Adodc1.Recordset.Update MsgBox "密碼修改成功！", vbInformation Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Exit Sub End IfEnd SubPrivate 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 Text4.Text" Adodc1.RecordSource = SQL If Adodc1.Recordset.EOF And i < 3 Then MsgBox "舊密碼密碼輸入錯誤，請重新輸入！", 32, "提示信息" i = i + 1 Text1.Text = "" Text1.SetFocus Exit Sub End If If i = 3 Then MsgBox "請不起，您無權修改本用戶密碼！", 16, "提示信息" Form2.Show Form4.Hide Exit Sub End If Text2.SetFocus End IfEnd SubPrivate 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 Sub 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$(Text4.Text) Adodc1.Recordset("密碼") = Trim$(Text2.Text) Adodc1.Recordset.Update MsgBox "密碼修改成功！", vbInformation Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Exit Sub End IfEnd SubPrivate Sub Text4_KeyUp(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 Adodc1.Recordset.EOF Then MsgBox "用戶名輸入錯誤，請重新輸入！", 32, "提示信息" Text4.Text = "" Text4.SetFocus Exit Sub End If Text1.SetFocus End IfEnd Sub農產品信息查詢Private 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 "請不起，暫時還沒有您要查找的信息！", 32, "提示信息" Text1.Text = "" 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("庫存量") Text7.Text = Adodc1.Recordset("總值")End SubPrivate Sub Command6_Click() Dim i As Integer i = MsgBox("確定要刪除當前記錄嗎？", 4 + 48, "警告") If i = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" MsgBox "刪除成功！", vbInformation, "提示信息" End IfEnd SubPrivate 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" Adodc1.RecordSource = SQL If Adodc1.Recordset.EOF Then MsgBox "請不起，暫時還沒有您要查找的信息！", 32, "提示信息" Text1.Text = "" 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("庫存量") Text7.Text = Adodc1.Recordset("總值") End IfEnd Sub倉庫信息查詢Private 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 "請不起，暫時還沒有您要查找的信息！", 32, "提示信息" Text1.Text = "" Text1.SetFocus Exit Sub End If Text2.Text = Adodc1.Recordset("倉庫號") Text3.Text = Adodc1.Recordset("面積") Text7.Text = Adodc1.Recordset("電話號碼")End SubPrivate Sub Command4_Click() Dim i As Integer i = MsgBox("確定要刪除當前記錄嗎？", 4 + 48, "警告") If i = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext Text1.Text = "" Text2.Text = "" Text3.Text = "" Text7.Text = "" MsgBox "刪除成功！", vbInformation, "提示信息" End IfEnd SubPrivate 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" Adodc1.RecordSource = SQL If Adodc1.Recordset.EOF Then MsgBox "請不起，暫時還沒有您要查找的信息！", 32, "提示信息" Text1.Text = "" Text1.SetFocus Exit Sub End If Text2.Text = Adodc1.Recordset("倉庫號") Text3.Text = Adodc1.Recordset("面積") Text7.Text = Adodc1.Recordset("電話號碼") End IfEnd Sub職員信息查詢Private 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 "請不起，暫時還沒有您要查找的信息！", 32, "提示信息" Text1.Text = "" 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 SubPrivate Sub Command6_Click() Dim i As Integer i = MsgBox("確定要刪除當前記錄嗎？", 4 + 48, "警告") If i = vbYes Then Adodc1.Recordset.Delete Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" MsgBox "刪除成功！", vbInformation, "提示信息" End IfEnd SubPrivate 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" Adodc1.RecordSource = SQL If Adodc1.Recordset.EOF Then MsgBox "請不起，暫時還沒有您要查找的信息！", 32, "提示信息" Text1.Text = "" 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 IfEnd Sub新增農產品信息Private Sub Command2_Click() If Text1.Text = "" Then MsgBox "請輸入農產品編名！", vbExclamation Text1.SetFocus Exit Sub End If If Text2.Text = "" Then MsgBox "請輸入農產品名！", vbExclamation Text2.SetFocus Exit Sub End If If Text3.Text = "" Then MsgBox "請輸入農產品入庫號！", vbExclamation Text3.SetFocus Exit Sub End If Adodc1.Refresh Adodc1.Recordset.Find ("產品編號= " & Text1.Text & " ") If Not Adodc1.Recordset.EOF Then MsgBox "產品號重復，請重新輸入！", vbExclamation Text1.SetFocus Exit Sub End If Adodc1.Recordset.Find ("產品名= " & Text3.Text & " ") If Not Adodc1.Recordset.EOF Then MsgBox "產品名重復，請重新輸入！", 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) 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 "農產品信息已經添加成功！", vbInformation Adodc1.Refresh Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" End IfEnd SubPrivate Sub Text6_Change() If KeyCode = 13 Then If Text1.Text = "" Then MsgBox "請輸入農產品編名！", vbExclamation Text1.SetFocus Exit Sub End If If Text2.Text = "" Then MsgBox "請輸入農產品名！", vbExclamation Text2.SetFocus Exit Sub End If If Text3.Text = "" Then MsgBox "請輸入農產品入庫號！", vbExclamation Text3.SetFocus Exit Sub End If Adodc1.Refresh Adodc1.Recordset.Find ("產品編號= " & Text1.Text & " ") If Not Adodc1.Recordset.EOF Then MsgBox "產品號重復，請重新輸入！", vbExclamation Text1.SetFocus Exit Sub End If Adodc1.Recordset.Find ("產品名= " & Text3.Text & " ") If Not Adodc1.Recordset.EOF Then MsgBox "產品名重復，請重新輸入！", vbExclamation ext2.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) 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 "農產品信息已經添加成功！", vbInformation Adodc1.Refresh Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" End If End IfEnd 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 End If Adodc1.Refresh Adodc1.Recordset.Find ("倉庫號= " & Text1.Text & " ") If Not Adodc1.Recordset.EOF Then MsgBox "倉庫號重復，請重新輸入！", vbExclamation Text1.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) Adodc1.Recordset.Update MsgBox "倉庫信息已經添加成功！", vbInformation Text1.Text = "" Text2.Text = "" Text3.Text = "" End IfEnd Sub新增職員信息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.Refresh Adodc1.Recordset.Find ("管理員號= " & Text1.Text & " ") If Not Adodc1.Recordset.EOF Then MsgBox "管理員號重復，請重新輸入！", vbExclamation Text1.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) Adodc1.Recordset.Fields(3) = Trim$(Text4.Text) Adodc1.Recordset.Fields(4) = Trim$(Text5.Text) Adodc1.Recordset.Update MsgBox "管理員信息添加成功！", vbInformation Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" End IfEnd SubPrivate Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = ""End SubPrivate Sub 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