数据库系统与技术课程设计Word文档下载推荐.docx
- 文档编号:15907677
- 上传时间:2022-11-17
- 格式:DOCX
- 页数:19
- 大小:777.42KB
数据库系统与技术课程设计Word文档下载推荐.docx
《数据库系统与技术课程设计Word文档下载推荐.docx》由会员分享,可在线阅读,更多相关《数据库系统与技术课程设计Word文档下载推荐.docx(19页珍藏版)》请在冰豆网上搜索。
该管理系统可以提高汽车经销商管理公司的效率,做到汽车信息的规范管理、快速查询和科学统计,从而减少管理方面的工作量。
本小组通过收集资料与讨论,得出,汽车销售管理系统有如下功能。
能够对库存信息进行有效的管理。
汽车销售中库存信息很重要,通过本系统能有效的对每次的汽车进货、退货进行管理,并且能进行存货查询。
能够对销售信息进行有效的管理。
对汽车销售来说,客户信息也很重要,掌握了客户的信息,才能了解客户的需求
综合上述功能分析,可总结为如下的结构图
仓库管理
汽车销售管理系统功能表
系统数据
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
状态栏时间的变化语句
StatusBar1.Panels(3).Text=Format(Now,"
yyyy年mm月dd日hh点mm分ss秒"
)
如何实现当鼠标移动到某选项时字体变红色,离开时字体变黑色
PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
DimiAsInteger
Fori=0ToLabel1.Count-1
Label1(i).ForeColor=RGB(0,0,0)
Nexti
PrivateSubLabel2_MouseMove(IndexAsInteger,ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
Label1(Index).ForeColor=RGB(255,0,0)
PrivateSubCommand1_Click()
Dimtemp1
temp1=0
DimsqlAsString
sql="
"
IfText2.Text<
>
"
Then
Iftemp1=0Then
sql=sql+"
where"
Else
and"
EndIf
车辆编号='
+Text2.Text+"
'
temp1=temp1+1
IfText1.Text<
车辆型号='
+Text1.Text+"
IfText3.Text<
价格='
+Text3.Text+"
IfText4.Text<
库存数量='
+Text4.Text+"
select车辆编号,车辆型号,价格,库存数量from车辆信息表"
+sql+"
orderby车辆编号"
Adodc1.RecordSource=sql
Adodc1.Refresh
PrivateSubCommand10_Click()
Dimtemp1
temp1=100
IfAdodc1.Recordset.RecordCount>
0Then
Adodc1.Recordset.MoveLast
temp1=Val(Adodc1.Recordset.Fields("
车辆编号"
))+1
temp1=temp1+"
001"
Text2.Text=temp1
PrivateSubCommand11_Click()
Adodc1.Recordset.Delete
PrivateSubCommand12_Click()
UnloadMe
PrivateSubCommand3_Click()
IfAdodc2.Recordset.RecordCount>
Adodc2.Recordset.MoveLast
temp1=Val(Adodc2.Recordset.Fields("
订单号"
Text5.Text=temp1
PrivateSubCommand4_Click()
OnErrorGoToErrorHandle
IfText5="
MsgBox"
请输入订单号!
vbInformation
insertinto车辆销售表values('
&
Text5&
'
Text6&
Text7&
Text8&
Text9&
)"
cnn.Execute(sql)
update车辆信息表set库存数量=库存数量-"
where车辆编号='
Adodc2.Refresh
Text5="
ExitSub
ErrorHandle:
MsgBox"
车辆销售信息输入有误,请检查订单号是否重复!
PrivateSubCommand5_Click()
Adodc2.Recordset.Delete
PrivateSubCommand6_Click()
UnloadMe
PrivateSubCommand7_Click()
Text5.Text="
Text6.Text="
Text7.Text="
Text8.Text="
Text9.Text="
PrivateSubCommand2_Click()
IfText5.Text<
订单号='
+Text5.Text+"
IfText6.Text<
车辆编号='
+Text6.Text+"
IfText7.Text<
客户编号='
+Text7.Text+"
IfText8.Text<
车牌号='
+Text8.Text+"
IfText9.Text<
销售数量='
+Text9.Text+"
select订单号,车辆编号,客户编号,车牌号,销售数量from车辆销售表"
orderby订单号"
Adodc2.RecordSource=sql
Adodc2
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 数据库 系统 技术 课程设计