精品文档就在这里
-------------各类专业好文档，值得你下载，教育，管理，论文，制度，方案手册，应有尽有-------------- --------------------------------------------------------------------------------------------------------------------------------------------
图1.6 入库管理界面
3销售管理
销售管理子窗体界面如图1.7所示。该子窗体设计及代码均与入库管理相似。它是用来添加销售信息的，主要用ADO连接数据库。载入窗体时，将自动加入车辆名称和日期信息。选择“确定”按钮要求先填写基本信息，然后与数据库信息比较。选择“取消”按钮则卸载当前窗体。
---------------------------------------------------------精品 文档
---------------------------------------------------------------------
精品文档就在这里
-------------各类专业好文档，值得你下载，教育，管理，论文，制度，方案手册，应有尽有-------------- --------------------------------------------------------------------------------------------------------------------------------------------
图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)
---------------------------------------------------------精品 文档
---------------------------------------------------------------------