Hanyu_Li 2017-09-29 06:26 采纳率: 0%
浏览 935

VB程序中能不能关闭密码设置

这是个老程序,以前编这个程序的人吧密码忘了,现在没办法进入调试界面,求解决的办法,下面是调试窗口的代码
Private Sub CmdCancel_Click()
mainM3.Image_ManualTest.Picture = LoadPicture(App.Path + "\test.ico")
Me.Hide
End Sub

Private Sub cmdOK_Click()
cn.Close
cn.Open

sql = "select * from 密码管理 "
rs_login.Open sql, cn, adOpenKeyset, adLockPessimistic

If Trim(rs_login.Fields(0)) = Trim(txtPassword.Text) Then
    DebugLogIn.Hide
    FormDebug.Show 1
Else
    txtPassword.Text = ""
    txtPassword.SetFocus

    WrongMessage.Caption = "密码错误"
    WrongMessage.Label1.Caption = "密码错误,请重试!"
    WrongMessage.Show 1
End If

End Sub

Private Sub Form_Load()
Image1.Picture = LoadPicture(App.Path + "\Password.ico")

txtPassword.Text = ""
End Sub

  • 写回答

3条回答 默认 最新

  • 「已注销」 2017-11-13 13:09
    关注

    Private Sub CmdCancel_Click()
    mainM3.Image_ManualTest.Picture = LoadPicture(App.Path + "\test.ico")
    Me.Hide
    End Sub
    Private Sub cmdOK_Click()
    DebugLogIn.Hide
    FormDebug.Show 1
    End Sub
    Private Sub Form_Load()
    Image1.Picture = LoadPicture(App.Path + "\Password.ico")
    txtPassword.Text = ""
    End Sub

    评论

报告相同问题?

悬赏问题

  • ¥15 想问一下stata17中这段代码哪里有问题呀
  • ¥15 flink cdc无法实时同步mysql数据
  • ¥100 有人会搭建GPT-J-6B框架吗?有偿
  • ¥15 求差集那个函数有问题,有无佬可以解决
  • ¥15 【提问】基于Invest的水源涵养
  • ¥20 微信网友居然可以通过vx号找到我绑的手机号
  • ¥15 寻一个支付宝扫码远程授权登录的软件助手app
  • ¥15 解riccati方程组
  • ¥15 使用rabbitMQ 消息队列作为url源进行多线程爬取时,总有几个url没有处理的问题。
  • ¥15 Ubuntu在安装序列比对软件STAR时出现报错如何解决