智能排课系统vb代码.doc

《智能排课系统vb代码.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、Vb核心代码设计一：输入界面与代码（以班级表为例）DimConnAsNewADODB.Connection'连接变量DimSqlStringAsString'查询字符串DimConnstringAsString'连接字符串DimRS1AsNewADODB.Recordset'记录集变量Dimbm'定义一个变量用来存放添加记录时原来记录的位置DimtjAsBooleanPrivateSubCommand10_Click()Form4.HideForm3.ShowEndSubPrivateSubCommand1_Click()'移到首记录RS1.MoveFirs

2、tCommand1.Enabled=FalseCommand2.Enabled=FalseCommand3.Enabled=TrueCommand4.Enabled=TrueCallDispValue'显示当前记录的值EndSubPrivateSubCommand2_Click()'前移RS1.MovePreviousIfRS1.BOFThenRS1.MoveFirstCommand1.Enabled=FalseCommand2.Enabled=FalseEndIfCommand3.Enabled=TrueCommand4.Enabled=TrueCallD

3、ispValue'显示当前记录的值EndSubPrivateSubCommand3_Click()'后移RS1.MoveNextIfRS1.EOFThenRS1.MoveLastCommand3.Enabled=FalseCommand4.Enabled=FalseEndIfCommand1.Enabled=TrueCommand2.Enabled=TrueCallDispValue'显示当前记录的值EndSubPrivateSubCommand4_Click()'移到末记录RS1.MoveLastCommand3.Enabled=FalseCommand4

4、.Enabled=FalseCommand1.Enabled=TrueCommand2.Enabled=TrueCallDispValue'显示当前记录的值EndSubPrivateSubCommand5_Click()'删除记录If(MsgBox("真的要删除该记录吗？",vbQuestion+vbYesNo,"删除提示")=vbYes)ThenRS1.Delete'删除RS1.MoveNextIfRS1.EOFThen'如果删除的是末记录RS1.MoveLastEndIfEndIfCallDispValue'显示当前记录的值EndSubPrivateSu

5、bCommand6_Click()'添加记录bm=RS1.Bookmark'用书签记下当前记录位置RS1.AddNew'调用AddNew方法增加新记录CallEditStatus'置按钮和文本框状态CallEmptyText'清空文本框tj=True'是添加新记录EndSubPrivateSubCommand7_Click()'修改记录CallEditStatus'置按钮和文本框状态tj=False'不是添加记录，是修改记录EndSubPrivateSubCommand8_Click()'确定操作CallSetValue'给各字段赋值RS1.Update'调

6、用Update方法保存CallOkStatus'置按钮和文本框状态MsgBox("保存成功")'给出保存成功提示EndSubPrivateSubCommand9_Click()'取消操作If(MsgBox("真的要取消修改吗？",vbQuestion+vbYesNo))=vbYesThenRS1.CancelUpdateIftjThen'如果是增加新记录RS1.Bookmark=bm'把记录指针移动到原来的位置EndIfCallDispValue'显示当前记录的值CallOkStatus'置按钮和文本框状态EndIfEndSubPrivateSubForm_

7、Load()Connstring="Driver={SQLServer};Server=PC2012110412ewr.;Database=GXPK;"_&"uid=sa;pwd=t123"'SQLServer普通安全模式建立到Pubs数据库的连接的连接字符串'设置连接字符串WithConn.ConnectionString=Connstring'给ConnectionString属性赋值.ConnectionTimeout=10.Open'给连接的ConnectionString属性赋值，然后使用求带参数的Open方法打开连接EndWithMsgBox("

8、连接成功")RS1.CursorType=adOpe