数据库系统与技术课程设计

数据库系统与技术课程设计题目名称：汽车销售管理系统学院：土木工程学院班级 :交运 C13姓名 :高瑞 137137设计背景本报告介绍了一个使用 SQL Server 2000 为后台， VB6.0 为前台开发工具，使用数据库连接技术实现前台与后台数据库的连接。 整个设计过程通过小组全体成员分工合作完成。 该系统用于汽车销售管理的数据管理系统。 该系统能够实现对库存信息、车型信息、客户信息、车辆销售情况等功能管理，即对这些信息进行输入、输出、查询、添加、删除等基本功能。系统功能该管理系统可以提高汽车经销商管理公司的效率，做到汽车信息的规范管理、快速查询和科学统计， 从而减少管理方面的工作量。 本小组通过收集资料与讨论，得出，汽车销售管理系统有如下功能。能够对库存信息进行有效的管理。 汽车销售中库存信息很重要， 通过本系统能有效的对每次的汽车进货、退货进行管理，并且能进行存货查询。能够对销售信息进行有效的管理。 对汽车销售来说， 客户信息也很重要， 掌握了客户的信息，才能了解客户的需求综合上述功能分析，可总结为如下的结构图汽车销售管理系统基础销仓信售库息管管管理理理厂客车库车商户辆存型暂信销车信无息售辆息汽车销售管理系统功能表系统数据1.客户基本表2.车辆信息表3.车辆销售表4.登陆界面5.主界面6.车辆信息管理7.客户信息管理8.均可实现增、删、改、查9.状态栏的设计登录界面字体闪烁效果Private Sub Timer1_Timer()Label3.Left = Label1.Left + 100If Label3.Left >= Me.ScaleWidth Then Label3.Left = -Label3.Width Label3.ForeColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256) Label4.Left = Label1.Left + 100If Label4.Left >= Me.ScaleWidth Then Label4.Left = -Label4.Width Label4.ForeColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256) End Sub状态栏时间的变化语句Private Sub Timer1_Timer()StatusBar1.Panels(3).Text= Format(Now, "yyyy 年 mm 月 dd 日 hh 点 mm 分ss 秒") End Sub如何实现当鼠标移动到某选项时字体变红色，离开时字体变黑色Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Dim i As IntegerFor i = 0 To Label1.Count - 1Label1(i).ForeColor = RGB(0, 0, 0)Next iEnd SubPrivate Sub Label2_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)Label1(Index).ForeColor = RGB(255, 0, 0)End SubPrivate Sub Command1_Click()Dim temp1temp1 = 0Dim sql As Stringsql = ""If Text2.Text <> "" ThenIf temp1 = 0 Thensql = sql + "where "Elsesql = sql + " and "End Ifsql = sql + "车辆编号 ='" + Text2.Text + "'"temp1 = temp1 + 1End IfIf Text1.Text <> "" ThenIf temp1 = 0 Thensql = sql + "where "Elsesql = sql + " and "End Ifsql = sql + "车辆型号='" + Text1.Text + "'"temp1 = temp1 + 1End IfIf Text3.Text <> "" ThenIf temp1 = 0 Thensql = sql + "where "Elsesql = sql + " and "End Ifsql = sql + "价格 ='" + Text3.Text + "'"temp1 = temp1 + 1End IfIf Text4.Text <> "" ThenIf temp1 = 0 Thensql = sql + "where "Elsesql = sql + " and "End Ifsql = sql + "库存数量 ='" + Text4.Text + "'"temp1 = temp1 + 1End Ifsql = "select 车辆编号 ,车辆型号 ,价格 ,库存数量" order by车辆编号 "from车辆信息表" + sql +Adodc1.RecordSource = sqlAdodc1.RefreshEnd SubPrivate Sub Command10_Click()Dim temp1temp1 = 100If Adodc1.Recordset.RecordCount > 0 ThenAdodc1.Recordset.MoveLasttemp1 = Val(Adodc1.Recordset.Fields("车辆编号 ") + 1Elsetemp1 = temp1 + "001"End IfText2.Text = temp1End SubPrivate Sub Command11_Click()Adodc1.Recordset.DeleteEnd SubPrivate Sub Command12_Click()Unload MeEnd SubPrivate Sub Command3_Click()Dim temp1temp1 = 100If Adodc2.Recordset.RecordCount > 0 ThenAdodc2.Recordset.MoveLasttemp1 = Val(Adodc2.Recordset.Fields("订单号 ") + 1Elsetemp1 = temp1 + "001"End IfText5.Text = temp1End SubPrivate Sub Command4_Click()On Error GoTo ErrorHandleIf Text5 = "" ThenMsgBox " 请输入订单号！ ", vbInformationElseDim sql As Stringsql = "insert into 车辆销售表 values('" & Text5 & "','" & Text6 & "','" & Text7 & "','" & Text8 & "','" & Text9 & "')"cnn.Execute (sql)sql = "update 车辆信息表set 库存数量= 库存数量-" & Text9 & "where车辆编号='" & Text6 & "'"cnn.Execute (sql)Adodc2.RefreshText5 = ""End IfExit SubErrorHandle:MsgBox " 车辆销售信息输入有误，请检查订单号是否重复！"End SubPrivate Sub Command5_Click()Adodc2.Recordset.DeleteEnd SubPrivate Sub Command6_Click()Unload MeEnd SubPrivate Sub Command7_Click()Text5.Text = ""Text6.Text = ""Text7.Text = ""Text8.Text = ""Text9.Text = ""End SubPrivate Sub Command2_Click()Dim temp1temp1 = 0Dim sql As Stringsql = ""If Text5.Text <> "" ThenIf temp1 = 0 Thensql = sql + "where "Elsesql = sql + " and "End Ifsql = sql + "订单号 ='" + Text5.Text + "'"temp1 = temp1 + 1End IfIf Text6.Text <> "" ThenIf temp1 = 0 Thensql = sql + "where "Elsesql = sql + " and "End Ifsql = sql + "车辆编号='" + Text6.Text + "'"temp1 = temp1 + 1End IfIf Text7.Text <> "" ThenIf temp1 = 0 Thensql = sql + "where "Elsesql = sql + " and "End Ifsql = sql + "客户编号 ='" + Text7.Text + "'"temp1 = temp1 + 1End IfIf Text8.Text <> "" ThenIf temp1 = 0 Thensql = sql + "where "Elsesql = sql + " and "End Ifsql = sql + "车牌号 ='" + Text8.Text + "'"temp1 = temp1 + 1End IfIf Text9.Text <> "" ThenIf temp1 = 0 Thensql = sql + "where "Elsesql = sql + " and "End Ifsql = sql + "销售数量 ='" + Text9.Text + "'"temp1 = temp1 + 1End Ifsql = "select 订单号 ,车辆编号 ,客户编号表 " + sql + " order by订单号 ",车牌号 ,销售数量from车辆销售Adodc2.RecordSource = sqlAdodc2.RefreshEnd SubPrivate Sub Command8_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""End SubPrivate Sub Command9_Click()On Error GoTo ErrorHandleIf Text2 = "" ThenMsgBox " 请输入车辆编号！ ", vbInformationElseDim sql As Stringsql = "insert into 车辆信息表 values('" & Text2 & "','" & Text1 & "','" & Text3 & "','" & Text4 & "')"cnn.Execute (sql)Adodc1.RefreshText2 = ""End IfExit SubErrorHandle:MsgBox " 车辆销售信息输入有误，请检查车辆编号是否重复！"End SubPrivate Sub SSTab1_DblClick()End SubPrivate Sub Command1_Click()Dim temp1temp1 = 0Dim sql As Stringsql = ""If Text1.Text <> "" ThenIf temp1 = 0 Thensql = sql + "where "Elsesql = sql + " and "End Ifsql = sql + "客户编号 ='" + Text1.Text + "'"temp1 = temp1 + 1End IfIf Text2.Text <> "" ThenIf temp1 = 0 Thensql = sql + "where "Elsesql = sql + " and "End Ifsql = sql + "客户姓名='" + Text2.Text + "'"temp1 = temp1 + 1End IfIf Text3.Text <> "" ThenIf temp1 = 0 Thensql = sql + "where "Elsesql = sql + " and "End Ifsql = sql + "联系电话 ='" + Text3.Text + "'"temp1 = temp1 + 1End IfIf Text4.Text <> "" ThenIf temp1 = 0 Thensql = sql + "where "Elsesql = sql + " and "End Ifsql = sql + "工作单位 ='" + Text4.Text + "'"temp1 = temp1 + 1End Ifsql = "select * from 车辆信息表" + sql + " order by客户编号 "Adodc1.RecordSource = sqlAdodc1.RefreshEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""End SubPrivate Sub Command3_Click()On Error GoTo ErrorHandleIf Text1 = "" ThenMsgBox " 请输入客户编号！ ", vbInformationElseDim sql As Stringsql = "insert into 客户基本表 values('" & Text1 & "','" & Text2 & "','" & Text3 & "','" & Text4 & "')"cnn.Execute (sql)Adodc1.RefreshText1 = ""End IfExit SubErrorHandle:MsgBox " 车辆销售信息输入有误，请检查客户编号是否重复！"End SubPrivate Sub Command4_Click()Dim temp1temp1 = 100If Adodc1.Recordset.RecordCount > 0 ThenAdodc1.Recordset.MoveLasttemp1 = Val(Adodc1.Recordset.Fields("客户编号 ") + 1Elsetemp1 = temp1 + "001"End IfText1.Text = temp1End SubPrivate Sub Command5_Click()Adodc1.Recordset.DeleteEnd SubPrivate Sub Command6_Click()Unload MeEnd SubPrivate Sub Form_Load()End Sub总结经过一周全组同学的齐心协力，我们终于出色的完成了老师交给我们的任务。此次课程设计， 老师帮助了我们很多， 在此感谢老师对我们的悉心教导。 老师对工作的负责深深地影响了我们全组成员，使我们更加努力的投入到课程设计中。通过此次课程设计， 我们更进一步掌握了 数据库系统与技术课程 的相关知识，熟悉了创建数据库管理系统的全过程熟悉掌握了数据库创建基本表、 选择查询等。本系统创建的后台数据库能够独立运行， 并满足用户对库存信息、 系统、销售信息和客户信息的管理需求。通过此课程设计，复习了 VB6.0 程序设计语言和数据库连接的相关知识，并使用这些知识创建了用户登录窗体和汽车信息管理窗体， 通过这些窗体实现与上述 SQL Server 的基本功能。经过程序调试，前台系统运行良好。这次课设我很有收获， 懂得了合作的重要性， 我要把这种好习惯用在以后的学习中去。