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

學(xué)習(xí)資料收集于網(wǎng)絡(luò)，僅供參考 數(shù)據(jù)庫(kù)課程設(shè)計(jì) 實(shí)驗(yàn)報(bào)告 姓名：黃世增 班級(jí)：計(jì)算機(jī)1403 學(xué)號(hào)：1411640305學(xué)習(xí)資料1. 實(shí)驗(yàn)名稱 使用Visual Basic 6.0和SQL Server 2014開(kāi)發(fā)庫(kù)存銷售管理系統(tǒng)2.實(shí)驗(yàn)?zāi)康氖褂肰isual 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)：l 實(shí)現(xiàn)系統(tǒng)登錄及修改用戶密碼的功能。l 對(duì)庫(kù)存貨物的出入庫(kù)信息進(jìn)行管理。l 對(duì)商品的銷售信息進(jìn)行管理。l 根據(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ù)信息l id：庫(kù)存貨物信息的編號(hào)，主碼，建議長(zhǎng)度為18的numeric類型。l tb_title：庫(kù)存貨物的名稱，建議長(zhǎng)度為50的varchar類型。l tb_style：庫(kù)存貨物的類型，建議長(zhǎng)度為50的varchar類型。l tb_nums：庫(kù)存貨物的數(shù)量，建議為整型int。l tb_values：庫(kù)存貨物的價(jià)格，實(shí)數(shù)類型real。l tb_date：庫(kù)存貨物的入庫(kù)日期，時(shí)間日期類型datetime。l tb_mark：庫(kù)存貨物的備注信息，建議長(zhǎng)度為50的varchar類型。 （2） 商品的銷售信息：保存商品的銷售信息l id：商品銷售信息的編號(hào)，主碼，建議長(zhǎng)度為18的numeric類型。l tb_title：銷售商品的名稱，建議長(zhǎng)度為50的varchar類型。l tb_nums：建議為整型int。l tb_values：銷售商品的總價(jià)，浮點(diǎn)類型float。l tb_date：商品銷售的日期，時(shí)間日期類型datetime。 （3） 系統(tǒng)用戶的信息：保存系統(tǒng)用戶的信息l id：用戶信息的編號(hào)，主碼，建議長(zhǎng)度為18的numeric類型。l tb_name：用戶名稱，建議長(zhǎng)度為50的varchar類型。l 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è)記錄集對(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.Connection Cnn.Open Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=DB_KCGL;Data Source=.End FunctionPublic Sub Main() MyStrs = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security 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)登錄界面，防止非法用戶登錄到系統(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 = MyStrs Adodc1.RecordSource = select * from 系統(tǒng)的用戶信息 Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 Then Adodc1.Recordset.MoveFirst Op_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.MoveNext Loop End IfEnd Sub（2） 當(dāng)用戶在“操作員名稱”下拉列表中選擇操作員的名稱，并且在“操作員密碼”文本框輸入正確的密碼之后，單擊“確定”按鈕將登錄到系統(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.Refresh If Adodc1.Recordset.RecordCount 0 Then MPassword = Adodc1.Recordset.Fields(tb_pas) If Txt_Password.Text = MPassword Then 判斷數(shù)據(jù)的密碼是否正確 Name1 = Op_Name.Text Frm_Main.StatusBar1.Panels.Item(2).Text = 當(dāng)前操作員： + Adodc1.Recordset.Fields(tb_name) Frm_Main.Show 通過(guò)身份驗(yàn)證則顯示主窗體，登錄到系統(tǒng)當(dāng)中 Unload Me Else MsgBox 密碼不正確,請(qǐng)您確認(rèn)后重新輸入, , 提示信息 Txt_Password.Text = Txt_Password.SetFocus End If Else MsgBox 對(duì)不起 沒(méi)有此用戶的信息, , 提示信息 Op_Name.Text = Txt_Password.Text = End IfEnd Sub3.4 系統(tǒng)主界面的實(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)前系統(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.Index Case 1 Frm_Pas.Show 修改密碼 Case 2 Frm_Inout.Show 庫(kù)存管理 Case 3 Frm_Sale.Show 商品銷售 Case 4 Frm_Stat.Show 銷售統(tǒng)計(jì) Case 5 End 退出系統(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_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 = MyStrs Adodc1.RecordSource = select * from 貨物的出入庫(kù)信息 order by id Adodc1.Refresh AddTitleEnd 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ù)量 DataGrid1.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)擊“刪除”按鈕，刪除選中當(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 Next Set DB_AdoRs = Cnn.Execute(Delete from 貨物的出入庫(kù)信息 where id= + Text1.Text + )MsgBox 數(shù)據(jù)刪除成功, 64, 提示信息 刪除后刷新數(shù)據(jù)信息 Adodc1.RecordSource = select * from 貨物的出入庫(kù)信息 order by id Adodc1.Refresh AddTitle End If Text1.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 Next Set DB_AdoRs = Cnn.Execute(UPDATE 貨物的出入庫(kù)信息 SET tb_title= + Text2 + ,tb_style= + 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 id Adodc1.Refresh AddTitle End IfEnd Sub（5）點(diǎn)擊“保存”按鈕，將保存文本框中輸入的貨物信息。Private Sub Command4_Click()If Text1.Text = Or Text2.Text = Or Text3.Text = Or Text4.Text = Or Text5.Text = Or Text6.Text = Then MsgBox 保存的數(shù)據(jù)信息不能為空, 48, 提示信息 Else DB_AdoRs.Open select * from 貨物的出入庫(kù)信息 where tb_title= + Text2.Text + , Cnn, adOpenKeyset If DB_AdoRs.RecordCount 0 Then 判斷要保存的信息是否已經(jīng)存在 MsgBox 該貨物信息信息已經(jīng)存在, 48, 提示信息 DB_AdoRs.Close Else DB_AdoRs.Close c = MsgBox(確認(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, 提示信息 Else End If 保存數(shù)據(jù)后刷新數(shù)據(jù)信息 Adodc1.RecordSource = select * from 貨物的出入庫(kù)信息 order by id Adodc1.Refresh AddTitle End If End 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 Next If Adodc1.Recordset.RecordCount 0 Then Text1.Text = Adodc1.Recordset.Fields(0) Text2.Text = Adodc1.Recordset.Fields(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.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ù)信息顯示在DataGrid1控件中。Private Sub Form_Load() Adodc2.ConnectionString = MyStrs Adodc2.RecordSource = select * from 商品的銷售信息 order by id Adodc2.Refresh AddTitle 使用代碼連接數(shù)據(jù)庫(kù)與數(shù)據(jù)表 Adodc1.ConnectionString = MyStrs Adodc1.RecordSource = select * from 貨物的出入庫(kù)信息 Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 Then Adodc1.Recordset.MoveFirst Combo1.Clear 在添加數(shù)據(jù)時(shí)，首先清空控件中的內(nèi)容 Do While Adodc1.Recordset.EOF = False 將貨物出入庫(kù)信息添加到下拉列表框控件當(dāng)中 Combo1.AddItem (Adodc1.Recordset.Fields(tb_title) Adodc1.Recordset.MoveNext Loop End 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（2） 選擇下拉列表中的商品之后，該商品的詳細(xì)信息將顯示在窗體中相對(duì)應(yīng)的文本框中。商品詳細(xì)信息Private Sub Combo1_Click()Adodc1.RecordSource = select * from 貨物的出入庫(kù)信息 where tb_title = & Combo1.Text & Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 Then Text1.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.Text = 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 = MyStrs Adodc1.RecordSource = select * from 貨物的出入庫(kù)信息 where tb_title = & Combo1.Text & Adodc1.Refresh Dim a As Integer Dim b As Integer a = Val(Text7.Text) b = Val(Text4.Text * Text6.Text) If Text6.Text = Or Text7.Text = Then MsgBox 請(qǐng)補(bǔ)全信息！, 64, 提示信息 Else If a 0 Then Adodc1.Recordset.MoveFirst Combo1.Clear 在添加數(shù)據(jù)時(shí)，首先清空控件中的內(nèi)容 Do While Adodc1.Recordset.EOF = False 將商品銷售信息添加到下拉列表框控件當(dāng)中 Combo1.AddItem (Adodc1.Recordset.Fields(tb_title) Adodc1.Recordset.MoveNext Loop End 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 窗體界面設(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 = MyStrs Adodc1.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.Refresh If Text1.Text = Then MsgBox 請(qǐng)輸入用戶名！, 4