VB學(xué)生信息管理系統(tǒng)及源代碼

1、VB學(xué)生信息管理系統(tǒng)及源代碼OptionExplicit標(biāo)識(shí)是否能關(guān)閉DimmbCloseAsBoolean標(biāo)識(shí)當(dāng)前要顯示的照片的文件DimmstrFileNameAsStringPrivateSubForm_Load()OnErrorResumeNextIffrmMain.mnUserType=1Then學(xué)生用戶fraSeek.Enabled=FalsefraBrowse.Enabled=FalsecmdAdd.Enabled=FalsecmdDelete.Enabled=FalsetxtSerial.Enabled=FalsedcbClass.Enabled=FalsegrdScan.En

2、abled=FalseIfNot(DataEnv.rsStudent.EOFAndDataEnv.rsStudent.BOF)ThenDimTempAsStringTemp=name=&frmMain.msUserName&DataEnv.rsStudent.MoveFirstDataEnv.rsStudent.FindTemp刷新所綁定的控件CallRefreshBindingEndIfExitSubElsefraSeek.Enabled=TruefraBrowse.Enabled=TruecmdAdd.Enabled=TruecmdDelete.Enabled=TruetxtSerial.

3、Enabled=TruedcbClass.Enabled=TruegrdScan.Enabled=TrueEndIfDimrsDepAsNewADODB.Recordset,rsClassAsNewADODB.RecordsetSetrsDep=DataEnv.rsDepartmentSetrsClass=DataEnv.rsClassrsDep.Open從Department表中讀取數(shù)據(jù)，填充cboDep組合框到中cboDep.ClearcboDep.AddItem全部將各個(gè)系的id號(hào)作為ItemData附加到組合框中cboDep.ItemData(0)=0WhileNotrsDep.EOF

4、cboDep.AddItemrsDep(Name)cboDep.ItemData(cboDep.ListCount-1)=rsDep(id)rsDep.MoveNextWendcboDep.ListIndex=0從class表中讀取數(shù)據(jù)，填充到cboClass組合框中cboClass.ClearcboClass.AddItem全部WhileNotrsClass.EOFcboClass.AddItemrsClass(Name)rsClass.MoveNextWendcboClass.ListIndex=0cmdList.Value=TruefraManage.Enabled=TruembClos

5、e=True調(diào)用grdScan_Change事件顯示記錄明細(xì)CallgrdScan_ChangeEndSub當(dāng)DataEnv.rsStudent的當(dāng)前記錄發(fā)生變化時(shí)，刷新所綁定的控件(用戶改變了當(dāng)前記錄)SubRefreshBinding()OnErrorResumeNextWithDataEnv.rsStudentIfDataEnv.rssqlSeek.BOFAndDataEnv.rssqlSeek.EOFThen如果不存在任何記錄，則清空所有的綁定的內(nèi)容txtSerial=txtName=dtpBirth.Value=txtTelephone=txtAddress=txtResume=im

6、gPhoto.Picture=LoadPicture(Null)Else否則和相應(yīng)的字段進(jìn)行綁定txtSerial=.Fields(serial)txtName=.Fields(name)dtpBirth.Value=.Fields(birthday)txtTelephone=.Fields(tel)txtAddress=.Fields(address)txtResume=.Fields(resume)cboSex.Text=.Fields(sex)dcbClass.Text=.Fields(class)imgPhoto.Picture=LoadPicture(ReadImage(.Field

7、s(photo)EndIfEndWithEndSub在DataEnv.rsStudent中查詢serial為sSerial的學(xué)籍信息SubSeekStudent(sSerialAsString)IfNot(DataEnv.rsStudent.EOFAndDataEnv.rsStudent.BOF)ThenDimTempAsStringTemp=serial=&sSerial&DataEnv.rsStudent.MoveFirstDataEnv.rsStudent.FindTemp刷新所綁定的控件CallRefreshBindingEndIfEndSub當(dāng)改變記錄集時(shí)，需要刷新用戶導(dǎo)航的網(wǎng)格控件

8、SubRefreshGrid()grdScan.DataMember=grdScan.RefreshDataEnv.rssqlSeek.RequerygrdScan.DataMember=sqlSeekgrdScan.Refresh刷新各個(gè)綁定控件CallgrdScan_ChangeEndSub用以在瀏覽時(shí)，根據(jù)當(dāng)前記錄所出的位置不同，來(lái)改變各個(gè)瀏覽按鈕的狀態(tài)SubChangeBrowseState()WithDataEnv.rssqlSeekIf.State=adStateClosedThen.Open如果沒(méi)有任何記錄，使某些按鈕無(wú)效；否則則使這些按鈕有效If.BOFAnd.EOFThenc

9、mdAdd.Enabled=TruecmdEdit.Enabled=FalsecmdDelete.Enabled=FalsecmdUpdate.Enabled=FalsecmdReport.Enabled=FalsefraBrowse.Enabled=FalseElsecmdAdd.Enabled=TruecmdEdit.Enabled=TruecmdDelete.Enabled=TruecmdUpdate.Enabled=FalsecmdReport.Enabled=TruefraBrowse.Enabled=TrueEndIf假如處于記錄的頭部If.BOFThenIfNot.EOFThen

10、DataEnv.rsStudent.MoveFirstcmdPrevious.Enabled=FalsecmdFirst.Enabled=FalseElsecmdPrevious.Enabled=TruecmdFirst.Enabled=TrueEndIf假如處于記錄的尾部If.EOFThenIfNot.BOFThenDataEnv.rsStudent.MoveLastcmdNext.Enabled=FalsecmdLast.Enabled=FalseElsecmdNext.Enabled=TruecmdLast.Enabled=TrueEndIfEndWithmstrFileName=End

11、SubPrivateSubcboDep_Click()DimrsClassAsNewADODB.RecordsetDimstrSQL根據(jù)所選的系的不同，采用不同的SQL語(yǔ)句IfcboDep.ItemData(cboDep.ListIndex)=0ThenstrSQL=select*from班級(jí)信息表dept_id=&ElsestrSQL=select*from班級(jí)信息表wherecboDep.ItemData(cboDep.ListIndex)EndIfrsClass.OpenstrSQL,DataEnv.Con將所查到的rsClass中的內(nèi)容來(lái)填充cboClasscboClass.Clear

12、cboClass.AddItem全部WhileNotrsClass.EOFcboClass.AddItemrsClass(Name)rsClass.MoveNextWendcboClass.ListIndex=0rsClass.CloseSetrsClass=NothingEndSubPrivateSubcmdAdd_Click()添加記錄fraSeek.Enabled=FalsefraBrowse.Enabled=FalsegrdScan.Enabled=FalseDataEnv.rsStudent.AddNewdtpBirth.Value=1980-01-01fraInfo.Enabled

13、=TruefraBrowse.Enabled=FalsecmdAdd.Enabled=FalsecmdEdit.Enabled=FalsecmdDelete.Enabled=FalsecmdUpdate.Enabled=TruecmdReport.Caption=取消cmdReport.Enabled=TruembClose=False不能關(guān)閉窗口EndSubPrivateSubcmdDelete_Click()如果出錯(cuò)，則顯示錯(cuò)誤代碼OnErrorGoToerrHandlerIfMsgBox(要?jiǎng)h除記錄？，vbYesNo+vbQuestion+vbDefaultButton2,確認(rèn))=vbY

14、esThen通過(guò)在DataEnv.Con中執(zhí)行SQL命令，來(lái)刪除記錄DataEnv.Con.Executedeletefrom學(xué)生信息表whereserial=&txtSerial&DataEnv.rsStudent.MoveNextIfDataEnv.rsStudent.EOFThenDataEnv.rsStudent.MoveLast刷新用戶導(dǎo)航的網(wǎng)格控件CallRefreshGridEndIfExitSuberrHandler:MsgBoxErr.Description,vbCritical,錯(cuò)誤EndSubPrivateSubcmdEdit_Click()編輯記錄之前，需要設(shè)置其他控件

15、的Enabled屬性fraSeek.Enabled=FalsefraBrowse.Enabled=FalsegrdScan.Enabled=FalsefraInfo.Enabled=TruecmdAdd.Enabled=FalsecmdEdit.Enabled=FalsecmdDelete.Enabled=FalsecmdUpdate.Enabled=TruecmdReport.Caption=取消更改cmdReport標(biāo)題cmdReport.Enabled=TruembClose=False出于編輯狀態(tài)，則用戶不能關(guān)閉窗口EndSubPrivateSubcmdFirst_Click()移動(dòng)到

16、記錄的頭部，并改變各個(gè)瀏覽按鈕的狀態(tài)DataEnv.rssqlSeek.MoveFirstDataEnv.rssqlSeek.MovePreviousCallChangeBrowseStateEndSubPrivateSubcmdLast_Click()移動(dòng)到記錄的尾部，并改變各個(gè)瀏覽按鈕的狀態(tài)DataEnv.rssqlSeek.MoveLastDataEnv.rssqlSeek.MoveNextCallChangeBrowseStateEndSubPrivateSubcmdList_Click()針對(duì)所選的班級(jí)，列出班級(jí)中所有的學(xué)籍信息DimstrSQLIfcboClass.Text=全部T

17、henstrSQL=from學(xué)生信息表orderbyserialElsestrSQL=from學(xué)生信息表whereclass=&cboClass&orderbyserialEndIfDataEnv.rsStudent.CloseDataEnv.rsStudent.Openselect*&strSQLDataEnv.rssqlSeek.CloseDataEnv.rssqlSeek.Openselectserial,name&strSQL刷新用戶導(dǎo)航的網(wǎng)格控件，并且根據(jù)記錄集中記錄的數(shù)目，來(lái)改變各個(gè)瀏覽按鈕的狀態(tài)。CallRefreshGridCallChangeBrowseStateCallgr

18、dScan_ChangeEndSubPrivateSubcmdNext_Click()移動(dòng)到記錄的下一條DataEnv.rssqlSeek.MoveNextCallChangeBrowseStateEndSubPrivateSubcmdPrevious_Click()移動(dòng)到記錄的上一條DataEnv.rssqlSeek.MovePreviousCallChangeBrowseStateEndSubPrivateSubcmdReport_Click()OnErrorResumeNextIfcmdReport.Caption=取消Then取消所使用的更新更新DataEnv.rsStudent.Ca

19、ncelUpdate重新顯示原來(lái)數(shù)據(jù)集中的內(nèi)容IfDataEnv.rsStudent.BOFThenDataEnv.rsStudent.MoveFirstElseDataEnv.rsStudent.MovePreviousDataEnv.rsStudent.MoveNextEndIfCallRefreshBindingCallChangeBrowseStatefraSeek.Enabled=TruefraBrowse.Enabled=TruefraInfo.Enabled=FalsegrdScan.Enabled=TruecmdReport.Caption=報(bào)表(R)mbClose=TrueE

20、lse生成報(bào)表DimstrSQLAsStringDataEnv.rsrptStudent.ClosestrSQL=select*from學(xué)生信息表whereserial=&txtSerial.Text&DataEnv.rsrptStudent.OpenstrSQLrptStudent.ShowEndIfEndSubPrivateSubcmdSelectPhoto_Click()OnErrorGoToerrHandler:dlgSelect.DialogTitle=選擇該學(xué)生的照片dlgSelect.Filter=所有圖形文件|*.bmp;*.dib;*.gif;*.jpg;*.ico|位圖文件

21、(*.bmp;*.dib)&_|*.bmp;*.dib|GIF文件(*.gif)|*.gif|JPEG文件(*.jpg)|*.jpg|圖標(biāo)文件(*.ico)|*.icodlgSelect.ShowOpenIfdlgSelect.FileName=ThenExitSubimgPhoto.Picture=LoadPicture(dlgSelect.FileName)mstrFileName=dlgSelect.FileNameExitSuberrHandler:MsgBoxErr.Description,vbCritical,錯(cuò)誤EndSubPrivateSubcmdUpdate_Click()更

22、新所添加或者修改的記錄OnErrorGoToerrHandler:DimstrAsStringstr=txtSerial.TextWithDataEnv.rsStudent.Fields(Serial)=txtSerial.Text.Fields(name)=txtName.Text.Fields(sex)=cboSex.Text.Fields(class)=dcbClass.Text.Fields(birthday)=dtpBirth.Value.Fields(tel)=txtTelephone.Text.Fields(address)=txtAddress.Text.Fields(resu

23、me)=txtResume.TextIfmstrFileNameThenCallWriteImage(.Fields(photo),mstrFileName).UpdateEndWithcmdReport.Caption=報(bào)表(&R)cmdUpdate.Enabled=FalsefraInfo.Enabled=FalsembClose=TrueIfDataEnv.rssqlSeek.State=adStateClosedThenDataEnv.rssqlSeek.Open刷新右端用以導(dǎo)航的網(wǎng)格控件CallRefreshGrid根據(jù)記錄集中記錄的個(gè)數(shù)，改變各個(gè)按鈕的狀態(tài)CallChangeBro

24、wseState定位到剛剛添加或者修改過(guò)的記錄DataEnv.rssqlSeek.MoveFirstDataEnv.rssqlSeek.Findserial=&str&fraSeek.Enabled=TruefraBrowse.Enabled=TruegrdScan.Enabled=TrueExitSuberrHandler:MsgBoxErr.Description,vbCritical,錯(cuò)誤EndSubPrivateSubdcbClass_Click(AreaAsInteger)IftxtSerial=ThentxtSerial=dcbClass.TextEndIfEndSubPrivat

25、eSubForm_QueryUnload(CancelAsInteger,UnloadModeAsInteger)IfNotmbCloseThenMsgBox數(shù)據(jù)正被修改，窗口不能關(guān)閉,vbCritical,錯(cuò)誤Cancel=TrueEndIfEndSubPrivateSubfraInfo_DragDrop(SourceAsControl,XAsSingle,YAsSingle)EndSubPrivateSubgrdScan_Change()IfgrdScan.ApproxCount0ThenCallSeekStudent(grdScan.Columns(0).CellText(grdScan

26、.Bookmark)EndIfEndSubPrivateSubgrdScan_RowColChange(LastRowAsVariant,ByValLastColAsInteger)當(dāng)前行改變，則動(dòng)態(tài)改變所要顯示的記錄IfLastRowgrdScan.BookmarkThenIfgrdScan.ApproxCount0ThenCallSeekStudent(grdScan.Columns(0).CellText(grdScan.Bookmark)EndIfEndIfEndSubPrivateSubWriteImage(ByRefFldAsADODB.Field,DiskFileAsString

27、)DimbyteData()AsByte定義數(shù)據(jù)塊數(shù)組DimNumBlocksAsLong定義數(shù)據(jù)塊個(gè)數(shù)DimFileLengthAsLong標(biāo)識(shí)文件長(zhǎng)度DimLeftOverAsLong定義剩余字節(jié)長(zhǎng)度DimSourceFileAsLong定義自由文件號(hào)DimiAsLong定義循環(huán)變量ConstBLOCKSIZE=4096每次讀寫(xiě)塊的大小SourceFile=FreeFile提供一個(gè)尚未使用的文件號(hào)OpenDiskFileForBinaryAccessReadAsSourceFile打開(kāi)文件FileLength=LOF(SourceFile)得到文件長(zhǎng)度IfFileLength=0Then判

28、斷文件是否存在CloseSourceFileMsgBoxDiskFile&無(wú)內(nèi)容或不存在!ElseNumBlocks=FileLengthBLOCKSIZE得到數(shù)據(jù)塊的個(gè)數(shù)LeftOver=FileLengthModBLOCKSIZE得到剩余字節(jié)數(shù)Fld.Value=NullReDimbyteData(BLOCKSIZE)重新定義數(shù)據(jù)塊的大小Fori=1ToNumBlocksGetSourceFile,byteData()讀到內(nèi)存塊中Fld.AppendChunkbyteData()寫(xiě)入FLDNextiReDimbyteData(LeftOver)重新定義數(shù)據(jù)塊的大小GetSourceFile

29、,byteData()讀到內(nèi)存塊中Fld.AppendChunkbyteData()寫(xiě)入FLDCloseSourceFile關(guān)閉源文件EndIfEndSubPrivateFunctionReadImage(blobColumnAsADODB.Field)AsString取得一個(gè)臨時(shí)性文件DimstrFileNameAsStringstrFileName=ImageTmpDimFileNumberDimDataLenDimChunksDimChunkAry()DimChunkSizeDimFragmentDimlngIAsIntegerAsLongAsLongAsByteAsLongAsLong

30、AsLong計(jì)數(shù)器文件號(hào)文件長(zhǎng)度數(shù)據(jù)塊數(shù)數(shù)據(jù)塊數(shù)組數(shù)據(jù)塊大小零碎數(shù)據(jù)大小OnErrorGoToerrHanderChunkSize=2048定義塊大小為2KIfIsNull(blobColumn)ThenExitFunctionDataLen=blobColumn.ActualSize獲得圖像大小IfDataLen0Then有零碎數(shù)據(jù)，則先讀該數(shù)據(jù)ReDimChunkAry(Fragment-1)ChunkAry=blobColumn.GetChunk(Fragment)PutFileNumber,ChunkAry寫(xiě)入文件EndIfReDimChunkAry(ChunkSize-1)為數(shù)據(jù)塊重

31、新開(kāi)辟空間ForlngI=1ToChunks循環(huán)讀出所有塊ChunkAry=blobColumn.GetChunk(ChunkSize)在數(shù)據(jù)庫(kù)中連續(xù)讀數(shù)據(jù)塊PutFileNumber,ChunkAry()將數(shù)據(jù)塊寫(xiě)入文件中NextlngICloseFileNumber關(guān)閉文件ReadImage=strFileNameExitFunctionerrHander:ReadImage=EndFunctionPrivateSubimgPhoto_Click()SubEndOptionExplicit表示當(dāng)前的用戶類型：0-管理員類型的用戶;1-學(xué)生類型的用戶PublicmnUserTypeAsInt

32、eger表示當(dāng)前登錄的用戶名PublicmsUserNameAsStringPrivateSubMDIForm_Load()根據(jù)不同的用戶類型，使相應(yīng)的菜單項(xiàng)可見(jiàn)SelectCasemnUserTypeCase0:以管理員身份登錄mnuFind.Visible=TruetlbMain.Buttons.Item(3).Visible=TruetlbMain.Buttons.Item(4).Visible=TrueExitSubCase1:以學(xué)生身份登錄，只能查詢自己的信息mnuFind.Visible=False“信息查詢”菜單不可見(jiàn)tlbMain.Buttons.Item(3).Visible

33、=False“信息查詢”按鈕不可見(jiàn)tlbMain.Buttons.Item(4).Visible=False第二個(gè)分隔條不可見(jiàn)ExitSubEndSubEndSelectEndSubPrivateSubMDIForm_QueryUnload(CancelAsInteger,UnloadModeAsInteger)IfMsgBox(真的要對(duì)出本系統(tǒng)嗎？,vbQuestion+vbYesNo+vbDefaultButton2,退出)=vbNoThenCancel=1EndIfEndSubPrivateSubmnuAbout_Click()LoadfrmSplashfrmSplash.mbAbout

34、=TruefrmSplash.ShowvbModalEndSub設(shè)置主窗體中所有最小化MDI子窗體圖標(biāo)重排設(shè)置主窗體中所有非最小化MDI子窗體層疊顯示PrivateSubmnuArr_Click()frmMain.Arrange(3)EndSubPrivateSubmnuCas_Click()frmMain.Arrange(0)EndSubPrivateSubmnuExit_Click()UnloadMeEndSubPrivateSubmnuFind_Click()frmFind.ShowEndSubPrivateSubmnuHori_Click()frmMain.Arrange(1)設(shè)置主窗

35、體中所有非最小化MDI子窗體水平平鋪EndSubPrivateSubmnuLog_Click()IfMsgBox(若重新登錄，所有窗體都將關(guān)閉！&vbCrLf&是否重新登錄？,vbQuestion+vbYesNo+vbDefaultButton2,重新登錄)=vbYesThenUnloadMefrmLogin.ShowEndIfPrivateSubmnuStudent_Click()LoadfrmStudentfrmStudent.ShowEndSubPrivateSubmnuVer_Click()frmMain.Arrange(2)設(shè)置主窗體中所有非最小化MDI子窗體垂直平鋪EndSubPr

36、ivateSubtlbMain_ButtonClick(ByValButtonAsMSComctlLib.Button)SelectCaseButton.KeyCaseStudentmnuStudent_ClickExitSubCaseFindmnuFind_ClickExitSubCaseLoginmnuLog_ClickExitSubCaseExitmnuExit_ClickExitSubEndSelect表示當(dāng)前用戶登錄所選擇的身份，即用戶類型,0-表示教務(wù)管理人員；1-表示學(xué)生DimmnUserTypeAsIntegerPrivateSubcmdCancel_Click()Unload

37、MeEndSubPrivateSubcmdOK_Click()取得用戶輸入的用戶名和密碼EndSubDimuserAsString,pwdAsStringuser=Trim(txtUser)pwd=Trim(txtPwd)根據(jù)不同的身份，選擇不同的表用以查詢DimrAsNewADODB.RecordsetSetr=DataEnv.rssqlSeekDimstrSQLAsStringSelectCasemnUserTypeCase0:若身份為管理員strSQL=select*from系統(tǒng)人員表wherename=&user&andpwd=&pwd&Case1:若身份為學(xué)生strSQL=selec

38、t*from學(xué)生信息表wherename=&user&andserial=&pwd&EndSelectOnErrorResumeNext查詢DataEnv.rssqlSeek的狀態(tài)，如果已經(jīng)打開(kāi)，則先關(guān)閉Ifr.State=adStateOpenThenr.Closer.OpenstrSQL根據(jù)strSQL的內(nèi)容刷新DataEnv.rssqlSeek用戶密碼錯(cuò)誤的次數(shù)，如果錯(cuò)誤次數(shù)超過(guò)3次，則退出系統(tǒng)StaticnTryCountAsIntegerIfr.EOFThen登錄失敗MsgBox對(duì)不起，無(wú)此用戶或者密碼不正確！請(qǐng)重新輸入！,vbCritical,錯(cuò)誤txtUser.SetFocust

39、xtUser.SelStart=0txtUser.SelLength=Len(txtUser)nTryCount=nTryCount+1IfnTryCount=3ThenMsgBox您無(wú)權(quán)操作本系統(tǒng)！,vbCritical,錯(cuò)誤UnloadMeEndIfElse登陸成功顯示MDI窗體,并將用戶類型和用戶名傳到MDI窗體中的mnUserType,msUserName中WithfrmMain.mnUserType=mnUserType.msUserName=userEndWithLoadfrmMainfrmMain.ShowUnloadMeEndIfPrivateSubForm_Load()opt

40、UserType(0).Value=TrueEndSubPrivateSuboptUserType_Click(IndexAsInteger)mnUserType=IndexEndSubExplicitPrivateSubCommand1_Click()DimstrCon1AsStringDimstrCon2AsStringOnErrorGoTomyerrIfTrim(Text1.Text)=OrTrim(Text2.Text)=ThenIfMsgBox(請(qǐng)輸入查詢條件！,vblnformation,提示)ThenGoTomyerrEndIfSelectCaseTrim(Combo1.Text)Case學(xué)號(hào)strCon1=SerialCase姓名strCon1=NameCase班級(jí)strCon1=ClassCase生日strCon1=BirthdayCase性別strCon1=Se