图4.3.1 登陆界面
4.3.2 系统功能模块设计
系统功能模块主要完成以下几个功能:用户管理、密码修改、更改用户和退出。其中用户管理用于添加和删除用户名和密码。
1.添加新用户界面如图4.3.2所示。
界面上的3个Label控件用来标识窗体中的信息(新用户名,用户密码,确认密码),3个TextBox控件用来输入新用户名,用户密码,确认密码,2个CommandButton控件用来确定或取消添加新用户,1个ADODC控件(运行时隐藏),1个DataGrid控件(运行时隐藏)用来完成和数据库用户信息表的连接。当打开窗体时,自动连接数据库。当按下确认按钮时,首先将数据库移到首地址rs_add.MoveFirst,接着在数据库中查找是否有相同的用户名,如果有,则提示“已经有这个用户”。如果没有,则判断两次密码是否一致,一致的话,则在数据库中添加新记录,将用户名和密码保存在数据库中并更新数据库。
rs_add.AddNew
rs_add.Fields(0) = Text1.Text
rs_add.Fields(1) = Text2.Text
rs_add.Update
图4.3.2 添加新用户
2.删除用户界面如图4.3.3所示。
界面上的2个Label控件用来标识窗体中的信息(需删除的用户名,需删除的用户密码),2个TextBox控件用来输入需删除的用户名,需删除的用户密码,2个CommandButton控件用来确定或取消,1个ADODC控件(运行时隐藏),1个DataGrid控件(运行时隐藏)用来完成和数据库用户信息表的连接。当打开窗体时,自动连接数据库。当按下确认按钮时,首先在数据库中搜索输入的用户名,sql = "select * from test_info where userID='" & Text1.Text & "'"。如果有该用户名,则再检查密码是否正确。如正确则先将数据库定位到该用户名,再执行删除,最后更新数据库。
If Trim(rs_login.Fields(1)) = Trim(Text2.Text) Then
Adodc1.Recordset.Find "userID='" & Text1.Text & "'"
Adodc1.Recordset.Delete
Adodc1.Recordset.Update
Adodc1.Refresh
图4.3.3 删除用户
3.修改密码界面如下图所示。
图4.3.4 修改密码
界面上的4个Label控件用来标识窗体中的信息(用户名,原密码,新密码,确认密码),4个TextBox控件用来输入用户名,原密码,新密码,确认密码2个CommandButton控件用来确定或取消修改密码,1个ADODC控件(运行时隐藏),1个DataGrid控件(运行时隐藏)用来完成和数据库用户信息表的连接。当打开窗体时,自动连接数据库。当按下确认按钮时,首先在数据库中搜索输入的用户名,sql = "select * from test_info where userID='" & Text1.Text & "'"。如果有该用户名,则再检查密码是否正确。如果原密码正确,而且新密码两次输入一致,则先在数据库中定位到该用户名,然后将新密码覆盖原密码,最后更新数据库。
If Trim(Text3) = Trim(Text4) Then
Adodc1.Recordset.Find "userID='" & Text1.Text & "'"
Adodc1.Recordset.Fields("Password").Value = Form3.Text4
Adodc1.Recordset.Update
Adodc1.Refresh
4.3.3 主界面的设计
为了方便地管理系统程序,且占有教少的系统资源,采用多文档界面MDI进行主界面的设计。通过选择主界面上的菜单,就可以实现对温度信息的各种操作。系统的主界面如图4.3.5所示。
主界面主要由窗体、菜单栏、状态栏组成。菜单栏是通过VB中的菜单编辑器设计的;状态栏用于显示系统日期、时间和设计信息,通过StatusBar控件实现。 AT89S52单片机温度控制监视软件的设计+VB源代码(8):http://www.751com.cn/zidonghua/lunwen_2281.html