您的位置：程序门 -> vb -> 数据库（包含打印，安装，报表)



您看看哪错了，谢谢


[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]


您看看哪错了，谢谢[已结贴,结贴人:]
发表于：2007-06-18 12:47:59 楼主
private   sub   cmdcancel_click（)
        unload   me
end   sub

private   sub   cmdok_click（)
      dim   mima
      mima   =   trim（text2.text)


        rs.open   "select   username,pwd   from   admin   where   username= ' "   &   trim（text1.text)   &   " '   and   pwd= ' "   &   md5（mima)   &   " ' ",   conn,   adopenstatic,   adlockreadonly,   adcmdtext
        if   rs.eof   =   true   and   rs.bof   then
              beep
              msgbox   "请重新登录 "
              text1.text   =   " "
              text1.setfocus
        else
              form1.hide
        end   if
        rs.close
end   sub

private   sub   form_load（)
        login.caption   =   "登陆窗口 "
        login.top   =   （screen.height   -   login.height)   /   2
        login.left   =   （screen.width   -   login.width)   /   2         '窗口居中
       
        dim   conn       as   new   adodb.connection
        dim   rs       as   new   adodb.recordset
       
        conn.connectionstring   =   "driver={sql   server};server=wangxinfei;uid=sa;pwd=;database=library "
        conn.connectiontimeout   =   30
        conn.open

        '连接数据库
        label1.caption   =   "用户名： "
        label2.caption   =   "密码： "
        text1.text   =   " "
        text2.text   =   " "
        cmdok.caption   =   "确定 "
        cmdcancel.caption   =   "取消 "
end   sub


刚刚学习vb     谢谢您！！
发表于：2007-06-23 15:22:041楼 得分:0
首先你没有md5加密子程序，所以你调用md5（text2.text)肯定会提求“过程未定义”
另外，你要问别人错在哪里，最好请把你遇到的错误提求一并贴出来，不然我相信没有多少人会一句句读你的程序再看看哪里会出错的！
发表于：2007-06-23 15:41:342楼 得分:0
還有,沒分的貼也太不道義了.....

相关文章
其他资讯

快速检索
分类导航标签a

最新资讯
热门点击