Desktop桌面程序源代码.doc

Desktop桌面程序源代码 添加资源窗体: Public Class FrmAddResources Private Sub BtAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtAdd.Click If Me.TbResourcesKind.Text = Or Me.TbResourcesName.Text = Or Me.TbResourcesPosition.Text = Or Me.TbUsername.Text = Or Me.TbResourcesDescription.Text = Then MsgBox(请输入完整的信息，谢谢！, MsgBoxStyle.Exclamation) 判断是否输入完整，否则给出提示 Else Me.Close() End If End Sub 添加按钮 End Class 登陆窗体: Public Class FrmLogin Dim WebService1 As New localhost.Service Private Sub BtReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtReset.Click TbUserName.Text = TbPassword.Text = TbUserName.Focus() End Sub 重置按钮 Private Sub BtLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtLogin.Click If WebService1.UserLogin(Me.TbUserName.Text, Me.TbPassword.Text) = LoginOK Then 判断，如果SERVICE返回的信息正确时，进入系统 FrmMain.TbResourcesUrl.Text = WebService1.GetResourcesList() FrmMain.Show() Me.Finalize() Else MsgBox(您输入的帐号，密码有误，请重新输入!, MsgBoxStyle.Exclamation) 错误时，给出错误提示 End If End Sub 登陆按钮 Private Sub TbWebService_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TbWebService.TextChanged On Error Resume Next ServiceUrl = Me.TbWebService.Text WebService1.Url = ServiceUrl End Sub 即时更新Service的地址 Private Sub BtRegister_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtRegister.Click Dim NewFrmReg As New FrmRegister NewFrmReg.ShowDialog(Me) If WebService1.AddUsers(NewFrmReg.TbUsername.Text, NewFrmReg.TbPassword.Text, NewFrmReg.TbEmail.Text) = RegisterOK Then MsgBox(注册成功，请您使用刚才的帐户登陆系统，谢谢！, MsgBoxStyle.Information) Else MsgBox(注册失败，可能存在已有的帐户，请重新输入，谢谢, MsgBoxStyle.Information) End If End Sub 注册