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

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

2、的數(shù)據(jù)源與系統(tǒng)數(shù)據(jù)庫(kù)相連。利用VB軟件對(duì)系統(tǒng)的窗口進(jìn)行設(shè)計(jì)，包括歡迎界面、登陸界面、主菜單界面、瀏覽窗體和查詢窗體等，可以通過這些窗體進(jìn)行登陸操作，對(duì)輸入的用戶信息進(jìn)行驗(yàn)證，以及最重要的操作是對(duì)數(shù)據(jù)庫(kù)中信息進(jìn)行瀏覽與查詢。并可以對(duì)數(shù)據(jù)進(jìn)行添加與刪除，做到及時(shí)更新。還包括查詢功能統(tǒng)計(jì)一個(gè)月的收入金額。列出本月洗車的詳細(xì)情況，按車型，車位分別統(tǒng)計(jì)收入金額。評(pí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>　?。?）車位信息的管理與查詢。</p>&l

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

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

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

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

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

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

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

11、<p>　　“車位信息表”，SQL 語(yǔ)句如下：</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 語(yǔ)句如下：</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>　?。?；</b></p

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

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

16、t;p>　　歡迎界面點(diǎn)擊直接進(jìn)入登陸界面。</p><p>　　Private Sub 進(jìn)入系統(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>　　登陸界面可以輸入賬號(hào)密碼直接進(jìn)入主界面查看信息。</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 賬號(hào)='" & Text1 & "'"</p><p>　　Adodc1.RecordSource = sqlstr</p><p>　　Adodc1.Refre

19、sh</p><p>　　If Adodc1.Recordset.BOF Then</p><p>　　MsgBox "賬號(hào)錯(cuò)誤,請(qǐng)重新輸入 ", 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>　　主頁(yè)面.Show</b></p><p><b>　　Unload Me</b></p>

21、;<p><b>　　Else</b></p><p>　　MsgBox "密碼錯(cuò)誤，請(qǐng)重新輸入 ", 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主頁(yè)面</b></p><p>　　主界面可以錄入刪除信息，通過按鈕還可以移動(dòng)記錄。通過查看可以進(jìn)入統(tǒng)計(jì)界面。</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 確認(rèn)_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 退出當(dāng)前賬戶_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)計(jì)界面</b></p><p>　　統(tǒng)計(jì)界面可以分別進(jìn)入總金額統(tǒng)計(jì)和詳細(xì)信息，車型車位金額，最佳洗車員。</p>

38、;<p><b>　　主頁(yè)面.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 詳細(xì)信息_Click()</p><p>　　詳細(xì)信息0.Show</p><p><b>　　Unl

40、oad Me</b></p><p><b>　　End Sub</b></p><p>　　Private Sub 總收入統(tǒng)計(jì)_Click()</p><p>　　總收入統(tǒng)計(jì)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)計(jì)</b></p><p>　　中統(tǒng)計(jì)總收入金額的代碼為：select sum(cast(價(jià)格 as bigint)) as 價(jià)格 from 洗車記錄?？梢暂斎胲嚺铺?hào)查詢信息，統(tǒng)計(jì)總價(jià)格。</p><p>　　Private Sub Command2_Click()</p><p>　　Dim st

43、r As String</p><p>　　str = "Select * From 洗車記錄 Where 車牌號(hào)= '" & 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詳細(xì)信息</b></p><p>　　通過此頁(yè)面可以查看車位信息和洗車員的工資信息。</p><p>

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

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

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

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