VisualBasic程序设计案例教程湖南省教育科学“十一五”规划重点项目李勇帆第19讲幻灯片.pptVIP

馋死 PPT研究院 POWERPOINT ACADEMY * * * * * * （8）在系统主界面中选择【系统维护】|【数据库备份】菜单命令或单击工具栏中的 按钮，就可以进入数据库备份窗体，如图15-22所示，选择输出磁盘位置和文件夹即可。选择【系统维护】|【关于系统】菜单命令，就可以进入关于学生管理系统窗体，显示该系统的相关信息，如图15-23所示。 图15-22　数据库备份窗体　　　 图15-23　关于学生管理系统窗体 学生管理系统的程序开发 本节只介绍几个重要模块的实现过程，其他模块的详细代码请参见本书提供的\学生管理系统文件夹的源代码（可在人民邮电出版社的教学与服务资源网上下载）。在Visual Basic编程的过程中需要用到很多ActivceX控件，所以在编程以前必须添加这些部件。通过Visual Basic界面，选择【工程】|【部件】菜单命令，然后按照图15-24所示选择相应的部件，各个部件的类型及其用法请参照相关文献。 图15-24　控件选择窗体 学生管理系统的主要功能模块程序设计 公共模块 公共模块（Modulel.bas）主要由3个函数组成：函数ExecuteSQL用于执行相应的SQL命令；函数Connstring用于连接字符串；函数Executeqx用于检查用户的权限。具体代码见书本。 学生管理系统的主要功能模块程序设计 班级管理模块 班级管理模块、学生档案管理模块功能类似，在此以班级管理模块为主介绍，其他模块请参见源代码。在班级管理模块中，用户可以添加、修改、删除、查找、浏览班级信息。 1．frm添加班级资料.frm窗体 “添加班级资料设置”所对应的窗体frm添加班级资料.frm，如图15-7所示，“添加班级资料设置”和“修改班级资料”都是由这一窗体实现的，此窗体的代码主要有两个功能： ①使用此窗体可以应用于“添加”和“修改”两种状态； ②根据条件，确定是否可以“添加”或“修改”班级资料。 学生管理系统的主要功能模块程序设计 Public Sub classload() Dim mrc As ADODB.Recordset If classmodi Then　如果是修改状态 　 Me.Caption = 修改班级设置 　 classstr = select * from class where 班级= Trim(frm班级资料浏览.MSF1.TextMatrix (frm班级资料浏览.MSF1.Row, 2)) 　 Set mrc = ExecuteSQL(classstr) 　 mrc.MoveFirst 　 For i = 0 To 6 　 Text1(i).Text = mrc.Fields(i) 　 Next i 　 mrc.Close Else 　 Me.Caption = 添加班级设置 　 For i = 0 To 6 　　 Text1(i).Text = 　 Next i 　 End If End Sub 学生管理系统的主要功能模块程序设计 根据条件，确定是否可以“添加”或“修改”班级资料 Private Sub Command1_Click() For j = 0 To 5 　 If Text1(j) = Then 　　　 ss = MsgBox(Label2(j).Caption 不能为空！, vbExclamation + vbOKOnly, 警告) 　　　 Text1(j).SetFocus 　　　 Text1(j).SelStart = 0 　　　 Text1(j).SelLength = Len(Text1(j).Text) 　　　 Exit Sub 　　 End If Next 学生管理系统的主要功能模块程序设计 Dim mrc As ADODB.Recordset If classmodi = False Then 　classstr = select * from class where 班级= Trim(Text1(1).Text) 　Set mrc = ExecuteSQL(classstr) 　If mrc.EOF = False Then 　　 sss = MsgBox(已经存在该班级的设置，不能重复！, vbonly, 警告) 　　 Text1(1).SetFocus 　　 Text1(1).SelStart = 0 　　 Text1(1).SelLength = Len(Text1(1).Text) 　　 mrc.Close 　 Exit Sub 　End If End If classstr = delete * from class where 班级= Trim(Text1(