停车场客户信息管理系统

1、数据库论文停车场信息管理系统院（系）：惠州学院电子科学系专业：课程名称：数据库技术与应用姓名：学号：停车场客户信息管理系统引言随着汽车工业的迅猛发展，我国汽车拥有量急剧增加。停车场作为交通设施的组成部分，随着交通运输的繁忙和不断发展，人们对其管理的要求也不断提高，都希望管理能够达到方便、快捷以及安全的效果。停车场的规模各不相同，对其进行管理的模式也有不同之处，管理者需要根据自身的条件，选择应用经济、稳定的管理程序，以免选择了高成本的管理系统。本论文旨在设计一个简洁、稳定、实用的停车场客户管理信息系统，希望在容错性、实用性、易操作性等方面具有自己的特色，并且保持一定的可扩展性，以满足小型停车场的

2、信息管理需求。1.系统需求分析小型停车场需要简便短期的管理客户信息系统，需要车主信息查询功能和系统管理功能。2.系统设计A.客服端系统设计动漫信息管理系统客户端的基本结构如图所示。该系统实现的功能较简单，主要实现对动漫信息的添加，修改，删除，查询功能，所以包括以下界面。系统登录界面：负责程序的安全，使有合法身份的用户才能登录；PrivateSubCommand1_Click()DimsqlAsStringDimmrcAsADODB.RecordsetDimmsgAsStringIfText1.Text=ThenMsgBox请输入用户名！,vbOKOnly,提示Elsesql=select*fr

3、om用户信息表where用户名=&Text1.Text&Setmrc=ExecuteSQL(sql,msg)Ifmrc.EOFThenMsgBox没有这个用户,vbOKOnly,提示Text1.SetFocusElseIfTrim(mrc.Fields(密码)=Trim(Text2.Text)ThenUSER=Trim(Text1.Text)A=mrc权限等级管理系统.ShowUnloadMeElseMsgBox输入密码不正确！请重新输入,vbOKOnly,提示Text2.SetFocusEndIfEndIfEndIfEndSubPrivateSubC2_Click()EndEndSubPri

4、vateSubText1_Change()EndSub用户管理界面：管理员才可以进入的界面，可以添加删除用户PrivateSubCommand1_Click()DimjAsStringDimsqlAsStringDimsAsStringDimlAsADODB.RecordsetIfText1.Text=ThenMsgBox请输入用户名,48,提示ExitSubEndIfIfText2.Text=ThenMsgBox请输入密码,48,提示ExitSubEndIfIfText3.Text=ThenMsgBox请确认密码,48,提示ExitSubEndIfIfTrim(Text2.Text)Trim

5、(Text3.Text)ThenMsgBox密码输入不一致！,vbOKOnly,警告ExitSubEndIfIfCombo1.Text=ThenMsgBox请选择权限,48,提示ExitSubEndIfIfCombo1.Text=管理员Thenj=1Elsej=2EndIfsql=select*from用户信息表where用户名=&Text1.Text&Setl=ExecuteSQL(sql,s)Ifl.EOF=FalseThenMsgBox编号重复,48,提示l.CloseText1.SetFocusExitSubElsel.AddNewl.Fields(”用户名)=Trim(Textl.T

6、ext)l.Fields(”密码)=Trim(Text2.Text)l.Fields(”权限)=Trim(Combol.Text)l.Fields(权限等级)=jl.UpdateMsgBox添加成功,48,提示l.CloseTextl.Text=Text2.Text=Text3.Text=EndIfEndSubPrivateSubCommand4_Click()UnloadMeEndSubPrivateSubForm_Load()Combo1.AddItem管理员Combo1.AddItem一般用户EndSubPrivateSubText1_Change()确认密码确认修改密码：EndSub修

7、改密码界面：用户可以修改自己的密码退出PrivateSubCommand1_Click()DimsqlAsStringDimmAsStringDimmrcAsADODB.RecordsetIfText1.Text=ThenMsgBox请输入新密码,vbOKOnly,警告T1.SetFocusExitSubEndIfIfText2.Text=ThenMsgBox请输入确认密码,vbOKOnly,警告Text2.SetFocusExitSubEndIfIfTrim(Text1.Text)Trim(Text2.Text)ThenMsgBox密码输入不一致！,vbOKOnly,警告Elsesql=se

8、lect*from用户信息表where用户名=&USER&Setmrc=ExecuteSQL(sql,m)Ifmrc.EOFThenMsgBox没有这个用户,vbOKOnly,提示EndIfmrc.Fields(”密码)=Trim(Textl.Text)mrc.Updatemrc.CloseMsgBox修改密码成功,48,修改密码Textl.Text=Text2.Text=EndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSubPrivateSubTextl_Change()EndSub信息修改界面：可以数据实现修改；1查看姓名修改退出kJ性别车牌

9、号联系电话PrivateSubCommand1_Click（）DimsqlAsStringDimmAsStringDimmrcAsADODB.RecordsetIfText4.Text=ThenMsgBox请输入车牌号,vbOKOnly,警告Text4.SetFocusExitSubEndIfsql=select*from客户信息表where车牌号=&Text4.Text&Setmrc=ExecuteSQL（sql,m）Ifmrc.EOFThenMsgBox没有这个车牌号,vbOKOnly,提示Text4.SetFocusElseTextl.Text=mrc.Fields（姓名”）Text2.

10、Text=mrc.Fields（性别）Text3.Text=mrc.Fields（联系电话）mrc.CloseCommand2.Visible=TrueEndIfEndSubPrivateSubCommand2_Click()DimsqlAsStringDimmAsStringDimmrcAsADODB.RecordsetIfText4.Text=ThenMsgBox请输入车牌号,vbOKOnly,警告Text4.SetFocusExitSubEndIfIfText1.Text=ThenMsgBox请输入新密码,vbOKOnly,警告Text1.SetFocusExitSubEndIfIfTe

11、xt2.Text=ThenMsgBox请输入确认密码,vbOKOnly,警告Text2.SetFocusExitSubEndIfIfText3.Text=ThenMsgBox请输入新密码,vbOKOnly,警告Text3.SetFocusExitSubEndIfsql=select*from客户信息表where车牌号=&Text4.Text&Setmrc=ExecuteSQL(sql,m)Ifmrc.EOFThenMsgBox没有这个车牌号,vbOKOnly,提示Text4.SetFocusElsemrc.Fields(”姓名)=Trim(Textl.Text)mrc.Fields(”性别)=

12、Trim(Text2.Text)mrc.Fields(联系电话)=Trim(Text3.Text)mrc.Updatemrc.CloseMsgBox修改成功,48,修改密码EndIfEndSubPrivateSubCommand3_Click()UnloadMeEndSubPrivateSubText4_Change()EndSub信息查询界面：通过车牌号或者姓名实现对已有的信息的查询操作；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信息添加界面：可以数据实现添加姓名性别I车牌号添加退出联系电话PrivateSubCommand2_Click()DimsqlAsStringDimmAsStringDimmrcAsADODB.RecordsetIfText1.Text=ThenMsgBox请输入姓名,vbOKOnly,警告Text1.SetFocusExitSubEndIfIfText2.Text=ThenMsgBox请输入性别,vbOKOnly,警告Text2.SetFocusExitSubEndIfIfText3.Text=ThenMsgBox请输入联系电话,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(联系电话)=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信息删除界面：可以数据实现删除PrivateSubCommand1_Click()Adodc1.Recordset.MovePrevio

17、usIfAdodc1.Recordset.BOFThenAdodc1.Recordset.MoveFirstMsgBox已经是第一条记录,48,提示EndIfEndSubPrivateSubCommand2_Click(IndexAsInteger)UnloadMeEndSubPrivateSubCommand3_Click()Adodc1.Recordset.DeleteMsgBox当前记录已删除,48,提示Adodc1.Recordset.MoveFirstEndSubPrivateSubCommand4_Click()Adodc1.Recordset.MoveFirstEndSubPri

18、vateSubCommand5_Click()Adodc1.Recordset.MoveNextIfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLastMsgBox已经是最后一条记录,48,提示EndIfEndSubPrivateSubCommand9_Click(IndexAsInteger)Adodc1.Recordset.MoveLastEndSubPrivateSubText2_Change()EndSub退出界面：退出系统。B.服务器端设计（1）.数据信息分析与采集根据前面的系统功能分析可知，该系统的数据来源主要是动漫及用户信息也可以确定本系统需要两个基本数据表，即信息表，用户表。（2）.创建数据库与数据表服务器端数据处理通过SQLServer来实现的，因此需通过SQLServer来创建数据库和数据表。用SQL创建数据库，并创建用户表和信息表，具体步骤省略。设计表“客户信息表”，位置是“停车场”中、1列名数据类型长度允许空姓名nv：di-i：h：=Lf50性别nvar匚har50联系电话nv：tch：f50车牌号nvar匚har50列1恳设计表“用户倍息表”，童置是“停车场中、-(LOC列名数据