数据库实训轿车销售管理系统文档格式.docx
- 文档编号:18285053
- 上传时间:2022-12-15
- 格式:DOCX
- 页数:39
- 大小:1.08MB
数据库实训轿车销售管理系统文档格式.docx
《数据库实训轿车销售管理系统文档格式.docx》由会员分享,可在线阅读,更多相关《数据库实训轿车销售管理系统文档格式.docx(39页珍藏版)》请在冰豆网上搜索。
用E-R图描述本系统的数据库设计。
三、数据库设计
1.数据库设计
创建“轿车销售管理系统”数据库,库名为CarSaleSys,其中数据文件初始大小为1MB,最大大小不受限制,允许数据库自动增长,增长方式是按10%增长;
日志文件初始大小为1MB,最大大小不受限制,增长方式是按10%增长。
CarSaleSys系统中包含5个数据库表:
用户信息表Users、用户类型表UserType、轿车信息表Car、客户信息表Customer、员工信息表Staff。
2.数据库表设计
数据库中各表的结构分别如下:
(1)Users表
字段名称
数据类型
是否允许空值
约束
说明
User_name
varchar(10)
×
主键
用户名
User_pwd
varchar(20)
用户密码
User_type
smallint
外键
用户等级
(2)UserType表
(限制用户权限)
Type_discription
varchar(50)
唯一值
类型描述
(3)Car表
Car_id
int
轿车编号
Car_name
轿车型号
Car_brand
轿车品牌
Car_price
轿车价格
Car_time
轿车保修期
Car_info
varchar(100)
√
轿车具体描述
(4)Customer表
Customer_id
客户编号
Customer_name
客户姓名
Customer_sex
varchar
(2)
客户性别
Customer_age
客户年龄
Customer_occup
客户职业
Customer_num
身份证号
Customer_tel
varhcar(10)
客户电话
Customer_addr
客户住址
Buy_car
购车型号
Buy_price
购车价格
Info
备注
(客户的其他信息)
(5)Staff表
Staff_if
员工编号
Staff_name
员工姓名
Staff_sex
员工性别
Staff_birth
datetime(8)
员中生日
Staff_intime
进入公司时间
Staff_depart
所在部门
Staff_title
员工职务
Staff_tel
员工电话
Staff_addr
员工住址
3.数据库表内容
数据库中各表的数据内容分别如下:
四、VB开发设计
一)登录界面设计
1.程序界面
当系统运行时,首先启动轿车销售管理登录界面Frm_login。
设置多窗体的启动窗体为Frm_login。
程序运行界面如下,根据运行界面添加相应控件及进行相应属性的设置。
注意:
添加一个Adodc1,设置Adodc控件的ConnectionString属性,在属性页中选择“使用ODBC数据源名称”。
2.登陆界面代码
PublicPasswordKeyAsString
PublicnamekeyAsString
Publictry_timesAsInteger
PrivateSubcmd_Yes_Click()
DimjAsSingle
IftxtUname="
"
Then
MsgBox"
请输入用户名"
txtUname.SetFocus
ExitSub
EndIf
IftxtUpwd="
请输入密码"
txtUpwd.SetFocus
namekey=Trim(txtUname.Text)
PasswordKey=Trim(txtUpwd.Text)
Adodc1.RecordSource="
select*fromUserswhereUser_name='
+namekey+"
'
Adodc1.Refresh
IfAdodc1.Recordset.EOF=TrueThen
用户不存在"
try_times=try_times+1
Iftry_times>
=3Then
您已经三次尝试进入本系统,均不成功,系统将关闭"
Else
IfPasswordKey<
>
Adodc1.Recordset.Fields
(1)Then
密码错误"
IfAdodc1.Recordset.Fields
(2)=1Then
frm_Main.Menu_addcar.Enabled=False
frm_Main.Menu_addcus.Enabled=False
frm_Main.Menu_addemp.Enabled=False
frm_Main.Menu_adduser.Enabled=False
frm_edit_car.cmdChange=False
frm_edit_car.cmdDel=False
frm_edit_cus.cmdChange=False
frm_edit_cus.cmdDel=False
Frm_edit_emp.cmdChange=False
Frm_edit_emp.cmdDel=False
frm_Main.Menu_edit_user.Enabled=False
ElseIfAdodc1.Recordset.Fields
(2)<
0Then
MsgBox("
用户类型错误"
)
UnloadMe
frm_Main.Show
EndSub
(2)轿车销售管理系统的主界面
主界面具体设置如下表:
主菜单及下级子菜单属性设置,然后添加对应的窗体,修改窗体名称属性。
级别
菜单
名称
单击链接窗口
主菜单
系统用户管理
MenuUser
子菜单
添加用户
Menu_adduser
Frm_adduser.show
查看/修改密码
Menu_edit_user
Frm_edit_user.show
轿车信息管理
Menu_carinfo
查看轿车信息
Menu_quecar
Frm_quecar.show
修改/删除轿车信息
Menu_edit_car
Frm_edit_car.show
增加轿车信息
Menu_addcar
Frm_addcar.show
客户信息管理
Menu_customerinfo
查看客户信息
Menu_quecus
Frm_quecus.show
修改/删除客户信息
Menu_edit_cus
Frm_edit_cus.show
增加客户信息
Menu_addcus
Frm_addcus.show
员工信息管理
Menu_employeeinfo
查看员工信息
Menu_queemp
Frm_queemp.show
修改/删除员工信息
Menu_modiemp
Frm_edit_emp.show
增加员工信息
Menu_addemp
Frm_addemp.show
退出系统
Menu_exit
2.主要代码:
PrivateSubMenu_addcar_Click()
Frm_addcar.Show
PrivateSubMenu_addcus_Click()
Frm_addcus.Show
PrivateSubMenu_addemp_Click()
Frm_addemp.Show
PrivateSubMenu_adduser_Click()
Frm_adduser.Show
PrivateSubMenu_edit_car_Click()
Frm_edit_car.Show
PrivateSubMenu_edit_cus_Click()
Frm_edit_cus.Show
PrivateSubMenu_edit_use_Click()
Frm_edit_user.Show
PrivateSubMenu_modiemp_Click()
Frm_edit_emp.Show
PrivateSubMenu_quecar_Click()
Frm_quecar.Show
PrivateSubMenu_quecus_Click()
Frm_quecus.Show
PrivateSubMenu_queemp_Click()
Frm_queemp.Show
(三)系统用户管理功能
1.添加用户窗体
在轿车销售管理系统的主界面中,单击“添加用户”选项,启动frm_adduser.show,进入“添加用户”界面,如下所示:
单击“取消”按钮,将触发cmd_cancel_click事件,不保存输入文本框的内容而直接返回到主界面。
单击“确定”按钮,将触发cmd_ok_click事件,把输入的用户信息添加到SQLServer对应的数据库表中。
具体代码如下:
主要代码:
PrivateSubcmdYes_Click()
DimusertypeAsInteger
数据有效性检查
IftxtUname="
EndIf
Adodc1.RecordSource="
+Trim(txtUname.Text)+"
Adodc1.Refresh
IfAdodc1.Recordset.EOF=FalseThen
已经有此用户,请重新输入"
Else
IftxtURpwd="
请确认密码"
txtURpwd.SetFocus
ElseIftxtURpwd.Text<
txtUpwd.TextThen
密码不一致"
IfOption1=TrueThen
usertype=0
ElseIfOption2=TrueThen
usertype=1
请选择用户类型"
IfLen(txtUpwd)<
6Then
密码长度不能小于6"
txtUpwd.SelStart=0
txtUpwd.SelLength=Len(txtUpwd)
'
添加新用户
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields(0).Value=Trim(txtUname.Text)
Adodc1.Recordset.Fields
(1).Value=Trim(txtUpwd.Text)
Adodc1.Recordset.Fields
(2).Value=usertype
Adodc1.Recordset.Update
用户增加成功"
Endif
2.“查看/修改密码”窗体
单击“查看/修改密码”选项,启动Frm_edit_User.show,进入“用户列表”界面,如下图所示。
下面的Form_Load()事件代码,是在窗体加载时用代码连接数据库,不用设置Adodc控件的ConnectionString属性。
可以添加一个模块,在模块中定义一个连接字符串函数,然后在Form_Load()事件中调用连接函数conStr。
后面涉及Adodc控件的连接都可以用一行代码“Adodc1.ConnectionString=cnStr”调用在模块中已经定义的连接字符串函数。
PrivateSubCmd_del_Click()
DimusernameAsString
请选择记录"
通过Adodc1.Recordset.Fields()读取Adodc1记录源中的当前数据
username=Adodc1.Recordset.Fields(0)
询问用户是否确认删除
IfMsgBox("
是否删除当前行?
vbYesNo,"
确认"
)=vbYesThen
Select*FromUsersWhereUser_name='
+username+"
Adodc1.Recordset.Delete
刷新DataGrid表格的内容
SELECTu.User_name,u.User_Pwd,t.Type_discriptionAsUser_discFROMUsersu,UserTypetWheret.User_type=u.User_type"
PrivateSubCmd_modi_Click()
IfAdodc1.Recordset.EOF=TrueThen
Frm_modiuser.oldPwd=Adodc1.Recordset.Fields
(1)
Frm_modiuser.username=Adodc1.Recordset.Fields(0)
Frm_modiuser.Show
PrivateSubForm_Load()
DimiAsInteger
修改密码界面如下:
修改密码代码如下:
DimcnnAsADODB.Connection
DimrsAsADODB.Recordset
cnn.ConnectionString="
Provider=SQLOLEDB.1;
IntegratedSecurity=SSPI;
PersistSecurityInfo=False;
InitialCatalog=CarSaleSys;
DataSource=(local)"
cnn.ConnectionString=MStr()
cnn.Open
Setrs=cnn.Execute("
selectcount(*)fromUserswhereUser_name='
andUser_pwd='
+Trim(txtOldpwd.Text)+"
"
IftxtUname.Text="
IftxtOldpwd.Text="
请输入旧密码"
IftxtNpwd.Text="
请输入新密码"
IftxtRpwd.Text="
请确认新密码"
IftxtRpwd.Text<
txtNpwd.TextThen
新密码与确认密码不正确"
Ifrs.EOFThen
请确认用户名,密码"
updateUserssetUser_pwd='
+Trim(txtNpwd.Text)+"
whereUser_name='
IfNotrs.EOFThen
数据更新成功"
未知错误"
EndIf
(四)轿车信息管理功能
1.轿车信息查询
(1)程序运行界面
(2)主要代码
Iftxtxinghao.Text<
selectCar_name,Car_brand,Car_price,Car_time,Car_infofromCarwhereCar_namelike'
%"
+Trim(txtxinghao.Text)+"
%'
IfOption2=TrueThen
Iftxtpinpai.Text<
selectCar_name,Car_brand,Car_pri
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 数据库 轿车 销售 管理 系统
![提示](https://static.bdocx.com/images/bang_tan.gif)