学生已经进行了一个多月了,自学校开学以来,各种专业课,各种事情忙的不可开交,学习项目已经停滞了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("")