请看这里！高手们帮我翻译下这段程序~~~我急用万分谢谢啦！

2010-10-26 09:49:54 127 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

【黑科技】基于GPT开发的4款免费AI办公神器，实用又强悍！比如说，如果你是学生党，那么可以上传一份你正在阅读的论文，让他训练，然后问他一些你自己看论文时，可能没弄懂的问题，看AI的理解是不是对你有所帮助，如果你是打工人，不想从头到尾的去阅读某份产品文档，或者是商业报告，那就可以把文件上传给它，训练之后当你问它相关问题时，他不仅能够做出直接的回答，还会告诉你它的答案都参考了文档中哪些章节和页码。好，以上就是本期所有内容，除了刚才介绍的这几款，还有很多非常实用的AI工具，你可以点点关注，这将是我们分享最大的动力！阅读详情

请逐条解释~~~~~~~谢谢！谢谢！

Private Function Check_PassWord() As Byte
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim connstr
connstr = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & App.Path & "\db1.mdb;"
conn.Open connstr
username = Trim(username.Text)
password = Trim(password.Text)
strSQL = "SELECT * FROM 系统用户 WHERE username='" & username & "'"
Set objRs = conn.Execute(strSQL)
If objRs.EOF Then
Check_PassWord = 0
Else
If password <> Trim(objRs("password")) Then
Check_PassWord = 1
Else
Check_PassWord = 2
CurrentUserName = objRs("username")
CurrentUserPassWord = objRs("password")
' CurrentUserStatus = objRs.Fields("身份").Value
End If
End If
conn.Close
Set objRs = Nothing
Set conn = Nothing
Exit Function
Check_PassWord = 255
End Function

...全文

华为MateBook Ego的ARM Windows 11上Hyper-V虚拟机的性能优化与实战本文详细介绍了在华为MateBook Ego的ARM架构Windows 11系统上，如何利用原生Hyper-V虚拟机进行性能优化与实战部署。文章指出，Hyper-V凭借其硬件辅助虚拟化技术，在ARM平台上实现了近乎零损耗的“同构虚拟化”，性能表现远超第三方软件。内容涵盖从手动开启Hyper-V功能、获取并转换ARM64系统镜像，到创建虚拟机、关键参数优化及高级调优技巧的全流程，帮助用户充分发挥ARM设备潜力，构建高效可隔离的测试与开发环境。阅读详情

LIU891666

数据库(包含打印，安装，报表) 1,217 成员 55,949 内容

+ 关注 + 加入社区

切换为时间正序

mokton 2010-10-27

打赏
举报



Private Function Check_PassWord() As Byte

Dim conn As New ADODB.Connection '定义ADODB连接对象

Dim rs As New ADODB.Recordset '定义数据集对象

Dim connstr As String '定义连接字符串

connstr = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & App.Path & "\db1.mdb;" '给连接字符串赋值

conn.Open connstr '打开链接

  username = Trim(username.Text) '赋值 用于查询

  password = Trim(password.Text) '赋值 用于查询

  strSQL = "SELECT * FROM 系统用户 WHERE username='" & username & "'" '构造SQL语句

  Set objRs = conn.Execute(strSQL) '执行SQL语句

  If objRs.EOF Then '如果到了数据集的结尾

  Check_PassWord = 0 '赋值

  Else '

  If password <> Trim(objRs("password")) Then '判断呗

  Check_PassWord = 1 '赋值

  Else '

  Check_PassWord = 2 '赋值

  CurrentUserName = objRs("username") '读取数据库记录值给当前用户名

  CurrentUserPassWord = objRs("password") '读取数据库记录密码值赋值给当前用户密码

  ' CurrentUserStatus = objRs.Fields("身份").Value

  End If

  End If

  conn.Close '关闭数据库链接

  Set objRs = Nothing '清除对象

  Set conn = Nothing '清除对象

  Exit Function '

  Check_PassWord = 255 '

End Function

ahljxwy 2010-10-27

打赏
举报

就这些分不能逐条!

panyong 2010-10-27

打赏
举报



Private Function Check_PassWord() As Byte

Dim conn As New ADODB.Connection    '定义数据库连接

Dim rs As New ADODB.Recordset       '定义数据库查询

Dim connstr

connstr = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & App.Path & "\db1.mdb;"

conn.Open connstr   '连接"& App.Path & "\db1.mdb;"(程序目录下的数据库）  

username = Trim(username.Text) '获取名称为username的文本输入框名称的字符 Trim 是去掉字符中的空格

  password = Trim(password.Text) ’获取密码

  strSQL = "SELECT * FROM 系统用户 WHERE username='" & username & "'"

  Set objRs = conn.Execute(strSQL) '查询 系统用户表 WHERE username='" & username & "'"

意思是  在 系统用户表中 查询 所有符合 用户名称为 username的文本输入框 中一样的 数据

  If objRs.EOF Then 

  Check_PassWord = 0

  Else

  If password <> Trim(objRs("password")) Then

  Check_PassWord = 1

  Else

  Check_PassWord = 2

  CurrentUserName = objRs("username")

  CurrentUserPassWord = objRs("password")

  ' CurrentUserStatus = objRs.Fields("身份").Value

  End If

  End If

  conn.Close

  Set objRs = Nothing

  Set conn = Nothing

  Exit Function

  Check_PassWord = 255

End Function

请看这里！高手们帮我翻译下这段程序~~~我急用 万分谢谢啦！

相关推荐

请看这里！高手们帮我翻译下这段程序~~~我急用万分谢谢啦！