數(shù)據(jù)庫(kù)課程設(shè)計(jì)——庫(kù)存銷售管理系統(tǒng)

1、.數(shù)據(jù)庫(kù)課程設(shè)計(jì)實(shí)驗(yàn)報(bào)告姓名：黃世增班級(jí)：計(jì)算機(jī) 1403學(xué)號(hào)： 1411640305.1. 實(shí)驗(yàn)名稱使用 Visual Basic 6.0 和 SQL Server 2014開(kāi)發(fā)庫(kù)存銷售管理系統(tǒng)2. 實(shí)驗(yàn)?zāi)康氖褂?Visual Basic 6.0 開(kāi)發(fā)工具開(kāi)發(fā)一個(gè)庫(kù)存銷售管理系統(tǒng)，該系統(tǒng)采用SQL Server 2014數(shù)據(jù)庫(kù)保存庫(kù)存貨物信息，數(shù)據(jù)庫(kù)中包括貨物出入庫(kù)信息和商品銷售等信息。該系統(tǒng)包括系統(tǒng)登錄、 貨物出入庫(kù)管理、商品銷售管理和商品統(tǒng)計(jì)管理等功能，通過(guò)這些功能實(shí)現(xiàn)對(duì)庫(kù)存中貨物信息和銷售信息進(jìn)行管理。系統(tǒng)主要實(shí)現(xiàn)以下目標(biāo)：實(shí)現(xiàn)系統(tǒng)登錄及修改用戶密碼的功能。對(duì)庫(kù)存貨物的出入庫(kù)信息進(jìn)行管

2、理。對(duì)商品的銷售信息進(jìn)行管理。根據(jù)銷售日期統(tǒng)計(jì)商品的銷售數(shù)據(jù)。3. 實(shí)驗(yàn)步驟3.1 設(shè)計(jì)數(shù)據(jù)庫(kù)建立一個(gè)名為“DB_KCGL ”的數(shù)據(jù)庫(kù)，根據(jù)前述的主要功能目標(biāo)，需要建立3 個(gè)數(shù)據(jù)表（關(guān)系）：（1）貨物的出入庫(kù)信息：保存貨物的出入庫(kù)信息id：庫(kù)存貨物信息的編號(hào)，主碼，建議長(zhǎng)度為18 的 numeric 類型。tb_title ：庫(kù)存貨物的名稱，建議長(zhǎng)度為50 的 varchar 類型。tb_style：庫(kù)存貨物的類型，建議長(zhǎng)度為50 的 varchar 類型。tb_nums：庫(kù)存貨物的數(shù)量，建議為整型int 。tb_values：庫(kù)存貨物的價(jià)格，實(shí)數(shù)類型real。tb_date：庫(kù)存貨物的入庫(kù)日

3、期，時(shí)間日期類型datetime。tb_mark：庫(kù)存貨物的備注信息，建議長(zhǎng)度為50 的 varchar 類型。（2）商品的銷售信息：保存商品的銷售信息id：商品銷售信息的編號(hào)，主碼，建議長(zhǎng)度為18 的 numeric 類型。.tb_title ：銷售商品的名稱，建議長(zhǎng)度為50 的 varchar 類型。tb_nums：建議為整型int。tb_values：銷售商品的總價(jià)，浮點(diǎn)類型float 。tb_date：商品銷售的日期，時(shí)間日期類型datetime。（3）系統(tǒng)用戶的信息：保存系統(tǒng)用戶的信息id：用戶信息的編號(hào)，主碼，建議長(zhǎng)度為18 的 numeric 類型。tb_name：用戶名稱，建議

4、長(zhǎng)度為50 的 varchar 類型。tb_pas：用戶的密碼信息，建議長(zhǎng)度為50 的 varchar 類型。3.2 設(shè)計(jì)連接數(shù)據(jù)庫(kù)的模塊需要首先建立一個(gè)連接數(shù)據(jù)庫(kù)的模塊，這樣應(yīng)用程序才能與數(shù)據(jù)庫(kù)中的數(shù)據(jù)表取得連接，將數(shù)據(jù)信息從數(shù)據(jù)表中讀出到應(yīng)用程序中或通過(guò)應(yīng)用程序保存到數(shù)據(jù)表中。為此，建立一個(gè)負(fù)責(zé)數(shù)據(jù)庫(kù)連接的模塊如下：（ 1）選擇“工程”菜單下的“添加模塊”命令，在應(yīng)用程序中添加一個(gè)模塊Module1 。（ 2）Module1 模塊的實(shí)現(xiàn)如下：數(shù)據(jù)連接模塊Public MyStrs As StringPublic DB_AdoRs As New ADODB.Recordset后添加一個(gè)記錄集

5、對(duì)象Public DB_AdoRs1 As New ADODB.Recordset后添加一個(gè)記錄集對(duì)象Public DB_AdoRs2 As New ADODB.Recordset后添加一個(gè)記錄集對(duì)象Public Function Cnn() As ADODB.Connection定義連接字符串函數(shù)Set Cnn = New ADODB.ConnectionCnn.OpenProvider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;Initial Catalog=DB_KCGL;Data Source=.End F

6、unctionPublic Sub Main()MyStrs=Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurity.Info=False;Initial Catalog=DB_KCGL;Data Source=.顯示系統(tǒng)登錄窗體Form1.ShowEnd Sub（ 3）這里需要將程序的入口設(shè)置為模塊中的Main() 函數(shù)。選擇“工程”菜單下的“工程屬性”命令，在“通用”標(biāo)簽中進(jìn)行相應(yīng)設(shè)置。3.3 系統(tǒng)登陸模塊設(shè)計(jì)在本庫(kù)存銷售管理系統(tǒng)中， 只有授權(quán)用戶 （管理員） 可以登錄并進(jìn)行庫(kù)存和銷售信息管理與維護(hù)， 因此需要一個(gè)系統(tǒng)登錄界面

7、， 防止非法用戶登錄到系統(tǒng)中， 從而保證了應(yīng)用程序的安全性和可靠性。3.3.1 登錄窗體設(shè)計(jì)設(shè)計(jì)如下的登錄窗體，在窗體中要添加一個(gè)ADO 控件，命名為Adodc1 。（ 1）登錄窗體啟動(dòng)之后，需要將系統(tǒng)用戶的信息數(shù)據(jù)表中的所有用戶名稱信息添加到窗體的 ComboBox 控件的 Op_Name 屬性中，即實(shí)現(xiàn)在“操作員名稱”下拉列表中可以出現(xiàn)系統(tǒng)當(dāng)前的操作員信息，供登錄用戶選擇。Private Sub Form_Load()使用代碼連接數(shù)據(jù)庫(kù)與數(shù)據(jù)表Adodc1.ConnectionString = MyStrsAdodc1.RecordSource = select * from系統(tǒng)的用戶信息

8、Adodc1.RefreshIf Adodc1.Recordset.RecordCount 0 ThenAdodc1.Recordset.MoveFirstOp_Name.Clear在添加數(shù)據(jù)時(shí)，首先清空控件中的內(nèi)容Do While Adodc1.Recordset.EOF = False將操作員信息添加到下拉列表框控件當(dāng)中Op_Name.AddItem (Adodc1.Recordset.Fields(tb_name).Adodc1.Recordset.MoveNextLoopEnd IfEnd Sub（ 2）當(dāng)用戶在“操作員名稱”下拉列表中選擇操作員的名稱，并且在“操作員密碼”文本框輸入正

9、確的密碼之后，單擊“確定”按鈕將登錄到系統(tǒng)中，否則將無(wú)法登錄系統(tǒng)。具體實(shí)現(xiàn)如下：Private Sub Cmd_Ok_Click()Adodc1.RecordSource = select * from Tb_User where tb_name = & Op_Name.Text & Adodc1.RefreshIf Adodc1.Recordset.RecordCount 0 ThenMPassword = Adodc1.Recordset.Fields(tb_pas)If Txt_Password.Text = MPassword Then判斷數(shù)據(jù)的密碼是否正確Name1 = Op_Nam

10、e.TextFrm_Main.StatusBar1.Panels.Item(2).Text=當(dāng)前操作 員：+Adodc1.Recordset.Fields(tb_name)Frm_Main.Show通過(guò)身份驗(yàn)證則顯示主窗體，登錄到系統(tǒng)當(dāng)中Unload MeElseMsgBox 密碼不正確 ,請(qǐng)您確認(rèn)后重新輸入, , 提示信息 Txt_Password.Text = Txt_Password.SetFocusEnd IfElseMsgBox 對(duì)不起沒(méi)有此用戶的信息, , 提示信息 Op_Name.Text = Txt_Password.Text = End IfEnd Sub3.4 系統(tǒng)主界面的

11、實(shí)現(xiàn)3.4.1 主界面設(shè)計(jì)（ 1）在工程中添加一個(gè)窗體，將窗體命名為 Frm_main ，將窗體 Caption 屬性設(shè)置為“庫(kù)存管理系統(tǒng)”。（ 2）添加一個(gè) Toolbar 控件，工具欄由“修改密碼”、“庫(kù)存管理”、“商品銷售”、“銷售統(tǒng)計(jì)”和“退出系統(tǒng)” 5 個(gè)按鈕組成。（ 3）添加一個(gè) StatusBar 控件，使得狀態(tài)欄中能夠顯示登錄操作員姓名和當(dāng)前系統(tǒng)時(shí)間等信息。.（4）在主窗體上添加一個(gè)時(shí)鐘控件，用于顯示系統(tǒng)當(dāng)前日期和時(shí)間信息。（5）在主窗體上添加一個(gè)Label 標(biāo)簽控件，將其Caption 屬性設(shè)置為“庫(kù)存管理系統(tǒng)”。3.4.2 代碼實(shí)現(xiàn)（1）窗體啟動(dòng)時(shí)，在窗體的狀態(tài)欄中將顯示當(dāng)

12、前系統(tǒng)的日期信息：Private Sub Form_Load()StatusBar1.Panels.Item(3).Text = Format(Now, yyyy年 mm 月 dd 日)End Sub（2）單擊窗口工具欄按鈕時(shí)，將會(huì)調(diào)用系統(tǒng)的各個(gè)子功能模塊：Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.IndexCase 1Frm_Pas.Show修改密碼Case 2Frm_Inout.Show庫(kù)存管理Case 3Frm_Sale.Show商品銷售Case 4Frm_

13、Stat.Show銷售統(tǒng)計(jì)Case 5End退出系統(tǒng)End SelectEnd Sub（3）在時(shí)鐘控件的Timer 事件中添加如下代碼，實(shí)現(xiàn)在狀態(tài)欄中顯示當(dāng)前系統(tǒng)時(shí)間的功能：Private Sub Timer1_Timer()StatusBar1.Panels.Item(4).Text = TimeEnd Sub（ 4）再向狀態(tài)欄中添加公司名稱，操作員和公司網(wǎng)址信息。系統(tǒng)主窗體的運(yùn)行界面如下圖所示：.3.5 出入庫(kù)管理模塊的設(shè)計(jì)與實(shí)現(xiàn)該模塊主要是記錄和維護(hù)庫(kù)存中的貨物信息， 其中包括對(duì)貨物信息的刪除、 修改和保存等方面的功能。3.5.1 窗體界面設(shè)計(jì)（ 1）在工程中添加一個(gè)窗體，命名為Frm_

14、Inout ，將窗體 Caption 設(shè)置為“出入庫(kù)管理”。（ 2）在窗體上添加相應(yīng)的控件，如下圖所示。.（3）通過(guò)“工程”菜單下的“部件”命令將DataGrid 數(shù)據(jù)表格控件添加到工具箱中，然后在窗體上添加1 個(gè)數(shù)據(jù)表格控件DataGrid1 。（4）在窗體上添加一個(gè)ADO 控件 Adodc1 ，同時(shí)將DataGrid1 的數(shù)據(jù)源屬性DataSource 設(shè)置為 Adodc1 。3.5.2 程序代碼實(shí)現(xiàn)（1）窗口載入時(shí)，將數(shù)據(jù)庫(kù)中商品表數(shù)據(jù)讀出。Private Sub Form_Load()Adodc1.ConnectionString = MyStrsAdodc1.RecordSource

15、 = select * from貨物的出入庫(kù)信息order by idAdodc1.RefreshAddTitleEnd Sub其中， AddTitle 函數(shù)用于向DataGrid1 添加表頭，實(shí)現(xiàn)如下：添加數(shù)據(jù)庫(kù)字段標(biāo)題的事件過(guò)程Private Sub AddTitle()DataGrid1.Columns.Item(0).Caption = 編號(hào) DataGrid1.Columns.Item(1).Caption = 名稱 DataGrid1.Columns.Item(2).Caption = 類型 DataGrid1.Columns.Item(3).Caption = 數(shù)量 DataGr

16、id1.Columns.Item(4).Caption = 單價(jià) DataGrid1.Columns.Item(5).Caption = 入庫(kù)日期 DataGrid1.Columns.Item(6).Caption = 備注 .End Sub（2）點(diǎn)擊“添加”按鈕，清空編輯框，讓用戶輸入新的待添加內(nèi)容Private Sub Command1_Click()清空文本框中的內(nèi)容Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text1.SetFocusEnd Sub（3）點(diǎn)擊“刪除”按鈕，刪

17、除選中當(dāng)前記錄。Private Sub Command2_Click()刪除庫(kù)存信息c = MsgBox( 確認(rèn)要?jiǎng)h除該信息嗎, 17, 提示信息 )If c = vbOK Then如果有錯(cuò)誤則執(zhí)行錯(cuò)誤處理On Error Resume NextSet DB_AdoRs = Cnn.Execute(Delete from 貨物的出入庫(kù)信息 where id= + Text1.Text + )MsgBox 數(shù)據(jù)刪除成功 , 64, 提示信息 刪除后刷新數(shù)據(jù)信息Adodc1.RecordSource = select * from貨物的出入庫(kù)信息order by idAdodc1.RefreshA

18、ddTitleEnd IfText1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = End Sub（4）點(diǎn)擊“修改”按鈕，修改當(dāng)前的記錄信息。Private Sub Command3_Click()修改庫(kù)存信息c = MsgBox( 確認(rèn)修改信息嗎, 33, 提示信息 )If c = vbOK Then. On Error Resume NextSet DB_AdoRs = Cnn.Execute(UPDATE 貨物的出入庫(kù)信息 SET tb_title= + Text2 + ,tb_style=

19、 + Text3 + ,tb_nums= + Text4 + ,tb_values= _+ Text5 + ,tb_mark= + Text6 + where id= + Text1.Text + ) MsgBox 數(shù)據(jù)修改成功 , 64, 提示信息 Adodc1.RecordSource = select * from貨物的出入庫(kù)信息order by idAdodc1.RefreshAddTitleEnd IfEnd Sub（5）點(diǎn)擊“保存”按鈕，將保存文本框中輸入的貨物信息。Private Sub Command4_Click()If Text1.Text = Or Text2.Text

20、= Or Text3.Text = Or Text4.Text = Or Text5.Text = Or Text6.Text = ThenMsgBox 保存的數(shù)據(jù)信息不能為空, 48, 提示信息 ElseDB_AdoRs.Open select * from 貨物的出入庫(kù)信息where tb_title=+ Text2.Text + ,Cnn, adOpenKeysetIf DB_AdoRs.RecordCount 0 Then判斷要保存的信息是否已經(jīng)存在MsgBox 該貨物信息信息已經(jīng)存在, 48, 提示信息 DB_AdoRs.CloseElseDB_AdoRs.Closec = MsgB

21、ox( 確認(rèn)保存信息嗎, 33, 提示信息 )If c = vbOK Then 如果選擇的是“確定”按鈕則保存信息Set DB_AdoRs = Cnn.Execute(insert into貨物的出入庫(kù)信息values( & Text1& , & Text2 & , & Text3 & , & Text4 & , _& Text5 & , & Date & , & Text6 & ) MsgBox 信息保存成功 , 64, 提示信息 ElseEnd If保存數(shù)據(jù)后刷新數(shù)據(jù)信息Adodc1.RecordSource = select * from貨物的出入庫(kù)信息order by idAdodc1

22、.RefreshAddTitleEnd IfEnd IfEnd Sub（6）點(diǎn)擊退出，銷毀當(dāng)前窗口。Private Sub Command6_Click()Unload MeEnd Sub.（7）單擊 DataGrid1 中的相應(yīng)記錄，會(huì)在窗體左側(cè)的各個(gè)編輯框中顯示相應(yīng)的內(nèi)容。Private Sub DataGrid1_Click()On Error Resume NextIf Adodc1.Recordset.RecordCount 0 ThenText1.Text = Adodc1.Recordset.Fields(0)Text2.Text = Adodc1.Recordset.Field

23、s(1)Text3.Text = Adodc1.Recordset.Fields(2)Text4.Text = Adodc1.Recordset.Fields(3)Text5.Text = Adodc1.Recordset.Fields(4)Text6.Text = Adodc1.Recordset.Fields(6)End IfEnd Sub窗體的運(yùn)行界面如下圖所示：3.6 商品銷售模塊的設(shè)計(jì)與實(shí)現(xiàn)在“商品銷售管理”窗口中的“銷售商品”下拉列表中選擇要銷售的商品之后，該商品的基本信息將顯示在窗體中相應(yīng)的文本框中， 在輸入銷售數(shù)量和實(shí)收金額后， 單擊“確認(rèn)銷售”按鈕完成銷售商品的操作。.3.6

24、.1 窗體界面設(shè)計(jì)（ 1）在工程中添加一個(gè)窗體，命名為Frm_Sale，將 Caption 屬性設(shè)置為“商品銷售管理”。（ 2）在窗體上添加相應(yīng)的控件，如下圖所示。（3）通過(guò)“工程”菜單下的“部件”命令將DataGrid 數(shù)據(jù)表格控件添加到工具箱中，然后在窗體上添加1 個(gè)數(shù)據(jù)表格控件DataGrid1 。（ 4）在窗體上添加 2 個(gè) ADO 控件 Adodc1 和 Adodc2 ，同時(shí)將 DataGrid1 的數(shù)據(jù)源屬性DataSource 設(shè)置為 Adodc2 。3.6.2 程序代碼實(shí)現(xiàn)（ 1）窗體啟動(dòng)時(shí)，將商品庫(kù)存中的貨物名稱信息添加到下拉列表中，然后再將商品銷售的數(shù)據(jù)信息顯示在 Data

25、Grid1 控件中。Private Sub Form_Load()Adodc2.ConnectionString = MyStrsAdodc2.RecordSource = select * from商品的銷售信息order by id.Adodc2.RefreshAddTitle使用代碼連接數(shù)據(jù)庫(kù)與數(shù)據(jù)表Adodc1.ConnectionString = MyStrsAdodc1.RecordSource = select * from貨物的出入庫(kù)信息Adodc1.RefreshIf Adodc1.Recordset.RecordCount 0 ThenAdodc1.Recordset.Mo

26、veFirstCombo1.Clear在添加數(shù)據(jù)時(shí)，首先清空控件中的內(nèi)容Do While Adodc1.Recordset.EOF = False將貨物出入庫(kù)信息添加到下拉列表框控件當(dāng)中Combo1.AddItem (Adodc1.Recordset.Fields(tb_title)Adodc1.Recordset.MoveNextLoopEnd IfEnd SubPrivate Sub AddTitle()DataGrid1.Columns.Item(0).Caption = 編號(hào) DataGrid1.Columns.Item(1).Caption = 名稱 DataGrid1.Column

27、s.Item(2).Caption = 銷售數(shù)量 DataGrid1.Columns.Item(3).Caption = 銷售總價(jià) DataGrid1.Columns.Item(4).Caption = 銷售日期 End Sub（2）選擇下拉列表中的商品之后，該商品的詳細(xì)信息將顯示在窗體中相對(duì)應(yīng)的文本框中。商品詳細(xì)信息Private Sub Combo1_Click()Adodc1.RecordSource = select * from 貨物的出入庫(kù)信息 where tb_title = & Combo1.Text & Adodc1.RefreshIf Adodc1.Recordset.Re

28、cordCount 0 ThenText1.Text = Adodc1.Recordset.Fields(id)Text2.Text = Adodc1.Recordset.Fields(tb_style)Text3.Text = Adodc1.Recordset.Fields(tb_nums)Text4.Text = Adodc1.Recordset.Fields(tb_values)Text5.Text = Adodc1.Recordset.Fields(tb_mark)End If清空文本框中的內(nèi)容Text6.Text = Text7.Text = Text8.Text = Text9.T

29、ext = .End Sub（ 3）單擊“確認(rèn)銷售”按鈕，將完成銷售商品的操作。（ 4）當(dāng)用戶輸入銷售數(shù)量后并將輸入焦點(diǎn)移開(kāi)后，需要實(shí)時(shí)更新商品詳細(xì)信息中的數(shù)量信息，即在原有數(shù)量的基礎(chǔ)上減去用戶輸入的銷售數(shù)量。（ 3）和（ 4）的代碼：Private Sub Command1_Click()Adodc1.ConnectionString = MyStrsAdodc1.RecordSource = select * from 貨 物 的 出 入 庫(kù) 信 息 where tb_title = & Combo1.Text & Adodc1.RefreshDim a As IntegerDim b A

30、s Integera = Val(Text7.Text)b = Val(Text4.Text * Text6.Text)If Text6.Text = Or Text7.Text = ThenMsgBox 請(qǐng)補(bǔ)全信息！ , 64, 提示信息 ElseIf a 0 ThenAdodc1.Recordset.MoveFirstCombo1.Clear在添加數(shù)據(jù)時(shí)，首先清空控件中的內(nèi)容Do While Adodc1.Recordset.EOF = False將商品銷售信息添加到下拉列表框控件當(dāng)中Combo1.AddItem (Adodc1.Recordset.Fields(tb_title)Adod

31、c1.Recordset.MoveNextLoopEnd IfEnd SubPrivate Sub AddTitle().DataGrid1.Columns.Item(0).Caption = 編號(hào) DataGrid1.Columns.Item(1).Caption = 名稱 DataGrid1.Columns.Item(2).Caption = 銷售數(shù)量 DataGrid1.Columns.Item(3).Caption = 銷售總價(jià) DataGrid1.Columns.Item(4).Caption = 銷售日期 End Sub窗體的運(yùn)行結(jié)果如下：3.8 修改密碼模塊的設(shè)計(jì)與實(shí)現(xiàn)3.8.1

32、 窗體界面設(shè)計(jì)（1）添加一個(gè)窗體，命名為Frm_Pas，將 Caption 屬性設(shè)置為“密碼修改”。（2）在窗體上加入一個(gè)ADO 控件 Adodc1 。（3）設(shè)計(jì)窗體的界面如下圖。.3.8.2 程序代碼實(shí)現(xiàn)（1）載入窗口時(shí)連接操作員信息數(shù)據(jù)表Private Sub Form_Load()使用代碼連接數(shù)據(jù)庫(kù)與數(shù)據(jù)表Adodc1.ConnectionString = MyStrsAdodc1.RecordSource = select * from系統(tǒng)用戶的信息Adodc1.RefreshEnd Sub（ 2）當(dāng)點(diǎn)擊“確定”按鈕時(shí)，首先判斷用戶輸入的用戶名和原密碼信息是否正確，如果正確并且兩次輸入的新密碼一致，就將用戶密碼修改為新密碼。Private Sub Command1_Click()Adodc1.RecordSource = select * from系統(tǒng)用戶的信息where tb_name = & Text1.Text & Adodc1.RefreshIf Text1.Text = ThenMsgBox