内容发布更新时间 : 2024/5/14 6:14:23星期一 下面是文章的全部内容请认真阅读。
图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个部分的代码。
六 结束语
在软件设计完成后，如何使用户快速的了解本系统，这就取决于系统主要设计的说明设计的好坏，所以应该从用户的角度来设计设计说明，使用户对于系统有个初步的了解。
经过一段时间的制作，完成了汽车销售管理系统。该系统可以使操作员进行一般的操作，如：查询入库信息、销售信息，根据输入的信息来检索某辆车的信息，根据车辆信息进行汇总，直接增加和删除用户信息。
这次课程设计，使我受到了一次用专业知识、专业分析和解决问题的全面系统的锻炼。使我在综合知识的选用方面，在应用软件开发的基本思想、方法方面，以及在常用编程设计思路技巧的掌握方面都能迈进了一大步。
由于本人的水平和经验限制了系统的功能，一些销售管理应有的功能暂时无法实现，需要更加完善。相信在这之后我会对销售管理系统有进一步的学习和研究，使系统变得更完善。