二手车管理系统课程设计.docx
- 文档编号:1123054
- 上传时间:2022-10-17
- 格式:DOCX
- 页数:19
- 大小:531.58KB
二手车管理系统课程设计.docx
《二手车管理系统课程设计.docx》由会员分享,可在线阅读,更多相关《二手车管理系统课程设计.docx(19页珍藏版)》请在冰豆网上搜索。
二手车管理系统课程设计
课程设计报告
管理信息系统
项目名称:
龙信二手车管理系统
专业:
信息管理与信息系统
2012年1月6日
一.龙信二手车管理系统需求分析
1.系统目标
(1).为神龙公司标致品牌经销商提供管理二手车相关业务的信息系统
(2).该系统能够规范、管理经销商针对二手车进行收购、置换、销售以及后续保修业务
(3).该系统能够实现经销商之间、经销商和品牌部之间信息共享
(4).该系统能够规范、管理品牌部进行二手车置换审核、认证业务
(5).该系统能够令公网普通用户通过新浪、搜狐等门户网站访问,查询部分信息以及申报选购信息。
2.系统拓扑
3.工作流程图
二.系统结构及子系统处理流程
1.系统结构图
2.子系统结构设计、功能要求及代码实现
(1).主界面+收购处理(完成者:
)
结构设计
功能要求:
作为登陆界面,要求登录时简洁,明了,美观,用户清楚各个窗体作用
系统功能:
用于对车辆新增的信息进行增添,修改以及删除已经出售的车辆信息
能向“定价处理”,“销售签约”,“报表制作”环节提供库存车辆信息,以供定价、销售、制作报表使用。
使得整个流程清晰,信息无冗余,且更新方便
(2).定价处理(完成者:
)
结构设计
功能要求:
A.在查询窗体中,要求输入二手车编号或VIN码时可以查询到车辆收购价格及其定价。
若输入的编号或VIN码在数据库中没有记录时,弹出窗口提示:
“输入的账号不存在,是否要新增该账号记录?
”点击确定即可新建记录。
B.在新建窗体中,可以通过两种方式新建二手车记录:
1.查询时没有记录,可以新建记录
2.直接在查询窗体中输入二手车编号、VIN码等信息,点击“新建”新建记录。
C.在定价修改窗体中,输入二手车编号或VIN码可以获得原二手车信息,编辑修改后可以保存。
实现代码:
OptionCompareDatabase
PrivateSubCommand8_Click()
OnErrorGoToErr_Command8_Click
DoCmd.DoMenuItemacFormBar,acRecordsMenu,acSaveRecord,,acMenuVer70
DimstrSQLAsString
DimrstAsRecordset
DimdbsAsDatabase
DimstrAcctIDAsString
DimstDocNameAsString
DimstLinkCriteriaAsString
strAcctID=cmbAcctID.Value
Setdbs=CurrentDb
strSQL="SELECT*FROMAcctInfoWHEREAcctID='"&strAcctID&"'"
Setrst=dbs.OpenRecordset(strSQL)
Ifrst.EOFThen
rc=MsgBox("输入的帐号不存在,是否需要新增该帐号的记录?
",vbYesNo)
Ifrc=vbYesThen
cmbAcctBank.Value=""
txtAcctName.Value=""
txtAcctType.Value=""
txtMemo.Value=""
btnDel.Transparent=True
btnSave.Transparent=False
btnCancel.Transparent=False
btnOperation="new"
EndIf
Else
cmbAcctBank.Value=rst.Fields("AcctBank")
txtAcctName.Value=rst.Fields("AcctName")
txtAcctType.Value=rst.Fields("AcctType")
txtMemo.Value=rst.Fields("Memo")
btnDel.Transparent=False
btnSave.Transparent=False
btnCancel.Transparent=False
EndIf
rst.Close
Exit_Command8_Click:
ExitSub
Err_Command8_Click:
MsgBoxErr.Description
ResumeExit_Command8_Click
EndSub
PrivateSubCommand10_Click()
OnErrorGoToErr_Command10_Click
DoCmd.Close
Exit_Command10_Click:
ExitSub
Err_Command10_Click:
MsgBoxErr.Description
ResumeExit_Command10_Click
EndSub
PrivateSubCommand11_Click()
OnErrorGoToErr_btnSave_Click
DimstrSQLAsString
DimrstAsRecordset
Dimrst1AsRecordset
DimdbsAsDatabase
DimstrAcctIDAsString
DimstDocNameAsString
DimstLinkCriteriaAsString
Setdbs=CurrentDb
'IfbtnOperation="new"Then
Setrst1=dbs.OpenRecordset("定价处理")
rst1.AddNew
rst1.Fields("二手车编号")=Text16.Value
rst1.Fields("VIN码")=Text14.Value
rst1.Fields("定价")=Text4.Value
rst1.Fields("签约金额")=Text6.Value
strAcctID=Text16.Value
strSQL="SELECT*FROM定价处理WHERE二手车编号='"&strAcctID&"'"
Setrst=dbs.OpenRecordset(strSQL)
If(exist(SELECT*FROM定价处理WHERE二手车编号='"&strAcctID&"'))
If(rst.Fields("二手车编号"))Then
rc=MsgBox("车辆编号不能相同,请重新输入!
",vbOKOnly)
Text16.Value=""
Text14.Value=""
Text4.Value=""
Text6.Value=""
ExitSub
EndIf
rst.Close
Else
strAcctID=cmbAcctID.Value
strSQL="SELECT*FROM定价处理WHEREAcctID='"&strAcctID&"'"
Setrst=dbs.OpenRecordset(strSQL)
rst.Edit
rst.Fields("AcctBank")=cmbAcctBank.Value
rst.Fields("AcctName")=txtAcctName.Value
rst.Fields("AcctType")=txtAcctType.Value
rst.Fields("Memo")=txtMemo.Value
EndIf
rst1.Update
rc=MsgBox("新增定价成功!
",vbOKOnly)
rst1.Close
'DoCmd.DoMenuItemacFormBar,acRecordsMenu,acSaveRecord,,acMenuVer70
Exit_btnSave_Click:
ExitSub
Err_btnSave_Click:
MsgBoxErr.Description
ResumeExit_btnSave_Click
EndSub
PrivateSubCommand9_Click()
'DoCmd.DoMenuItemacFormBar,acRecordsMenu,acSaveRecord,,acMenuVer70
DimstrSQLAsString
DimrstAsRecordset
DimdbsAsDatabase
DimstrAcctIDAsString
DimstDocNameAsString
DimstLinkCriteriaAsString
strAcctID=Text16.Value
Setdbs=CurrentDb
strSQL="SELECT*FROM定价处理WHERE二手车编号='"&strAcctID&"'"
Setrst=dbs.OpenRecordset(strSQL)
Ifrst.EOFThen
rc=MsgBox("输入的帐号不存在,是否需要新增该帐号的记录?
",vbYesNo)
Ifrc=vbYesThen
Text14.Value=""
Text4.Value=""
Text6.Value=""
txtMemo.Value=""
btnDel.Transparent=True
btnSave.Transparent=False
btnCancel.Transparent=False
btnOperation="new"
EndIf
Else
Text14.Value=rst.Fields("VIN码")
Text4.Value=rst.Fields("定价")
Text6.Value=rst.Fields("签约金额")
txtMemo.Value=rst.Fields("Memo")
btnDel.Transparent=False
'btnSave.Transparent=False
btnCancel.Transparent=False
EndIf
rst.Close
Exit_Command8_Click:
ExitSub
Err_Command8_Click:
MsgBoxErr.Description
ResumeExit_Command8_Click
EndSub
PrivateSubText16_AfterUpdate()
DimstrSQLAsString
DimrstAsRecordset
Dimrst1AsRecordset
DimdbsAsDatabase
DimstrAcctIDAsString
DimstDocNameAsString
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 二手车 管理 系统 课程设计