以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  关闭登录对话框后还有登录界面阴影  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=184980)

--  作者：lanbor --  发布时间：2023/1/28 21:38:00 --  关闭登录对话框后还有登录界面阴影 各位专家新年好，请专家帮忙指点一下，感谢感谢！ ’-----------------以下是登录界面的“确认键”代码 Dim txt1 As String = e.Form.Controls("TextBox1").text Dim txt2 As String = e.Form.Controls("TextBox2").text txt2=EncryptText(txt2,"123","321") If txt1>"" And txt2 >"" Then     Dim dr As DataRow     dr = DataTables("contact").SQLFind("c And login_ps = \'"& txt2 &"\'","cont_code")     If dr IsNot Nothing Then \'如果找到符合条件的行\\         Vars("user_id")=dr("cont_code")         Vars("user_name")=dr("cont_name")         Vars("ok_true") = 1 \'验证成功         e.Form.Visible = False         Forms("login_form").close() \'退出系统   在打开应用界面之前，关闭了登录界面，但主界面启动后，登录界面的背影依然存在         Forms("quotation_Main").open()         TableCaptionVisible = False     Else         messagebox.show("请重新输入登录用户和密码!","验证错误:")         txt2 = Nothing         e.Form.controls("TextBox2").Select()  \'让这个栏位得到光标         Vars("ok_true")=0 \'验证失败     End If Else     messagebox.show("请输入登录用户和密码!","登录验证:")     Return End If [此贴子已经被作者于2023/1/29 11:37:26编辑过]

--  作者：有点蓝 --  发布时间：2023/1/29 8:41:00 --   模式窗口打开模式窗口参考：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=90998