VB电量参数微机测控系统设计(11)

    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 VB电量参数微机测控系统设计(11):http://www.751com.cn/zidonghua/lunwen_7589.html