AT89S52单片机温度控制监视软件的设计+VB源代码(8)
图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控件实现。