loginform.vb

来自「千寻销售系统 文件说明：一个采用三层结构的分部式应用程序」· VB 代码 · 共 43 行

Imports System.Runtime.Remoting
Public Class LoginForm
    '定义远程对象的代理
    Dim Login As ClassLibrary.LoginClass

    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LoginFormOKButton.Click
        If LoginFormnameComboBox.Text = "" Then
            MsgBox("请输入用户名", , "千寻工作室")
        Else
            If LoginFormPasswordTextBox.Text = "" Then
                MsgBox("请输入密码", , "千寻工作室")
            Else
                If Login.Verify(LoginFormnameComboBox.Text, LoginFormPasswordTextBox.Text) = True Then
                    MainForm.UserName = LoginFormnameComboBox.Text
                    MainForm.Show()
                    Me.Close()
                Else
                    MsgBox("密码错误", , "千寻工作室")
                    LoginFormPasswordTextBox.Text = ""
                    LoginFormPasswordTextBox.Focus()
                End If
            End If
        End If
    End Sub

    Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LoginFormCancelButton.Click
        Me.Close()
    End Sub

    Private Sub LoginForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '调用配置文件注册通道
        RemotingConfiguration.Configure(AppDomain.CurrentDomain.SetupInformation.ConfigurationFile, False)
        Login = New ClassLibrary.LoginClass
        Dim UList As String() = Login.UserList
        Dim temp As Integer
        If UList.Length > 0 Then
            For temp = 0 To UList.Length - 1
                LoginFormnameComboBox.Items.Add(UList(temp))
            Next
        End If
    End Sub
End Class