VB新手请求翻译每一句的意思

来源:百度知道 编辑:UC知道 时间:2024/05/25 21:46:04
Option Explicit
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As Long
Public OK As Boolean
Dim txtSQL As String
Dim Mrc As ADODB.Recordset
Dim Msgtext As String
Dim miCount As Integer

Private Sub Command2_Click()
MDIFormMain.banchu.Enabled = False
MDIFormMain.bangai.Enabled = False
MDIFormMain.bantian.Enabled = False
MDIFormMain.chenggai.Enabled = False
MDIFormMain.chenglu.Enabled = False
MDIFormMain.chengshan.Enabled = False
MDIFormMain.chengxun.Enabled = True
MDIFormMain.dangchu.Enabled = False
MDIFormMain.danggai.Enabled = False
MDIFormMain.dangru.Enabled = False
MDIFormMain.dangxun.Enabled = True
MDIFormMain.tianjiazaxian.Enabled = False
MDIFormMain.jiangji.Enabled = False
MDIFormMain.tianyuan.Enabled = False
MDIFormM

这是一个数据库登陆程序,用的是ADO,给你讲也不会一下就明的,多学一下基础的东西,自己就看懂了。

OH MY GOD~!

这个是VB6的吧。多看些资料就知道了。叫人翻译太慢了。

代码不全

不好意思,我刚开学,只了解一点皮毛。