If txtPassword = "" Then
LoginSucceeded = True
Me.Hide
frmUnitSelect.Show
Else
MsgBox "无效的密码,请重试!", , "登录"
txtPassword.SetFocus
SendKeys "{Home}+{End}"
End If
End Sub
程序说明:在配电网测控程序中,选用了一个含有密码验证的登陆对话框。在这个设计的过程中,为了简化程序,将密码设置省去,即登录窗口显示后,直接进入即可。相反,若是输入了其它的数字或者字幕等字符串,就会出现“无效的密码,请重试。”的字样。
在这个程序的设计过程中用到了Label控件,以此来设置系统的名称和密码的字样,一旦固定,则位置以及属性不会改变。而利用TextBox控件来编辑输入密码的文本框。利用CommandButton控件来实现确定和取消两个按钮。
3.3.2 回路选择窗口
实现程序如下:
Private Sub Command1_Click()
intNum = Val(frmUnitSelect.Combo1.Text)
Me.Hide
frmMain.Show
End Sub
Private Sub Form_Load()
Combo1.AddItem "1" 将1~5五个数字加到下拉菜单中
Combo1.AddItem "2"
Combo1.AddItem "3"
Combo1.AddItem "4"
Combo1.AddItem "5"
Combo1.ListIndex = 0 将ListIndex属性默认为0,即回路单元默认为1
End Sub
程序说明:在配电测控系统的设计过程中,利用一台PC机来控制五台RTU,从而实现对配电网的多条线路进行控制,在利用一台PC机对多台RTU进行控制时,利用RS485总线将五台RTU并联起来,并通过RS485/RS232的转换器连接到PC机上,每一台RTU有自己的地址号,在利用微机进行监测时,我们需要清楚是在对哪一台RTU进行监控,由此,就需要回路选择窗口[15]。用户在成功登陆后,需要选择一个回路来确认自己所需要监控的RTU。
在这个程序中,用到了Label控件,同样的是对窗口中诸如“请选择回路单元”字体固定,而利用comboBox控件是可输入的文本与可选择的下拉列表相统一的功能,即可输入回路的数字号,也可以进行下拉菜单进行选择。利用CommandButton则是对应于确定的按钮。
3.3.3 主界面窗口
实现程序如下:
Private Sub cmdAbout_Click() 关于按钮
frmAbout.Show
End Sub
Private Sub cmdDataDisplay_Click() 数据显示的按钮
frmDataDisplay.Show
Me.Hide
End Sub
Private Sub cmdExit_Click() 是否需要退出系统
Dim k As Integer
k = MsgBox("确定要退出此系统?", vbExclamation + vbYesNo, "退出警告")
If k = vbYes Then
End
End If
End Sub
Private Sub cmdSetting_Click() 设置参数的按钮
frmSetting.Show
frmSetting.txtPort.Text = Str(intPort) 显示端口号
frmSetting.txtSetting.Text = strSet 显示参数
Me.Hide
- 上一篇:电网短路电流限制措施的研究+文献综述
- 下一篇:DSP三相电能测量单元硬件设计
-
-
-
-
-
-
-
河岸冲刷和泥沙淤积的监测国内外研究现状
十二层带中心支撑钢结构...
乳业同业并购式全产业链...
杂拟谷盗体内共生菌沃尔...
酸性水汽提装置总汽提塔设计+CAD图纸
java+mysql车辆管理系统的设计+源代码
电站锅炉暖风器设计任务书
当代大学生慈善意识研究+文献综述
中考体育项目与体育教学合理结合的研究
大众媒体对公共政策制定的影响