vba登录窗口代码
毕洋震1813如何利用excel vba给工作簿设计一个根据用户名和密码的登录窗口 -
都视纪13948364805 ______ 假设你的登陆窗口是userform1 在thisworkbook添加代码 Private Sub Workbook_Open() Application.Visible = False UserForm1.Show End Sub 可实现隐藏excel,在用户名和口令均正确时,将 Application.Visible 设置为TRUE即可显示excel.
毕洋震1813VBA登陆界面,我做了一个窗体,想把它设置为登陆界面,需要怎么设置才能在启动EXCEL的时候启动该窗体呢? -
都视纪13948364805 ______ '第一种方法,在ThisWorkbook代码窗口 Private Sub Workbook_Open() UserForm1.Show End Sub'第二种方法在模块代码 Sub Auto_Open() UserForm1.Show End Sub
毕洋震1813ACCESS登录窗体VBA代码求助 -
都视纪13948364805 ______ mysql = ＂select * from 操作员 where 操作员名='＂ & Me.username&＂' and 密码='＂& Me.userpassword&＂'＂
毕洋震1813vb登录界面代码??ADODC连接数据库. -
都视纪13948364805 ______ 这是我自己做的VB+SQL用户登录界面代码:已经通过验证.Public Function Cnn() As ADODB.Connection '定义函数 '---通用 Set Cnn = New ADODB.Connection '返回一个数据库连接 Cnn.Open ＂Driver={SQL Server};Server=DengChen-PC;...
毕洋震1813请求高手给代码:在VB界面里做用户登录界面,只要实现输入用户名和密码,点击登录,就 -
都视纪13948364805 ______ Private Sub Command1_Click() If text1 = ＂abcd＂ And text2=＂1234＂ Then MsgBox ＂登陆成功＂, vbOKOnly, ＂登入信息＂ Else MsgBox ＂登录失败＂, vbOKOnly, ＂登入信息＂ End if End Sub
毕洋震1813vb代码;登录窗口输入用户名和密码 -
都视纪13948364805 ______ 如果密码存在数据库,就用用户名去检测数据库,找到密码来验证,正确才进入. 如果固定的,直接比较就行了.比如 select case combo.text case ＂用户1＂ if text1=＂用户1的密码＂) then form1.show case ＂用户2＂ if text1=＂用户2的密码＂) then form1.show case ＂用户3＂ if text1=＂用户3的密码＂) then form1.show end select
毕洋震1813VB登录窗口制作代码和流程 -
都视纪13948364805 ______ '主窗口为form2, form1为登陆窗口,上面有2个text、1个command控件 Private Sub Command1_Click() Static n If Text1 = ＂119＂ Then If Text2 = ＂911＂ Then Form2.Show Unload Me Else MsgBox ＂密码错误!＂ Text2 = ＂＂ Text2.SetFocus End If Else MsgBox ＂用户名错误!＂ Text1 = ＂＂ Text1.SetFocus End If n = n + 1 If n = 3 Then Unload Me '错误次数3次 End Sub
毕洋震1813VBA窗口登录点击右键关闭也能进入 -
都视纪13948364805 ______ 我的也是这个情况,一模一样!新买的华硕win10,卸载了华硕本机带的PDF阅读器,这个 然后就ok了,如果是这个问题,可以试试~
毕洋震1813在其它窗体如何获取登录窗体的用户名? 在Excel中vba代码 -
都视纪13948364805 ______ txt1=userform1.textbox1.text userform2.textbox4.text=txt1 txt1为文本型变量
毕洋震1813用VB创建一个登陆界面,X -
都视纪13948364805 ______ 在窗体上再画出一个按钮也就是CommandButton控件双击那个按钮来到代码窗口,写上如下代码Private Sub Command1_Click()If txtName.text = ＂guest＂ and passwordchar.text = ＂...