VB的控件名称.docx

VB的控件名称.docx

《VB的控件名称.docx》由会员分享，可在线阅读，更多相关《VB的控件名称.docx（7页珍藏版）》请在冰豆网上搜索。

VB的控件名称

控件名称：

txtCourID

txtCourCredit

txtCourName

chkCourCore

cmdAdd

cmdDelete

cmdEdit

cmdSave

cmdCancel

cmdFirst

cmdPrevious

cmdNext

cmdLast

cmdExit

CourID课程代号

CourName课程名称

CourCredit课程学分

CourCore是否核心课程

ToolTipText属性：

确定：

1

取消：

2

终止：

3

重试：

4

忽略：

5

是：

6

否：

7

课程信息管理模块代码：

DimAddModeAsBoolean

Subclearcontrol（）

txtCourID.Text=""

txtCourName.Text=""

txtCourCredit.Text=""

chkCourCore.Value=0

EndSub

SubControltoField（rssAsADODB.Recordset）

rss!

CourID=Trim（txtCourID.Text）

rss!

CourName=Trim（txtCourName.Text）

rss!

CourCredit=Val（Trim（txtCourCredit.Text）+""）

IfchkCourCore.Value=1Then

rss!

CourCore=True

Else

rss!

CourCore=False

EndIf

EndSub

SubFieldtoControl（rssAsADODB.Recordset）

txtCourID.Text=Trim（rss!

CourID）

txtCourName.Text=Trim（rss!

CourName）

txtCourCredit.Text=Trim（rss!

CourCredit）

Ifrss!

CourCore=TrueThen

chkCourCore.Value=1

Else

chkCourCore.Value=0

EndIf

EndSub

SubcmdAdd_Click（）

CallSetCmdNotEnable（Me）

Callclearcontrol

IfNotrs.EOF（）AndNotrs.BOF（）Thenrs.MoveLast

rs.AddNew

txtCourID.SetFocus

AddMode=True

txtCourID.Enabled=True

EndSub

SubcmdCancel_Click（）

rs.CancelUpdate

CallSetCmdEnable（Me）

txtCourID.Enabled=True

EndSub

SubcmdDelete_Click（）

Ifrs.EOFOrrs.BOFOrTrim（txtCourID）=""Then

MsgBox"无记录可删？

",48+vbOKCancel,"警告"

ExitSub

Else

IfMsgBox（"当真要删除该课程信息码？

",48+vbOKCancel,"警告"）=1Then

rs.Delete

rs.Update

Callclearcontrol

Else

ExitSub

EndIf

EndIf

Ifrs.RecordCount=0Then

MsgBox"记录已全部删除！

",48,"提示"

EndIf

EndSub

SubcmdEdit_Click（）

AddMode=False

CallSetCmdNotEnable（Me）

Ifrs.EOFOrrs.BOFOrTrim（txtCourID）=""Then

MsgBox"无记录可修改？

",48+vbOKCancel,"警告"

ExitSub

EndIf

txtCourID.Enabled=False

EndSub

PrivateSubcmdExit_Click（）

UnloadMe

EndSub

SubcmdFirst_Click（）

Ifrs.RecordCount>0Then

rs.MoveFirst

CallMe.FieldtoControl（rs）

EndIf

EndSub

SubcmdLast_Click（）

Ifrs.RecordCount>0Then

rs.MoveLast

CallMe.FieldtoControl（rs）

EndIf

EndSub

SubcmdNext_Click（）

Ifrs.RecordCount>0Then

rs.MoveNext

Ifrs.EOFThenrs.MoveLast

CallMe.FieldtoControl（rs）

EndIf

EndSub

SubcmdPrevious_Click（）

Ifrs.RecordCount>0Then

rs.MovePrevious

Ifrs.BOFThenrs.MoveFirst

CallMe.FieldtoControl（rs）

EndIf

EndSub

PrivateSubcmdSave_Click（）

IfTrim（txtCourID.Text）=""Then

MsgBox"课程编号不能为空",vbCritical,"不能保存"

ExitSub

EndIf

'OnErrorResumeNext

CallSetCmdEnable（Me）

IfAddMode=TrueThen

strSql="select*fromCourInfowhereTrim（CourID）='"&Trim（Me.txtCourID.Text）&"'"

Setrstmp=NewADODB.Recordset

rstmp.OpenstrSql,cn,adOpenKeyset,adLockPessimistic

Ifrstmp.RecordCount>0Then

MsgBox"您添加的课程编号已存在，不能有相同的编号！

请为新课程选择不重复的编号",48,"提示"

Me.txtCourID.SetFocus:

Me.txtCourID.SelStart=0:

Me.txtCourID.SelLength=Len（Me.txtCourID.Text）

CallSetCmdNotEnable（Me）:

ExitSub

Else

CallMe.ControltoField（rs）

rs.Update:

txtCourID.Enabled=True

EndIf

Else

CallMe.ControltoField（rs）

rs.Update:

txtCourID.Enabled=True

EndIf

EndSub

PrivateSubForm_Activate（）

strSql="select*fromCourInfo"

Setrs=NewADODB.Recordset

rs.ActiveConnection=cn

rs.OpenstrSql,cn,adOpenKeyset,adLockPessimistic

Ifrs.RecordCount>0Then

rs.MoveFirst:

CallFieldtoControl（rs）

Else

DoEvents

MsgBox"无任何课程记录可显示！

",48,"提示"

'CallclearControl

EndIf

cmdFirst_Click

EndSub

学生成绩管理：

txtStuID

txtCourID

txtStuScore