停車場客戶信息管理系統(tǒng)

1、數(shù)據(jù)庫論文停車場信息管理系統(tǒng)院（系）：惠州學(xué)院電子科學(xué)系專業(yè)：課程名稱：數(shù)據(jù)庫技術(shù)與應(yīng)用姓名：學(xué)號：停車場客戶信息管理系統(tǒng)引言隨著汽車工業(yè)的迅猛發(fā)展，我國汽車擁有量急劇增加。停車場作為交通設(shè)施的組成部分，隨著交通運(yùn)輸?shù)姆泵筒粩喟l(fā)展，人們對其管理的要求也不斷提高，都希望管理能夠達(dá)到方便、快捷以及安全的效果。停車場的規(guī)模各不相同，對其進(jìn)行管理的模式也有不同之處，管理者需要根據(jù)自身的條件，選擇應(yīng)用經(jīng)濟(jì)、穩(wěn)定的管理程序，以免選擇了高成本的管理系統(tǒng)。本論文旨在設(shè)計(jì)一個(gè)簡潔、穩(wěn)定、實(shí)用的停車場客戶管理信息系統(tǒng)，希望在容錯(cuò)性、實(shí)用性、易操作性等方面具有自己的特色，并且保持一定的可擴(kuò)展性，以滿足小型停車場的

2、信息管理需求。1.系統(tǒng)需求分析小型停車場需要簡便短期的管理客戶信息系統(tǒng)，需要車主信息查詢功能和系統(tǒng)管理功能。2.系統(tǒng)設(shè)計(jì)A.客服端系統(tǒng)設(shè)計(jì)動(dòng)漫信息管理系統(tǒng)客戶端的基本結(jié)構(gòu)如圖所示。該系統(tǒng)實(shí)現(xiàn)的功能較簡單，主要實(shí)現(xiàn)對動(dòng)漫信息的添加，修改，刪除，查詢功能，所以包括以下界面。系統(tǒng)登錄界面：負(fù)責(zé)程序的安全，使有合法身份的用戶才能登錄；PrivateSubCommand1_Click()DimsqlAsStringDimmrcAsADODB.RecordsetDimmsgAsStringIfText1.Text=ThenMsgBox請輸入用戶名！,vbOKOnly,提示Elsesql=select*fr

3、om用戶信息表where用戶名=&Text1.Text&Setmrc=ExecuteSQL(sql,msg)Ifmrc.EOFThenMsgBox沒有這個(gè)用戶,vbOKOnly,提示Text1.SetFocusElseIfTrim(mrc.Fields(密碼)=Trim(Text2.Text)ThenUSER=Trim(Text1.Text)A=mrc權(quán)限等級管理系統(tǒng).ShowUnloadMeElseMsgBox輸入密碼不正確！請重新輸入,vbOKOnly,提示Text2.SetFocusEndIfEndIfEndIfEndSubPrivateSubC2_Click()EndEndSubPri

4、vateSubText1_Change()EndSub用戶管理界面：管理員才可以進(jìn)入的界面，可以添加刪除用戶PrivateSubCommand1_Click()DimjAsStringDimsqlAsStringDimsAsStringDimlAsADODB.RecordsetIfText1.Text=ThenMsgBox請輸入用戶名,48,提示ExitSubEndIfIfText2.Text=ThenMsgBox請輸入密碼,48,提示ExitSubEndIfIfText3.Text=ThenMsgBox請確認(rèn)密碼,48,提示ExitSubEndIfIfTrim(Text2.Text)Trim

5、(Text3.Text)ThenMsgBox密碼輸入不一致！,vbOKOnly,警告ExitSubEndIfIfCombo1.Text=ThenMsgBox請選擇權(quán)限,48,提示ExitSubEndIfIfCombo1.Text=管理員Thenj=1Elsej=2EndIfsql=select*from用戶信息表where用戶名=&Text1.Text&Setl=ExecuteSQL(sql,s)Ifl.EOF=FalseThenMsgBox編號重復(fù),48,提示l.CloseText1.SetFocusExitSubElsel.AddNewl.Fields(”用戶名)=Trim(Textl.T

6、ext)l.Fields(”密碼)=Trim(Text2.Text)l.Fields(”權(quán)限)=Trim(Combol.Text)l.Fields(權(quán)限等級)=jl.UpdateMsgBox添加成功,48,提示l.CloseTextl.Text=Text2.Text=Text3.Text=EndIfEndSubPrivateSubCommand4_Click()UnloadMeEndSubPrivateSubForm_Load()Combo1.AddItem管理員Combo1.AddItem一般用戶EndSubPrivateSubText1_Change()確認(rèn)密碼確認(rèn)修改密碼：EndSub修

7、改密碼界面：用戶可以修改自己的密碼退出PrivateSubCommand1_Click()DimsqlAsStringDimmAsStringDimmrcAsADODB.RecordsetIfText1.Text=ThenMsgBox請輸入新密碼,vbOKOnly,警告T1.SetFocusExitSubEndIfIfText2.Text=ThenMsgBox請輸入確認(rèn)密碼,vbOKOnly,警告Text2.SetFocusExitSubEndIfIfTrim(Text1.Text)Trim(Text2.Text)ThenMsgBox密碼輸入不一致！,vbOKOnly,警告Elsesql=se

8、lect*from用戶信息表where用戶名=&USER&Setmrc=ExecuteSQL(sql,m)Ifmrc.EOFThenMsgBox沒有這個(gè)用戶,vbOKOnly,提示EndIfmrc.Fields(”密碼)=Trim(Textl.Text)mrc.Updatemrc.CloseMsgBox修改密碼成功,48,修改密碼Textl.Text=Text2.Text=EndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubTextl_Change()EndSub信息修改界面：可以數(shù)據(jù)實(shí)現(xiàn)修改；1查看姓名修改退出kJ性別車牌

9、號聯(lián)系電話PrivateSubCommand1_Click（）DimsqlAsStringDimmAsStringDimmrcAsADODB.RecordsetIfText4.Text=ThenMsgBox請輸入車牌號,vbOKOnly,警告Text4.SetFocusExitSubEndIfsql=select*from客戶信息表where車牌號=&Text4.Text&Setmrc=ExecuteSQL（sql,m）Ifmrc.EOFThenMsgBox沒有這個(gè)車牌號,vbOKOnly,提示Text4.SetFocusElseTextl.Text=mrc.Fields（姓名”）Text2.

10、Text=mrc.Fields（性別）Text3.Text=mrc.Fields（聯(lián)系電話）mrc.CloseCommand2.Visible=TrueEndIfEndSubPrivateSubCommand2_Click()DimsqlAsStringDimmAsStringDimmrcAsADODB.RecordsetIfText4.Text=ThenMsgBox請輸入車牌號,vbOKOnly,警告Text4.SetFocusExitSubEndIfIfText1.Text=ThenMsgBox請輸入新密碼,vbOKOnly,警告Text1.SetFocusExitSubEndIfIfTe

11、xt2.Text=ThenMsgBox請輸入確認(rèn)密碼,vbOKOnly,警告Text2.SetFocusExitSubEndIfIfText3.Text=ThenMsgBox請輸入新密碼,vbOKOnly,警告Text3.SetFocusExitSubEndIfsql=select*from客戶信息表where車牌號=&Text4.Text&Setmrc=ExecuteSQL(sql,m)Ifmrc.EOFThenMsgBox沒有這個(gè)車牌號,vbOKOnly,提示Text4.SetFocusElsemrc.Fields(”姓名)=Trim(Textl.Text)mrc.Fields(”性別)=

12、Trim(Text2.Text)mrc.Fields(聯(lián)系電話)=Trim(Text3.Text)mrc.Updatemrc.CloseMsgBox修改成功,48,修改密碼EndIfEndSubPrivateSubCommand3_Click()UnloadMeEndSubPrivateSubText4_Change()EndSub信息查詢界面：通過車牌號或者姓名實(shí)現(xiàn)對已有的信息的查詢操作；PrivateSubCommandl_Click()IfOption1ThenText2.Text=Adodc1.RecordSource=select*from客戶信息表where姓名=&Text1.Te

13、xt&Adodc1.RefreshDataGrid1.Visible=TrueEndIfIfOption2ThenText1.Text=Adodc1.RecordSource=select*from客戶信息表where車牌號=&Text2.Text&Adodc1.RefreshDataGrid1.Visible=TrueEndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubOption1_Click()Text2.Text=EndSubPrivateSubOption2_Click()Text1.Text=EndSubPriv

14、ateSubText1_Change()EndSub信息添加界面：可以數(shù)據(jù)實(shí)現(xiàn)添加姓名性別I車牌號添加退出聯(lián)系電話PrivateSubCommand2_Click()DimsqlAsStringDimmAsStringDimmrcAsADODB.RecordsetIfText1.Text=ThenMsgBox請輸入姓名,vbOKOnly,警告Text1.SetFocusExitSubEndIfIfText2.Text=ThenMsgBox請輸入性別,vbOKOnly,警告Text2.SetFocusExitSubEndIfIfText3.Text=ThenMsgBox請輸入聯(lián)系電話,vbOKO

15、nly,警告Text3.SetFocusExitSubEndIfIfText4.Text=ThenMsgBox請輸入車牌號,vbOKOnly,警告Text4.SetFocusExitSubEndIfsql=select*from客戶信息表where車牌號=&Text4.Text&Setmrc=ExecuteSQL(sql,m)Ifmrc.EOF=FalseThenMsgBox該車牌號已存在,vbOKOnly,提示Text4.SetFocusExitSubElsemrc.AddNewmrc.Fields(”姓名)=Trim(Textl.Text)mrc.Fields(”性別)=Trim(Text

16、2.Text)mrc.Fields(聯(lián)系電話)=Trim(Text3.Text)mrc.Fields(車牌號)=Trim(Text4.Text)mrc.Updatemrc.CloseMsgBox添加成功,48,提示Textl.Text=Text2.Text=Text3.Text=Text4.Text=EndIfEndSubPrivateSubCommand3_Click()UnloadMeEndSubPrivateSubTextl_Change()EndSub信息刪除界面：可以數(shù)據(jù)實(shí)現(xiàn)刪除PrivateSubCommand1_Click()Adodc1.Recordset.MovePrevio

17、usIfAdodc1.Recordset.BOFThenAdodc1.Recordset.MoveFirstMsgBox已經(jīng)是第一條記錄,48,提示EndIfEndSubPrivateSubCommand2_Click(IndexAsInteger)UnloadMeEndSubPrivateSubCommand3_Click()Adodc1.Recordset.DeleteMsgBox當(dāng)前記錄已刪除,48,提示Adodc1.Recordset.MoveFirstEndSubPrivateSubCommand4_Click()Adodc1.Recordset.MoveFirstEndSubPri

18、vateSubCommand5_Click()Adodc1.Recordset.MoveNextIfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLastMsgBox已經(jīng)是最后一條記錄,48,提示EndIfEndSubPrivateSubCommand9_Click(IndexAsInteger)Adodc1.Recordset.MoveLastEndSubPrivateSubText2_Change()EndSub退出界面：退出系統(tǒng)。B.服務(wù)器端設(shè)計(jì)（1）.數(shù)據(jù)信息分析與采集根據(jù)前面的系統(tǒng)功能分析可知，該系統(tǒng)的數(shù)據(jù)來源主要是動(dòng)漫及用戶信息也可以確定本系統(tǒng)需要兩個(gè)基本數(shù)據(jù)表，即信息表，用戶表。（2）.創(chuàng)建數(shù)據(jù)庫與數(shù)據(jù)表服務(wù)器端數(shù)據(jù)處理通過SQLServer來實(shí)現(xiàn)的，因此需通過SQLServer來創(chuàng)建數(shù)據(jù)庫和數(shù)據(jù)表。用SQL創(chuàng)建數(shù)據(jù)庫，并創(chuàng)建用戶表和信息表，具體步驟省略。設(shè)計(jì)表“客戶信息表”，位置是“停車場”中、1列名數(shù)據(jù)類型長度允許空姓名nv：di-i：h：=Lf50性別nvar匚har50聯(lián)系電話nv：tch：f50車牌號nvar匚har50列1懇設(shè)計(jì)表“用戶倍息表”，童置是“停車場中、-(LOC列名數(shù)據(jù)