数据库系统与技术课程设计.docx
《数据库系统与技术课程设计.docx》由会员分享，可在线阅读，更多相关《数据库系统与技术课程设计.docx（21页珍藏版）》请在冰点文库上搜索。
数据库系统与技术课程设计
数据库系统与技术课程设计
题目名称：
汽车销售管理系统
学院：
土木工程学院
班级:
交运C13
姓名:
高瑞137137
设计背景
本报告介绍了一个使用SQLServer2000为后台，VB6.0为前台开发工具，使用数据库连接技术实现前台与后台数据库的连接。
整个设计过程通过小组全体成员分工合作完成。
该系统用于汽车销售管理的数据管理系统。
该系统能够实现对库存信息、车型信息、客户信息、车辆销售情况等功能管理，即对这些信息进行输入、输出、查询、添加、删除等基本功能。
系统功能
该管理系统可以提高汽车经销商管理公司的效率，做到汽车信息的规范管理、快速查询和科学统计，从而减少管理方面的工作量。
本小组通过收集资料与讨论，得出，汽车销售管理系统有如下功能。
能够对库存信息进行有效的管理。
汽车销售中库存信息很重要，通过本系统能有效的对每次的汽车进货、退货进行管理，并且能进行存货查询。
能够对销售信息进行有效的管理。
对汽车销售来说，客户信息也很重要，掌握了客户的信息，才能了解客户的需求
综合上述功能分析，可总结为如下的结构图
仓库管理
汽车销售管理系统功能表
系统数据
1.客户基本表
2.车辆信息表
3.车辆销售表
4.登陆界面
5.主界面
6.车辆信息管理
7.客户信息管理
8.均可实现增、删、改、查
9.状态栏的设计
登录界面字体闪烁效果
PrivateSubTimer1_Timer（）
Label3.Left=Label1.Left+100
IfLabel3.Left>=Me.ScaleWidthThenLabel3.Left=-Label3.Width
Label3.ForeColor=RGB（Rnd*256,Rnd*256,Rnd*256）
Label4.Left=Label1.Left+100
IfLabel4.Left>=Me.ScaleWidthThenLabel4.Left=-Label4.Width
Label4.ForeColor=RGB（Rnd*256,Rnd*256,Rnd*256）
EndSub
状态栏时间的变化语句
PrivateSubTimer1_Timer（）
StatusBar1.Panels（3）.Text=Format（Now,"yyyy年mm月dd日hh点mm分ss秒"）
EndSub
如何实现当鼠标移动到某选项时字体变红色，离开时字体变黑色
PrivateSubForm_MouseMove（ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
DimiAsInteger
Fori=0ToLabel1.Count-1
Label1（i）.ForeColor=RGB（0,0,0）
Nexti
EndSub
PrivateSubLabel2_MouseMove（IndexAsInteger,ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle）
Label1（Index）.ForeColor=RGB（255,0,0）
EndSub
PrivateSubCommand1_Click（）
Dimtemp1
temp1=0
DimsqlAsString
sql=""
IfText2.Text<>""Then
Iftemp1=0Then
sql=sql+"where"
Else
sql=sql+"and"
EndIf
sql=sql+"车辆编号='"+Text2.Text+"'"
temp1=temp1+1
EndIf
IfText1.Text<>""Then
Iftemp1=0Then
sql=sql+"where"
Else
sql=sql+"and"
EndIf
sql=sql+"车辆型号='"+Text1.Text+"'"
temp1=temp1+1
EndIf
IfText3.Text<>""Then
Iftemp1=0Then
sql=sql+"where"
Else
sql=sql+"and"
EndIf
sql=sql+"价格='"+Text3.Text+"'"
temp1=temp1+1
EndIf
IfText4.Text<>""Then
Iftemp1=0Then
sql=sql+"where"
Else
sql=sql+"and"
EndIf
sql=sql+"库存数量='"+Text4.Text+"'"
temp1=temp1+1
EndIf
sql="select车辆编号,车辆型号,价格,库存数量from车辆信息表"+sql+"orderby车辆编号"
Adodc1.RecordSource=sql
Adodc1.Refresh
EndSub
PrivateSubCommand10_Click（）
Dimtemp1
temp1=100
IfAdodc1.Recordset.RecordCount>0Then
Adodc1.Recordset.MoveLast
temp1=Val（Adodc1.Recordset.Fields（"车辆编号"））+1
Else
temp1=temp1+"001"
EndIf
Text2.Text=temp1
EndSub
PrivateSubCommand11_Click（）
Adodc1.Recordset.Delete
EndSub
PrivateSubCommand12_Click（）
UnloadMe
EndSub
PrivateSubCommand3_Click（）
Dimtemp1
temp1=100
IfAdodc2.Recordset.RecordCount>0Then
Adodc2.Recordset.MoveLast
temp1=Val（Adodc2.Recordset.Fields（"订单号"））+1
Else
temp1=temp1+"001"
EndIf
Text5.Text=temp1
EndSub
PrivateSubCommand4_Click（）
OnErrorGoToErrorHandle
IfText5=""Then
MsgBox"请输入订单号！
",vbInformation
Else
DimsqlAsString
sql="insertinto车辆销售表values（'"&Text5&"','"&Text6&"','"&Text7&"','"&Text8&"','"&Text9&"'）"
cnn.Execute（sql）
sql="update车辆信息表set库存数量=库存数量-"&Text9&"where车辆编号='"&Text6&"'"
cnn.Execute（sql）
Adodc2.Refresh
Text5=""
EndIf
ExitSub
ErrorHandle:
MsgBox"车辆销售信息输入有误，请检查订单号是否重复！
"
EndSub
PrivateSubCommand5_Click（）
Adodc2.Recordset.Delete
EndSub
PrivateSubCommand6_Click（）
UnloadMe
EndSub
PrivateSubCommand7_Click（）
Text5.Text=""
Text6.Text=""
Text7.Text=""
Text8.Text=""
Text9.Text=""
EndSub
PrivateSubCommand2_Click（）
Dimtemp1
temp1=0
DimsqlAsString
sql=""
IfText5.Text<>""Then
Iftemp1=0Then
sql=sql+"where"
Else
sql=sql+"and"
EndIf
sql=sql+"订单号='"+Text5.Text+"'"
temp1=temp1+1
EndIf
IfText6.Text<>""Then
Iftemp1=0Then
sql=sql+"where"
Else
sql=sql+"and"
EndIf
sql=sql+"车辆编号='"+Text6.Text+"'"
temp1=temp1+1
EndIf
IfText7.Text<>""Then
Iftemp1=0Then
sql=sql+"where"
Else
sql=sql+"and"
EndIf
sql=sql+"客户编号='"+Text7.Text+"'"
temp1=temp1+1
EndIf
IfText8.Text<>""Then
Iftemp1=0Then
sql=sql+"where"
Else
sql=sql+"and"
EndIf
sql=sql+"车牌号='"+Text8.Text+"'"
temp1=temp1+1
EndIf
IfText9.Text<>""Then
Iftemp1=0Then
sql=sql+"where"
Else
sql=sql+"and"
EndIf
sql=sql+"销售数量='"+Text9.Text+"'"
temp1=temp1+1
EndIf
sql="select订单号,车辆编号,客户编号,车牌号,销售数量from车辆销售表"+sql+"orderby订单号"
Adodc2.RecordSource=sql
Adodc2.Refresh
EndSub
PrivateSubCommand8_Click（）
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
EndSub
PrivateSubCommand9_Click（）
OnErrorGoToErrorHandle
IfText2=""Then
MsgBox"请输入车辆编号！
",vbInformation
Else
DimsqlAsString
sql="insertinto车辆信息表values（'"&Text2&"','"&Text1&"','"&Text3&"','"&Text4&"'）"
cnn.Execute（sql）
Adodc1.Refresh
Text2=""
EndIf
ExitSub
ErrorHandle:
MsgBox"车辆销售信息输入有误，请检查车辆编号是否重复！
"
EndSub
PrivateSubSSTab1_DblClick（）
EndSub
PrivateSubCommand1_Click（）
Dimtemp1
temp1=0
DimsqlAsString
sql=""
IfText1.Text<>""Then
Iftemp1=0Then
sql=sql+"where"
Else
sql=sql+"and"
EndIf
sql=sql+"客户编号='"+Text1.Text+"'"
temp1=temp1+1
EndIf
IfText2.Text<>""Then
Iftemp1=0Then
sql=sql+"where"
Else
sql=sql+"and"
EndIf
sql=sql+"客户姓名='"+Text2.Text+"'"
temp1=temp1+1
EndIf
IfText3.Text<>""Then
Iftemp1=0Then
sql=sql+"where"
Else
sql=sql+"and"
EndIf
sql=sql+"联系电话='"+Text3.Text+"'"
temp1=temp1+1
EndIf
IfText4.Text<>""Then
Iftemp1=0Then
sql=sql+"where"
Else
sql=sql+"and"
EndIf
sql=sql+"工作单位='"+Text4.Text+"'"
temp1=temp1+1
EndIf
sql="select*from车辆信息表"+sql+"orderby客户编号"
Adodc1.RecordSource=sql
Adodc1.Refresh
EndSub
PrivateSubCommand2_Click（）
Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""
EndSub
PrivateSubCommand3_Click（）
OnErrorGoToErrorHandle
IfText1=""Then
MsgBox"请输入客户编号！
",vbInformation
Else
DimsqlAsString
sql="insertinto客户基本表values（'"&Text1&"','"&Text2&"','"&Text3&"','"&Text4&"'）"
cnn.Execute（sql）
Adodc1.Refresh
Text1=""
EndIf
ExitSub
ErrorHandle:
MsgBox"车辆销售信息输入有误，请检查客户编号是否重复！
"
EndSub
PrivateSubCommand4_Click（）
Dimtemp1
temp1=100
IfAdodc1.Recordset.RecordCount>0Then
Adodc1.Recordset.MoveLast
temp1=Val（Adodc1.Recordset.Fields（"客户编号"））+1
Else
temp1=temp1+"001"
EndIf
Text1.Text=temp1
EndSub
PrivateSubCommand5_Click（）
Adodc1.Recordset.Delete
EndSub
PrivateSubCommand6_Click（）
UnloadMe
EndSub
PrivateSubForm_Load（）
EndSub
总结
经过一周全组同学的齐心协力，我们终于出色的完成了老师交给我们的任务。
此次课程设计，老师帮助了我们很多，在此感谢老师对我们的悉心教导。
老师对工作的负责深深地影响了我们全组成员，使我们更加努力的投入到课程设计中。
通过此次课程设计，我们更进一步掌握了《数据库系统与技术课程》的相关知识，熟悉了创建数据库管理系统的全过程熟悉掌握了数据库创建基本表、选择查询等。
本系统创建的后台数据库能够独立运行，并满足用户对库存信息、系统、销售信息和客户信息的管理需求。
通过此课程设计，复习了VB6.0程序设计语言和数据库连接的相关知识，并使用这些知识创建了用户登录窗体和汽车信息管理窗体，通过这些窗体实现与上述SQLServer的基本功能。
经过程序调试，前台系统运行良好。
这次课设我很有收获，懂得了合作的重要性，我要把这种好习惯用在以后的学习中去。
升级会员 