下载
加入VIP
  • 专属下载特权
  • 现金文档折扣购买
  • VIP免费专区
  • 千万文档免费下载

上传资料

关闭

关闭

关闭

封号提示

内容

首页 案例一:学生信息管理系统VB access_2003

案例一:学生信息管理系统VB access_2003.doc

案例一:学生信息管理系统VB access_2003

yu霞娟
2017-10-16 0人阅读 举报 0 0 暂无简介

简介:本文档为《案例一:学生信息管理系统VB access_2003doc》,可适用于综合领域

案例一:学生信息管理系统VBaccess案例一学生信息管理系统摘要:随着信息技术在管理上越来越深入而广泛的应用管理信息系统的实施在技术上已逐步成熟。管理信息系统是一个不断发展的新型学科任何一个单位要生存要发展要高效率地把内部活动有机地组织起来就必须建立与自身特点相适应的管理信息系统。学生成绩管理系统主要提供方便高效的管理功能该实现以下一些基本功能:系统管理模块:维护系统的正常运行和安全性设置,包括添加用户、修改密码、删除用户等等。班级管理模块:实现对全校班级的管理工作包括:班级游览、班级添加、班级修改等这三个功能模块各自独立完成学校的全部班级的管理。学生学籍管理模块:实现对学生的个人信息的管理工作包括学籍添加、学籍查询、学籍修改等功能从而方便学校管理部门对学校的基本情况的快速查询和了解。课程管理模块:该模块对各个班级的课程进行设置并可在其中设置各门课程的教材选用情况方便了学校教材管理部门和教务处的教学管理人员的工作。该模块包括基本课程设置和班级课程设置两个模块。成绩管理模块:检验学生学习情况的一个主要手段本模块包括考试类型设置共有期中考试和期未考试两种类型还设置了成绩添加、成绩查询、成绩浏览、成绩修改等功能模块。奖惩信息管理模块:奖惩信息是用来督促学习学习活动的一种手段包括奖惩信息的添加和修改。个人信息查询模块:用于学生个人信息的查询分为奖惩信息查询和成绩查询两个模块。退出模块:此模块完成程序的退出。该程序界面友好功能强大适合实际应用。关键字:数据库ACCESS数据库学生信息操作VB编程equipmentrequirements,facilitatetheintroductionofcablesandductsoutdoorcabinets,makeappropriateraincoverfortheCabinetfixedthelegboltsshouldusetheoriginalCabinetelectricaldistributioncabinetsshouldbeweldedwithoutspecialinstructions,weldenclosurebottomcorners,withbaselengthinmmmm,weldingshouldbesolid,weldingintheweldingpartswithpreservativeselectrim(mrc!courseName)mrcMoveNextLoopEndWithEndIfEndIfEndSubPrivateSubComboClick(IndexAsInteger)DimtxSQLAsStringIfIndex=ThentxSQL="selectDISTINCTscoreStufromscoreFormwherescoreCla='"Trim(Combo()Text)"'"Setmrc=ExecuteSQL(txSQL,MsgText)IfmrcEOF=FalseThenWithCombo()ClearDoWhileNotmrcEOFAddItemTrim(mrc!scoreStu)mrcMoveNextLoopmm,weldingshouldbesolid,weldingintheweldingpartswithpreservativeselectricalpowerialinstructions,weldenclosurebottomcorners,withbaselengthinmmtspeceCabinetfixedthelegboltsshouldusetheoriginalCabinetelectricaldistributioncabinetsshouldbeweldedwithouequirements,facilitatetheintroductionofcablesandductsoutdoorcabinets,makeappropriateraincoverforthequipmentrEndWithEndIftxSQL="selectDISTINCTscoreCoufromscoreFormwherescoreCla='"Trim(Combo()Text)"'"Setmrc=ExecuteSQL(txSQL,MsgText)IfmrcEOF=FalseThenWithCombo()ClearDoWhileNotmrcEOFAddItemTrim(mrc!scoreCou)mrcMoveNextLoopEndWithEndIfEndIfEndSubPrivateSubComboClick(IndexAsInteger)DimtxSQLAsStringIfIndex=ThentxSQL="select*fromstudentFormwherestudentCla='"Trim(Combo()Text)"'"Setmrc=ExecuteSQL(txSQL,MsgText)IfmrcEOF=FalseThenWithCombo()ClearDoWhileNotmrcEOFIfmrc!studentNO<>TextThenAddItemTrim(mrc!studentNO)EndIfmrcMoveNextLoopEndWithEndIftxSQL="select*fromclassCourwhereclassNO='"Trim(Combo()Text)"'"Setmrc=ExecuteSQL(txSQL,MsgText)IfmrcEOF=FalseThenWithCombo()ClearDoWhileNotmrcEOFIfmrc!courseName<>TextThenAddItemTrim(mrc!courseName)EndIfmrcMoveNextLoopEndWithEndIfEndIfEndSubPrivateSubCommandClick()DimtxtSQLAsStringIfText()=""ThenMsgBox"考试期号不能为空!",vbOKOnly,"提示"Text()SetFocusExitSubEndIfIfCombo()Text=""ThenMsgBox"学生班号不能为空!",vbOKOnly,"提示"Combo()SetFocusExitSubEndIfIfCombo()Text=""ThenMsgBox"学生编号不能为空!",vbOKOnly,"提示"Combo()SetFocusExitSubEndIfIfCombo()Text=""ThenMsgBox"考试课程不能为空!",vbOKOnly,"提示"Combo()SetFocusExitSubEndIfIfText()=""ThenMsgBox"考试分数不能为空!",vbOKOnly,"提示"Text()SetFocusExitSubEndIftxtSQL="select*fromscoreFormwherescorePer='"Trim(Text())"'andscoreCla='"Trim(Combo()Text)"'andscoreStu='"Trim(Combo()Text)"'AndscoreCou='"Trim(Combo()Text)"'"Setmrc=ExecuteSQL(txtSQL,MsgText)IfmrcEOF=FalseThenMsgBox"同次同人同科只能添加一次",vbOKOnly,"警告"Text()=""Combo()SetFocusExitSubEndIftxtSQL="select*fromscoreForm"Setmrc=ExecuteSQL(txtSQL,MsgText)mrcAddNewmrcFields()=Trim(Text())mrcFields()=Trim(Text())mrcFields()=Trim(Combo()Text)mrcFields()=Trim(Combo()Text)mrcFields()=Trim(Combo()Text)mrcFields()=Trim(Text())mrcUpdatemrcCloseMsgBox"考试信息添加成功!",vbOKOnly,"提示"WithMSFlexGridRows=RowsTextMatrix(Rows,)=Trim(Text())TextMatrix(Rows,)=Trim(Text())TextMatrix(Rows,)=Trim(Combo()Text)TextMatrix(Rows,)=Trim(Combo()Text)TextMatrix(Rows,)=Trim(Combo()Text)TextMatrix(Rows,)=Trim(Text())EndWithText()=""Combo()CleartxtSQL="select*fromclassForm"Setmrc=ExecuteSQL(txtSQL,MsgText)IfmrcEOF=FalseThenWithCombo()ClearDoWhileNotmrcEOFAddItemTrim(mrc!classNO)mrcMoveNextmm,weldingshouldbesolid,weldingintheweldingpartswithpreservativeselectricalpowerialinstructions,weldenclosurebottomcorners,withbaselengthinmmtspeceCabinetfixedthelegboltsshouldusetheoriginalCabinetelectricaldistributioncabinetsshouldbeweldedwithouequirements,facilitatetheintroductionofcablesandductsoutdoorcabinets,makeappropriateraincoverforthequipmentrLoopEndWithEndIfCombo()ClearCombo()ClearText()=GetRknoMSFlexGridTopRow=MSFlexGridRowsEndSubPrivateSubCommandClick()DimtxtSQLAsStringText()=GetRknoText()=""Text()=""Combo()CleartxtSQL="select*fromclassForm"Setmrc=ExecuteSQL(txtSQL,MsgText)IfmrcEOF=FalseThenWithCombo()ClearDoWhileNotmrcEOFAddItemTrim(mrc!classNO)mrcMoveNextLoopEndWithEndIfCombo()ClearCombo()ClearEndSubPrivateSubCommandClick()DimjAsLongDimtxtSQLAsStringDimtxSQLAsStringtxtSQL="select*fromscoreForm"IfText()<>""ThentxtSQL=txtSQL"wherescorePer='"Trim(Text())"'"EndIfIfCombo()Text<>""ThenIftxtSQL="select*fromscoreForm"ThentxtSQL=txtSQL"wherescoreCla='"Trim(Combo()Text)"'"ElsetxtSQL=txtSQL"AndscoreCla='"Trim(Combo()Text)"'"EndIfEndIfIfCombo()Text<>""ThenIftxtSQL="select*fromscoreForm"ThentxtSQL=txtSQL"wherescoreStu='"Trim(Combo()Text)"'"ElsetxtSQL=txtSQL"AndscoreStu='"Trim(Combo()Text)"'"EndIfEndIfIfCombo()Text<>""ThenIftxtSQL="select*fromscoreForm"ThentxtSQL=txtSQL"wherescoreCou='"Trim(Combo()Text)"'"ElsetxtSQL=txtSQL"AndscoreCou='"Trim(Combo()Text)"'"EndIfEndIfSetmrc=ExecuteSQL(txtSQL,MsgText)j=DoWhileNotmrcEOFj=jmrcMoveNextLoopProgressBarVisible=TrueProgressBarMin=CInt()ProgressBarMax=CInt(j)Setmrc=ExecuteSQL(txtSQL,MsgText)FrameVisible=TrueWithMSFlexGridVisible=FalseRows=ProgressBarValue=RowsDoWhileNotmrcEOFRows=RowsFori=TomrcFieldsCountSelectCasemrcFields(i)TypeCaseadDBDateTextMatrix(Rows,i)=Format(mrcFields(i)"","yyyymmdd")CaseElseTextMatrix(Rows,i)=mrcFields(i)""EndSelectNextimrcMoveNextLoopVisible=TrueEndWithFrameVisible=FalsemrcCloseText()=""txSQL="selectDISTINCTscoreClafromscoreForm"Setmrc=ExecuteSQL(txSQL,MsgText)IfmrcEOF=FalseThenWithCombo()ClearDoWhileNotmrcEOFAddItemTrim(mrc!scoreCla)mrcMoveNextLoopEndWithEndIfCombo()ClearCombo()ClearText()=""EndSubPrivateSubCommandClick()DimtxtSQLAsStringText()=""txtSQL="selectDISTINCTscoreClafromscoreForm"Setmrc=ExecuteSQL(txtSQL,MsgText)IfmrcEOF=FalseThenWithCombo()ClearDoWhileNotmrcEOFAddItemTrim(mrc!scoreCla)mrcMoveNextLoopmm,weldingshouldbesolid,weldingintheweldingpartswithpreservativeselectricalpowerialinstructions,weldenclosurebottomcorners,withbaselengthinmmtspeceCabinetfixedthelegboltsshouldusetheoriginalCabinetelectricaldistributioncabinetsshouldbeweldedwithouequirements,facilitatetheintroductionofcablesandductsoutdoorcabinets,makeappropriateraincoverforthequipmentrEndWithEndIfCombo()ClearCombo()ClearText()=""EndSubPrivateSubCommandClick()DimjAsIntegerDimtxtSQLAsStringIfText()=""ThenMsgBox"清选择要修改的纪录!",vbOKOnly,"提示"MSFlexGridSetFocusExitSubEndIfIfText()=""ThenMsgBox"考试期号不能为空!",vbOKOnly,"提示"Text()SetFocusExitSubEndIfIfCombo()Text=""ThenMsgBox"学生班号不能为空!",vbOKOnly,"提示"Combo()SetFocusExitSubEndIfIfCombo()Text=""ThenMsgBox"学生编号不能为空!",vbOKOnly,"提示"Combo()SetFocusExitSubEndIfIfCombo()Text=""ThenMsgBox"考试课程不能为空!",vbOKOnly,"提示"Combo()SetFocusExitSubEndIfIfText()=""ThenMsgBox"考试分数不能为空!",vbOKOnly,"提示"Text()SetFocusExitSubEndIftxtSQL="select*fromscoreFormwherescoreNO<>'"Trim(Text())"'AndscorePer='"Trim(Text())"'andscoreCla='"Trim(Combo()Text)"'andscoreStu='"Trim(Combo()Text)"'AndscoreCou='"Trim(Combo()Text)"'"Setmrc=ExecuteSQL(txtSQL,MsgText)IfmrcEOF=FalseThenMsgBox"同次同人同科只能添加一次",vbOKOnly,"警告"Text()=""Combo()SetFocusExitSubEndIftxtSQL="DeletefromscoreFormwherescoreNO='"Trim(Text())"'"Setmrc=ExecuteSQL(txtSQL,MsgText)txtSQL="select*fromscoreForm"Setmrc=ExecuteSQL(txtSQL,MsgText)mrcAddNewmrcFields()=Trim(Text())mrcFields()=Trim(Text())mrcFields()=Trim(Combo()Text)mrcFields()=Trim(Combo()Text)mrcFields()=Trim(Combo()Text)mrcFields()=Trim(Text())mrcUpdatemrcCloseMsgBox"考试信息修改成功!",vbOKOnly,"提示"j=Fori=ToMSFlexGridRowsIfMSFlexGridTextMatrix(i,)=Text()Thenj=iEndIfNextIfj<>ThenWithMSFlexGridTextMatrix(j,)=Trim(Text())TextMatrix(j,)=Trim(Text())TextMatrix(j,)=Trim(Combo()Text)TextMatrix(j,)=Trim(Combo()Text)TextMatrix(j,)=Trim(Combo()Text)TextMatrix(j,)=Trim(Text())EndWithEndIfText()=""Text()=""Combo()ClearCombo()ClearCombo()ClearText()=""MSFlexGridTopRow=jj=EndSubPrivateSubCommandClick()Text()=""Text()=""Combo()ClearCombo()ClearCombo()ClearText()=""EndSubPrivateSubCommandClick()DimjAsIntegerDimtxtSQLAsStringIfText()=""ThenMsgBox"清选择要删除的纪录!",vbOKOnly,"提示"MSFlexGridSetFocusExitSubEndIftxtSQL="DeletefromscoreFormwherescoreNO='"Trim(Text())"'"Setmrc=ExecuteSQL(txtSQL,MsgText)MsgBox"考试信息修改成功!",vbOKOnly,"提示"j=Fori=ToMSFlexGridRowsIfMSFlexGridTextMatrix(i,)=Text()Thenj=iEndIfNextIfj<>ThenWithMSFlexGridmm,weldingshouldbesolid,weldingintheweldingpartswithpreservativeselectricalpowerialinstructions,weldenclosurebottomcorners,withbaselengthinmmtspeceCabinetfixedthelegboltsshouldusetheoriginalCabinetelectricaldistributioncabinetsshouldbeweldedwithouequirements,facilitatetheintroductionofcablesandductsoutdoorcabinets,makeappropriateraincoverforthequipmentrTextMatrix(j,)="已删除"TextMatrix(j,)="已删除"TextMatrix(j,)="已删除"TextMatrix(j,)="已删除"TextMatrix(j,)="已删除"TextMatrix(j,)="已删除"EndWithEndIfText()=""Text()=""Combo()ClearCombo()ClearCombo()ClearText()=""EndSubPrivateSubCommandClick()Text()=""Text()=""Combo()ClearCombo()ClearCombo()ClearText()=""EndSubPrivateSubFormLoad()Option()Value=TruePicture()Visible=FalsePicture()Visible=TruePicture()Visible=FalsePicture()Visible=FalsePicture()Top=Picture()TopPicture()Left=Picture()LeftPicture()Top=Picture()TopPicture()Left=Picture()LeftPicture()Top=Picture()TopPicture()Left=Picture()LeftWithMSFlexGridCols=TextMatrix(,)="考试期号"TextMatrix(,)="学生班号"TextMatrix(,)="学生编号"TextMatrix(,)="考试课程"TextMatrix(,)="考试分数"ColWidth()=ColWidth()=ColWidth()=ColWidth()=ColWidth()=ColWidth()=Rows=EndWithText()=GetRknoEndSubPrivateSubFormResize()dColorZOrderEndSubPrivateSubMSFlexGridClick()DimtxtSQLAsStringIfMSFlexGridRow<>ThenText()=MSFlexGridTextMatrix(MSFlexGridRow,)Text()=MSFlexGridTextMatrix(MSFlexGridRow,)Combo()ClearCombo()AddItemMSFlexGridTextMatrix(MSFlexGridRow,)Combo()ListIndex=txtSQL="select*fromclassForm"Setmrc=ExecuteSQL(txtSQL,MsgText)IfmrcEOF=FalseThenWithCombo()DoWhileNotmrcEOFIfmrc!classNO<>TextThenAddItemTrim(mrc!classNO)EndIfmrcMoveNextLoopEndWithEndIfCombo()ClearCombo()AddItemMSFlexGridTextMatrix(MSFlexGridRow,)Combo()ListIndex=Combo()ClearCombo()AddItemMSFlexGridTextMatrix(MSFlexGridRow,)Combo()ListIndex=Text()=MSFlexGridTextMatrix(MSFlexGridRow,)Text()=MSFlexGridTextMatrix(MSFlexGridRow,)Text()=MSFlexGridTextMatrix(MSFlexGridRow,)Combo()ClearCombo()AddItemMSFlexGridTextMatrix(MSFlexGridRow,)Combo()ListIndex=Combo()ClearCombo()AddItemMSFlexGridTextMatrix(MSFlexGridRow,)Combo()ListIndex=Combo()ClearCombo()AddItemMSFlexGridTextMatrix(MSFlexGridRow,)Combo()ListIndex=Text()=MSFlexGridTextMatrix(MSFlexGridRow,)EndIfEndSubPrivateSubOptionClick(IndexAsInteger)DimtxSQLAsStringMeCaption="成绩信息>"MeCaption=MeCaptionOption(Index)CaptionOption()BackColor=HCCCOption()BackColor=HCCCOption()BackColor=HCCCOption()BackColor=HCCCOption(Index)BackColor=HPicture()Visible=FalsePicture()Visible=FalsePicture()Visible=FalsePicture()Visible=FalsePicture(Index)Visible=TruetxSQL="select*fromclassForm"Setmrc=ExecuteSQL(txSQL,MsgText)IfmrcEOF=TrueThenMsgBox"请先进行班级设置!",vbOKOnly,"提示"Elsemm,weldingshouldbesolid,weldingintheweldingpartswithpreservativeselectricalpowerialinstructions,weldenclosurebottomcorners,withbaselengthinmmtspeceCabinetfixedthelegboltsshouldusetheoriginalCabinetelectricaldistributioncabinetsshouldbeweldedwithouequirements,facilitatetheintroductionofcablesandductsoutdoorcabinets,makeappropriateraincoverforthequipmentrWithCombo()ClearDoWhileNotmrcEOFAddItemTrim(mrc!classNO)mrcMoveNextLoopEndWithEndIftxSQL="selectDISTINCTscoreClafromscoreForm"Setmrc=ExecuteSQL(txSQL,MsgText)IfmrcEOF=FalseThenWithCombo()ClearDoWhileNotmrcEOFAddItemTrim(mrc!scoreCla)mrcMoveNextLoopEndWithEndIfText()=""Text()=""Combo()ClearCombo()ClearCombo()ClearText()=""Text()=""Text()=""Combo()ClearCombo()ClearCombo()ClearText()=""EndSubPrivateFunctionGetRkno()AsStringGetRkno=Format(Now,"yymmddhhmmss")RandomizeGetRkno=GetRknoInt(()*Rnd)EndFunctionPrivateSubTextKeyPress(IndexAsInteger,KeyAsciiAsInteger)IfIndex=ThenIfKeyAscii=ThenIfInStr(Trim(Text(Index)),"")=ThenIfLen(Trim(Text(Index)))>ThenText(Index)Locked=FalseElseText(Index)Locked=TrueEndIfElseText(Index)Locked=TrueEndIfExitSubEndIfIfKeyAscii>OrKeyAscii<ThenText(Index)Locked=TrueElseText(Index)Locked=FalseEndIfIfKeyAscii=ThenText(Index)Locked=FalseEndIfIfKeyAscii=ThenText(Index)Locked=FalseEndIfEndIfEndSubPrivateSubTextKeyPress(IndexAsInteger,KeyAsciiAsInteger)IfIndex=ThenIfKeyAscii=ThenIfInStr(Trim(Text(Index)),"")=ThenIfLen(Trim(Text(Index)))>ThenText(Index)Locked=FalseElseText(Index)Locked=TrueEndIfElseText(Index)Locked=TrueEndIfExitSubEndIfIfKeyAscii>OrKeyAscii<ThenText(Index)Locked=TrueElseText(Index)Locked=FalseEndIfIfKeyAscii=ThenText(Index)Locked=FalseEndIfIfKeyAscii=ThenText(Index)Locked=FalseEndIfEndIfEndSub奖赏信息管理模块:DimmrcAsADODBRecordsetDimMsgTextAsStringPrivateSubCommandClick()DimtxtSQLAsStringIfText()=""ThenMsgBox"奖惩名称不能为空!",vbOKOnly,"提示"Text()SetFocusExitSubEndIftxtSQL="select*fromprizeFormwhereprizeName='"Trim(Text())"'"Setmrc=ExecuteSQL(txtSQL,MsgText)IfmrcEOF=FalseThenMsgBox"此奖惩名称已经存在!",vbOKOnly,"警告"Text()SetFocusExitSubEndIfmrcClosetxtSQL="select*fromprizeForm"Setmrc=ExecuteSQL(txtSQL,MsgText)mrcAddNewmrcFields()=Trim(Text())mm,weldingshouldbesolid,weldingintheweldingpartswithpreservativeselectricalpowerialinstructions,weldenclosurebottomcorners,withbaselengthinmmtspeceCabinetfixedthelegboltsshouldusetheoriginalCabinetelectricaldistributioncabinetsshouldbeweldedwithouequirements,facilitatetheintroductionofcablesandductsoutdoorcabinets,makeappropriateraincoverforthequipmentrmrcFields()=Trim(Text())mrcUpdatemrcCloseText()=""Text()=""MsgBox"奖惩信息添加成功!",vbOKOnly,"提示"ListTextEndSubPrivateSubCommandClick()IfListText<>""ThentxtSQL="deletefromprizeFormwhereprizeName='"Trim(ListText)"'"Setmrc=ExecuteSQL(txtSQL,MsgText)MsgBox"奖惩信息已经删除!",vbOKOnly,"提示"ListTextEndIfEndSubPrivateSubFormLoad()MSFlexGridCols=MSFlexGridColWidth()=MSFlexGridColWidth()=MSFlexGridColWidth()=MSFlexGridColWidth()=MSFlexGridColWidth()=MSFlexGridTextMatrix(,)="奖惩日期"MSFlexGridTextMatrix(,)="奖惩名称"MSFlexGridRows=Text()=GetRknoListTextEndSubPrivateSubFormMouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Label()BackColor=HCCCLabel()BackColor=HCCCEndSubPrivateSubFormResize()dColorZOrderEndSubPrivateSubListText()DimtxSQLAsStringDimmrccAsADODBRecordsettxSQL="select*fromprizeForm"Setmrcc=ExecuteSQL(txSQL,MsgText)ListClearDoWhileNotmrccEOFListAddItemTrim(mrcc!prizeName)mrccMoveNextLoopmrccCloseEndSubPrivateFunctionGetRkno()AsStringGetRkno=Format(Now,"yymmddhhmmss")RandomizeGetRkno=GetRknoInt(()*Rnd)EndFunctionPrivateSubLabelClick(IndexAsInteger)DimtxtSQLAsStringIfIndex=ThenIfText=""ThenMsgBox"请输入学号!",vbOKOnly,"提示"TextSetFocusExitSubElsetxtSQL="select*fromstudentFormwherestudentNO='"Trim(Text)"'"Setmrc=ExecuteSQL(txtSQL,MsgText)IfmrcEOF=TrueThenMsgBox"请确认此学号的学籍信息已存在!",vbOKOnly,"警告"TextSetFocusExitSubEndIfmrcCloseEndIfIfText()=""ThenMsgBox"请输入奖惩日期!",vbOKOnly,"提示"Text()SetFocusExitSubElseIfIsDate(Text())=FalseThenMsgBox"奖惩日期应为日期格式(yyyymmdd)!",vbOKOnly,"警告"Text()SetFocusExitSubEndIfEndIfIfListText=""ThenMsgBox"请选择奖惩名称!",vbOKOnly,"提示"ListSetFocusExitSubEndIftxtSQL="select*fromprizeStud"Setmrc=ExecuteSQL(txtSQL,MsgText)mrcAddNewmrcFields()=Trim(Text())mrcFields()=Trim(Text)mrcFields()=Trim(Text())mrcFields()=Trim(ListText)mrcUpdatemrcCloseSetmrc=ExecuteSQL(txtSQL,MsgText)txtSQL="select*fromprizeStudwhereprizeStu='"Trim(Text)"'"Setmrc=ExecuteSQL(txtSQL,MsgText)ShowDataText()=GetRknoEndIfIfIndex=ThenIfMSFlexGridRow<>Thenmm,weldingshouldbesolid,weldingintheweldingpartswithpreservativeselectricalpowerialinstructions,weldenclosurebottomcorners,withbaselengthinmmtspeceCabinetfixedthelegboltsshouldusetheoriginalCabinetelectricaldistributioncabinetsshouldbeweldedwithouequirements,facilitatetheintroductionofcablesandductsoutdoorcabinets,makeappropriateraincoverforthequipmentrtxtSQL="deletefromprizeStudwhereprizeNo='"Trim(MSFlexGridTextMatrix(MSFlexGridRow,))"'"Setmrc=ExecuteSQL(txtSQL,MsgText)txtSQL="select*fromprizeStudwhereprizeStu='"Trim(Text)"'"Setmrc=ExecuteSQL(txtSQL,MsgText)ShowDataEndIfEndIfEndSubPrivateSubLabelMouseMove(IndexAsInteger,ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Label(Index)BackColor=HFFFFFFEndSubPrivateSubLabelMouseMove(IndexAsInteger,ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Label()BackColor=HCCCLabel()BackColor=HCCCEndSubPrivateSubTextChange(IndexAsInteger)DimtxSQLAsStringIfIndex=ThentxtSQL="select*fromprizeFormwhereprizeName='"Trim(Text())"'"Setmrc=ExecuteSQL(txtSQL,MsgText)IfmrcEOF=FalseThenText()=mrcFields()Text()Locked=TrueElseText()=""Text()Locked=FalseEndIfEndIfEndSubPrivateSubShowData()WithMSFlexGridRows=DoWhileNotmrcEOFRows=RowsFori=TomrcFieldsCountSelectCasemrcFields(i)TypeCaseadDBDateTextMatrix(Rows,i)=Format(mrcFields(i)"","yyyymmdd")CaseElseTextMatrix(Rows,i)=mrcFields(i)""EndSelectNextimrcMoveNextLoopEndWithmrcCloseEndSubPrivateSubTextChange()DimtxtSQLAsStringtxtSQL="select*fromprizeStudwhereprizeStu='"Trim(Text)"'"Setmrc=ExecuteSQL(txtSQL,MsgText)ShowDataEndSub个人信息管理模块DimmrcAsADODBRecordsetDimMsgTextAsStringDimtxtSQLAsStringPrivateSubFormLoad()WithMSFlexGridCols=ColWidth()=ColWidth()=ColWidth()=ColWidth()=TextMatrix(,)="奖惩日期"TextMatrix(,)="奖惩名称"Rows=EndWithWithMSFlexGridCols=ColWidth()=ColWidth()=ColWidth()=ColWidth()=ColWidth()=ColWidth()=TextMatrix(,)="考试期号"TextMatrix(,)="学生班号"TextMatrix(,)="考试课程"TextMatrix(,)="考试分数"Rows=EndWithPictureVisible=FalseMSFlexGridVisible=FalseMSFlexGridVisible=FalseEndSubPrivateSubFormResize()dColorZOrderEndSubPrivateSubTextChange(IndexAsInteger)IfIndex=ThentxtSQL="select*fromstudentFormwherestudentNO='"Trim(Text())"'"Setmrc=ExecuteSQL(txtSQL,MsgText)IfmrcEOF=FalseThenFori=ToText(i)=mrcFields(i)NextPictureVisible=TrueElsePictureVisible=Falsemm,weldingshouldbesolid,weldingintheweldingpartswithpreservativeselectricalpowerialinstructions,weldenclosurebottomcorners,withbaselengthinmmtspeceCabinetfixedthelegboltsshouldusetheoriginalCabinetelectricaldistributioncabinetsshouldbeweldedwithouequirements,facilitatetheintroductionofcablesandductsoutdoorcabinets,makeappropriateraincoverforthequipmentrFori=ToText(i)=""NextEndIfmrcClosetxtSQL="select*fromprizeStudwhereprizeStu='"Trim(Text())"'"Setmrc=ExecuteSQL(txtSQL,MsgText)IfmrcEOF=FalseThenWithMSFlexGridRows=DoWhileNotmrcEOFRows=RowsFori=TomrcFieldsCountSelectCasemrcFields(i)TypeCaseadDBDateTextMatrix(Rows,i)=Format(mrcFields(i)"","yyyymmdd")CaseElseTextMatrix(Rows,i)=mrcFields(i)""EndSelectNextimrcMoveNextLoopEndWithmrcCloseMSFlexGridVisible=TrueElseMSFlexGridVisible=FalseWithMSFlexGridClearCols=ColWidth()=ColWidth()=ColWidth()=ColWidth()=TextMatrix(,)="奖惩日期"TextMatrix(,)="奖惩名称"Rows=EndWithEndIftxtSQL="select*fromscoreFormwherescoreStu='"Trim(Text())"'"Setmrc=ExecuteSQL(txtSQL,MsgText)IfmrcEOF=FalseThenWithMSFlexGridRows=DoWhileNotmrcEOFRows=RowsFori=TomrcFieldsCountSelectCasemrcFields(i)TypeCaseadDBDateTextMatrix(Rows,i)=Format(mrcFields(i)"","yyyymmdd")CaseElseTextMatrix(Rows,i)=mrcFields(i)""EndSelectNextimrcMoveNextLoopEndWithmrcCloseMSFlexGridVisible=TrueElseMSFlexGridVisible=FalseWithMSFlexGridClearCols=ColWidth()=ColWidth()=ColWidth()=ColWidth()=ColWidth()=ColWidth()=TextMatrix(,)="考试期号"TextMatrix(,)="学生班号"TextMatrix(,)="考试课程"TextMatrix(,)="考试分数"Rows=EndWithEndIfEndIfEndSubPrivateSubShowData()Setmrc=ExecuteSQL(txtSQL,MsgText)WithMSFlexGridRows=DoWhileNotmrcEOFRows=RowsFori=TomrcFieldsCountSelectCasemrcFields(i)TypeCaseadDBDateTextMatrix(Rows,i)=Format(mrcFields(i)"","yyyymmdd")CaseElseTextMatrix(Rows,i)=mrcFields(i)""EndSelectNextimrcMoveNextLoopEndWithmrcCloseEndSubmm,weldingshouldbesolid,weldingintheweldingpartswithpreservativeselectricalpowerialinstructions,weldenclosurebottomcorners,withbaselengthinmmtspeceCabinetfixedthelegboltsshouldusetheoriginalCabinetelectricaldistributioncabinetsshouldbeweldedwithouequirements,facilitatetheintroductionofcablesandductsoutdoorcabinets,makeappropriateraincoverforthequipment

用户评价(0)

关闭

新课改视野下建构高中语文教学实验成果报告(32KB)

抱歉,积分不足下载失败,请稍后再试!

提示

试读已结束,如需要继续阅读或者下载,敬请购买!

文档小程序码

使用微信“扫一扫”扫码寻找文档

1

打开微信

2

扫描小程序码

3

发布寻找信息

4

等待寻找结果

我知道了
评分:

/102

案例一:学生信息管理系统VB access_2003

VIP

在线
客服

免费
邮箱

爱问共享资料服务号

扫描关注领取更多福利