图1.7 销售管理界面

4系统管理

系统管理菜单包括增加新用户、修改密码、退出系统。

4.1增加新用户

如图1.8所示。增加新用户子窗体是用来增加用户的用户名、密码和权限的。窗体收集输入的表中的字符串，然后与数据库中的系统的用户数据比较，如果不存在，则允许添加。单击“确定”后，返回一个信息框，提示成功信息，如图1.9所示。单击“取消”，则卸载当前界面。 返回成功信息对话框的代码如下：

MsgBox \添加用户成功\

Unload Me End If

对权限进行选择的代码如下：

Private Sub Form_Load()

Combo1.AddItem \Combo1.AddItem \End Sub

图1.8 增加新用户界面

图1.9 成功信息框

4.2修改密码

修改密码子窗体如图1.10所示。该子窗体用来修改用户密码。“确定”按钮的代码如下所示：

Private Sub Command1_Click() Dim rs_chang As New ADODB.Recordset Dim sql As String

If Trim(Text1.Text) <> Trim(Text2.Text) Then

MsgBox \密码不一致！\ Text1.SetFocus Text1.Text = \ Text2.Text = \Else

sql = \系统管理 where 用户名='\

rs_chang.Open sql, conn, adOpenKeyset, adLockPessimistic rs_chang.Fields(1) = Text1.Text rs_chang.Update rs_chang.Close

MsgBox \密码修改成功\ Unload Me End If End Sub

首先比较两个表中的数据是否一致，然后用rs_chang.fields(1)=text1.text 语句把代码输入到数据库中。最后，用MsgBox \密码修改成功\vbOKOnly + vbExclamation, \语句弹出一个信息框，提示修改成功。

图1.10 修改密码界面

4.3退出系统

退出系统则直接使用unload me即可。代码如下：

Private Sub exit_Click() Unload Me End Sub

5查询管理

查询子窗体是用来查询库存资料中的详细情况，其界面如图1.11所示。

图1.11 查询输出界面

在选择列表框中给出入库单号或年月日后，“查询”按钮的click 事件将给出与数据库查找比较的结果。运行查询子窗体时，组合框中就已经从数据库中提取了货单号和年月日两个待查条件。查询完毕后，输出查询结果。 部分代码如下：

Option1.Value = True If findok = True Then

rs_data1.Close End If

sql = \入库单 order by 入库单号 desc\rs_find.CursorLocation = adUseClient

rs_find.Open sql, conn, adOpenKeyset, adLockPessimistic If rs_find.EOF = False Then '添加编号

With rs_find

Do While Not .EOF

Combo1(0).AddItem .Fields(0) Combo1(1).AddItem .Fields(0) .MoveNext Loop End With End If

6车辆汇总管理

车辆汇总是按一定的类别，把车辆汇总列表。运行的车辆汇总子窗体如图1.12所示。

图1.12 车辆汇总界面

车辆汇总子窗体是由选择响应“车辆汇总”命令出现的窗体，在主窗体中，“车辆汇总”菜单共有四个选项，分别是按日期汇总、按供应商汇总、按入库单汇总、按入库单+日期汇总。所以，窗体对应这4个部分的代码。

六 结束语

在软件设计完成后，如何使用户快速的了解本系统，这就取决于系统主要设计的说明设计的好坏，所以应该从用户的角度来设计设计说明，使用户对于系统有个初步的了解。

经过一段时间的制作，完成了汽车销售管理系统。该系统可以使操作员进行一般的操作，如：查询入库信息、销售信息，根据输入的信息来检索某辆车的信息，根据车辆信息进行汇总，直接增加和删除用户信息。

这次课程设计，使我受到了一次用专业知识、专业分析和解决问题的全面系统的锻炼。使我在综合知识的选用方面，在应用软件开发的基本思想、方法方面，以及在常用编程设计思路技巧的掌握方面都能迈进了一大步。

由于本人的水平和经验限制了系统的功能，一些销售管理应有的功能暂时无法实现，需要更加完善。相信在这之后我会对销售管理系统有进一步的学习和研究，使系统变得更完善。