问题集结（二）

5.

txtSQL = "select *from student_info" 'where UserID='" & Trim(txtUserName.Text)& "'" & "order by UserID"

Set mrc= ExecuteSQL(txtSQLday,MsgTextday)

mrc.EOF与Trim(mrc.Fields(0)) <>Trim(txtUserName.Text)语句区别，为什么前者不存在其他问题，而后者出现如下图问题？

这是因为前面数据字段连接的时候，已经通过字段UserID连接，下面代码mrc就可以直接替代mrc.fields(0),而多次读取它就会多余，系统容易反应不过来（我个人理解，其他答案可以和我分享哦）

6.登陆进来以后怎么判断用户的权限？

直接判断数据字段内容，符合要求就显示某些功能，不符合则不能使用。

例：

Private Sub MDIForm_Load()

Dim mrc As ADODB.Recordset
Dim txtSQL As String,MsgText As String


txtSQL = "select * from User_Info where userID='" & UserName & "'" '数据表定位连接
Set mrc = ExecuteSQL(txtSQL,MsgText)


If mrc.BOF And mrc.EOF Then


Else


If mrc.Fields(2) = "一般用户" Then
' Generaluser.Enabled=True(如果属性是默认值，则此语句可有可无）
Operator.Enabled = False


Administrator.Enabled = False


ElseIf mrc.Fields(2) = "操作员" Then
Operator.Enabled = True
Administrator.Enabled = False


ElseIf mrc.Fields(2) = "管理员" Then
Administrator.Enabled = True


End If
End If

End sub

7.在主窗体下,子菜单为什么显示在Picture后面?

因为 MDI 程序中 子窗体实际上是位于 MDIClient 里，就是说 子窗体的父窗体 是 MDIClient ，而 放置在MDI中 的 picturebox 和MDIClient是同一级的 层次结构

ThunderMDIForm--MDIForm1

--MDIClient

----ThunderFormDC--Form1子窗体1

----ThunderFormDC--Form2子窗体2

--ThunderPictureBoxDCMDI中 的picturebox 如果硬要将子窗体放到上面 ，只能是

PrivateDeclare Function SetParent Lib "user32" (ByVal hWndChild As Long,ByVal hWndNewParent As Long) As Long

SetParentForm1.hWnd,MDIForm1.hWnd

这样就破坏了 Form1的消息循环，程序可以运行，但窗体效果就不对了

MDI主窗体中显示一个背景，是MDI自绘背景 ，图片应该绘制在MDIClient上，而不能加载picturebox ，这个要通过回调才能实现VB MDI 显示背景图

PrivateSub MDIForm_Load()

Me.Picture= LoadPicture("c:1.bmp")

EndSub

只能显示在左上角

8.判读数据是否更改，如果没有修改不允许放入数据库，否则放入数据库！

思路：将数据内容与数据库内容想对比，都相同则就是没有更改，否则就是已经修改的，修改过的通过Update更新。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!