智能排课系统vb代码Word格式文档下载.docx

1、移到末记录Private Sub Command5_Click（） 删除记录 If （MsgBox（真的要删除该记录吗, vbQuestion + vbYesNo, 删除提示） = vbYes） Then 删除 If Then 如果删除的是末记录Private Sub Command6_Click（） 添加记录 bm = 用书签记下当前记录位置调用AddNew方法增加新记录 Call EditStatus 置按钮和文本框状态 Call EmptyText 清空文本框 tj = True 是添加新记录Private Sub Command7_Click（） 修改记录 tj = False 不是添

2、加记录，是修改记录Private Sub Command8_Click（） 确定操作 Call SetValue 给各字段赋值调用Update方法保存 Call OkStatus MsgBox （保存成功） 给出保存成功提示Private Sub Command9_Click（） 取消操作真的要取消修改吗, vbQuestion + vbYesNo） = vbYes Then If tj Then 如果是增加新记录 = bm 把记录指针移动到原来的位置Private Sub Form_Load（） Connstring = Driver=SQL Server;Server=PC12ewr.;D

3、atabase=GXPK; _ & uid =sa;pwd=t123SQL Server普通安全模式建立到Pubs数据库的连接的连接字符串设置连接字符串 With Conn .ConnectionString = Connstring 给ConnectionString属性赋值 .ConnectionTimeout = 10 .Open 给连接的ConnectionString属性赋值，然后使用求带参数的Open方法打开连接 End With连接成功） = adOpenDynamic = adUseClient 游标服务的位置、默认值adUseServer。游标用于：控制记录定位、控制其他用户

4、对数据库所作的更改的可视性、控制数据可更新性 = adLockOptimistic班级信息表, Conn, 3, 3 If And Then 如果表为空 MsgBox 表为空，请添加记录 Else Call TextDisable 使文本框不可用Private Sub DispValue（） = （班级编号 If IsNull（Trim（班级名称） Then 解决课程名字段值为空移指针出错（无效使用NULL）的问题，其他字段类推。 = 所属系学生人数Private Sub SetValue（） （） = 所属系称Private Sub TextEnable（） 使所有的文本框可用Private

5、 Sub TextDisable（） 使所有的文本框不可用Private Sub EditStatus（） 设置在编辑或添加记录时的各控件状态 Call TextEnablePrivate Sub EmptyText（） Private Sub OkStatus（） 设置不在编辑或添加记录时的各控件状态 Call TextDisable2、查看课表窗口及代码（以教室课表为例）Dim Cmd As New Private Sub Command1_Click（） = False 连接按钮不可用 = True 显示数据可用Private Sub Command2_Click（） Set = Con

6、n 设置Command对象的ActiveConnection为某个打开的连接 SqlString = Select 课程名称,教师姓名,上课教室,班级编号,上课时间 from 排课表 Where 上课教室 like 形成查询字符串1 = SqlString 设置Command对象执行的命令字符串 = adCmdText 设置命令类型,表示CommandText中为一命令文本 ,童P188 Set RS1 = 执行命令得到一个结果记录集 Call ShowData（RS1, MSFlexGrid1） 调用过程显示记录集中的数据Private Sub ShowData（Rs As , Dgrid

7、As MSFlexGrid）该过程用来在Dgrid网格中显示记录集RS中的内容 Dim RowNum As Integer RowNum = 1 代表MsFlexGrid控件的行数 = RowNum 设置MsFlexGrid控件的行数 = 设置MsFlexGrid控件的列数 For j = 0 To - 1 遍列所有列 （0, j） = （j）.Name 把列名显示在设置MsFlexGrid控件的首行 Next j Do While Not 如果不是记录集的结尾 RowNum = RowNum + 1 行数加1 If Not IsNull（j）.Value） Then 如果列中的数据不为空,切

8、记不能用如 if Var1=Null来判断变量Var1的值是否为Null （RowNum - 1, j） = （j）.Value 把列的数据显示在MsFlexGrid的相应网格中记录指针下移 LoopPrivate Sub Command3_Click（）Private Sub Command4_Click（）关闭记录集关闭连接Private Sub Command5_Click（） vbModal, Me3、查看初始化窗口及代码Option ExplicitDim SQL As StringDim Connstring As StringDim msg As String Private S

9、ub CmdSave_Click（）进行初始化操作 Dim Counnter As Integer = 200 = msg = MsgBox（您确实要初始化这些数据吗, vbYesNo） If msg = vbNo Then Exit Sub For Counnter = To = Counnter If = 1 Then 如果班级信息表被选中删除全部提醒信息数据 SQL = delete from 班级信息表 SQL如果课程信息表被选中删除全部通讯日志数据delete from 课程信息表如果班级课程信息表被选中删除全部群组信息数据delete from 任课表如果教师信息表被选中删除全部联

10、系人信息数据delete from 教师信息表如果排课信息表被选中delete from 排课表 Next CounnterPrivate Sub CmdExit_Click（）退出操作Private Sub Form_Unload（Cancel As Integer）4、查看自动排课窗口及代码Dim dlaytime As IntegerDim sc As Set sc = New SQL = deletel 排课表 constr = SQL Server普通安全模式建立到Pubs数据库的连接的连接字符串 定义数据库连接 .ConnectionString = constr 开始Dim SQ

11、L, sqll, sqlll As StringDim rt As New Dim rm As New Dim rn As New Dim rp As New Dim rq As New Dim i As IntegerSet Rs = New select * from 任课表 Set Rs = （SQL） = 100Do While = 100 Then Load frmLoginElse dlaytime = dlaytime + 1 = dlaytimeEnd If5、查看手动调课窗口及代码Connstring = Select 课程名称,教师姓名,上课教室,班级编号,上课时间 from 排课表 调整教室If = Or = ） ThenMsgBox （请输入完整信息select * from 排课表 If Rs（上课教室） = Then该时间段该教室已被占用，请重新选择update 排课表 set 上课教室= + + where 课程名称= and 教师姓名= and 上课时间=教室调整成功调整时间该教室该时间段已被占用，请重新选择 Set Rs = New update 排课表 set 上课时间= and 教室名称= Set Rs = （S