# 学生管理系统问题总结-续

学生管理系统问题总结-续

前言

前些日子，验收了学生管理系统的项目。本以为自己优化的已经很好了，但是在高人的指点下依然有提升的空间！下面就来说说需要注意的问题，和自己后期的一些优化！

注意的问题

1、代码缩进的问题。大家都知道，一个大型的程序会有很多很多的代码，所以一定要做好缩进。这样可以保持代码语句清晰的逻辑性，在后期调试的时候更加方便。

2、代码注释的问题。以前在敲百例还有红皮书的时候，我就不爱写注释，这次学生以为写了不少，但是在高人的眼中，还是太少了。代码注释也同样要注意格式问题，也就是注释的位置。注释是要让别人清楚地看懂，从现在开始养成好的 习惯，将来在工作中 会进行的更加顺利！

3、学生管理系统虽然 有源码，但是我们在敲完一遍后对代码也要有一定程度上的理解。这样才能得到一点一滴的积累。

进一步优化

1、设置主界面还有子窗体更换背景。

上一篇博客里面写了如何在父窗体上添加image控件。这里就不详细在做介绍了！

（1）、在无边窗体上添加image控件，还有四个command控件。



（2）、然后在所有你要更换背景的窗体上做以下设置。

a.向窗体中添加image控件，右键控件——选择 置后。将image控件的stretch属性值改为true。

b.然后改控件名称，保证他是唯一的！

c.将该窗体中的所有label 控件的backstyle属性值改为0

d.在窗体的load事件中添加代码——

Imageresultinfo.Height = Me.Height
Imageresultinfo.Width = Me.Width
Imageresultinfo.Top = 0
Imageresultinfo.Left = 0

（3）、在无边框窗体的command-click事件中添加代码，用来加载窗体要更换的背景！

frmadduser.Imageadduser.Picture = LoadPicture(App.Path & "\背景\1.jpg")
frmabout.Imageabout.Picture = LoadPicture(App.Path & "\背景\1.jpg")
frmaddclassinfo.Imageaddclassinfo.Picture = LoadPicture(App.Path & "\背景\1.jpg")
frmaddcourseinfo.Imageaddcourseinfo.Picture = LoadPicture(App.Path & "\背景\1.jpg")
frmaddresult.Imageaddresult.Picture = LoadPicture(App.Path & "\背景\1.jpg")
frmmodifyclassinfo.Imagemodifyclassinfo.Picture = LoadPicture(App.Path & "\背景\1.jpg")
frmmodifycourseinfo.Imagemodifycourseinfo.Picture = LoadPicture(App.Path & "\背景\1.jpg")
frmmodifysinfo.Imagemodifyinfo.Picture = LoadPicture(App.Path & "\背景\1.jpg")
frmmodifyuserinfo.Imagemodifyuserinfo.Picture = LoadPicture(App.Path & "\背景\1.jpg")
frmresultinfo.Imageresultinfo.Picture = LoadPicture(App.Path & "\背景\1.jpg")
frmsetcourseinfo.Imagesetcourseinfo.Picture = LoadPicture(App.Path & "\背景\1.jpg")
frmsinfo.Imagesinfo.Picture = LoadPicture(App.Path & "\背景\1.jpg")

2、login界面的优化。

先来看看我优化后的样子，感觉有一点点幼稚，但是我觉得挺有活力的！



原理很简单，圆形窗体用到了百例里面的内容！

Private Sub Form_Load()
Dim h, d As Long
Dim scrw, scrh As Long
scrw = Me.Height / Screen.TwipsPerPixelX
scrh = Me.Height / Screen.TwipsPerPixelX
h = CreateEllipticRgn(0, 0, scrw, scrh)
d = SetWindowRgn(Me.hWnd, h, True)
end sub

前提是，将login窗体改为无边框状态！就是他的borderstyle属性值为0

然后加image控件，将其置后。设置方法和上面设置别进的方法基本一致。

结束语

分享到这里就结束了，感谢您的阅读！