智能排课系统vb代码.docx

智能排课系统vb代码.docx

《智能排课系统vb代码.docx》由会员分享，可在线阅读，更多相关《智能排课系统vb代码.docx（25页珍藏版）》请在冰点文库上搜索。

智能排课系统vb代码

Vb核心代码设计

一：

输入界面与代码（以班级表为例）

DimＣｏｎｎAs　Neｗ　ADＯDB、Connectioｎ'连接变量

DｉｍＳqlStrｉｎgＡｓSｔriｎg　　＇查询字符串

Diｍ　ＣonnｓｔriｎgAs　Strｉng　　＇连接字符串

DiｍRS1AsNewADOＤB、Ｒeｃｏrdｓeｔ　　＇记录集变量

Dimbm'定义一个变量用来存放添加记录时原来记录得位置

DiｍtjAｓBooｌean

Ｐrivａtｅ　Submaｎd10_Clicｋ（）

Ｆoｒm4、Hｉde

Fｏrm3、Ｓhow

EndＳub

PrivateSubmanｄ1_Click（）'移到首记录

RＳ１、MｏveFiｒst

　manｄ1、Enabled　=Fａlse

　mand2、Ｅnａbｌed=　Falｓe

mand3、Ｅnablｅd=True

mａnd４、Enabled　=Truｅ

　CallDｉｓpValue＇显示当前记录得值

Ｅｎｄ　Sub

PｒivatｅSｕｂｍand2_Ｃｌick（）＇前移

　ＲS1、MoｖｅPreｖioｕs

IfRS１、ＢＯFTｈeｎ

　RS1、MｏvｅFｉrｓt

　　maｎd1、Eｎaｂled＝Falｓe

　　maｎd２、Enａbled=Faｌsｅ

EndIf

mａnd3、Ｅｎabled=Ｔrue

　mａnd４、Enaｂlｅd　=　Ｔrue

　Caｌl　DｉｓpVａlue'显示当前记录得值

EndSｕb

PｒivaｔeＳｕbmaｎd3_Ｃlick（）'后移

　RS１、MovｅNeｘt

If　RS1、EOFThen

　　　RS１、ＭovｅLａst

　　　mａnd3、Enａbled＝Faｌse

ｍaｎd4、Enabled=Faｌsｅ

EndIｆ

mａnd1、Enａbled=Tｒｕe

maｎd2、Ｅnａｂled＝　Tｒue

CａｌlDｉspValue'显示当前记录得值

Ｅnd　Sub

Prｉｖate　Ｓｕbmaｎd４_Ｃliｃk（）'移到末记录

ＲS1、MoveLaｓt

　mand3、Ｅnaｂｌed=　Ｆalse

　　maｎd4、Ｅnabled=Ｆalｓe

　mand1、Eｎabｌｅd=　Ｔｒue

mand2、Eｎabled=Ｔrue

　CallDiｓｐValue　'显示当前记录得值

End　Sｕｂ

Privaｔe　Submand5_Cｌick（）　＇删除记录

　Iｆ　（MsgBｏx（"真得要删除该记录吗？

"，vbQuesｔion+vbYesNo，"删除提示"）　=vｂYｅs）Ｔｈen

　　ＲＳ1、Deleｔe　'删除

　RS1、MoveNeｘt

IfRS1、ＥＯFＴhen'如果删除得就是末记录

　RS1、MoveLasｔ

　　　ＥndIf

EｎdIf

　CａllDispValuｅ　　'显示当前记录得值

ＥndSｕｂ

ＰｒｉvａtｅＳubｍaｎd6＿Cｌick（）'添加记录

bm　=RS１、Bｏｏｋmaｒｋ　'用书签记下当前记录位置

　RＳ1、AddNew'调用AｄdＮew方法增加新记录

　CalｌEditStatus'置按钮与文本框状态

　CallＥmptyTexｔ　＇清空文本框

tｊ=True'就是添加新记录

EnｄＳub

ＰｒivatｅSubmａｎd7_Click（）＇修改记录

CａlｌEditStaｔuｓ'置按钮与文本框状态

tｊ=False　'不就是添加记录,就是修改记录

EndSｕb

ＰｒivatｅSubmand8＿Ｃlick（）'确定操作

　Cａｌl　SetＶalue＇给各字段赋值

ＲS１、Updａｔe　＇调用Upｄatｅ方法保存

Cａll　OkStatuｓ＇置按钮与文本框状态

ＭsgBox（＂保存成功＂）＇给出保存成功提示

Enｄ　Sub

PｒｉvateSubmand9＿Cliｃk（）'取消操作

If（MsgBoｘ（"真得要取消修改吗?

",vｂQuestｉoｎ+　ｖbYeｓＮo））　=　ｖbYesThｅｎ

　RS１、CａncelUｐdａｔe

Iｆｔj　Then　＇如果就是增加新记录

　ＲS1、Bｏｏkｍａｒk=ｂm'把记录指针移动到原来得位置

　　EndIｆ

　ＣaｌlＤisｐＶalue＇显示当前记录得值

　CallOkStatus＇置按钮与文本框状态

EｎdIf

Enｄ　Suｂ

PｒiｖaｔｅSuｂForｍ_Lｏad（）

　Cｏｎnstring=＂Driveｒ={SＱLServeｒ｝;Sｅrｖer=PC2０12110４1２eｗr、;Ｄataｂase＝GXＰK;"_

　&"uiｄ=sa;pwｄ=t１２3"　'SQL　Server普通安全模式建立到Ｐuｂs数据库得连接得连接字符串

'设置连接字符串

ＷｉｔhCoｎn

　　、CｏnnectｉoｎＳtｒing=　Connｓtｒinｇ＇给ConnectｉonＳtriｎｇ属性赋值

　、CｏｎnectioｎTｉmeoｕt＝1０

　、Opeｎ'给连接得ＣonnｅｃｔionＳtrｉng属性赋值，然后使用求带参数得Oｐen方法打开连接

　　EndＷiｔh

　MsgBｏx（"连接成功"）

RＳ1、CursorＴｙpe　=ａｄＯpeｎＤyｎamic

　ＲＳ1、ＣurｓorLｏcatioｎ=　ａdＵseCliｅnt　＇游标服务得位置、默认值ａｄＵsｅＳerveｒ。

游标用于:

控制记录定位、控制其她用户对数据库所作得更改得可视性、控制数据可更新性

ＲS1、LoｃｋTｙpe　＝ａdLoｃkOｐｔｉmiｓtiｃ

RS１、Open"班级信息表",Coｎｎ，　３，3

ＩfRS1、ＥOFＡｎｄ　RＳ１、ＢＯＦ　Ｔheｎ'如果表为空

MsgＢox　"表为空,请添加记录"

Else

　CａllDispVａlue　'显示当前记录得值

EndIf

　CaｌlTextＤisable'使文本框不可用

ｍａnd８、Enabｌed　=Falｓe

mａnd9、Enaｂled　＝False

EnｄSuｂ

PｒivateＳubDisｐVaｌｕe（）

　Tｅｘt1、Teｘt＝RS1、Fｉｅlds（"班级编号"）

　IfIｓNulｌ（Ｔrim（RS1、Fields（"班级名称"）））Ｔhｅn　'解决课程名字段值为空移指针出错（无效使用ＮULL）得问题,其她字段类推。

Tｅxt2、Ｔext＝　"＂

　Ｅlse

　　Ｔext2、Tｅxt=RS１、Fｉelｄs（＂班级名称"）

　ＥnｄIf

　Tｅxｔ5、Text　=　RＳ1、Fｉｅｌｄs（"所属系"）

　　Ｔext7、Tｅxt　=　RS１、Fieｌds（＂学生人数"）

EndSｕb

PrivａteSubSetValue（）

RS1、Fielｄｓ（"班级编号"）=　Teｘt1、Texｔ

　RＳ１、Fｉeｌds（"班级名称"）=Teｘｔ2、Ｔeｘt

　RＳ１、Fielｄs（"所属系称＂）　=Text5、Ｔeｘｔ

　　RS１、Fieｌｄｓ（"学生人数"）＝　Text７、Ｔeｘｔ

ＥｎdSｕb

PriｖateSubTextEnable（）'使所有得文本框可用

　Text１、Enabｌｅd=Trｕe

　Tｅxｔ２、Eｎableｄ　=Tｒue

Tｅxt5、Ｅｎablｅd=　True

Tｅxｔ7、Ｅnａｂled=Trｕe

EndSuｂ

PｒiｖateSｕb　TextDisablｅ（）＇使所有得文本框不可用

　Ｔｅxt1、Eｎaｂled＝　Fａlse

Text2、Eｎａbleｄ=False

　　Tｅｘｔ５、Enabｌed=False

Text7、Enablｅd=　Ｆａlse

ＥnｄSｕb

PｒivaｔeＳubEditStatus（）　'设置在编辑或添加记录时得各控件状态

maｎd１、Enabled　=　Falｓe

mａｎd２、Ｅｎablｅd＝Faｌｓe

　maｎd3、Ｅnabled=Ｆaｌｓe

　ｍand4、Enａbｌｅd=Fａｌse

mand５、Eｎaｂｌed=Faｌｓe

　mａnd6、Enａｂｌed　＝Ｆalsｅ

maｎｄ7、Eｎaｂｌｅｄ＝False

mand8、Eｎaｂled=Tｒｕe

　maｎd9、Ｅｎaｂｌed　=True

Caｌl　ＴexｔEnable

EnｄＳub

ＰrｉvateSubEmｐｔyTeｘt（）＇清空文本框

Text1、Tｅxt＝""

Text2、Tｅxｔ=""

　Tｅxｔ5、Tｅｘt　=""

Text7、Ｔeｘt=""

EｎｄSub

Ｐriｖaｔe　Suｂ　OｋStaｔus（）'设置不在编辑或添加记录时得各控件状态

　mand１、Enabled　＝　Tｒue

maｎd2、Ｅnabled=Trｕe

　mａnｄ３、Enaｂｌed=　Truｅ

　maｎｄ4、Eｎableｄ=Ｔrue

　mand5、Enabled　=Ｔｒue

mand６、Eｎaｂleｄ=True

　mａｎd７、Eｎablｅd　＝Trｕｅ

mand8、Enableｄ　=Faｌｓｅ

　manｄ9、Enaｂlｅｄ=　Fａlsｅ

　　ＣalｌTexｔDｉsａｂｌe

EnｄSub

２、查瞧课表窗口及代码（以教室课表为例）

DimConn　AsＮｅwADＯDB、Conｎeｃtion'连接变量

Diｍ　ＳqｌStrinｇＡsStrｉng　　　　　　　'查询字符串

DｉmConｎstrinｇ　As　String　　　　　'连接字符串

DimRS1ＡsNｅw　ADODB、Recoｒdｓeｔ　'记录集变量

Ｄｉｍ　CmｄAsNｅwAＤODB、ｍanｄ

PｒivａtｅSub　maｎd1＿Clｉck（）

　　Cｏnｎｓtrｉng＝＂Drivｅｒ＝{ＳQLSｅrver};Sｅrveｒ＝PC20121１0４12ｅwr、；Daｔabaｓe=GXPK;"　＿

　&"uid　=ｓａ;pwd=t123"　　'SQLSｅrver普通安全模式建立到Ｐubｓ数据库得连接得连接字符串

　＇设置连接字符串

WitｈＣonn

　　、CｏnnｅcｔionStrｉng　＝Cｏnnsｔrｉng'给CｏnnectionSｔring属性赋值

、ConneｃtiｏnTｉmeｏｕt=10

、Ｏｐen＇给连接得ConnectioｎStrinｇ属性赋值，然后使用求带参数得Ｏpen方法打开连接

EｎdWiｔｈ

MｓgBoｘ（＂连接成功"）

mand1、Enaｂｌｅd=　Ｆalｓe'连接按钮不可用

　manｄ2、Enabled=True'显示数据可用

EnｄSub

PrｉvaｔｅＳub　ｍanｄ２_Click（）

SｅtCｍd、ActiveCｏnnｅctiｏn　=　Cｏnn　　'设置mand对象得ActiveＣoｎnecｔion为某个打开得连接

　SqｌＳtring=＂Selｅct　课程名称，教师姓名，上课教室,班级编号,上课时间froｍ排课表Wherｅ　上课教室　lｉｋe　'"&Ｔｅxt1、Tｅxｔ&"＇　"　'形成查询字符串1

Cmd、maｎｄText=ＳqlStｒｉｎｇ＇设置mand对象执行得命令字符串

　Cmd、maｎdＴｙpe　＝　adCmdText　　'设置命令类型,表示mａｎdＴext中为一命令文本　,童P188

　Ｓｅt　RS1=Cｍd、Exeｃｕtｅ＇执行命令得到一个结果记录集

Ｃall　ＳhowData（RS１,MSFｌexＧrid1）＇调用过程显示记录集中得数据

maｎd１、Visiｂｌe　＝Trｕe

ＥnｄSuｂ

Priｖatｅ　Sub　SｈｏwＤata（Ｒｓ　As　ADODB、Recordset,Dｇriｄ　AsMSFｌexGｒｉd）

　　'该过程用来在Ｄgrｉd网格中显示记录集RＳ中得内容

　DｉｍRowＮumAsＩntｅgeｒ

　　RowNuｍ=1　　　　　　＇代表MｓFlexＧrid控件得行数

　Ｄｇｒiｄ、Rowｓ=ＲowＮum　　　　　　'设置ＭｓFlexGrｉｄ控件得行数

Dgrid、Cols=Ｒs、Ｆields、Cｏuｎt　'设置MｓFlexGriｄ控件得列数

　For　j=　0　TｏRs、Fields、Cｏｕnt　-１　'遍列所有列

　Dgｒid、TextMaｔrix（0,j）　＝Rs、Fields（j）、Naｍe'把列名显示在设置ＭsFlexGriｄ控件得首行

　　Next　ｊ

　　　DoWhile　NｏtRs、EＯF'如果不就是记录集得结尾

　　RoｗＮum＝　RowNｕｍ+1＇行数加１

　Dgriｄ、Ｒｏws　=RowＮum　'设置MｓFｌexGrid控件得行数

　　　　Forj　=０ＴoＲs、Fielｄs、Coｕnt－1'遍列所有列

　　IfNotIsNｕｌl（Rs、Fields（j）、Value）　Thｅn＇如果列中得数据不为空，切记不能用如if　Var1=Ｎｕｌl来判断变量Var1得值就是否为Nｕll

　　　Dgrｉｄ、TextMatriｘ（RｏwNum-1,j）　=Rｓ、Fｉｅlds（j）、Ｖａlｕe'把列得数据显示在MsＦlexGｒｉd得相应网格中

EndIf

　Neｘtj

　Rs、ＭｏveNeｘt　'记录指针下移

　　　Loop

　　　maｎd2、Enaｂled=Falsｅ

EndSub

PrivaｔeSubmand３_Click（）

Form14、Hｉdｅ

Form3、Ｓhoｗ

End　Sub

PrｉvateSub　mand4_Cｌｉcｋ（）

RＳ1、Cｌose　'关闭记录集

　Cｏnn、Close　　'关闭连接

Text1、Text　="＂

mand1、Eｎabled　=　True'连接按钮不可用

mａｎｄ２、Eｎabled=Trｕe　'显示数据可用

ＥnｄSub

PrｉvatｅSｕbｍand５_Ｃlｉｃｋ（）

DataＲeport1、Shｏw　vbMoｄal,Me

EｎdSub

３、查瞧初始化窗口及代码

Option　Ｅｘpｌicit

ＤｉmSＱLAｓSｔring

ＤimＣonnAsNｅwADODＢ、Cｏnnectioｎ　＇连接变量

DｉmSqlSｔrinｇAsSｔrinｇ　　　'查询字符串

ＤimConnstringAsＳtｒing

DiｍmsgAsStｒinｇ'连接字符串

PｒivateＳｕｂCmdSave_Clｉck（）

'进行初始化操作

DimCounnter　AsIntegeｒ

Connstring=＂Dｒiveｒ=｛SQL　Server};Sｅrver=PC20１２1１０412ewr、;Databａse=GXPK;＂_

　&＂uid=sa;pwd=t１23＂'ＳQＬSｅrver普通安全模式建立到Pubs数据库得连接得连接字符串

　＇设置连接字符串

　WiｔｈConｎ

　　、ConnectionSｔring＝Ｃonnstｒing'给CｏnnectionＳtriｎg属性赋值

、CｏｎｎectiｏnTｉｍeout　=1０

、Oｐen'给连接得ConnectｉonＳtriｎg属性赋值,然后使用求带参数得Open方法打开连接

EｎdWｉth

　MsgBox（"连接成功"）

　ProgrｅssBar１、Vｉsible＝True

　　ProgreｓｓBar1、Maｘ　=2０0

　　PｒogressBar１、Ｖａlｕe　=ＰrogｒessＢar１、Min

mｓg=　MsgBox（"您确实要初始化这些数据吗?

＂，　vbYesＮo）

　　If　ｍsg＝vbNo　ThenExitSｕｂ

　　For　Coｕnnter=ＰrｏgｒessＢａr1、ＭiｎToPｒoｇressＢar1、Mａx

　ProｇresｓＢaｒ1、Vaｌue＝Counnteｒ

　　If　Cｈeck1、Valuｅ=1Tｈen　　'如果班级信息表被选中

　＇删除全部提醒信息数据

　　　SQL＝　"deｌｅtｅfrom　班级信息表"

　　　　　　Conn、Execuｔe　SQL

　Eｎｄ　If

　　Ｉf　Check2、Vａlue　=１Then　'如果课程信息表被选中

　　'删除全部通讯日志数据

SＱＬ　="deletｅｆrｏm　课程信息表"

　　Ｃoｎｎ、ExecｕteSQL

　ＥndIf

　If　Cheｃk３、Ｖalｕe=1Tｈen　　＇如果班级课程信息表被选中

　　'删除全部群组信息数据

　　ＳQＬ　＝　"delｅtefｒｏm任课表"

　　　　Ｃonn、ExｅcutｅＳQＬ

EｎdIｆ

　　　IｆＣhecｋ4、Ｖalue=１Then　　'如果教师信息表被选中

　'删除全部联系人信息数据

　　　　　　　ＳQL＝＂dｅletefｒom　教师信息表＂

　Coｎn、Eｘecute　SQL

　　End　If

IfCｈｅｃｋ6、Value＝　１Then　　　　'如果排课信息表被选中

　＇删除全部联系人信息数据

　　　　SQＬ　="deletｅfrom排课表"

　　　　　　Conn、EｘecuteＳQL

　　　EnｄＩｆ

NｅｘtCounnｔer

ProgｒesｓＢar１、Viｓiｂle＝Faｌse

　ProgressBａr1、Vaｌuｅ　＝ProｇrｅssBar1、Ｍiｎ

EndSub

ＰrivateSub　CmdEｘit_Ｃｌick（）

'退出操作

　Foｒm15、Ｈiｄｅ

　　Forｍ3、Sｈow

EｎdSub

ＰriｖatｅSubForm＿Unlｏad（Cａｎcel　As　Intｅｇer）

'退出操作

　Forｍ15、Hiｄe

　Form3、Ｓhoｗ

EndSub

4、查瞧自动排课窗口及代码

DimConnAsNew　AＤＯDＢ、Ｃｏnｎeｃtion＇连接变量

DimSqlSｔringAsStｒinｇ　　＇查询字符串

DimCｏnnｓｔrinｇAs　Ｓtring

ＤimdｌaｙtｉmeＡｓ　Integer

PriｖateSuｂ　mａｎｄ2_Cｌick（）

DimSQLAsＳtrinｇ

DiｍscAsAＤOＤＢ、Rｅcｏrdset

Seｔsc=New　ADODB、Rｅｃordset

ＳＱL=＂deｌｅteｌ排课表"

Enｄ　Sｕb

Ｐrivate　Ｓubmand3_Ｃlｉck（）

Foｒｍ９、Hide

Fｏｒm３、Shｏw

Enｄ　Sub

ＰｒiｖateSubＦorm＿Load（）

conｓtr="Drｉveｒ=｛SQLSｅrｖer};Seｒver=PC2０12１10４1２eｗｒ、；Dataｂase＝GXPK;＂_

　　&　＂uid=ｓa；pwd=t123"'ＳQＬSeｒｖer普通安全模式建立到Pubｓ数据库得连接得连接字符串　'定义数据库连接

　　　WithCｏｎｎ

　　、ConnectionStrｉnｇ=consｔｒ'给ＣonnectionＳtring属性赋值

　　、ＣoｎｎeｃｔｉｏnTimｅout=10

、Oｐen'给连接得CｏnnecｔionString属性赋值，然后使用求带参数得Open方法打开连接

　EｎdWｉth

MｓｇBｏｘ（"连接成功"）

ProgrｅssBar１、Visibｌｅ=　Trｕe

ProｇrｅｓsBａr1、Max＝　20０

　ProｇrｅｓｓBar１、Value=PrｏｇｒessＢar１、Min

EndSub

ＰrｉvateＳubmand1＿Cliｃk（）　　'开始

DiｍＳＱL，ｓｑｌl,sqlllAsStriｎg

DiｍrtAｓＮewAＤODB、Recoｒｄseｔ

ＤimrmAs　ＮｅwADＯDB、Rｅcordsｅｔ

ＤimrnAsＮewADODB、Recｏrdｓｅt

Dim　rpＡsＮewＡDODB、Rｅcoｒｄsｅt

ＤimrｑAs　NeｗADＯDB、Ｒｅcordsｅt

Diｍ　iAsInｔeｇer

ＳetRs=　NewＡDODB、Recordｓｅt

ＳQL="sｅlect　*from任课表　"

Set　Ｒｓ＝　Cｏnn、Ｅｘecuｔe（SQL）

ＰｒogreｓｓBaｒ１、Max＝　1０0

ＤoWｈile　ＰrogressBar1、Vａluｅ<ＰrogresｓBar１、Maｘ

Dｏ　UntilＲs、ＥＯF=Ｔrue

i=Rs（"每周节数"）

　ＤｏUｎtili　=０

　sqll　="ｓｅleｃｔ*　frｏｍ时间表＂

Ｓetrｔ＝Ｃｏｎｎ、Eｘｅcute（sqｌl）

　　DoUntilrｔ、ＥOＦ=True

　　Seｔrp=NewＡDＯＤB、Ｒecｏｒdｓｅｔ

　　　ｃoom　="ｓelect*　from排课表wｈere　[班级编号]='＂+Rs（＂班级编号"）　＋"'aｎd[上课时间]='"　＋rｔ（＂上课时间"）　＋"＇"

　　Ｓeｔrp＝　Conn、Ｅxeｃｕte（coom）

　　　cool="select*fｒｏm排课表wheｒe［上课时间]＝'＂+rt（"上课时间"）　+　"'aｎd[教师姓名]='＂+Rs（"教师姓名"）＋＂'"

　Setｒq=Conｎ、Ｅxeｃｕte（coｏl）

　Ｉfrp、EＯF=　TruｅAndrq、EOF=TｒueTｈen

　　ｓqｌll="seleｃt　*from教室信息表＂

　　Setrｍ　=Ｃoｎn、Execuｔe（sｑlｌl