洗車房管理系統(tǒng)課程設(shè)計

1、<p><b>　　課程設(shè)計任務(wù)書</b></p><p><b>　　摘 要</b></p><p>　　本系統(tǒng)的主要功能是洗車房信息的管理及對各種信息的查詢，增加，修改，更新。本系統(tǒng)的數(shù)據(jù)庫是用SQL server 2014軟件進行創(chuàng)建與設(shè)計，分別包括車輛信息，車位信息，工資信息和密碼表四個表。通過系統(tǒng)ODBC數(shù)據(jù)源管理工具把已創(chuàng)建

2、的數(shù)據(jù)源與系統(tǒng)數(shù)據(jù)庫相連。利用VB軟件對系統(tǒng)的窗口進行設(shè)計，包括歡迎界面、登陸界面、主菜單界面、瀏覽窗體和查詢窗體等，可以通過這些窗體進行登陸操作，對輸入的用戶信息進行驗證，以及最重要的操作是對數(shù)據(jù)庫中信息進行瀏覽與查詢。并可以對數(shù)據(jù)進行添加與刪除，做到及時更新。還包括查詢功能統(tǒng)計一個月的收入金額。列出本月洗車的詳細情況，按車型，車位分別統(tǒng)計收入金額。評選出本月最佳洗車員。 </p><p>　　關(guān)鍵詞：

3、洗車房信息管理 SQL server 2014;VB6.0</p><p><b>　　1系統(tǒng)功能概述</b></p><p><b>　　1.1 系統(tǒng)功能</b></p><p>　　（1）洗車記錄的管理與查詢。</p><p>　　（2）車位信息的管理與查詢。</p>&l

4、t;p><b>　?。?）總收入統(tǒng)計。</b></p><p>　?。?）車型車位金額統(tǒng)計。</p><p>　?。?）最佳洗車員評選。</p><p>　　1.2系統(tǒng)結(jié)構(gòu)總圖。</p><p>　　車房管理系統(tǒng)通過運用VB軟件建立，窗口化設(shè)計，對洗車房各項工作的查詢，管理，更新。結(jié)構(gòu)如圖1.1所示。</p&

5、gt;<p>　　1.1洗車房管理系統(tǒng)結(jié)構(gòu)圖</p><p><b>　　2 數(shù)據(jù)庫設(shè)計</b></p><p><b>　　2.1 需求分析</b></p><p>　　洗車房的業(yè)務(wù)很簡單。來了一輛車，記錄其車型、車牌號、洗車時間、價格，在那個車位洗車。每個車位包含若干洗車員，一輛車由多個洗車員同時清洗。洗

6、車數(shù)量、車型與洗車員的工資掛鉤，所以必須準確計算每個洗車員洗車的次數(shù)和車型。必須提供復(fù)雜的查詢功能。</p><p><b>　　2.2 E-R模型</b></p><p>　　圖2.1車輛信息實體屬性</p><p>　　圖2.2車位信息實體屬性</p><p>　　圖2.3工資信息實體屬性</p>&l

7、t;p><b>　　圖2.5密碼信息</b></p><p><b>　　2.3關(guān)系模型</b></p><p>　　一個實體型轉(zhuǎn)換為一個關(guān)系模式。實體的屬性就是關(guān)系的屬性，實體的碼就是關(guān)系的碼。根據(jù)E-R圖向關(guān)系模型轉(zhuǎn)換的原則，把E-R圖轉(zhuǎn)換為關(guān)系模型。關(guān)系的碼用下橫線標出。</p><p>　　（1）車輛信息（車

8、牌號、車型信息、洗車時間、洗車價格、車位）</p><p>　?。?）車位信息（車位、洗車員1、洗車員2、洗車員3………）</p><p>　　工資信息（洗車員號碼，工資，總車輛數(shù)，大車數(shù)量，中車數(shù)量，小車數(shù)量）</p><p>　　密碼表（賬號、密碼）</p><p>　　2.4 表的結(jié)構(gòu)設(shè)計</p><p>　　在

9、SQL Server中建立四個表，分別為車輛信息，車位信息，工資信息和密碼表。</p><p>　?。?）洗車記錄表的建立與基本數(shù)據(jù)：</p><p>　　“洗車記錄表”，SQL 語句如下：</p><p>　　create table 洗車記錄 </p><p>　　(車牌號 char(10) PRIMARY KEY,</p>

10、<p>　　車型 char（10) not null,</p><p>　　洗車時間 char(10) not null,</p><p>　　價格 char(10)not null,</p><p>　　車位 smallint not null,) ;</p><p>　?。?）車位信息表的建立與基本數(shù)據(jù)：</p>

11、<p>　　“車位信息表”，SQL 語句如下：</p><p>　　create table 車位信息</p><p>　　(車位 smallint primary key,</p><p>　　洗車員1 char(10),</p><p>　　洗車員2 char(10),</p><p>　　洗車員3

12、char(10),</p><p><b>　　);</b></p><p>　　工資信息表的建立與基本數(shù)據(jù)：</p><p>　　“工資信息表”，SQL 語句如下：</p><p>　　create table 工資信息</p><p>　　(洗車員char(10) primary key,&l

13、t;/p><p>　　工資 char(10),</p><p>　　數(shù)量 char(10),</p><p>　　大 char(10),</p><p>　　中 char(10),</p><p>　　小 char(10),</p><p><b>　?。?lt;/b></p

14、><p>　?。?）系統(tǒng)信息表的建立與基本數(shù)據(jù)：</p><p>　　“密碼表”，SQL語句如下：</p><p>　　Create table 密碼表</p><p>　　(賬號 varchar(10），</p><p>　　密碼 varchar(10));</p><p>　　3 系統(tǒng)各功能模塊

15、的詳細設(shè)計</p><p>　　3.1 各窗體的設(shè)計</p><p>　　本洗車房管理系統(tǒng)共包括8個窗體，分別是歡迎界面，密碼登錄，主頁面，統(tǒng)計界面，車型車位金額，詳細信息，總收入統(tǒng)計，最佳洗車員。其中統(tǒng)計界面運用菜單編輯器進行編輯菜單，能夠分別進入不同的查詢窗口。</p><p><b>　　3.2歡迎界面</b></p>&l

16、t;p>　　歡迎界面點擊直接進入登陸界面。</p><p>　　Private Sub 進入系統(tǒng)_Click()</p><p><b>　　密碼登錄.Show</b></p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b&g

17、t;</p><p><b>　　3.3密碼登錄界面</b></p><p>　　登陸界面可以輸入賬號密碼直接進入主界面查看信息。</p><p>　　Private Sub Command1_Click()</p><p>　　Static miCount As Integer</p><p>

18、　　Dim sqlstr As String</p><p>　　sqlstr = "Select * from 密碼表 Where 賬號='" & Text1 & "'"</p><p>　　Adodc1.RecordSource = sqlstr</p><p>　　Adodc1.Refre

19、sh</p><p>　　If Adodc1.Recordset.BOF Then</p><p>　　MsgBox "賬號錯誤,請重新輸入 ", vbExclamation, "警告"</p><p>　　Text1.Text = "": Text1.SetFocus</p><p&g

20、t;<b>　　Else</b></p><p>　　If Adodc1.Recordset.Fields("密碼") = Text2.Text Then</p><p><b>　　主頁面.Show</b></p><p><b>　　Unload Me</b></p>

21、;<p><b>　　Else</b></p><p>　　MsgBox "密碼錯誤，請重新輸入 ", vbExclamation, "警告"</p><p>　　Text2.Text = "": Text2.SetFocus</p><p><b>　　End

22、 If</b></p><p><b>　　End If</b></p><p>　　miCount = miCount + 1</p><p>　　If miCount = 3 Then Unload Me</p><p><b>　　End Sub</b></p>&l

23、t;p>　　Private Sub Command2_Click()</p><p><b>　　歡迎界面.Show</b></p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p><b>　　

24、3.4主頁面</b></p><p>　　主界面可以錄入刪除信息，通過按鈕還可以移動記錄。通過查看可以進入統(tǒng)計界面。</p><p>　　Private Sub 清空_Click()</p><p>　　Text1.Text = ""</p><p>　　Text2.Text = ""<

25、;/p><p>　　Text3.Text = ""</p><p>　　Text4.Text = ""</p><p>　　Text5.Text = ""</p><p>　　首記錄.Enabled = False</p><p>　　前移.Enabled = F

26、alse</p><p>　　后移.Enabled = False</p><p>　　末記錄.Enabled = False</p><p><b>　　End Sub</b></p><p>　　Private Sub 取消_Click()</p><p>　　CmdAdd.Enabled =

27、 True</p><p>　　Del.Enabled = True</p><p><b>　　End Sub</b></p><p>　　Private Sub 確認_Click()</p><p>　　CmdAdd.Enabled = True</p><p>　　Del.Enabled =

28、 True</p><p><b>　　End Sub</b></p><p>　　Private Sub 刷新_Click()</p><p>　　Adodc1.Refresh</p><p>　　首記錄.Enabled = True</p><p>　　前移.Enabled = True<

29、;/p><p>　　后移.Enabled = True</p><p>　　末記錄.Enabled = True</p><p><b>　　End Sub</b></p><p>　　Private Sub 后移_Click()</p><p>　　Adodc1.Recordset.MoveNext

30、</p><p>　　首記錄.Enabled = True</p><p>　　前移.Enabled = True</p><p>　　If Adodc1.Recordset.EOF Then</p><p>　　Adodc1.Recordset.MoveLast</p><p>　　后移.Enabled = Fals

31、e</p><p>　　末記錄.Enabled = False</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub 前移_Click()</p><p>　　Adodc1.Recor

32、dset.MovePrevious</p><p>　　后移.Enabled = True</p><p>　　末記錄.Enabled = True</p><p>　　If Adodc1.Recordset.BOF Then</p><p>　　Adodc1.Recordset.MoveFirst</p><p>　

33、　首記錄.Enabled = False</p><p>　　前移.Enabled = False</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub 首記錄_Click()</p><

34、p>　　Adodc1.Recordset.MoveFirst</p><p>　　首記錄.Enabled = False</p><p>　　前移.Enabled = False</p><p>　　后移.Enabled = True</p><p>　　末記錄.Enabled = True</p><p>&l

35、t;b>　　End Sub</b></p><p>　　Private Sub 末記錄_Click()</p><p>　　Adodc1.Recordset.MoveLast ' 移到末記錄</p><p>　　首記錄.Enabled = True</p><p>　　前移.Enabled = True</p&

36、gt;<p>　　后移.Enabled = False</p><p>　　末記錄.Enabled = False</p><p><b>　　End Sub</b></p><p>　　Private Sub 退出當前賬戶_Click()</p><p><b>　　密碼登錄.Show</

37、b></p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p><b>　　3.5統(tǒng)計界面</b></p><p>　　統(tǒng)計界面可以分別進入總金額統(tǒng)計和詳細信息，車型車位金額，最佳洗車員。</p>

38、;<p><b>　　主頁面.Show</b></p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　Private Sub 車型車位金額_Click()</p><p>　　車型車位金額0

39、.Show</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　Private Sub 詳細信息_Click()</p><p>　　詳細信息0.Show</p><p><b>　　Unl

40、oad Me</b></p><p><b>　　End Sub</b></p><p>　　Private Sub 總收入統(tǒng)計_Click()</p><p>　　總收入統(tǒng)計0.Show</p><p><b>　　Unload Me</b></p><p>&

41、lt;b>　　End Sub</b></p><p>　　Private Sub 最佳洗車員_Click()</p><p>　　最佳洗車員0.Show</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p>

42、<p><b>　　3.6總收入統(tǒng)計</b></p><p>　　中統(tǒng)計總收入金額的代碼為：select sum(cast(價格 as bigint)) as 價格 from 洗車記錄?？梢暂斎胲嚺铺柌樵冃畔?，統(tǒng)計總價格。</p><p>　　Private Sub Command2_Click()</p><p>　　Dim st

43、r As String</p><p>　　str = "Select * From 洗車記錄 Where 車牌號= '" & Text2 & " ' "</p><p>　　Adodc1.RecordSource = str</p><p>　　Adodc1.Refresh</p>

44、<p><b>　　End Sub</b></p><p>　　Private Sub Command3_Click()</p><p>　　Dim str As String</p><p>　　str = "Select * From 洗車記錄 "</p><p>　　Adodc1.

45、RecordSource = str</p><p>　　Adodc1.Refresh</p><p><b>　　End Sub</b></p><p><b>　　3.7詳細信息</b></p><p>　　通過此頁面可以查看車位信息和洗車員的工資信息。</p><p>

46、<b>　　3.8車型車位金額</b></p><p>　　此頁面可以查看本月的洗車信息</p><p><b>　　3.9最佳洗車員</b></p><p>　　顯示數(shù)據(jù)庫中的信息直接讓其顯示洗車員的信息，文本框內(nèi)直接讓其顯示adocd1中洗車員的數(shù)據(jù)就可以了。</p><p><b>

47、　　總結(jié)</b></p><p>　　數(shù)據(jù)庫課程設(shè)計，我學(xué)會了如何利用Microsoft SQL Server2008軟件建立相關(guān)信息的數(shù)據(jù)庫，并通過Microsoft Visual Basic 6.0實現(xiàn)對相關(guān)信息的查詢，將所學(xué)知識都運用到實踐中去，增加了我對數(shù)據(jù)庫的興趣，讓我能更清楚地了解到數(shù)據(jù)庫在現(xiàn)實生活中為我們帶來的極大便利，方便我們將所需要的信息進行規(guī)劃和管理，將信息集中管理也為我們查詢我們

48、所需要的信息帶來了簡易的途經(jīng)。</p><p>　　最后，感謝數(shù)據(jù)庫課程設(shè)計老師對我們耐心的教導(dǎo)和幫助，為我們解決了許多在課堂上沒弄懂的問題，讓我們對數(shù)據(jù)庫有了更進一步的認識和了解。今后我會更加努力學(xué)習數(shù)據(jù)庫的相關(guān)知識，相信能為我以后帶來很大的幫助。</p><p><b>　　參考文獻</b></p><p>　　[1] 王珊 .數(shù)據(jù)庫系統(tǒng)簡

49、明教程 . 北京 ：高等教育出版社，2004.9</p><p>　　[2] 賽奎春 .Visual Basic信息系統(tǒng)開發(fā)實例精選 . 北京 ：高等教育出版社，2004.9</p><p>　　[3] 劉韜、何旭洪主編.Visual BASIC數(shù)據(jù)庫系統(tǒng)開發(fā)實例導(dǎo)航 .人民郵電出版社</p><p>　　[4]薩石煊 王珊 數(shù)據(jù)庫系統(tǒng)概論. 高等教育出版社 200