智能排课系统vb代码.docVIP

Vb核心代码设计

一：输入界面与代码(以班级表为例)

DimＣｏｎｎAsNeｗADＯDB、Connectioｎ连接变量

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

DiｍＣonnｓｔriｎgAsStrｉ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ｌlDｉｓpVａlue显示当前记录得值

EndSｕb

PｒivaｔeＳｕbmaｎd3_Ｃlick()后移

RS１、MovｅNeｘt

IfRS1、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显示当前记录得值

ＥndSub

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显示当前记录得值

EndSｕｂ

PrivaｔeSubmand5_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ａｌlSetＶalue＇给各字段赋值

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

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

ＭsgBox(＂保存成功＂)＇给出保存成功提示

EnｄSub

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

If（MsgBoｘ(真得要取消修改吗?,vｂQuestｉoｎ+ｖbYeｓＮo)）=ｖbYesThｅｎ

RS１、CａncelUｐdａｔe

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

ＲS1、Bｏｏkｍａｒk=ｂm把记录指针