End Sub

3.6.10        创建修改用户密码窗体（formxiugaiyh.frm）

在visual basic中新建一个form，保存为formxiugaiyh.frm。从工具箱中选择相应控件将其添加到窗体中，根据需要设置其各项属性，最后的修改用户密码窗体如图所示。

将窗体及其各控件的属性设置完毕后，根据需要为窗体及控件添加事件处理函数，程序如下：

Dim denglu As New ADODB.Connection

Dim rstdenglu As New ADODB.Recordset

Private Sub Command1_Click()

   If Text1.Text = "" Then

         MsgBox "请输入用户名", vbOKOnly, "警告"

         Text1.SetFocus

   End If

   If Text2.Text = "" Then

         MsgBox "请输入密码", vbOKOnly, "警告"

         Text2.SetFocus

   End If

   If Text3.Text = "" Then

         MsgBox "请输入新密码", vbOKOnly, "警告"

         Text3.SetFocus

   End If

   If Text4.Text = "" Then

         MsgBox "请输入确认密码", vbOKOnly, "警告"

         Text4.SetFocus

   End If

   rstdenglu.MoveFirst

   rstdenglu.Find ("yonghuming = '" + Text1.Text + "'")

   If rstdenglu.EOF Then

      MsgBox "用户名不存在，请重新输入用户名", vbOKOnly, "警告"

      Text1.SetFocus

   Else

      If rstdenglu.Fields("mima") <> Trim(Text2.Text) Then

         Text2.Text = ""

         MsgBox "请输入正确的密码！", vbOKOnly, "警告"

      Else

         If Trim(Text3.Text) <> Trim(Text4.Text) Then

           Text3.Text = ""

           Text4.Text = ""

           MsgBox "新密码和确认密码不相同，请重新输入新密码和确认密码！", vbOKOnly, "警告"

         Else

           rstdenglu.Delete

           rstdenglu.AddNew

           rstdenglu.Fields("yonghuming") = Text1.Text

           rstdenglu.Fields("mima") = Text3.Text

           rstdenglu.Update

           MsgBox "修改成功！", vbOKOnly, "警告"

           Call Command2_Click

           rstdenglu.Close

           denglu.Close

         End If

      End If

   End If

End Sub

Private Sub Command2_Click()

   Text1.Text = ""

   Text2.Text = ""

   Text3.Text = ""

   Text4.Text = ""

End Sub

Private Sub Form_Load()

    Set denglu = New ADODB.Connection

    denglu.CursorLocation = adUseClient

    denglu.Open "Provider=Microsoft.Jet.OLEDB.4.0;User ID=admin;Data Source=F:\仓库管理系统\yonghuxinxi.mdb;Persist Security Info=False"

    Set rstdenglu = New ADODB.Recordset

    Set rstdenglu.ActiveConnection = denglu

    rstdenglu.Open "select * from yonghuxinxi", denglu, adOpenStatic, adLockOptimistic

End Sub

3.6.11        创建添加用户窗体（formtianjiayh.frm）

在visual basic中新建一个form，保存为formtianjiayh.frm。从工具箱中选择相应控件将其添加到窗体中，根据需要设置其各项属性，最后的添加用户窗体如图所示。

将窗体及其各控件的属性设置完毕后，根据需要为窗体及控件添加事件处理函数，程序如下：

Dim denglu As New ADODB.Connection

Dim rstdenglu As New ADODB.Recordset

Private Sub Command1_Click()

   If Text1.Text = "" Then

         MsgBox "请输入新用户名", vbOKOnly, "警告"

         Text1.SetFocus

   End If

   If Text2.Text = "" Then

         MsgBox "请输入密码", vbOKOnly, "警告"

         Text2.SetFocus

   End If

   If Text3.Text = "" Then

         MsgBox "请输入确认密码", vbOKOnly, "警告"

         Text3.SetFocus

   End If

   rstdenglu.Find ("yonghuming = '" + Text1.Text + "'")

   If Not rstdenglu.EOF Then

      MsgBox "用户名已存在，请重新输入新用户名", vbOKOnly, "警告"

      Text1.SetFocus

   Else

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

         Text2.Text = ""

         Text3.Text = ""

         MsgBox "密码和确认密码不相同，请重新输入密码和确认密码！", vbOKOnly, "警告"

      Else

         rstdenglu.AddNew

         rstdenglu.Fields("yonghuming") = Text1.Text

         rstdenglu.Fields("mima") = Text2.Text

         rstdenglu.Update

         MsgBox "添加成功！", vbOKOnly, "警告"

         Call Command2_Click

         rstdenglu.Close

         denglu.Close

      End If

   End If

End Sub

Private Sub Command2_Click()

   Text1.Text = ""

   Text2.Text = ""

   Text3.Text = ""

End Sub

Private Sub Form_Load()

    Set denglu = New ADODB.Connection

    denglu.CursorLocation = adUseClient

    denglu.Open "Provider=Microsoft.Jet.OLEDB.4.0;User ID=admin;Data Source=F:\仓库管理系统\yonghuxinxi.mdb;Persist Security Info=False"

    Set rstdenglu = New ADODB.Recordset

    Set rstdenglu.ActiveConnection = denglu

    rstdenglu.Open "select * from yonghuxinxi", denglu, adOpenStatic, adLockOptimistic

End Sub

3.6.12 创建删除用户窗体（formshanchuyh.frm）

在visual basic中新建一个form，保存为formshanchuyh.frm。从工具箱中选择相应控件将其添加到窗体中，根据需要设置其各项属性，最后的删除用户窗体如图所示。

将窗体及其各控件的属性设置完毕后，根据需要为窗体及控件添加事件处理函数，程序如下：

Dim denglu As New ADODB.Connection

Dim rstdenglu As New ADODB.Recordset

Private Sub Command1_Click()

   If Text1.Text = "" Then

         MsgBox "请输入用户名", vbOKOnly, "警告"

         Text1.SetFocus

   End If

   If Text2.Text = "" Then

         MsgBox "请输入密码", vbOKOnly, "警告"

         Text2.SetFocus

   End If

   rstdenglu.MoveFirst

   rstdenglu.Find ("yonghuming = '" + Text1.Text + "'")

   If rstdenglu.EOF Then

      MsgBox "用户名不存在，请重新输入用户名", vbOKOnly, "警告"

      Text1.SetFocus

   Else

      If rstdenglu.Fields("mima") <> Trim(Text2.Text) Then

         Text2.Text = ""

         MsgBox "请输入正确的密码！", vbOKOnly, "警告"

      Else

         If (vbYes = MsgBox("您确定要删除该用户吗？", vbYesNo + vbQuestion, "信息提示")) Then

            rstdenglu.Delete

            Call Command2_Click

            MsgBox "删除信息成功！", vbOKOnly + vbExclamation, "信息提示"

            rstdenglu.Close

            denglu.Close

         End If

      End If

   End If

End Sub

Private Sub Command2_Click()

   Text1.Text = ""

   Text2.Text = ""

End Sub

Private Sub Form_Load()

    Set denglu = New ADODB.Connection

    denglu.CursorLocation = adUseClient

    denglu.Open "Provider=Microsoft.Jet.OLEDB.4.0;User ID=admin;Data Source=F:\仓库管理系统\yonghuxinxi.mdb;Persist Security Info=False"

    Set rstdenglu = New ADODB.Recordset

    Set rstdenglu.ActiveConnection = denglu

    rstdenglu.Open "select * from yonghuxinxi", denglu, adOpenStatic, adLockOptimistic

End Sub

3.7 创建应用文件包

由于“仓库设备管理系统”运行需要Visual Basic和microsoft Access等软件的支持，为了使得没有安装vb和microsoft Access支持软件的用户也可以使用“实验室设备管理系统”，故用Wise Installation System9.0版（专业级）安装程序制作软件，将所设计的软件，以及软件运行所需要的支持软件进行打包，做成安装包。这个安装包在pc机上直接安装后就可以正常运行使用。

使用Wise Installation System9.0版（专业级）安装程序制作软件，操作简单明了。本系统所使用的是汉化后的软件，根据提示进行一步步操作，将所有软件依次打包，最终生成可独立安装运行及卸载的应用文件包。

4.仓库设备数据库管理系统使用说明

4.1.软件的安装和卸载

用户打开应用文件包“Store”后，单击“Setup” 文件包,然后直接双击运行“仪器查询系统.exe”文件，即进入安装页面，安装时根据提示操作，点击“下一步”后，进入目标目录选择窗口。用户可以使用默认安装路径，也可自己点击“浏览”选择合适的安装路径，然后依提示进行下一步安装，当系统提示输入安装密码时，在文本框中输入密码“123 ”，然后点击“确定”继续安装。安装系统会弹出提示窗口，询问用户是否同意许可协议，若不同意则无法进行安装，故点击“是”继续安装。安装过程将提示用户进入控制面板安装和配置系统组件，用户不需要进入控制面板设置，点击“确定”，软件即可自行继续安装直至安装完成，最后点击“完成”结束整个安装过程。显示屏自动恢复安装前页面，并不产生桌面快捷图标。

安装完成后，在“开始”菜单的程序一项中自动产生仪器查询系统目录，目录包含两个子目录，分别进入软件运行系统和卸载系统。进入软件运行系统时用户单击“store”即弹出用户登录窗口，用户输入用户名“admin”和密码“admin”即进入管理系统使用软件。进入卸载系统时单击“Unwise”并依据提示选择卸载方式，然后根据提示进行卸载工作即可。

4.2软件的使用

4.2.1 系统

1.添加用户:此功能可以添加此系统的用户，首先在用户栏输入要添加的用户的用户名，然后输入用户的密码，然后再次输入相同的密码，两次输入的密码必须相同。点击“确定”就会提示添加用户成功。

2.删除用户：此功能可以删除此系统的用户，首先选择要删除的用户名，然后在密码输入框里输入选中用户的密码，点击“确定”就会提示删除用户成功。

3.修改密码：此功能可以修改此系统用户的登录密码，首先选择要修改的用户名，输入原始密码，然后再次输入新密码，点击“确定”就会提示修改密码成功，则该用户下次登录此系统时就要输入修改后的新密码。

4.退出：退出本系统。

4.2.2 信息查询

此功能可以根据用户需求查找用户需要的资料。

此功能有两个选项:一是根据仪器编号查询,首先选择仪器编号单选框,在文本框里面输入要查找仪器的编号,然后点击“确定”即可找到要找的仪器的信息。二是根据仪器名称查找,选择仪器名称单选框, 在文本框里面输入要查找仪器的名称,然后点击“确定”即可找到要找的仪器的信息。

4.2.3 信息管理

1.增加信息:此功能可以增加资料信息.

在各文本框中输入信息,然后点击“确定”即可。如果加入信息的仪器编号已经在数据库中存在，则系统会提示信息编号已经存在，则要另外选择添加仪器的仪器编号。有些项目为必填项，如果为空，则系统会提示用户输入信息。

2.修改信息:此功能可以修改资料信息。

首先如4.2.2 找到所要修改的信息，然后直接在各个项目后面的文本框中修改相对应的信息，修改完后点击“修改”，系统则会提示修改成功。

3.删除信息：此功能可以删除数据库中存在的信息。

首先如4.2.2 找到所要修改的信息，然后点击“删除”按钮，系统则会提示您是否要删除信息，如果选择确定，则系统会提示删除信息成功，并且删除选中的信息。如果选择“取消”，则系统不会删除信息。

4.关于：可以显示系统环境。

5.其它：安装完成后，开始菜单的程序选项里面会生成一个选项“仪器管理系统”，后面的子菜单有运行程序。

5. 结论

1. 本系统运行于PC机的windows98/2000/xp下，具有对硬件要求低、容易操作、开发成本低等特点；

2.本系统使用Visual Basic 6.0和Access作为开发工具。完全面向对象可视化编程，其方法简便、直观、快捷；

3.系统经过试运行，稳定可靠、操作方便、用户界面美观、各项功能满足设计任务书的要求。

上一页  [1] [2] [3] [4] [5] [6] [7] 下一页