【正文】 t_click()‘查找學(xué)生 Dim sqlstr As String Dim wherestr As String‘判斷有無where語句Dim bwhere As Booleansqlstr=”select * from studenttable”wherestr=” “bwhere=FalseIf “ “ Then wherestr=wherestr+”Studentname=’ “ amp。 “%’” bwhere=TrueEnd If If =1 ThenIf bwhere Then wherestr=wherestr + “ and “If = 0 Then wherestr=wherestr+”gender like ‘ % “ amp。 “ ‘ “ End If bwhere=True End If If =1 And “ “ ThenIf bwhere Then wherestr=wherestr+ “ and “wherestr=wherestr+”hometown like ‘%” amp。 “ ‘ “ bSet=TrueEnd IfIf =1 Then If bSet Then sqlstr=sqlstr+” , “ Select Case Case 0 sqlstr=sqlstr+”usertype=2”Case 1 Sqlstr=sqlstr+”usertype=4”End SelectbSet=True End If If = 1 Then If bSet Then sqlstr=sqlstr+ “ , “ sqlstr=sqlstr+”age=” amp。 “ % ‘ “bwhere=TrueEnd IfIf =1 And “ “ Then If bwhere Then wherestr=wherestr+ “ and “ wherestr=wherestr+” studentname like ‘ %” amp。 “%’ “End If bwhere=TrueEnd If If = 1And “ “ Then If =” “ Then =”00” If bwhere Then wherestr=wherestr+” and “ If Thenwherestr=whrerstr+” acceptancetime ‘ “ amp。初始化和載窗體的代碼如下：Private Sub Form_Load() =200 =()/2 Frameborrow(0).Left= Frameborrow(0).Top= Frameborrow(0).Height= Frameborrow(0).Width= Frameborrow(0).Zorder 0 “無“，0 “學(xué)號”,1 “姓名”,2 “班級”,3 “性別”,4 =1 If =adstateOpen Then DataE, End If =True =True =True =True =True =True =False =False call cmdSearch_Click =FalseEnd Sub Private Sub Form_Unload(Cancel As integer)=TrueEnd Sub根據(jù)boBox控件的選項(xiàng)來控制Frame控件的顯示和隱藏的代碼如下。 txtKey amp。 txtKey amp。 “%’ “ bwhere=TrueEnd IfIf bwhere Then sqlstr=sqlstr+ “ where “ +wherestr (“cmdFindStudent”).CommandText=sqlstr‘刪除‘刷新Grid,顯示結(jié)果 =(“cmdStudent”).Name =(0).Text =(1).TextEnd Sub frmSearch窗體的建立 frmSearch窗體實(shí)現(xiàn)了查詢表的功能。 “%’ “ ElseIf = 1 Then wherestr=wherestr+ “gender like ‘ % “ amp。Private Sub cmdFDel_Click()‘刪除學(xué)生 Dim sqlstr As String Dim wherestr As String ‘判斷有無Where 語句 Dim bwhere As Booleansqlstr=”delete from studenttable” wherestr=’ “ bwhere= False If = 1 And txtFStudentIDtext “ “ ThenIf bwhere Then wherestr=wherestr+” and “wherestr=wherestr+”Studentid like ‘ % “amp。 “ ‘ “bSet=TrueEnd IfIf = 1 And “ “ Then If bSet Then sqlstr=sqlstr+ “ , “ sqlstr=sqlstr+ “ unit=’ “ amp。 “ ‘ “ Else Wherestr=wherestr+”acceptancetime’ “ amp。 “% ‘” bwhere=TrueEnd IfIf =1 And “ “ Then If bwhere Then wherestr=wherestr+ “ and “ wherestr=wherestr+”class like ‘%”amp。這部分實(shí)現(xiàn)各種操作的原理與上一部分差不多。 “ ‘ “ (“cmdFindUser”).CommandText=sqlstr ‘顯示修改結(jié)果 (“cmdFindUser”).CommandText=”select username,realname,age,unit,usertype,state,registertime from usertable where username=’ “amp?！薷挠脩舻馁Y料Private Sub cmdMod_Click() Dim sqlstr As String ‘修改的標(biāo)志Dim bSet As BooleanIf =0 Then MsgBox”請先選擇“選擇修改功能”選項(xiàng)！”,vbOKOnly+vbInformation, “修改” Exit SubEnd If BSet=FalseIf =” “ Then MsgBox”請鍵入要修改的用戶名或者在表中選擇要修改的用戶名?！?’” bwhere=TrueEnd IfIf =1 And ”” Then If bwhere Then wherestr=wherestr+”and” wherestr=wherestr+ “realname like ‘%”amp。Private Sub Form_Resize() =200 =100 = –200 = –400 Dim I For I=0 To 1 Frame1(i).Left= Framel(i).Top= Frame1(i).Height= Frame1(i).Width= Next Frame1(0).Zorder 0 =2000 =200 =Frame1(0). =++300 =2000 = +400 =++100 = =2000 =200 =Frame1(1). =++300 =2000 =+400 =++100 =End Sub單擊“用戶管理“選項(xiàng)卡，出現(xiàn)如下界面。Stateamp。amp。用戶在此界面中填寫各種個人信息。如下圖 其中管理員的用戶名為admin，口令為1，均已在初始化時設(shè)定。IsExistUser函數(shù)在公共模塊mdlVar中，它返回一個Boolean 值。 程序的設(shè)計(jì)按照一個標(biāo)準(zhǔn)的 exe 的界面來設(shè)計(jì)的。 Private Sub tsUser_Click()Frame1( –1).Zorder 0End Sub （frmSearch 窗體的建立）frmSearch窗體實(shí)現(xiàn)了查詢表的功能?！?vbokonly+vbInformation,”錯誤” End If End If End sub （Register窗體的建立） Register窗體實(shí)現(xiàn)了注冊新用戶的功能。它的形式為，一個是填寫“用戶名”的文本框，一個是填寫“密碼”的文本框，然后是“確認(rèn)”按鈕和“取消”按鈕。如果有，則允許用戶進(jìn)行下一步操作，即進(jìn)入系統(tǒng)；如果沒有這個用戶，則請求用戶注冊為新用戶。 （7）系統(tǒng)接受到請求，查詢用戶信息表驗(yàn)證用戶操作權(quán)限。（7）刪除模塊：檢測原數(shù)據(jù)表中是否有待刪項(xiàng)，有則刪除，無則返回。系統(tǒng)的運(yùn)行對運(yùn)行環(huán)境有如下要求：1． 硬件環(huán)境● 處理器：Inter Pentium 166 MX 或更高● 內(nèi)存：32MB● 硬盤空間：1GB● 顯卡：SVGA顯示適配器2． 軟件環(huán)境● 操作系統(tǒng)：Windows 98/ME/2000/XP● 數(shù)據(jù)庫：Microsoft Access 20003．總體設(shè)計(jì) “學(xué)生信息管理系統(tǒng)可分為七個模塊：用戶登陸模塊、注冊模塊、權(quán)限管理模塊、查詢模塊、添加模塊、修改模塊、刪除模塊。一套好的管理系統(tǒng)是良好學(xué)習(xí)環(huán)境的組織者。傳統(tǒng)的學(xué)生管理系統(tǒng)大多由人工操作，不僅效率低，且可靠性不高。本學(xué)生信息管理系統(tǒng)是建立在Microsoft Access 2000基礎(chǔ)上的應(yīng)用系統(tǒng)，用Visual Basic 語言編寫，此信息管理系統(tǒng)可以單機(jī)操作，也可在局域網(wǎng)中聯(lián)機(jī)操作，可以實(shí)現(xiàn)學(xué)生信息的高效查詢，修改，刪除等操作，比以前使用卡片的方法有很大的進(jìn)步，使學(xué)生信息關(guān)系系統(tǒng)化，規(guī)范化和自動化。（2）注冊模塊：新用戶注冊。數(shù)據(jù)來源：權(quán)限管理模塊進(jìn)行錄入（教務(wù)處）。（9）系統(tǒng)響應(yīng)用戶操作申請，鏈接數(shù)據(jù)庫，并反饋操作結(jié)果 數(shù)據(jù)流圖 輸入：用戶名、密碼、操作請求輸出：查詢結(jié)果、修改結(jié)果、刪除結(jié)果、打印相關(guān)報表。如果返回值為True,則數(shù)據(jù)庫存在該用戶，反之不存在。strUserNameamp。在代碼中不但要保存用戶的信息，還要將信息存放UserTable表中，用SQL語言描述。例如，沒有管理員就無法修改學(xué)生成績；系統(tǒng)用戶和學(xué)生不一致（學(xué)生用學(xué)號作為用戶名）；學(xué)生能夠看到其他人的成績等。在此程序中，mdiFrm是主窗體，所以要在mdiFrm上的菜單和工具欄中提供各個窗體間的切換。本程序使用DataEnviroument工具來訪問數(shù)據(jù)庫?！薄? If strpwd” “ Then ‘登陸 =+”and pwd=’”amp。檢測用戶名輸入的具體代碼如下：private sub cmdReg_click() ‘Dim cmdAs mand Usertype=General State=1 Set cmd=New mand (“conLibrary”).open =(“conLibrary”) =”insert into UserTable (UserName,RealName,Unit,pwd,RegisterTime, age,state,usertype) values(‘”amp?！薄?’”amp。”’)” =”select*from usertablewhere username=’”amp。amp。amp。 “’” BSet=TrueEnd If If =1 And “ “ ThenIf bSet Then sqlstr=sqlstr+” ,”sqlstr=sqlstr+”unit=’”amp。Private Sub cmdDel_Click() Dim delUserName As String DelUserName=txtFindName If “ “ Then If IsExistUser(txtFindName,” “ ) Then If MsgBox(“缺點(diǎn)要刪除此用戶嗎？”,vbYesNo +vbCritical,”刪除 txtStudentName amp?！蹦小?amp。txtFHometown amp。 bSet=TrueEnd If‘修改If bSet Then Sqlstr=sqlstr+”where username =’ “ amp。txtFStudentName amp。 txtFYear+”“+txtFMon amp。Private Sub cmbIt