汽车销售管理系统报告

库存位号 经手人 备注 销售管理实体 提货单号 出库日期 车辆名称 图1.3 销售管理实体E-R图

单价 供应商名称 金额 数量 车辆资料实体 车辆名称 入库单号 日期 图1.2 车辆资料实体E-R图

三 数据库逻辑设计

数据库设计是指对于一个给定的应用环境,构造最优的数据库模式,建立数据库模式,建立数据库及其应用系统,有效存储数据,满足用户信息要求和处理要求。这里的数据库采用Access,用ADO作为连接数据对象。

建立一个空的数据库carshale.mdb后,建立系统需要的表,具体有:车辆名称表、车辆资料表、入库单表、供应商名称表、系统管理表、销售单表。

各表间的关系如图1.3所示:

图1.3 各表间的关系

连接数据库,需要先在VB中添加ADO库。在VB中选择“工程”?“引

用”命令,在对话框中选择Microsoft ActiveX Data Objects 2.0 Library。在程序设计模块中,定义ADO连接对象。语句如下:

Public conn As New ADODB.Connection '标记连接对象 在子程序中,打开数据库的语句:

&

\

Dim connectionstring As String connectionstring = \source=carshale.mdb\

conn.Open connectionstring

四 结构设计

根据需求,设计好数据库系统,然后通过不同的窗体来实现不同的功能,功能模块如下所示:

入库管理模块:用来实现对入库单的增加、删除和修改等操作。 销售管理模块:用来实现对销售单的增加、删除和修改等操作。

查询管理模块:用来实现对车辆的浏览和查询。

系统管理模块:用来实现对用户的增加、删除和修改等操作。 车辆汇总模块:根据实际情况查询相应的车辆信息。

五 界面设计

最终设计好的界面如图所示:

图1.4 汽车销售管理系统

这是一个多文档界面应用程序,可以同时显示多个文档,每个文档显示在各自的窗体中。菜单应用程序中,有5个菜单选项,每个选项对应着E-R图的一个子项目。

1用户登录

用户登录子窗体是运行的第一个界面。用户登录界面如图1.5所示。

图1.5 用户登录界面

它检查用户名和密码是否正确。由于用户资料是存放在数据库中,所以在启动该子窗体时,就已经连接了数据库。代码如下:

Private Sub Form_Load()

Dim connectionstring As String

connectionstring = \source=carshale.mdb\

conn.Open connectionstring cnt = 0 End Sub 序。

& \

“确定”按钮检查输入的数据是否和数据库中的数据一致。实现代码见源程

2入库管理

入库管理子窗体界面如图1.6所示。该窗体用来添加入库的信息,用ADO 来连接数据库,采用MDI 的子程序。载入窗体时,将自动加入车辆名称和日期信息。选择“确定”按钮要求先填写基本信息,然后与数据库信息比较。先定义几个变量:

Dim rs_checkname As New ADODB.Recordset '车辆名称对应的数据对象 Dim rs_custom As New ADODB.Recordset '供应商名称对应的数据对象 Const row_num = 10 '表格行数 Const col_num = 6 '表格列数 其他控制代码见源程序。

图1.6 入库管理界面

3销售管理

销售管理子窗体界面如图1.7所示。该子窗体设计及代码均与入库管理相似。它是用来添加销售信息的,主要用ADO连接数据库。载入窗体时,将自动加入车辆名称和日期信息。选择“确定”按钮要求先填写基本信息,然后与数据库信息比较。选择“取消”按钮则卸载当前窗体。

联系客服:779662525#qq.com(#替换为@) 苏ICP备20003344号-4