sql數據庫課程設計-- 小型超市管理系統(tǒng)_第1頁
已閱讀1頁,還剩26頁未讀, 繼續(xù)免費閱讀

下載本文檔

版權說明:本文檔由用戶提供并上傳,收益歸屬內容提供方,若內容存在侵權,請進行舉報或認領

文檔簡介

1、<p>  數據庫原理課程設計論文</p><p>  題 目(中) 小型超市管理系統(tǒng) </p><p>  學生姓名 </p><p>  專業(yè)班級 </p><p>  導師姓名 </p>&l

2、t;p><b>  二○一三年六月</b></p><p><b>  目錄</b></p><p><b>  1.緒論1</b></p><p>  1.1課題研究意義1</p><p>  1.2課題研究目的2</p><p>  2.

3、系統(tǒng)開發(fā)工具2</p><p>  2.1Visual Basic簡介2</p><p>  2.1.1面向對象的可視化2</p><p>  2.1.2.事件驅動的編程機制2</p><p>  2.1.3.提供強大的數據庫訪問工具2</p><p>  2.2.SQL SERVER 2005數據庫的簡介

4、3</p><p>  3.可行研究和需求分析性3</p><p>  3.1可行性研究3</p><p><b>  3.2需求分析4</b></p><p>  3.3系統(tǒng)層次劃分4</p><p>  3.3.1系統(tǒng)層次劃分如圖3.1所示4</p><p>

5、  4.系統(tǒng)總體設計5</p><p>  4.1注冊及登錄5</p><p>  4.1.1注冊功能及代碼(圖4.1)5</p><p>  4.1.2登錄功能代碼6</p><p>  4.1.3登錄界面相關功能與數據庫連接的代碼7</p><p>  4.2登錄后主界面功能及界面及其相關功能代碼7&l

6、t;/p><p>  4.2.2主界面相關功能代碼7</p><p>  4.3商品信息查詢界面及其相關功能代碼8</p><p>  4.3.1查詢商品信息功能代碼9</p><p>  4.3.2添加商品功能代碼9</p><p>  4.3.3刪除商品信息功能代碼10</p><p>

7、;  4.3.4商品信息功能與數據庫連接代碼11</p><p>  4.4銷售記錄查詢界面及其相關功能代碼12</p><p>  4.4.1查詢已銷售商品信息功能代碼12</p><p>  4.4.2添加已銷售商品信息功能代碼13</p><p>  4.4.3刪除已銷售商品信息功能代碼14</p><p&

8、gt;  4.4.4銷售商品信息表與數據庫連接代碼15</p><p>  4.5員工信息查詢界面及其相關功能代碼15</p><p>  4.5.1添加員工信息功能代碼15</p><p>  4.5.2查詢員信息功能代碼16</p><p>  4.5.3刪除員工信息功能代碼17</p><p>  4.

9、5.4員工信息查詢功能與數據庫連接的代碼18</p><p><b>  5.數據設計18</b></p><p>  5.1數據庫中各數據表的說明18</p><p>  5.1.1登陸表功能說明及其創(chuàng)建的SQL代碼(表5.1)18</p><p>  5.1.2商品表說明及及其創(chuàng)建的SQL代碼(表5.2)1

10、9</p><p>  5.1.3銷售表說明及及其創(chuàng)建的SQL代碼(表5.3)20</p><p>  5.1.3職工表說明及及其創(chuàng)建的SQL代碼(表5.4)21</p><p>  6.經驗與體會22</p><p><b>  參考文獻22</b></p><p><b> 

11、 1.緒論</b></p><p>  隨著科學技術的不斷提高,計算機科學日漸成熟,其強大的功能已為人們深刻認識,它已進入人類社會的各個領域并發(fā)揮著越來越重要的作用。而當今時代是飛速發(fā)展的信息時代,各行各業(yè)都離不開信息處理。計算機的最大好處在于可以利用它進行信息管理。使用計算機進行信息管理,不僅提高了工作效率,而且大大的提高了其安全性。</p><p>  超市管理是超市中不可

12、缺少的重要部分,超市的管理信息量繁多,包含很多信息的數據管理?,F今,大多數大型超市商場都使用計算機進行信息管理,而小型超市商店仍然采用傳統(tǒng)的人工管理方式,這種管理方式存在著許多缺點,如:效率低、工作量大等,而且,隨著購買者與超市數量的增長,對于超市的銷售、進貨、退貨、交易管理等等,使更新和維護都帶來了不少的困難。本系統(tǒng)就是為了改變傳統(tǒng)的超市商店這種現狀所設計的。</p><p>  使用計算機對超市進行管理,有著

13、手工管理所無法比擬的優(yōu)點。例如:查看迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點能夠使超市管理進入科學化、正規(guī)化的軌道。</p><p><b>  1.1課題研究意義</b></p><p>  首先,該課題屬于管理信息系統(tǒng)范疇。而管理信息系統(tǒng)(Management Information System,簡稱MIS)在現代社會已深入到各行

14、各業(yè),是1個不斷發(fā)展的新學科,是由人和計算機設備或其他信息處理手段組成并用于管理信息的系統(tǒng)。再加上行業(yè)信息化的熱潮才剛剛開始,特別是中小型企業(yè)的信息化建設步伐剛剛邁出第1步。管理信息系統(tǒng)的開發(fā)的市場將是非常龐大的。這種需求對開發(fā)人員在數量上和素質上的要求也是非常迫切的。為了滿足市場的需求以及能在競爭中取勝,系統(tǒng)設計人員就不僅僅是單純地滿足用戶對功能的要求,還要從設計方法上來加以改進。</p><p>  其次,面

15、向對象方法是1種非常實用的軟件開發(fā)方法,它一出現就受到軟件技術人員的青睞,現在已經成為計算機科學研究的一個重要領域,并逐漸成為軟件開發(fā)的1種主要方法。面向對象的程序設計將數據及對數據的操作方法封裝在1起,作為1個互相依存、不可分離的整體。采用這種方法來設計系統(tǒng),可以增加系統(tǒng)的安全性。同時通過繼承與多態(tài)性,使程序具有很高的可重用性,使軟件的開發(fā)和維護帶來了方便。由于面向對象方法的突出優(yōu)點,它才被廣大用戶所愛好。 </p>&

16、lt;p><b>  1.2課題研究目的</b></p><p>  研究該課題是為了通過對“小型超市管理系統(tǒng)”的設計與實現,熟悉這類的信息管理系統(tǒng)的開發(fā)原理及流程。在設計過程,能夠深入地理解面向對象設計方法的優(yōu)越性,獲得這些方面的相關經驗。對1個即將畢業(yè)的計算機專業(yè)本科生來說,又想在軟件行業(yè)領域里有所發(fā)展,研究并應用面向對象設計方法是百益無1害的,可以使其走向社會后能夠快速地適應行業(yè)

17、需求。這正是本次設計的根本目的所在。</p><p><b>  2.系統(tǒng)開發(fā)工具</b></p><p>  2.1Visual Basic簡介</p><p>  2.1.1面向對象的可視化 </p><p>  在Visual Basic6.0中,應用面向對象的程序設計方法(OOP), 把程序和數據庫封裝在一起視為

18、一個對象,而且每個對象都是可視的,程序員在設計時只需用現有的工具根據界面設計的要求,直接在“窗體”上畫出諸如“按扭”、“滾動條”、“文本框”等不同類型的對象,并為它們設置“屬性”編寫“事件”代碼即可,從而大大簡化了設計的復雜度。</p><p>  2.1.2.事件驅動的編程機制</p><p>  Visual Basic6.0通過事件驅動來執(zhí)行對象的操作。在事件驅動的程序中,代碼不是按

19、照預定的路徑執(zhí)行,而是在響應不同的事件時執(zhí)行不同的代碼模塊。每個對象都有一個事件集,每個事件發(fā)生都要有有相應的程序代碼來響應,即要執(zhí)行一段程序代碼。事件可以由用戶操作觸發(fā),也可以由操作系統(tǒng)或其他應用程序的消息觸發(fā),甚至可以由應用程序本身的消息觸發(fā)。這些事件的順序決定了代碼執(zhí)行的順序,因此應用程序每次運行時所經過的代碼的路徑是不同的。在程序設計時,不需要建立明顯的開始和結束的大塊應用程序,也不需要指出先執(zhí)行哪部分代碼和按什么順序執(zhí)行代碼,

20、只需編寫一些針對事件的許多小的模塊子程序(也稱過程)。</p><p>  2.1.3.提供強大的數據庫訪問工具</p><p>  隨著計算機技術的發(fā)展,數據庫越來越顯示出其強大的數據存儲和數據管理能力。為了滿足人們對數據庫的需要,Visual Basic提供了強大的數據庫程序設計能力。它不僅能管理Microsoft Access格式的數據庫,還能訪問其他外部數據庫,如FoxPro,Pa

21、radox等格式的數據庫。另外,Visual Basic還提供了開放式數據庫連接(ODBC)功能,可以通過直接訪問或建立連接的方式使用并操作后臺大型網絡數據庫,如SQL Server,Oracle等。在應用程序中可以使用結構化查詢語言(SQL)直接訪問Server上的數據庫,并提供簡單的面向對象的庫操作命令、多用戶數據庫的加鎖機制和網絡數據庫的編程技術,為單機上運行的數據庫提供SQL網絡接口,以便于在分布式環(huán)境中快速而有效地實現客戶/服

22、務器方案。</p><p>  2.2.SQL SERVER 2005數據庫的簡介</p><p>  SQL 是一種標準,是一門 ANSI 的標準計算機語言,用來訪問和操作數據庫系統(tǒng)。SQL 語句用于取回和更新數據庫中的數據。SQL 可與數據庫程序協(xié)同工作,比如 MS Access、DB2、Informix、MS SQL Server、Oracle、Sybase 以及其他數據庫系統(tǒng)。&l

23、t;/p><p>  SQL(Structured Query Language),結構化查詢語言。SQL語言的主要功能就是同各種數據庫建立聯系,進行溝通。按照ANSI(美國國家標準協(xié)會)的規(guī)定,SQL被作為關系型數據庫管理系統(tǒng)的標準語言。SQL語句可以用來執(zhí)行各種各樣的操作,例如更新數據庫中的數據,從數據庫中提取數據等。絕大多數流行的關系型數據庫管理系統(tǒng)都采用了SQL語言標準。雖然很多數據庫都對SQL語句進行了再開

24、發(fā)和擴展,但是包括Select, Insert, Update, Delete, Create,以及Drop在內的標準的SQL命令仍然可以被用來完成幾乎所有的數據庫操作。</p><p>  3.可行研究和需求分析性</p><p>  軟件開發(fā)最初的工作就是問題定義,也就是確定超市中要求解決的問題是什么;做好軟件定義時期的工作是降低軟件成本提高軟件質量的關鍵。在軟件開發(fā)的不同階段進行修改

25、需要付出的代價是很不相同的,越在早期改正錯誤,付出的代價就越小,了解了它的重要性之后,我明白前期工作一定要做好才能更好地提高工作效率。我把任務超市又仔細地研究了一遍,充分明白了它的要求后,接下來作可行性研究,只有做好可行性研究才有可能把以后的工作做好。</p><p><b>  3.1可行性研究</b></p><p>  可行性研究的目的就是用最小的代價在盡可能短

26、的時間內確定問題是否能夠解決??尚行匝芯康哪康牟皇墙鉀Q問題,而是確定問題是否值得去解決。不能靠主觀猜想,只能靠客觀分析。</p><p>  首先應該近一步地分析和澄清問題定義,如果正確則進一步加以肯定,如果有錯則應立刻改正,經過仔細審查,然后從三方面分析它的可行性:</p><p>  (1)技術可行性(即使用現有的技術能實現這個系統(tǒng)嗎):</p><p>  V

27、B功能強大,能用簡單的方法完成復雜的問題。 </p><p>  (2)操作可行性(系統(tǒng)的操作方式在這個用戶組織能行的通嗎):</p><p>  本系統(tǒng)操作簡單,系統(tǒng)的運行不需要特定的環(huán)境。</p><p>  (3)經濟可行性(系統(tǒng)的經濟效益是否能超過它的開發(fā)成本):</p><p>  產生的經濟效益遠超過它的開發(fā)成本。</p&g

28、t;<p><b>  3.2需求分析</b></p><p>  需求分析是軟件定義時期的最后一個階段,它的基本任務是準確地回答“系統(tǒng)必須做什么”這個問題,需求分析的任務還不是確定系統(tǒng)怎樣完成它的工作,而僅僅是確定系統(tǒng)必須完成哪些工作,也就是對目標系統(tǒng)提出完整、準確、清晰、具體的要求。</p><p>  可行性研究階段產生的文檔是需求分析的出發(fā)點。需

29、求分析階段系統(tǒng)本人仔細研究超市管理系統(tǒng)應實現的功能并將它們具體化。</p><p>  針對一般超市管理系統(tǒng)的需求,通過對超市管理工作過程的內容分析與本人所要承擔的任務,設計出下面的數據項和數據結構:</p><p>  (1)商品信息查詢:包括商品號、商品名稱、單價、商品類型、庫存量、廠商等信息。 (2)銷售記錄查詢:包括銷售號、銷售職工號、商品號和銷售時間等信息。</p>

30、<p>  (3)銷售員工信息表,包含的數據項有職工號、姓名、性別和用戶類型等</p><p><b>  3.3系統(tǒng)層次劃分</b></p><p>  3.3.1系統(tǒng)層次劃分如圖3.1所示</p><p>  圖3.1 系統(tǒng)層次劃分圖</p><p><b>  4.系統(tǒng)總體設計</b&

31、gt;</p><p><b>  4.1注冊及登錄</b></p><p>  該功能可以實現用戶的注冊和登錄</p><p>  4.1.1注冊功能及代碼(圖4.1)</p><p><b>  圖4.1 用戶注冊</b></p><p><b>  注冊功能代

32、碼</b></p><p>  Private Sub 注冊_Click()</p><p>  If Text1.Text = "" Or Text2.Text = "" Then</p><p>  MsgBox "用戶名和密碼不能為空", 16 + 4, "警告"<

33、;/p><p><b>  Else</b></p><p>  Dim rs As New ADODB.Recordset</p><p>  str1 = "select * from 登錄表 where 用戶名='" & Text1.Text & "'"</p>

34、;<p>  rs.Open str1, cn, 1, 3</p><p><b>  rs.AddNew</b></p><p>  rs("用戶名") = Text1.Text</p><p>  rs("密碼") = Text2.Text</p><p><

35、;b>  rs.Update</b></p><p>  MsgBox "注冊成功", 64, "信息提示"</p><p><b>  End If</b></p><p><b>  End Sub</b></p><p>  4.1.2

36、登錄功能代碼</p><p>  Private Sub Command1_Click()</p><p>  strsql = "select * from 登錄表 where 用戶名='" & Text1.Text & "'" & "and 密碼='" & Text2.T

37、ext & "'"</p><p>  rs.Open strsql, cn, 1, 3</p><p>  If rs.EOF Then</p><p>  MsgBox "用戶名或密碼錯了", 32, "警告"</p><p><b>  Else<

38、;/b></p><p>  Form5.Show</p><p><b>  Unload Me</b></p><p><b>  End If</b></p><p><b>  End Sub</b></p><p>  4.1.3登錄界面

39、相關功能與數據庫連接的代碼</p><p>  Private Sub Form_Load()</p><p>  cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=超市管理"</p>

40、<p><b>  cn.Open</b></p><p><b>  End Sub</b></p><p>  4.2登錄后主界面功能及界面及其相關功能代碼</p><p>  4.2.1登錄后主界面(圖4.2)</p><p>  圖4.2 登錄后主界面</p>&

41、lt;p>  4.2.2主界面相關功能代碼</p><p>  Dim cn As New ADODB.Connection</p><p>  Dim rs As New ADODB.Recordset</p><p>  'Download by http://www.codefans.net</p><p>  Priva

42、te Sub Command1_Click()</p><p>  Form2.Show</p><p><b>  Unload Me</b></p><p><b>  End Sub</b></p><p>  Private Sub Command2_Click()</p>&

43、lt;p>  Form3.Show</p><p><b>  Unload Me</b></p><p><b>  End Sub</b></p><p>  Private Sub Command3_Click()</p><p>  Form5.Show</p><

44、p><b>  Unload Me</b></p><p><b>  End Sub</b></p><p>  Private Sub Command4_Click()</p><p>  Form4.Show</p><p><b>  Unload Me</b>&

45、lt;/p><p><b>  End Sub</b></p><p>  4.3商品信息查詢界面及其相關功能代碼</p><p>  4.3.1查詢商品信息功能代碼</p><p>  Private Sub Command1_Click()</p><p>  str1 = "selec

46、t * from 商品表 where 商品號='" & Text1.Text & "'"</p><p>  If rs.State = 1 Then</p><p><b>  rs.Close</b></p><p><b>  End If</b><

47、/p><p>  rs.Open str1, cn, 1, 3</p><p>  If rs.EOF Then</p><p>  MsgBox "該商品不存在"</p><p>  Adodc1.CommandType = adCmdText</p><p>  Adodc1.RecordSourc

48、e = str1</p><p>  Adodc1.Refresh</p><p><b>  Else</b></p><p>  Text1.Text = rs("商品號")</p><p>  Text2.Text = rs("商品名稱")</p><p&

49、gt;  Text3.Text = rs("庫存量")</p><p>  Text4.Text = rs("商品類型")</p><p>  Text5.Text = rs("廠商")</p><p>  Text6.Text = rs("單價")</p><p&g

50、t;<b>  End If</b></p><p><b>  End Sub</b></p><p>  4.3.2添加商品功能代碼</p><p>  Private Sub Command2_Click()</p><p>  str1 = "select * from 商品表 w

51、here 商品號='" & Text1.Text & "'"</p><p>  If rs.State = 1 Then</p><p><b>  rs.Close</b></p><p><b>  End If</b></p><p&

52、gt;  rs.Open str1, cn, 1, 3</p><p>  If rs.EOF Then</p><p><b>  rs.AddNew</b></p><p>  rs("商品號") = Text1.Text</p><p>  rs("商品名稱") = Text

53、2.Text</p><p>  rs("庫存量") = Text3.Text</p><p>  rs("商品類型") = Text4.Text</p><p>  rs("廠商") = Text5.Text</p><p>  rs("單價") = Text6

54、.Text</p><p><b>  rs.Update</b></p><p>  MsgBox "數據添加成功", 64, "信息提示"</p><p>  Adodc1.CommandType = adCmdText</p><p>  Adodc1.RecordSourc

55、e = "select * from 商品表"</p><p>  Adodc1.Refresh</p><p>  Text1.Text = ""</p><p>  Text2.Text = ""</p><p>  Text3.Text = ""</p

56、><p>  Text4.Text = ""</p><p>  Text5.Text = ""</p><p>  Text6.Text = ""</p><p><b>  Else</b></p><p>  MsgBox "

57、該商品已經存在了", 16, "警告"</p><p><b>  End If </b></p><p><b>  End Sub</b></p><p>  4.3.3刪除商品信息功能代碼</p><p>  Private Sub Command4_Click(

58、)</p><p>  Dim rs As New ADODB.Recordset</p><p>  Dim rs1 As New ADODB.Recordset</p><p>  If rs.State = 1 Then</p><p><b>  rs.Close</b></p><p>

59、<b>  End If</b></p><p>  If rs1.State = 1 Then</p><p><b>  rs1.Close</b></p><p><b>  End If</b></p><p>  rs1.Open "select * fro

60、m 商品表 where 商品號='" & Text1.Text & "'and 商品名稱='" & Text2.Text & "'", cn, 1, 3</p><p>  If rs1.EOF Then</p><p>  MsgBox "沒有此種商品不能刪除!&

61、quot;</p><p><b>  Else</b></p><p>  rs.Open "delete 商品表 where 商品號='" & Text1.Text & "' and 商品名稱='" & Text2.Text & "'",

62、 cn, 1, 3</p><p>  MsgBox "確定刪除嗎", 32 + 4, "警告"</p><p>  Adodc1.CommandType = adCmdText</p><p>  Adodc1.RecordSource = "select * from 商品表"</p>&

63、lt;p>  Adodc1.Refresh</p><p><b>  End If</b></p><p>  Text1.Text = ""</p><p>  Text2.Text = ""</p><p>  Text3.Text = ""<

64、/p><p>  Text4.Text = ""</p><p>  Text5.Text = ""</p><p>  Text6.Text = ""</p><p><b>  End Sub</b></p><p>  4.3.4商品信

65、息功能與數據庫連接代碼</p><p>  Private Sub Form_Load()</p><p>  cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=超市管理"</p>&

66、lt;p><b>  cn.Open</b></p><p><b>  End Sub</b></p><p>  4.4銷售記錄查詢界面及其相關功能代碼</p><p>  4.4.1查詢已銷售商品信息功能代碼</p><p>  Private Sub Command1_Click()&

67、lt;/p><p>  str1 = "select * from 銷售表 where 銷售號='" & Text1.Text & "'"</p><p>  If rs.State = 1 Then</p><p><b>  rs.Close</b></p>

68、<p><b>  End If</b></p><p>  rs.Open str1, cn, 1, 3</p><p>  If rs.EOF Then</p><p>  MsgBox "該銷售商品不存在"</p><p>  Adodc1.CommandType = adCmdTex

69、t</p><p>  Adodc1.RecordSource = str1</p><p>  Adodc1.Refresh</p><p><b>  Else</b></p><p>  Text1.Text = rs("銷售號")</p><p>  Text2.Tex

70、t = rs("職工號")</p><p>  Text3.Text = rs("商品號")</p><p>  Text4.Text = rs("銷售數量")</p><p>  Text6.Text = rs("銷售時間")</p><p><b>

71、  End If</b></p><p><b>  End Sub</b></p><p>  4.4.2添加已銷售商品信息功能代碼</p><p>  Private Sub Command2_Click()</p><p>  str1 = "select * from 銷售表 where 銷

72、售號='" & Text1.Text & "'"</p><p>  If rs.State = 1 Then</p><p><b>  rs.Close</b></p><p><b>  End If</b></p><p>  r

73、s.Open str1, cn, 1, 3</p><p>  If rs.EOF Then</p><p><b>  rs.AddNew</b></p><p>  rs("銷售號") = Text1.Text</p><p>  rs("職工號") = Text2.Text&

74、lt;/p><p>  rs("商品號") = Text3.Text</p><p>  rs("銷售數量") = Text4.Text</p><p>  rs("銷售時間") = Text6.Text</p><p><b>  rs.Update</b><

75、;/p><p>  MsgBox "數據添加成功", 64, "信息提示"</p><p>  Adodc1.CommandType = adCmdText</p><p>  Adodc1.RecordSource = "select * from 銷售表"</p><p>  Ado

76、dc1.Refresh</p><p>  Text1.Text = ""</p><p>  Text2.Text = ""</p><p>  Text3.Text = ""</p><p>  Text4.Text = ""</p><p

77、>  Text6.Text = ""</p><p><b>  Else</b></p><p>  MsgBox "該種銷售商品已經存在了", 16, "警告"</p><p><b>  End If</b></p><p>&

78、lt;b>  End Sub</b></p><p>  4.4.3刪除已銷售商品信息功能代碼</p><p>  Private Sub Command3_Click()</p><p>  If Adodc1.Recordset.EOF = False Then</p><p>  c = MsgBox("您確

79、認要刪除該記錄嗎?", 32 + 4, "特別提示")</p><p>  X = Adodc1.Recordset.Fields(0)</p><p>  If c = vbYes Then</p><p>  str1 = "select * from 銷售表 where 銷售號='x" & &

80、quot;'"</p><p>  If rs.State = 1 Then</p><p><b>  rs.Close</b></p><p><b>  End If</b></p><p>  rs.Open str1, cn, 1, 3</p><p&

81、gt;  'Adodc1.Recordset.Delete</p><p>  Adodc1.CommandType = adCmdText</p><p>  Adodc1.RecordSource = "select * from 銷售表"</p><p>  Adodc1.Refresh</p><p>  

82、MsgBox "銷售商品的所有信息成功刪除", 64, "信息提示"</p><p>  Adodc1.Refresh</p><p>  Text1.Text = ""</p><p>  Text2.Text = ""</p><p>  Text3.Text

83、 = ""</p><p>  Text4.Text = ""</p><p>  Text6.Text = ""</p><p><b>  End If</b></p><p><b>  Else</b></p><

84、;p>  MsgBox "當前數據庫中已經沒有可刪除的記錄", 64, "警告"</p><p><b>  End If</b></p><p><b>  End Sub</b></p><p>  4.4.4銷售商品信息表與數據庫連接代碼</p><p

85、>  Private Sub Form_Load()</p><p>  cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=超市管理"</p><p><b>  cn.Open&l

86、t;/b></p><p><b>  End Sub</b></p><p>  4.5員工信息查詢界面及其相關功能代碼</p><p>  4.5.1添加員工信息功能代碼</p><p>  Private Sub Command1_Click()</p><p>  str1 = &q

87、uot;select * from 銷售人員表 where 職工號='" & Text1.Text & "'"</p><p>  If rs.State = 1 Then</p><p><b>  rs.Close</b></p><p><b>  End If<

88、;/b></p><p>  rs.Open str1, cn, 1, 3</p><p>  If rs.EOF Then</p><p><b>  rs.AddNew</b></p><p>  rs("職工號") = Text1.Text</p><p>  rs

89、("姓名") = Text2.Text</p><p>  rs("性別") = Text3.Text</p><p>  rs("用戶類型") = Text4.Text</p><p><b>  rs.Update</b></p><p>  MsgBox

90、"用戶添加成功", 64, "信息提示"</p><p>  Adodc1.CommandType = adCmdText</p><p>  Adodc1.RecordSource = "select * from 銷售人員表"</p><p>  Adodc1.Refresh</p>&l

91、t;p>  Text1.Text = ""</p><p>  Text2.Text = ""</p><p>  Text3.Text = ""</p><p>  Text4.Text = ""</p><p><b>  Else</b

92、></p><p>  MsgBox "該職工已經存在了", 16, "警告"</p><p><b>  End If</b></p><p><b>  End Sub</b></p><p>  4.5.2查詢員信息功能代碼</p>

93、<p>  Private Sub Command2_Click()</p><p>  str1 = "select * from 銷售人員表 where 職工號='" & Text1.Text & "'"</p><p>  If rs.State = 1 Then</p><p>

94、;<b>  rs.Close</b></p><p><b>  End If</b></p><p>  rs.Open str1, cn, 1, 3</p><p>  If rs.EOF Then</p><p>  MsgBox "這個職工不存在"</p>

95、<p>  Adodc1.CommandType = adCmdText</p><p>  Adodc1.RecordSource = str1</p><p>  Adodc1.Refresh</p><p><b>  Else</b></p><p>  Text1.Text = rs("職

96、工號")</p><p>  Text2.Text = rs("姓名")</p><p>  Text3.Text = rs("性別")</p><p>  Text4.Text = rs("用戶類型")</p><p>  Adodc1.CommandType = adC

97、mdText</p><p>  Adodc1.RecordSource = str1</p><p>  Adodc1.Refresh</p><p><b>  End If</b></p><p><b>  End Sub</b></p><p>  4.5.3刪除員

98、工信息功能代碼</p><p>  Private Sub Command4_Click()</p><p>  If Adodc1.Recordset.EOF = False Then</p><p>  c = MsgBox("您確認要刪除該記錄嗎?", 32 + 4, "特別提示")</p><p&g

99、t;  X = Adodc1.Recordset.Fields(0)</p><p>  If c = vbYes Then</p><p>  str1 = "select * from 銷售人員表 where 職工號='x" & "'"</p><p>  If rs.State = 1 Then

100、</p><p><b>  rs.Close</b></p><p><b>  End If</b></p><p>  rs.Open str1, cn, 1, 3</p><p>  Adodc1.Recordset.Delete</p><p>  Adodc1.C

101、ommandType = adCmdText</p><p>  Adodc1.RecordSource = "select * from 銷售人員表"</p><p>  Adodc1.Refresh</p><p>  MsgBox "職工信息成功刪除", 64, "信息提示"</p>&

102、lt;p>  Adodc1.Refresh</p><p>  Text1.Text = ""</p><p>  Text2.Text = ""</p><p>  Text3.Text = ""</p><p>  Text4.Text = ""<

103、/p><p><b>  End If</b></p><p><b>  Else</b></p><p>  MsgBox "當前數據庫中已經沒有可刪除的記錄", 64, "警告"</p><p><b>  End If</b><

104、/p><p><b>  End Sub</b></p><p>  4.5.4員工信息查詢功能與數據庫連接的代碼</p><p>  Private Sub Form_Load()</p><p>  cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Se

105、curity=SSPI;Persist Security Info=False;Initial Catalog=超市管理"</p><p><b>  cn.Open</b></p><p><b>  End Sub</b></p><p><b>  5.數據設計</b></p&g

106、t;<p>  5.1數據庫中各數據表的說明</p><p>  5.1.1登陸表功能說明及其創(chuàng)建的SQL代碼(表5.1)</p><p>  用戶名:存放用戶登錄系統(tǒng)的用戶名</p><p>  密 碼:存放用戶登錄系統(tǒng)的密碼</p><p><b>  圖5.1 登陸表</b></p>

107、<p>  創(chuàng)建登錄表的SQl代碼</p><p>  USE [超市管理]</p><p><b>  GO</b></p><p>  SET ANSI_NULLS ON</p><p><b>  GO</b></p><p>  SET QUOTED_IDE

108、NTIFIER ON</p><p><b>  GO</b></p><p>  SET ANSI_PADDING ON</p><p><b>  GO</b></p><p>  CREATE TABLE [dbo].[登錄表](</p><p>  [用戶名] [ch

109、ar](10) NOT NULL,</p><p>  [密碼] [char](10) NOT NULL</p><p>  ) ON [PRIMARY]</p><p><b>  GO</b></p><p>  SET ANSI_PADDING OFF</p><p><b>  

110、GO</b></p><p>  5.1.2商品表說明及及其創(chuàng)建的SQL代碼(表5.2)</p><p>  商品號:系統(tǒng)分配給商品的唯一的標示值(主鍵)</p><p>  商品名稱:用于存放商品的名稱的信息</p><p>  單價:用于存放商品的價格的信息</p><p>  商品類型:用于存放商品所

111、屬的類型信息</p><p>  庫存量:用于存放商品的庫存的信息</p><p>  廠商:用于存放商品的生產商家的信息</p><p><b>  表5.2 商品表</b></p><p>  創(chuàng)建商品表的SQL代碼</p><p>  USE [超市管理]</p><p&

112、gt;<b>  GO</b></p><p>  SET ANSI_NULLS ON</p><p><b>  GO</b></p><p>  SET QUOTED_IDENTIFIER ON</p><p><b>  GO</b></p><p&g

113、t;  SET ANSI_PADDING ON</p><p><b>  GO</b></p><p>  CREATE TABLE [dbo].[商品表](</p><p>  [商品號] [varchar](50) NOT NULL,</p><p>  [商品名稱] [varchar](50) NOT NULL,

114、</p><p>  [單價] [float] NULL,</p><p>  [商品類型] [varchar](50) NULL,</p><p>  [庫存量] [char](10) NULL,</p><p>  [廠商] [varchar](50) NULL,</p><p>  CONSTRAINT [PK_

115、商品表] PRIMARY KEY CLUSTERED </p><p><b>  (</b></p><p><b>  [商品號] ASC</b></p><p>  )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF,

116、ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]</p><p>  ) ON [PRIMARY]</p><p><b>  GO</b></p><p>  SET ANSI_PADDING OFF</p><p><b>  GO<

117、/b></p><p>  5.1.3銷售表說明及及其創(chuàng)建的SQL代碼(表5.3)</p><p>  銷售號:系統(tǒng)分配給所銷售商品的唯一編號</p><p>  職工號:存放銷售該商品的職工編號</p><p>  銷售數量:存放銷售商品的數量</p><p>  銷售時間:存放銷售該商品的時間</p&g

118、t;<p><b>  表5.3 銷售表</b></p><p>  創(chuàng)建銷售表的SQL代碼</p><p>  USE [超市管理]</p><p><b>  GO</b></p><p>  SET ANSI_NULLS ON</p><p><b&

119、gt;  GO</b></p><p>  SET QUOTED_IDENTIFIER ON</p><p><b>  GO</b></p><p>  SET ANSI_PADDING ON</p><p><b>  GO</b></p><p>  CRE

120、ATE TABLE [dbo].[銷售表](</p><p>  [銷售號] [varchar](50) NOT NULL,</p><p>  [職工號] [varchar](50) NOT NULL,</p><p>  [商品號] [varchar](50) NOT NULL,</p><p>  [銷售數量] [float] NOT

121、NULL,</p><p>  [銷售時間] [datetime] NOT NULL,</p><p>  CONSTRAINT [PK_銷售表] PRIMARY KEY CLUSTERED </p><p><b>  (</b></p><p><b>  [銷售號] ASC</b></p

122、><p>  )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]</p><p>  ) ON [PRIMARY]</p><p><b>  G

123、O</b></p><p>  SET ANSI_PADDING OFF</p><p><b>  GO</b></p><p>  5.1.3職工表說明及及其創(chuàng)建的SQL代碼(表5.4)</p><p>  職工號:存放職工編號信息</p><p>  姓名:存放職工的姓名<

124、/p><p>  性別:存放職工的性別信息</p><p>  用戶類型:存放職工所屬的類型</p><p><b>  職工表(表5.4)</b></p><p>  創(chuàng)建職工表的SQL代碼</p><p>  USE [超市管理]</p><p><b>  GO

125、</b></p><p>  SET ANSI_NULLS ON</p><p><b>  GO</b></p><p>  SET QUOTED_IDENTIFIER ON</p><p><b>  GO</b></p><p>  SET ANSI_PAD

126、DING ON</p><p><b>  GO</b></p><p>  CREATE TABLE [dbo].[銷售人員表](</p><p>  [職工號] [varchar](50) NOT NULL,</p><p>  [姓名] [char](10) NOT NULL,</p><p&g

127、t;  [性別] [char](10) NOT NULL,</p><p>  [用戶類型] [varchar](50) NULL,</p><p>  CONSTRAINT [PK_銷售人員表] PRIMARY KEY CLUSTERED </p><p><b>  (</b></p><p><b>  

128、[職工號] ASC</b></p><p>  )WITH(PAD_INDEX=OFF,STATISTICS_NORECOMPUTE=OFF, IGNORE_DUP_KEY=OFF,ALLOW_ROW_LOCKS=ON, </p><p>  ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]</p><p>  ) ON [PRIM

129、ARY]</p><p><b>  GO</b></p><p>  SET ANSI_PADDING OFF</p><p><b>  GO</b></p><p><b>  6.經驗與體會</b></p><p>  通過此次數據庫的課程設計,

130、真正達到了學與用的結合,增強了對數據庫方面應用的理解,對自己今后參與開發(fā)數據庫系統(tǒng)積累了不少經驗,在實驗過程中,從建立數據開始,對數據庫設計理念及思想上有更高的認識,從需求分析,到概念設計和邏輯設計的過度,懂得了不少有關數據庫開發(fā)過程中的知識,在實驗中建表,及其關系模式,關系代數的建立及理解,增強了自己在數據庫中應用SQL語言的靈活性。</p><p>  在學習過程中,我也上網查了不少資料,也看了一些別人設計的

131、小型超市管理系統(tǒng)的設計報告,學以致用,自我創(chuàng)新,獨立完成了這份自己的報告,從中從學到用,從用又到學,不斷修改,系統(tǒng)更新。雖然不能達到完善系統(tǒng),但也做到了盡善盡美,加強理論學習對完善系統(tǒng)會有很多幫助,知識是無限的,我以后還會在這個領域不斷的進行探索,掌握更多的知識。</p><p><b>  參考文獻</b></p><p>  [1]基于VB和SQL的數據庫編程技術

溫馨提示

  • 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯系上傳者。文件的所有權益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙,網頁內容里面會有圖紙預覽,若沒有圖紙預覽就沒有圖紙。
  • 4. 未經權益所有人同意不得將文件中的內容挪作商業(yè)或盈利用途。
  • 5. 眾賞文庫僅提供信息存儲空間,僅對用戶上傳內容的表現方式做保護處理,對用戶上傳分享的文檔內容本身不做任何修改或編輯,并不能對任何下載內容負責。
  • 6. 下載文件中如有侵權或不適當內容,請與我們聯系,我們立即糾正。
  • 7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

評論

0/150

提交評論