管理信息系统课程设计--二手车管理系统.docVIP

课程设计报告 管理信息系统 项目名称：龙信二手车管理系统 专 业：信息管理与信息系统 龙信二手车管理系统需求分析 1.系统目标 （1）.为神龙公司标致品牌经销商提供管理二手车相关业务的信息系统 （2）.该系统能够规范、管理经销商针对二手车进行收购、置换、销售以及后续保修业务 （3）.该系统能够实现经销商之间、经销商和品牌部之间信息共享 （4）.该系统能够规范、管理品牌部进行二手车置换审核、认证业务 （5）.该系统能够令公网普通用户通过新浪、搜狐等门户网站访问，查询部分信息以及申报选购信息。 2.系统拓扑 3.工作流程图 系统结构及子系统处理流程 系统结构图 子系统结构设计、功能要求及代码实现 （1）.主界面+收购处理（完成者：） 结构设计 功能要求：作为登陆界面，要求登录时简洁，明了，美观，用户清楚各个窗体作用 系统功能：用于对车辆新增的信息进行增添，修改以及删除已经出售的车辆信息 能向“定价处理”，“销售签约”，“报表制作”环节提供库存车辆信息，以供定价、销售、制作报表使用。使得整个流程清晰，信息无冗余，且更新方便 （2）.定价处理（完成者：） 结构设计 功能要求： 在查询窗体中，要求输入二手车编号或VIN码时可以查询到车辆收购价格及其定价。 若输入的编号或VIN码在数据库中没有记录时，弹出窗口提示：“输入的账号不存在， 是否要新增该账号记录？”点击确定即可新建记录。 B.在新建窗体中，可以通过两种方式新建二手车记录： 1.查询时没有记录，可以新建记录 2.直接在查询窗体中输入二手车编号、VIN码等信息，点击“新建”新建记录。 C.在定价修改窗体中，输入二手车编号或VIN码可以获得原二手车信息，编辑修改后可以保存。 实现代码： Option Compare Database Private Sub Command8_Click() On Error GoTo Err_Command8_Click DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 Dim strSQL As String Dim rst As Recordset Dim dbs As Database Dim strAcctID As String Dim stDocName As String Dim stLinkCriteria As String strAcctID = cmbAcctID.Value Set dbs = CurrentDb strSQL = SELECT * FROM AcctInfo WHERE AcctID= strAcctID Set rst = dbs.OpenRecordset(strSQL) If rst.EOF Then rc = MsgBox(输入的帐号不存在，是否需要新增该帐号的记录？, vbYesNo) If rc = vbYes Then cmbAcctBank.Value = txtAcctName.Value = txtAcctType.Value = txtMemo.Value = btnDel.Transparent = True btnSave.Transparent = False btnCancel.Transparent = False btnOperation = new End If 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.Tran