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.Informati