学生管理系统之添加用户窗体

        学生已经进行了一个多月了，自学校开学以来，各种专业课，各种事情忙的不可开交，学习项目已经停滞了2周了，每天没有进度没有更新，很无奈，值此十月一良辰佳节，要好好规划一下时间，好好安排时间，抓紧把学生结掉。现在自己经过了几天的努力，调试和优化了第一个窗体——添加用户窗体，感觉有所收获，也给自己提升了一点自信，总是感觉自己什么原理都不懂，有点懵，不愿意调试，现在第一个窗体已经完成，跨出了第一步，相信未来的路自己也可以稳稳的走过！

 

【添加用户窗体之问题篇】

问题一.“91错误”

问题原因：（一）.数据库连接有问题：

解决方法：1.检查代码是否有问题：

 txtSQl = "select * from user_info"
 Set mrc = ExecuteSQL(txtSQl, msgtext)

 注意：（1）查询语句中user_info不要把info写成lnfo,“i”不是“l”；

            （2）语句中的符号不能错误，注意不要多空格等无效符号。

   

2.SQL配置有问题导致数据库连接不上：

（1）检查SQL Server配置是否有服务为启动：开启服务

 （2）检查ODBC连接数据库的数据源配置是否有问题：

是否有student文件：

如果没有，则从新配置，注意配置是选择的文件的保存位置为文档：

配置好ODBC之后测试一次，测试连接成功及ODBC配置OK了。

（3）ODBC配置没有问题，最后要检查一下数据库是否可以连接成功！

 

问题二：无效限定符：

问题原因：代码错误： 注意（”,“）是逗号不是点

 txtSQl = "select * from user_info"
 Set mrc = ExecuteSQL(txtSQl, msgtext)

注意Set mrc = ExecuteSQL(txtSQl, msgtext)（”,“）是逗号不是点！

ExecuteSQL是自定义函数， ExecuteSQL是执行SQL语句，里面的两个参数：TXTSQL是指用来执行的SQL语句，比如：select*from 表；MsgText参数指的是实行完SQL语句后的弹出框，是成功了还是失败了之类的！

【添加用户窗体之优化篇】

1.设置快捷键enter--进入界面，esc--退出界面！

代码：

Private Sub Form_Load()

 '设置快捷键
     cmdCancel.Cancel = True   '这个属性对应 ESC 键
     cmdOk.Default = True      '这个属性对应的是按  Enter 键

End Sub   

2.设置限制窗体大小以及位置为屏幕中心或者为主窗体中心：

（1）设置屏幕中心：

方法一：设置属性：form 窗体的startUpPosition 属性：2-屏幕中心

StartUpPosition 常数 值 描述：
vbStartUpManual 0 没有指定初始设置值。
vbStartUpOwner 1 UserForm 所属的项目中央。
vbStartUpScreen 2 屏幕中央。
vbStartUpWindowsDefault 3 屏幕的左上角。

方法二.代码设置：

Private Sub Form_Load()

  '设置username窗体弹出为屏幕中心
   frmAdduser.Move ((Screen.Width - frmAdduser.Width) / 2), ((Screen.Height - frmAdduser.Height) / 2)

End

（2）设置子窗体为主窗体的中心：

      Me.Left = (frmMain.Width - Me.Width) / 2
      Me.Top = (frmMain.Height - Me.Height) / 2

(3)'限制窗体大小不可变

Private Sub Form_Resize()
      Static i  As Integer
      If i <> 0 Then MsgBox "不可改变窗体大小"  
      i = i + 1
End Sub

'这段代码等于form的属性BorderStyle为3-Fixed Dialog(固定对话框）

3.加入背景图片并设置为全屏：

（1）图片我采用的picture属性加入背景图片

（2）设置为全屏：

Private Sub Form_Resize()
      '设置背景图片为全屏
      Me.AutoRedraw = True
      Me.PaintPicture Picture, 0, 0, Me.ScaleWidth, Me.ScaleHeight
end if 

在主窗体MDIFrom的图片添加时，此段代码不能使之实现全屏，我采用最简单的方法就是把背景图片的大小调大点，使之能满足主窗体的大小。

(3)若要删除背景图片：

<1>在属性窗口修改的Picture属性.必须选中Bitmap字样按delete键 即可;

<2>代码：Form1.Picture = LoadPicture("")