End Sub
在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
在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
在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
由于“仓库设备管理系统”运行需要Visual Basic和microsoft Access等软件的支持，为了使得没有安装vb和microsoft Access支持软件的用户也可以使用“实验室设备管理系统”，故用Wise Installation System9.0版（专业级）安装程序制作软件，将所设计的软件，以及软件运行所需要的支持软件进行打包，做成安装包。这个安装包在pc机上直接安装后就可以正常运行使用。
使用Wise Installation System9.0版（专业级）安装程序制作软件，操作简单明了。本系统所使用的是汉化后的软件，根据提示进行一步步操作，将所有软件依次打包，最终生成可独立安装运行及卸载的应用文件包。
用户打开应用文件包“Store”后，单击“Setup” 文件包,然后直接双击运行“仪器查询系统.exe”文件，即进入安装页面，安装时根据提示操作，点击“下一步”后，进入目标目录选择窗口。用户可以使用默认安装路径，也可自己点击“浏览”选择合适的安装路径，然后依提示进行下一步安装，当系统提示输入安装密码时，在文本框中输入密码“123 ”，然后点击“确定”继续安装。安装系统会弹出提示窗口，询问用户是否同意许可协议，若不同意则无法进行安装，故点击“是”继续安装。安装过程将提示用户进入控制面板安装和配置系统组件，用户不需要进入控制面板设置，点击“确定”，软件即可自行继续安装直至安装完成，最后点击“完成”结束整个安装过程。显示屏自动恢复安装前页面，并不产生桌面快捷图标。
安装完成后，在“开始”菜单的程序一项中自动产生仪器查询系统目录，目录包含两个子目录，分别进入软件运行系统和卸载系统。进入软件运行系统时用户单击“store”即弹出用户登录窗口，用户输入用户名“admin”和密码“admin”即进入管理系统使用软件。进入卸载系统时单击“Unwise”并依据提示选择卸载方式，然后根据提示进行卸载工作即可。
1.添加用户:此功能可以添加此系统的用户，首先在用户栏输入要添加的用户的用户名，然后输入用户的密码，然后再次输入相同的密码，两次输入的密码必须相同。点击“确定”就会提示添加用户成功。
2.删除用户：此功能可以删除此系统的用户，首先选择要删除的用户名，然后在密码输入框里输入选中用户的密码，点击“确定”就会提示删除用户成功。
3.修改密码：此功能可以修改此系统用户的登录密码，首先选择要修改的用户名，输入原始密码，然后再次输入新密码，点击“确定”就会提示修改密码成功，则该用户下次登录此系统时就要输入修改后的新密码。
4.退出：退出本系统。
此功能可以根据用户需求查找用户需要的资料。
此功能有两个选项:一是根据仪器编号查询,首先选择仪器编号单选框,在文本框里面输入要查找仪器的编号,然后点击“确定”即可找到要找的仪器的信息。二是根据仪器名称查找,选择仪器名称单选框, 在文本框里面输入要查找仪器的名称,然后点击“确定”即可找到要找的仪器的信息。
1.增加信息:此功能可以增加资料信息.
在各文本框中输入信息,然后点击“确定”即可。如果加入信息的仪器编号已经在数据库中存在，则系统会提示信息编号已经存在，则要另外选择添加仪器的仪器编号。有些项目为必填项，如果为空，则系统会提示用户输入信息。
2.修改信息:此功能可以修改资料信息。
首先如
3.删除信息：此功能可以删除数据库中存在的信息。
首先如
4.关于：可以显示系统环境。
5.其它：安装完成后，开始菜单的程序选项里面会生成一个选项“仪器管理系统”，后面的子菜单有运行程序。
1. 本系统运行于PC机的windows98/2000/xp下，具有对硬件要求低、容易操作、开发成本低等特点；
2.本系统使用Visual Basic 6.0和Access作为开发工具。完全面向对象可视化编程，其方法简便、直观、快捷；
3.系统经过试运行，稳定可靠、操作方便、用户界面美观、各项功能满足设计任务书的要求。
上一页 [1] [2] [3] [4] [5] [6] [7] 下一页