超市收銀管理系統設計課程設計

1、<p><b>　　課 程 設 計</b></p><p><b>　　超市收銀管理系統</b></p><p>　　院 系 </p><p>　　2010年 1 月 6 日</p><p><b>　　目 錄</b></p>&

2、lt;p>　　摘要 ……………………………………………… 1</p><p>　　緒論 ……………………………………………… 2</p><p>　　需求分析 ……………………………………………… 4</p><p>　　2.1、數據庫基本信息 ………………………………………

3、 4</p><p>　　2.2 系統的功能 ……………………………………… 4</p><p>　　數據分析與建模 ……………………………………………… 5</p><p>　　3.1、數據分析 ……………………………………… 5</p><p>　　3.2、數據模型 …………………………

4、…………… 5</p><p>　　數據庫建立 ……………………………………………… 6</p><p>　　4.1、數據庫表的建立 ……………………………………… 6</p><p>　　4.2、數據庫E-R圖和關系圖的建立………………………… 8</p><p>　　數據庫應用開發 ………………………………………

5、……… 10</p><p>　　5.1、數據庫實時數據 ……………………………………… 10</p><p>　　5.2、數據庫存儲過程 ……………………………………… 11</p><p>　　5.3、數據庫觸發器 ……………………………………… 13</p><p>　　5.4、VB前臺程序設計 ………………

6、……………………… 14</p><p>　　5.5、功能操作說明 ……………………………………… 25</p><p>　　結論與體會 ……………………………………………… 26</p><p>　　致謝 ……………………………………………… 26</p><p>　　參考

7、文獻 ……………………………………………… 27</p><p><b>　　摘要</b></p><p><b>　　【摘要】</b></p><p>　　選課系統是針對社會中一些小型超市使用，從消費者的角度來說，結賬時應該準確和快速，畢竟時間就金錢。由于傳統的超市收銀管理給顧客和店主帶來

8、很多不便，針對這方面的缺陷，團隊開發這個系統可以方便快捷查出顧客結賬情況，商品信息情況，每天的售貨情況。方便了對超市商品管理、人員管理。大大提高了超市銷售速度。進而加速了社會的發展速度，提高了人民的生活水平。本系統還可以給顧客和超市節約更多時間，加快了超市的運轉速度。</p><p>　　關鍵詞：VB；小型超市收銀管理系統；SQL Server 2000</p><p><b>

9、　　Abstract</b></p><p>　　Shop-sale- system is aims at in the school student and the teacher uses, said from student's angle, as a result of the school teaching system reform, now the majority of ins

10、titutions of higher learning started to implement is the student independently chooses the class pattern, the traditional educational model (student to attend class according to curriculum which school arranged) already

11、cannot adapt the new teaching method, if still chose the class through the paper on way, on the one hand wa</p><p>　　【關鍵詞】 小型超市收銀管理系統</p><p><b>　　一、緒論</b></p><p>　　本系統編寫

12、目的在于研究城鄉式的小型超市銷售管理系統軟件的可行途徑和使用方法。</p><p>　　21世紀，超市的競爭也進入到了一個全新的領域，競爭已不再是規模的競爭，而是技術的競爭、管理的競爭、人才的競爭。技術的提升和管理的升級是超市業的競爭核心。零售領域目前呈多元發展趨勢，多種業態：超市、倉儲店、便利店、特許加盟店、專賣店、貨倉等相互并存。如何在激烈的競爭中擴大銷售額、降低經營成本、擴大經營規模，成為超市營業者努力追求

13、的目標。</p><p>　　為了提高物資管理的水平和工作效率，盡可能杜絕商品流通中各環節中可能出現的資金流失不明現象，商品進銷存領域迫切需要引入信息系統來加以管理。而商品銷售管理系統是當前應用于超市或者公司管理系統的典型代表。</p><p>　　本組設計的超市銷售管理系統主要完成的功能有：商品基本信息維護、人員管理信息維護、銷售管理等，以及這一系列過程中涉及商品的數據修改、查詢統計、刪

14、除等多種操作。此外，ＡＤＯ具有很多的優點，其中包括易于使用，熟悉的界面，高嚴謹及較低的內存空間戰勝。本系統的開發使用的是ＡＤＯ方式來開發數據庫。要使用這種訪問方式，必須在ＶＢ工程里面引用Microsoft ActiveX Data Objects庫。使用本系統大大提高超市的運作效率；通過全面的信息采集和處理，輔助提高超市的決策水平；還可以迅速提升超市的管理水平，為降低經營成本，提高效益，增強超市擴張力，提供有效的技術保障。</p&

15、gt;<p><b>　　二、需求分析</b></p><p>　　2.1、數據庫基本信息</p><p><b>　　銷售員工表</b></p><p><b>　　商品表</b></p><p><b>　　銷售表</b></p&g

16、t;<p><b>　　登錄表 </b></p><p><b>　　2.2、系統的功能</b></p><p>　　添加員工、商品等基本信息如可添加每個員工的職工號、姓名、性別、用戶類型；</p><p>　　查詢員工、商品的信息和查詢商品銷售情況，查詢的原理是首先在系統庫內銷售員工表、商品表、銷售表都有自

17、己的主碼信息，若沒有，則必須通過添加功能模塊來給系統添加它們信息。然后根據此唯一特性來查出它們的所有信息。例如在商品表界面中，只要我們輸入商品號，然后單擊查詢按鈕，就可以出此商品的商品名稱、商品類型、庫存量和廠商即產地。</p><p>　　刪除員工、商品表、銷售表的基本信息，根據其主碼，查詢出此商品的信息，然后刪除它們所包含的所有信息。</p><p>　　修改員工、商品表、銷售表的基本

18、信息，通過根據它們的主碼號，查出它們的基本信息，然后根據需要對其作出相應的信息進行修改。</p><p>　　對于登錄表，其有三個功能：注冊、登陸、退出；有兩個字段：用戶名、密碼。注冊實質上就是向登錄表內插入用戶信息。如：在登陸界面的用戶名窗口中輸入“羅春”，在密碼窗口內輸入“123”，再點擊“注冊”按鈕，此時，系統會告訴：“注冊成功”。這時，你就可以看見登錄表中有一條信息：用戶名：羅春，密碼123。這就是注冊的

19、效果。然后通過登錄按鈕進入系統。</p><p><b>　　三、數據分析與建模</b></p><p><b>　　3.1、數據分析</b></p><p>　　小型超市收銀管理系統是一個針對超市收銀員管理的一個簡單系統。數據庫中主要含有四張表，登陸表中字段有用戶名，密碼。銷售表中字段有銷售號、職工號、商品號、銷售時間、

20、銷售數量。銷售員工表：職工號、姓名、性別、用戶類型。商品表：商品號、商品名稱、商品類型、單價、庫存量、廠商。</p><p><b>　　數據建模</b></p><p><b>　　四、數據庫建立</b></p><p>　　4.1、數據庫中表的建立</p><p>　　通過對數據庫德數據分析闡述

21、出系統中表的信息如下：</p><p>　　登陸表：用戶名、密碼</p><p>　　銷售表：銷售號、職工號、商品號、銷售時間、銷售數量</p><p>　　小型超市收銀管理系統 </p><p>　　銷售員工表：職工號、姓名、性別、用戶類型</p><p>　　商品表：商品號、商品名稱、商品類型、單價、庫存量

22、、廠商</p><p><b>　?。ǖ卿洷恚?lt;/b></p><p><b>　?。ㄉ唐繁恚?lt;/b></p><p><b>　?。ㄤN售人員表）</b></p><p><b>　?。ㄤN售表）</b></p><p>　　4.2、

23、數據庫中E-R圖和關系圖的建立</p><p>　　由上述表的信息得出E-R圖如下</p><p><b>　　登陸表</b></p><p><b>　?。?）銷售員工表</b></p><p><b>　?。?）銷售表</b></p><p><

24、;b>　?。?）商品表</b></p><p>　?。?）各實體E-R圖</p><p><b>　?。?）關系圖</b></p><p>　　五、數據庫應用和開發</p><p>　　5.1、數據庫中實時數據</p><p>　?。?）商品表中的實時數據</p>

25、<p>　?。?）銷售表中的實時數據</p><p>　?。?）登陸表中的實時數據</p><p>　?。?）銷售員工表中的實時數據</p><p>　　5.2、數據庫中存儲過程源碼</p><p><b>　　商品表刪除</b></p><p>　　CREATE PROCEDURE s

26、pb_delete</p><p>　　@sph varchar(50),@flag int output</p><p><b>　　as</b></p><p>　　if exists(select *from 商品表 where 商品號=@sph and 庫存量=0)</p><p><b>　　b

27、egin</b></p><p>　　delete from 商品表 where 商品號=@sph and 庫存量=0</p><p>　　set @flag=0</p><p><b>　　end</b></p><p>　　else set @flag=1</p><p>&

28、lt;b>　　GO</b></p><p><b>　　商品表插入</b></p><p>　　CREATE PROCEDURE spb_insert</p><p>　　@sph varchar(50),@spmc varchar(50),@splx varchar(50),@dj float,@kcl char(10),

29、@cs varchar(50)</p><p><b>　　as</b></p><p>　　insert into 商品表 (商品號,商品名稱,庫存量,商品類型,廠商,單價)</p><p>　　values (@sph,@spmc,@kcl,@splx,@cs,@dj)</p><p><b>　　GO&l

30、t;/b></p><p><b>　　商品表修改</b></p><p>　　CREATE PROCEDURE spb_update</p><p>　　@sph varchar(50),@spmc varchar(50),@kcl char(50),@dj float ,@splx varchar(50),@cs varchar (5

31、0)</p><p><b>　　as</b></p><p>　　delete xs where 商品號=@sph</p><p>　　insert into 商品表(商品號,商品名稱,庫存量,單價 ,商品類型,廠商)</p><p>　　values (@sph,@spmc,@kcl,@dj,@splx,@cs)&l

32、t;/p><p><b>　　GO</b></p><p><b>　　銷售表插入</b></p><p>　　CREATE PROCEDURE xsb_insert</p><p>　　@xsh varchar(50),@zgh varchar(50),@sph varchar(50),@xssl f

33、loat,@xssj datetime,</p><p>　　@flag int output </p><p><b>　　as</b></p><p>　　set @flag=(select 庫存量 from 商品表 where 商品號=@sph)</p><p>　　if @flag>0</p>

34、<p><b>　　begin</b></p><p>　　insert into 銷售表(銷售號,職工號,商品號,銷售數量,銷售時間)</p><p>　　values (@xsh,@zgh,@sph,@xssl,@xssj)</p><p><b>　　end</b></p><p&g

35、t;<b>　　else </b></p><p>　　set @flag=0</p><p><b>　　GO</b></p><p><b>　　員工表插入</b></p><p>　　CREATE PROCEDURE ygb_insert</p><p

36、>　　@zgh varchar(50),@xm char(8),@xb char(8),@yhlx varchar(50)</p><p><b>　　as</b></p><p>　　insert into 銷售人員表 (職工號,姓名,性別,用戶類型)</p><p>　　values (@zgh,@xm,@xb,@yhlx)</

37、p><p><b>　　GO</b></p><p>　　5.3、數據庫中觸發器源碼</p><p><b>　　銷售表添加觸發器</b></p><p>　　CREATE TRIGGER xsb1_insert ON 銷售表 </p><p>　　FOR INSERT<

38、/p><p><b>　　as</b></p><p><b>　　begin </b></p><p>　　update 銷售表 </p><p>　　set 銷售數量=銷售數量+1</p><p>　　where 銷售表.銷售號 in (select inserted.

39、銷售號 from inserted)</p><p>　　update 商品表 </p><p>　　set 庫存量=庫存量-1</p><p>　　where 商品表.商品號 in (select inserted.商品號 from inserted)</p><p><b>　　end</b></p>

40、;<p><b>　　銷售表刪除觸發器</b></p><p>　　CREATE TRIGGER xsb1_delete ON 銷售表 </p><p>　　FOR DELETE </p><p><b>　　AS</b></p><p><b>　　begin </b

41、></p><p>　　update 銷售表 set 銷售數量=銷售數量-1</p><p>　　where 銷售表.銷售號 in (select 銷售表.銷售號 from deleted )</p><p>　　update 商品表 set 庫存量=庫存量+1</p><p>　　where 商品表.商品號 in (select 商品

42、表 .銷售號 from deleted )</p><p><b>　　end</b></p><p>　　5.4、VB前臺程序設計源碼</p><p><b>　　登陸界面源碼</b></p><p>　　Dim cn As New ADODB.Connection</p><

43、p>　　Dim rs As New ADODB.Recordset</p><p>　　Private Sub Command1_Click()</p><p>　　strsql = "select * from 登錄表 where 用戶名='" & Text1.Text & "'" & "an

44、d 密碼='" & Text2.Text & "'"</p><p>　　rs.Open strsql, cn, 1, 3</p><p>　　If rs.EOF Then</p><p>　　MsgBox "用戶名或密碼錯了", 32, "警告"</p>

45、;<p><b>　　Else</b></p><p>　　Form5.Show</p><p><b>　　Unload Me</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b>&l

46、t;/p><p>　　Private Sub Command2_Click()</p><p><b>　　End</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Image1_Click()</p><p><b&g

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

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

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

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

51、gt;　　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<

52、;/b></p><p><b>　　End Sub</b></p><p>　?。?）商品表界面源代碼</p><p>　　Public cn As New ADODB.Connection</p><p>　　Public rs As New ADODB.Recordset</p><p&g

53、t;　　Private Sub Command1_Click()</p><p>　　str1 = "select * from 商品表 where 商品號='" & Text1.Text & "'"</p><p>　　If rs.State = 1 Then</p><p><b>

54、;　　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><p>

55、　　Adodc1.CommandType = adCmdText</p><p>　　Adodc1.RecordSource = str1</p><p>　　Adodc1.Refresh</p><p><b>　　Else</b></p><p>　　Text1.Text = rs("商品號")&

56、lt;/p><p>　　Text2.Text = rs("商品名稱")</p><p>　　Text3.Text = rs("庫存量")</p><p>　　Text4.Text = rs("商品類型")</p><p>　　Text5.Text = rs("廠商")

57、</p><p>　　Text6.Text = rs("單價")</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p&

58、gt;　　str1 = "select * from 商品表 where 商品號='" & Text1.Text & "'"</p><p>　　If rs.State = 1 Then</p><p><b>　　rs.Close</b></p><p><b>

59、;　　End If</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>&

60、lt;p>　　rs("商品名稱") = Text2.Text</p><p>　　rs("庫存量") = Text3.Text</p><p>　　rs("商品類型") = Text4.Text</p><p>　　rs("廠商") = Text5.Text</p>

61、<p>　　rs("單價") = Text6.Text</p><p><b>　　rs.Update</b></p><p>　　MsgBox "數據添加成功", 64, "信息提示"</p><p>　　Adodc1.CommandType = adCmdText<

62、/p><p>　　Adodc1.RecordSource = "select * from 商品表"</p><p>　　Adodc1.Refresh</p><p>　　Text1.Text = ""</p><p>　　Text2.Text = ""</p><p

63、>　　Text3.Text = ""</p><p>　　Text4.Text = ""</p><p>　　Text5.Text = ""</p><p>　　Text6.Text = ""</p><p><b>　　Else</b>

64、;</p><p>　　MsgBox "該商品已經存在了", 16, "警告"</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command3_Click()&

65、lt;/p><p>　　Form5.Show</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command4_Click()</p><p>　　Dim rs As New

66、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><b>　　End If</b></p>

67、<p>　　If rs1.State = 1 Then</p><p><b>　　rs1.Close</b></p><p><b>　　End If</b></p><p>　　rs1.Open "select * from 商品表 where 商品號='" & Text

68、1.Text & "'and 商品名稱='" & Text2.Text & "'", cn, 1, 3</p><p>　　If rs1.EOF Then</p><p>　　MsgBox "沒有此種商品不能刪除！"</p><p><b>　　E

69、lse</b></p><p>　　rs.Open "delete 商品表 where 商品號='" & Text1.Text & "' and 商品名稱='" & Text2.Text & "'", cn, 1, 3</p><p>　　MsgBox

70、 "確定刪除嗎", 32 + 4, "警告"</p><p>　　Adodc1.CommandType = adCmdText</p><p>　　Adodc1.RecordSource = "select * from 商品表"</p><p>　　Adodc1.Refresh</p>&l

71、t;p><b>　　End If</b></p><p>　　Text1.Text = ""</p><p>　　Text2.Text = ""</p><p>　　Text3.Text = ""</p><p>　　Text4.Text = "

72、"</p><p>　　Text5.Text = ""</p><p>　　Text6.Text = ""</p><p><b>　　End Sub</b></p><p>　　Private Sub DataGrid1_Click()</p><p

73、>　　If Adodc1.Recordset.RecordCount <= 0 Then</p><p>　　MsgBox "當前表是空表", 16, "信息提示"</p><p><b>　　Else</b></p><p>　　Text1.Text = Adodc1.Recordset.F

74、ields(0)</p><p>　　Text2.Text = Adodc1.Recordset.Fields(1)</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p&

75、gt;<p>　　cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=超市管理"</p><p><b>　　cn.Open</b></p><p><b&g

76、t;　　End Sub</b></p><p>　　Private Sub Image1_Click()</p><p><b>　　End Sub</b></p><p>　?。?）銷售商品信息表界面源代碼</p><p>　　Public cn As New ADODB.Connection</p&

77、gt;<p>　　Public rs As New ADODB.Recordset</p><p>　　Private Sub Command1_Click()</p><p>　　str1 = "select * from 銷售表 where 銷售號='" & Text1.Text & "'"</

78、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>　　If rs.EOF Then&l

79、t;/p><p>　　MsgBox "該銷售商品不存在"</p><p>　　Adodc1.CommandType = adCmdText</p><p>　　Adodc1.RecordSource = str1</p><p>　　Adodc1.Refresh</p><p><b>　　E

80、lse</b></p><p>　　Text1.Text = rs("銷售號")</p><p>　　Text2.Text = rs("職工號")</p><p>　　Text3.Text = rs("商品號")</p><p>　　Text4.Text = rs(&qu

81、ot;銷售數量")</p><p>　　Text6.Text = rs("銷售時間")</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()&l

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

83、lt;p><b>　　End If</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.T

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

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

86、e = "select * from 銷售表"</p><p>　　Adodc1.Refresh</p><p>　　Text1.Text = ""</p><p>　　Text2.Text = ""</p><p>　　Text3.Text = ""</p

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

88、<p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command3_Click()</p><p>　　If Adodc1.Recordset.EOF = False Then</p><p>　　c

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

90、39;x" & "'"</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

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

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

93、;p>　　Text3.Text = ""</p><p>　　Text4.Text = ""</p><p>　　Text6.Text = ""</p><p><b>　　End If</b></p><p><b>　　Else</b&

94、gt;</p><p>　　MsgBox "當前數據庫中已經沒有可刪除的記錄", 64, "警告"</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command

95、4_Click()</p><p>　　Form5.Show</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　Private Sub DataGrid1_Click()</p><p>　　If

96、Adodc1.Recordset.RecordCount <= 0 Then</p><p>　　MsgBox "當前表是空表", 16, "信息提示"</p><p><b>　　Else</b></p><p>　　Text1.Text = Adodc1.Recordset.Fields(0)&

97、lt;/p><p>　　Text2.Text = Adodc1.Recordset.Fields(1)</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><

98、p>　　cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=超市管理"</p><p><b>　　cn.Open</b></p><p><b>　　End S

99、ub</b></p><p>　　Private Sub Image1_Click()</p><p><b>　　End Sub</b></p><p>　?。?）銷售員工信息表</p><p>　　Public cn As New ADODB.Connection</p><p>

100、　　Public rs As New ADODB.Recordset</p><p>　　Private Sub Command1_Click()</p><p>　　str1 = "select * from 銷售人員表 where 職工號='" & Text1.Text & "'"</p><p

101、>　　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>　　If rs.EOF Then</p>&l

102、t;p><b>　　rs.AddNew</b></p><p>　　rs("職工號") = Text1.Text</p><p>　　rs("姓名") = Text2.Text</p><p>　　rs("性別") = Text3.Text</p><p>

103、;　　rs("用戶類型") = Text4.Text</p><p><b>　　rs.Update</b></p><p>　　MsgBox "用戶添加成功", 64, "信息提示"</p><p>　　Adodc1.CommandType = adCmdText</p>

104、<p>　　Adodc1.RecordSource = "select * from 銷售人員表"</p><p>　　Adodc1.Refresh</p><p>　　Text1.Text = ""</p><p>　　Text2.Text = ""</p><p>

105、　　Text3.Text = ""</p><p>　　Text4.Text = ""</p><p><b>　　Else</b></p><p>　　MsgBox "該職工已經存在了", 16, "警告"</p><p><b>

106、;　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p>　　str1 = "select * from 銷售人員表 where 職工號='" & Text1.Text &

107、"'"</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

108、>　　If rs.EOF Then</p><p>　　MsgBox "這個職工不存在"</p><p>　　Adodc1.CommandType = adCmdText</p><p>　　Adodc1.RecordSource = str1</p><p>　　Adodc1.Refresh</p>

109、<p><b>　　Else</b></p><p>　　Text1.Text = rs("職工號")</p><p>　　Text2.Text = rs("姓名")</p><p>　　Text3.Text = rs("性別")</p><p>　　

110、Text4.Text = rs("用戶類型")</p><p>　　Adodc1.CommandType = adCmdText</p><p>　　Adodc1.RecordSource = str1</p><p>　　Adodc1.Refresh</p><p><b>　　End If</b>

111、</p><p><b>　　End Sub</b></p><p>　　Private Sub Command3_Click()</p><p>　　Form5.Show</p><p><b>　　Unload Me</b></p><p><b>　　End

112、Sub</b></p><p>　　Private Sub Command4_Click()</p><p>　　If Adodc1.Recordset.EOF = False Then</p><p>　　c = MsgBox("您確認要刪除該記錄嗎?", 32 + 4, "特別提示")</p>&

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

114、1 Then</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>　　Ad

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

116、gt;<p>　　Adodc1.Refresh</p><p>　　Text1.Text = ""</p><p>　　Text2.Text = ""</p><p>　　Text3.Text = ""</p><p>　　Text4.Text = "&quo

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

118、t;</p><p><b>　　End Sub</b></p><p>　　Private Sub DataGrid1_Click()</p><p>　　If Adodc1.Recordset.RecordCount <= 0 Then</p><p>　　MsgBox "當前表是空表",

119、16, "信息提示"</p><p><b>　　Else</b></p><p>　　Text1.Text = Adodc1.Recordset.Fields(0)</p><p>　　Text2.Text = Adodc1.Recordset.Fields(1)</p><p><b>

120、　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Sec

121、urity Info=False;Initial Catalog=超市管理"</p><p><b>　　cn.Open</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Image1_Click()</p><p><b>

122、　　End Sub</b></p><p>　　5.5、功能操作說明</p><p>　　1.打開 劉則芬、羅春SQL課程設計 文件夾</p><p>　　2.打開SQL Server 2000 </p><p>　　3.附加數據庫，打開主文件夾里的數據庫子文件夾，然后把里面的兩個數據庫文件附加到數據庫里。</p>

123、<p><b>　　4.打開VB6.0</b></p><p>　　5.打開SQL課程設計—工程—小型超市收銀管理系統.vbp，然后雙擊工程1里面的 窗體進行一些設置，然后保存。</p><p>　　6.再到SQL課程設計 文件夾里面的exe文件，雙擊打開即可。</p><p>　　7.第一次登錄需注冊，然后再登陸，進入界面可以對各

124、個表進行刪除，查詢，添加和退出操作。</p><p><b>　　。</b></p><p><b>　　六、結論與體會</b></p><p>　　通過這次的課程設計，使我們了解了一個簡單的學生選課系統的設計過程，并且基本掌握了MS SQL server 2000的基本用法，Visual Basic 6.0的基本用法，掌

125、握數據庫的基本知識及其應用情況，加深對該課程的理解，在這次設計過程中使我們對編程和數據庫的開發建立了濃厚的興趣。</p><p>　　在設計過程中遇到了很多的問題，但是最后通過自己的努力、孫燦明老師不厭其煩的解答和在網上尋找最后都得到了解決，雖然這次的設計是一個很小的程序但是設計這樣的程序真的不簡單呀，首先要想好設計的界面，以及這些界面是怎樣連接起來的。然后要考慮數據庫怎么樣和應用程序連接起來。在設計中我深知自己

126、掌握的知識還遠遠不夠，掌握的一些理論知識應用到實踐中去，總會出現這樣或那樣的問題，不是理論沒有掌握好，而是光知道書本上的知識是遠遠不夠的，一定要把理論知識和實踐結合起來。把學到的知識應用到時間中去，多做多練，才可以把理論的精華發揮出來。知識不是知道，了解就好，一定要去應用它，發展它，讓它在現實生活中得到充分的應用，從而解決一些問題，這才是學習的根本目的。而且知識又不是單一的，它是互相聯系的，學科與學科之間都有著內在的聯系。計算機是一門非

127、常復雜且龐大的學科，一項課題往往需要多項技術才可以完成的。在設計階段，通過對課題的深入分析與研究，迫使我對技術有了一定的了解。在遇到問題時，得到了指導老師與同學的悉心幫助，使我感受到集體的力量是無窮的。 通過這次設計，我學會了和別人配合工作，因為一個人所學的知識不可能面</p><p><b>　　致謝</b></p><p>　　在設計程序的時候遇到了一些問

128、題，首先要感謝我們的xx教授，是他給了我們創作思想和靈感還幫助我們改正了不少錯誤，還有編程論壇的版主的幫助，再次感謝你們。</p><p><b>　　參考文獻</b></p><p>　　1.康博工作室，張紅軍，王紅等縞著《Visual Basic 6.0中文版高級應用與開發指南》，人民郵電出版社，2001年4月第一版</p><p>　　2