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

数据库系统与技术课程设计 题目名称：汽车销售管理系统 学院：土木工程学院 班级:交运C13 姓名:高瑞137137 设计背景 本报告介绍了一个使用SQL Server 2000为后台，VB6.0为前台开发工具，使用数据库连接技术实现前台与后台数据库的连接。整个设计过程通过小组全体成员分工合作完成。该系统用于汽车销售管理的数据管理系统。该系统能够实现对库存信息、车型信息、客户信息、车辆销售情况等功能管理，即对这些信息进行输入、输出、查询、添加、删除等基本功能。 系统功能 该管理系统可以提高汽车经销商管理公司的效率，做到汽车信息的规范管理、快速查询和科学统计，从而减少管理方面的工作量。本小组通过收集资料与讨论，得出，汽车销售管理系统有如下功能。 能够对库存信息进行有效的管理。汽车销售中库存信息很重要，通过本系统能有效的对每次的汽车进货、退货进行管理，并且能进行存货查询。 能够对销售信息进行有效的管理。对汽车销售来说，客户信息也很重要，掌握了客户的信息，才能了解客户的需求 综合上述功能分析，可总结为如下的结构图 汽车销售管理系统 汽车销售管理系统 基础信息管理 销售管理 厂商暂无 库存车辆 车辆销售 客户信息 车型信息 仓库管理 仓库管理 汽车销售管理系统功能表 系统数据 1.客户基本表 2.车辆信息表 3.车辆销售表 4.登陆界面 5.主界面 6.车辆信息管理 7.客户信息管理 8.均可实现增、删、改、查 9.状态栏的设计 登录界面字体闪烁效果 Private Sub Timer1_Timer() Label3.Left = Label1.Left + 100 If Label3.Left = Me.ScaleWidth Then Label3.Left = -Label3.Width Label3.ForeColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256) Label4.Left = Label1.Left + 100 If 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 Integer For i = 0 To Label1.Count - 1 Label1(i).ForeColor = RGB(0, 0, 0) Next i End Sub Private 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 Sub Private Sub Command1_Click() Dim temp1 temp1 = 0 Dim sql As String sql = If Text2.Text Then If temp1 = 0 Then sql = sql + where Else sql = sql + and End If sql = sql + 车辆编号= + Text2.Text + temp1 = temp1 + 1 End If If Text1.Text Then If temp1 = 0 Then sql = sql + where Else sql = sql + and End If sql = sql + 车辆型号 = + Text1.Text +