【導(dǎo)讀】校的教學(xué)現(xiàn)代化水平，系統(tǒng)的先進性將引領(lǐng)學(xué)校教學(xué)質(zhì)量向前飛速發(fā)展。傳統(tǒng)的學(xué)生管理系。統(tǒng)大多由人工操作，不僅效率低，且可靠性不高。本系統(tǒng)采用計算機程序?qū)崿F(xiàn)，基本流程按。照原系統(tǒng)進行，系統(tǒng)的強大功能主要體現(xiàn)在對學(xué)生基本信息的查找和學(xué)生考試成績的查詢。詳盡討論了系統(tǒng)相關(guān)數(shù)據(jù)庫文件的建立，登陸界面的設(shè)計，身份權(quán)限的識。別，查找的過程設(shè)計，修改的過程設(shè)計等，并將源程序?qū)懺诟巾撝小?

　　

【正文】 ” BSet=True End If If =1 And “ “ Then If bSet Then sqlstr=sqlstr+” ,” sqlstr=sqlstr+”unit=?”amp。txtFunitamp。” ?” bset=True End If If =1 Then If bSet Then sqlstr=sqlstr+” , “ Select Case Case 0 Sqlstr=sqlstr+”usertype=2” Case 1 Sqlstr=sqlstr+”usertype=4” End Select bSet=True End If If =1 Then If bSet Then sqlstr=sqlstr+” ,” sqlstr=sqlstr+”age=”amp。 bSet=True End If ?修改 If bSet Then Sqlstr=sqlstr+”where username=? “ amp。 txtFindNameamp。 “ ? “ (“cmdFindUser”).CommandText=sqlstr ?顯示修改結(jié)果 (“cmdFindUser”).CommandText=”select username,realname,age,unit,usertype,state,registertime from usertable where username=? “ amp。 txtFindName amp。 “ ? “ =(“cmdFindUser”).Name Else MsgBox”請?zhí)顚懸薷牡馁Y料！ ”,vbInformation,”修改 ” End If End Sub] 下面是用 SQL 語言實現(xiàn)查詢功能的“修改”按鈕激發(fā)的 Click 事件。 Private Sub cmdDel_Click() Dim delUserName As String DelUserName=txtFindName If “ “ Then If IsExistUser(txtFindName,” “ ) Then If MsgBox(“缺點要刪除此用戶嗎？ ”,vbYesNo +vbCritical,”刪除 “)=vbYes (“cmdFindUser”).CommandText=”delete from usertable where username=? “ amp。txtFindName amp。 “ ? “ ?刪除 ?刷新 Grid,顯示結(jié)果 =(“cmdUser”).Name =(0),Text MsgBox”成功刪除用戶?。?！ ”+delUserName,vbOKOnly+vbInformation,”刪除用戶成功 ” End If Else MsgBox”無此用戶！??！ ”,vbOKOnly+vbInformation,”刪除用戶失敗 ” End If End If End Sub 下面是窗體裝載和卸載時的事件。 Private Sub Form_Load() ?在最前面 Frame1(0).zorder 0 =CStr() =CStr() ?用戶類型 ”一般用戶 ” ”管理員 ” “Guest” =0 “一般用戶 ” “管理員 ” “Guest “ =0 “男 ”,0 “女 ”,1 =0 “男 ”,0 “女 ”,1 =0 =True =CStr(Year(Now)) =CStr(Month(Now)) =txtYear =txtMon ?綁定數(shù)據(jù)源，刷新 Grid =(“cmdUser”).Name =False End Sub Private Sub Form_Unload(Cancel As Integer) ?刷新 Grid =(“cmdUser”).Name =(“cmdStudent”).Name =True End Sub 單擊“學(xué)生管理”選項卡后，同樣出現(xiàn)如圖所示的界面。 這部分實現(xiàn)各種操作的原理與上一部分差不多。 下面是用 SQL 語言實現(xiàn)查詢功能的“查找”按鈕激發(fā)的 Click 事件。 Private Sub cmdFStudent_click() ?查找學(xué)生 Dim sqlstr As String Dim wherestr As String ?判斷有無 where 語句 Dim bwhere As Boolean sqlstr=”select * from studenttable” wherestr=” “ bwhere=False If “ “ Then wherestr=wherestr+”Studentname=? “ amp。 txtStudentName amp。 “ ? “ bwhere=True End If If =1 And “ “ Then If bwhere Then wherestr=wherestr+” and “ wherestr=wherestr+”Studentid like ?%?amp。txtFStudentID amp。 “%?” bwhere=True End If If =1 And “ “ Then If bwhere Then wherestr=wherestr+” and” wherestr=wherestr+”studentname like ?% “ amp。 txtFStudentName amp。 “% ?” bwhere=True End If If =1 And “ “ Then If bwhere Then wherestr=wherestr+ “ and “ wherestr=wherestr+”class like ?%”amp。txtFStudentCLass amp。 “%?” bwhere=True End If If =1 Then If bwhere Then wherestr=wherestr + “ and “ If = 0 Then wherestr=wherestr+”gender like ? % “ amp?！蹦?” amp。 “%? “ ElseIf =1 Then wherestr=wherestr+”gender like ?%” amp。 “女 ”amp?！?? “ End If bwhere=True End If If =1 And “ “ Then If =” “ Then =”00” If bwhere Then wherestr=wherestr+ “ and “ If Then Lwherestr=wherestr+”acceptancetime? “amp。txtFYear+”“+txtFMon amp。 “ ? “ Else Wherestr=wherestr+”acceptancetime? “ amp。 txtFYear + ““+txtFMon amp。 “ ? “ End If bwhere=True End If If =1 And “ “ Then If bwhere Then wherestr=wherestr+ “ and “ wherestr=wherestr+”hometown like ?%” amp。txtFHometown amp。 “ % ? “ bwhere=True End If If bwhere Then sqlstr=sqlstr+ “ where “ + wherestr Sqlstr= sqlstr +” order by Studentid asc “ (“cmdFindStudent”).CommandText=sqlstr ?刷新 Grid =(“cmdFindStudent”).Name If =0 Then MsgBox”在 數(shù)據(jù)庫中沒找到要查詢的對象 ”,vbOKOnly+vbInformation,”查詢失敗 ” End If End Sub 下面是用 SQL 語言實現(xiàn)查詢功能的“修改”按鈕激發(fā)的 Click 事件。 ?修改用戶的資料 Private Sub cmdMod_Click() Dim sqlstr As String ?修改的標志 Dim bSet As Boolean If = 0 Then MsgBox “請先選擇“選擇修改功能”選項！ ”,vbOKOnly+vbInformation,”修改 ” Exit Sub End If bSet=False If =” “ Then MsgBox “ 請鍵如要修改的用戶名或者在表中選擇要修改的用戶名。 ”,vbOKOnly+vbInformation,”修改 ” Exit Sub End If ?要修改的用戶名存在 If IsExistUser(txtFindName, “ “ ) Then sqlstr= “ update usertable set “ If =1 Snd “ “ Then sqlstr=sqlstr + “realname= ? “ amp。 amp。 “ ? “ bSet=True End If If = 1 And “ “ Then If bSet Then sqlstr=sqlstr+ “ , “ sqlstr=sqlstr+ “ unit=? “ amp。 txtFUnit amp。 “ ? “ bSet=True End If If =1 Then If bSet Then sqlstr=sqlstr+” , “ Select Case Case 0 sqlstr=sqlstr+”usertype=2” Case 1 Sqlstr=sqlstr+”usertype=4” End Select bSet=True End If If = 1 Then If bSet Then sqlstr=sqlstr+ “ , “ sqlstr=sqlstr+”age=” amp。 bSet=True End If ?修改 If bSet Then Sqlstr=sqlstr+”where username =? “ amp。 txtFindNameamp。 “ ? “ (“cmdFindUser”).CommandText=sqlstr ?刷新 Grid ?顯示修改結(jié)果 (“cmdFindUser”).CommandText=“select username,realname,age,unit,usertyp E,state,registertime from usertable where username =? “ amp。 txtFindName amp。 “ ? “ =(“cmdFindUser”).Name Else MsgBox”請?zhí)顚懸薷牡馁Y料！ ”,vbOKOnly + vbInformation,”修改 ” Exit Sub End If Else MsgBox “無此用戶！ ”,vbOKOnly+vbInformation,”修改 ” End If End Sub 下面是用 SQL 語言實現(xiàn)查詢功能的“刪除“按鈕激發(fā)的 Click 事件。 Private Sub cmdFDel_Click() ?刪除學(xué)生 Dim sqlstr As String Dim wherestr As String ?判斷有無 Where 語句 Dim bwhere As Boolean sqlstr=”delete from studenttable” wherestr=? “ bwhere= False If = 1 And txtFStudentIDtext “ “ Then If bwhere Then wherestr=wherestr+” and “ wherestr=wherestr+”Studentid like ? % “amp。txtFStudentID amp。 “ % ? “ bwhere=True End If If =1