vb 登陆界面代码

vb 登陆界面代码vb 登陆界面代码 Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Static i As Integer Button3.Enabled = True Button4.Enabled = True Button5.Enabled = True Button6.Enabled = True Bu...

vb 登陆界面代码 Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Static i As Integer Button3.Enabled = True Button4.Enabled = True Button5.Enabled = True Button6.Enabled = True Button7.Enabled = True Button8.Enabled = True Dim p, answer1, answer2 As String Dim x As String Dim y As String If i < 2 Then p = TextBox1.Text x = TextBox2.Text y = ComboBox1.Text If y = "高级用户" And p = "zhoushizhi" And x = "zhoushizhi" Then TabControl1.SelectedTab = TabPage2 Button3.Enabled = True Button4.Enabled = True Button5.Enabled = False Button6.Enabled = False Button7.Enabled = False Button8.Enabled = False ElseIf y = "人事管理员" And p = "renshi" And x = "renshi" Then TabControl1.SelectedTab = TabPage2 Button3.Enabled = True Button4.Enabled = True Button5.Enabled = False Button6.Enabled = False Button7.Enabled = False Button8.Enabled = False ElseIf y = "销售管理员" And p = "xiaoshou" And x = "xiaoshou" Then TabControl1.SelectedTab = TabPage3 Button3.Enabled = False Button4.Enabled = False Button5.Enabled = True Button6.Enabled = True Button7.Enabled = False Button8.Enabled = False ElseIf y = "财务管理员" And p = "caiwu" And x = "caiwu" Then TabControl1.SelectedTab = TabPage4 Else answer1 = MsgBox("密码错误, 重新输入!", vbOKOnly + vbQuestion, "消息框") If answer1 = vbOK Then i = i + 1 TextBox1.Text = " " TextBox1.Focus() Exit Sub End If End If Else answer2 = MsgBox("输入密码错误三次,确定退出!", vbOKOnly + vbQuestion, "消息框") answer2 = vbOK End End If End Sub End Class

                    本文档为【vb   登陆界面代码】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
                    图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。 
 该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。

                    [版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。

                    本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。

                    网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
                

下载需要：免费已有0 人下载

立即下载

你可能还喜欢

最新资料

资料动态

专题动态

is_574951

暂无简介~

格式：doc

大小：14KB

软件：Word

页数：3

分类：生活休闲

上传时间：2017-10-16

浏览量：33

热点搜索

装修施工工艺指导及验收标准胸膜内胸廓成形术【城事】以山东地名命名的军舰，你知道枣庄舰是什么样吗？关于作文情感评语13条小学心理健康《珍爱自己》教学设计手术安全核查制度执行情况的总结与改进汇编教科版(2017)科学六年上册《观察水中微小的生物》说课稿共二篇（附教学反思）小学体育与健康三年级《跳小绳、游戏：叫号赛跑》表格式教案顶板滤水层施工方案手术室应急预案演练素土挤密桩施工方案古诗接龙2,拼音版保险原理与人身险理赔专业知识综合科-答案高职高专类日语泛读(第二版)译文[1] 装修施工工艺指导及验收标准胸膜内胸廓成形术【城事】以山东地名命名的军舰，你知道枣庄舰是什么样吗？关于作文情感评语13条小学心理健康《珍爱自己》教学设计手术安全核查制度执行情况的总结与改进汇编教科版(2017)科学六年上册《观察水中微小的生物》说课稿共二篇（附教学反思）小学体育与健康三年级《跳小绳、游戏：叫号赛跑》表格式教案顶板滤水层施工方案手术室应急预案演练素土挤密桩施工方案古诗接龙2,拼音版保险原理与人身险理赔专业知识综合科-答案高职高专类日语泛读(第二版)译文[1]