学校排课管理信息系统推荐.ppt

i = 1 clearStr While Not trrs.EOF While trrs!iTimeN i 插入一条记录 strSql = insert into tempTT values( i , + + wStr(1) + , + + wStr(2) + , + + wStr(3) + , + + wStr(4) + , + + wStr(5) + , + clStr(1) + , + + clStr(2) + , + + clStr(3) + , + + clStr(4) + , + + clStr(5)+ ) ttCon.Execute strSql clearStr i = i + 1 Wend wStr(trrs!iTimeW) = trrs!csubject clStr(trrs!iTimeW) = trrs!cClassCode trrs.MoveNext Wend 插入一条记录 strSql = insert into tempTT values( i , + + wStr(1) + , + + wStr(2) + , + + wStr(3) + , + + wStr(4) + , + + wStr(5) + , + clStr(1) + , + + clStr(2) + ,+ + clStr(3) + , + + clStr(4) + , + + clStr(5) + ) ttCon.Execute strSql clearStr While i 10 i = i + 1 插入一条记录 strSql = insert into tempTT values( i , + + wStr(1) + , + + wStr(2) + , + + wStr(3) + , + + wStr(4) + , + + wStr(5) + , + clStr(1) + , + + clStr(2) + , + + clStr(3) + , + + clStr(4) + , + + clStr(5) + ) ttCon.Execute strSql Wend End Sub 6．窗口关闭事件处理函数 该函数的作用是实现用户在关闭相应的窗体事件时释放相应的数据源，具体代码如下： Private Sub Form_Unload(Cancel As Integer) ttrs.Close ttCon.Close Set ttrs = Nothing Set ttCon = Nothing trcon.Close Set trrs = Nothing Set trcon = Nothing End Sub 4.3.10 设计帮助窗体(frmAbout.frm)界面 本帮助窗体的作用主要是用来显示系统的一些基本信息。其具体设计方法为：在窗体中单击右键并点选【添加】→【添加窗体】选项，然后在弹出的对话框中点选【“关于”对话框】选项，如图4-3-10所示。 图4-3-10 添加【“关于”对话框】窗体 然后在弹出的窗体中添加相应的控件信息，并将其命名为frmAbout.frm。设计视图如图4-3-11所示。 在设计好本窗体中的各个控件及属性信息之后，接下来就是为该窗体中的各个控件添加相应的程序代码了。 图4-3-11 设计好的frmAbout.frm窗体 1．定义常量和函数 本段代码的作用是定义一些注册表关键字及一些自定义函数。具体代码设计如下： Option Explicit 注册表关键字安全选项... Const READ_CONTROL = H20000 Const KEY_QUERY_VALUE = H1 Const KEY_SET_VALUE = H2 Const KEY_CREATE_SUB_KEY = H4 Const KEY_ENUMERATE_SUB_KEYS = H8 Const KEY_N