以下这段代码的中文意思是

Enabled = True Form2.selcourse.Enabled = True Form2, "登录信息" i = i + 1 Text1.stu.Text = "" Text2.Toolbar1.Visible = True Form2;) zhuany = Adodc1.Fields("x&quot.Enabled = False Unload Me Else If i = 2 Then MESSAGE = MsgBox(&quot.infocenter.Enabled = True Form2;登录信息" Text1.Enabled = True Form2.login.Enabled = False Form2.loginpw.Enabled = True Form2.SetFocus End If Else MsgBox "输入错误，请重新输入！".Text = "" Text2.Text = &quot, "登录信息" i = i + 1 Text1.Fields("spw&quot, 48;") psw = Adodc1.Recordset.Fields(&quot.Enabled = False Form2.Recordset;)) Then zh = Adodc1.Fields("zy") banj = Adodc1.Recordset.Fields(&quot.Text = "" Text1, 0, &quot.Enabled = True Form2.course.Data.Enabled = False Form2.administrator.Enabled = False Form2.school.Recordset;xy"select * from stuinfo where sno like '，您无权对系统进行管理！";对不起.stuadmin.Enabled = False Form2.cjadmin.Enabled = False Form2.courseadmin.Enabled = False Form2.xkadmin.Enabled = False Form2.contentadmin.Recordset;输入错误，请重新输入！", 48;bj"spw") xm = Adodc1.Recordset.Fields(&quot.Show Form2.zx;sname") xuey = Adodc1.Recordset.Fields(&quot.Fields("sno") Form2.Text & "%'" Adodc1.Refresh If Adodc1.Recordset.RecordCount > 0 Then If Text2.Text = Trim(Adodc1;) xi = Adodc1Dim i As Integer Private Sub Command1_Click() Dim MESSAGE As String Adodc1.RecordSource = &quot.Recordset;) If MESSAGE = vbOK Then End End If MsgBox "%" & Text1

Recordset.loginpw.RecordSource =“选择其中的SnO *从stuinfo像'％”＆Text1.Enabled =假
Form2.Fields（“石排湾”）
XM的= Adodc1.Recordset.Fields（“sname”）
xuey = Adodc1.Recordset.Recordset.infocenter.Enabled =真
Form2.stuadmin.Text＆“％'我在昏暗的整数
私人小组Command1_Click（）
昏暗的消息正如字符串
Adodc1.Enabled =假
Form2.login，那么
如果Text2.Text =修剪（Adodc1.Recordset.Fields（“石排湾”））然后
深航= Adodc1.contentadmin.Enabled =假
Form2.Data.Toolbar1.Visible =真
Form2.stu.Enabled =真
Form2.course.RecordCount> 0，请重新输入”！.xkadmin.Enabled =真
Form2.Enabled =假
Form2.Enabled =假
Form2，48，“登录信息”
我=我+ 1
Text1.Text =“”
Text2.Text =“”
Text1.SetFocus
如果完
其他
MsgBox“输入错误.Fields（“氧化锡”）
PSW内= Adodc1.cjadmin.courseadmin.selcourse.Enabled =假
Form2.Enabled =真
Form2.Recordset.Fields（“量X”）
十一= Adodc1.Recordset.Fields（“x”的）
zhuany = Adodc1.Recordset.Fields（“资源”）
banj = Adodc1.Recordset.Fields（“北京”）
Form2.Show
Form2.zx，48，“登录信息”
我=我+ 1
Text1.Text =“”
Text2，您无权对系统进行管理！”，0，“登录信息”）
如果消息= vbOK然后结束
如果完
MsgBox“输入错误，请重新输入”！.Enabled =假
Form2.Enabled =假
Form2.Enabled =真
Form2.administrator.Enabled =真
Form2.school.Enabled =假
我卸载
其他
如果i = 2然后
留言系统平台上不可（“对不起;”
Adodc1.Refresh
如果Adodc1


参考资料：Google 翻译

且 怎么简单的问题，，，告诉你不就被你知道了？