求高手解释VB代码(逐条)
来源:百度知道 编辑:UC知道 时间:2024/09/28 17:35:00
1.登录部分代码:
==============按钮cmdOK的点击事件=============
Private Sub cmdOK_click()
==============连接查询数据库=================
Adodc1.RecordSource = "select * from Table_Users where 用户名='" + Trim(Text1.Text) + "'and 密码='" + Trim(Text2.Text) + "'"
==============刷新==========================
Adodc1.Refresh
=====================如果有记录就=========
If Adodc1.Recordset.RecordCount > 0 Then
================读取级别放到strOK里=========
strOk = Adodc1.Recordset.Fields("级别")
===============如果级别是"系统操作员"就======
If strOk = "系统操作员" Then
====下边是frm_main窗体上一系列控件的属性设置,我就不一一说明了=====
=========enabled属性为true时,该控件才能使用========
frm_main.gkgl.Enabled = True
frm_main.gkxx.Enabled = True
frm_main.gkxxcx.Enabled = True
......
frm_main.sjh