基于vb的學(xué)生信息管理系統(tǒng)設(shè)計與實現(xiàn)(文件)
【正文】 bExclamation, 修改密碼 = = = = End With End If End Sub 第 5 章 學(xué)籍信息管理模塊 學(xué)籍管理模塊詳細設(shè)計 學(xué)生信息的增加，查詢，修改的界面如圖 所示： 圖 添加學(xué)籍信息界面 核心代碼如下： Private Sub Command1_Click() 39。Persist Security Info=False。*********檢查學(xué)生信息是否存在 stu_no = Trim() mysql = select * from studentinfo where stu_no=39。 mysql, With rst If Not Then MsgBox 該學(xué)生信息已存在，請重新輸入！ , vbExclamation + vbOKOnly, 提示 = = = = = Text6(6).Text = Exit Sub End If End With 39。 amp。*******按姓名查詢 If Trim(Text2) = Then MsgBox 姓名不能為空 , vbOKOnly + vbExclamation, 警告 Exit Sub Else dd(1) = True If dd(0) Then txtSQL = select * from studentinfo where stu_no=39。 and Name=39。 Else txtSQL = select * from studentinfo where Name=39。 End If End If End If 39。Persist Security Info=False。顯示 .TextMatrix(1, 2) = 姓名 .TextMatrix(1, 3) = 班級號 .TextMatrix(1, 4) = 出生日期 .TextMatrix(1, 5) = 性別 .TextMatrix(1, 6) = 通訊地址 .TextMatrix(1, 7) = 年制 .TextMatrix(1, 8) = 電話號碼 .TextMatrix(1, 9) = 備注 Do While Not .Rows = .Rows + 1 .CellAlignment = 9 .TextMatrix(.Rows 1, 1) = (0) .TextMatrix(.Rows 1, 2) = (name) .TextMatrix(.Rows 1, 3) = (class_no) .TextMatrix(.Rows 1, 4) = (birthdate) .TextMatrix(.Rows 1, 5) = (sex) .TextMatrix(.Rows 1, 6) = (address) .TextMatrix(.Rows 1, 7) = (6) .TextMatrix(.Rows 1, 8) = (tel_no) .TextMatrix(.Rows 1, 9) = (memo 39。 對于此系統(tǒng)要從 美觀、功能和技術(shù)上 三個方面做重點改進。 致 謝 值畢業(yè)論文結(jié)束，畢業(yè)設(shè)計完成之際，我謹向在我畢業(yè)設(shè)計過程給予我很多幫助的各位老師和同學(xué)表示感謝。 另外，我們還要感謝系領(lǐng)導(dǎo)和各位老師，是他們給我提供了如此好的學(xué)習(xí)和設(shè)計環(huán)境。 他 認真負責(zé)的工作態(tài)度，嚴謹?shù)闹螌W(xué)精神和深厚的理論水平都使我收益匪淺。 總體說來，在這次一個學(xué)期的畢業(yè)設(shè)計中，我學(xué)到了很多在課堂內(nèi)學(xué)不到的知識。力求與實際相結(jié)合具有查詢、管理等功能，旨在達到使對學(xué)生信息的管理和運營趨于計算機化，使之更加方便、快捷以提高工作效率。Initial Catalog=luhengxiu。**********連接數(shù)據(jù)庫 Set = New Set rst = New = Provider=。 Trim() amp。 Trim() amp。 Trim() amp。 39。聲明字符串變量 Dim rst As New Dim dd(4) As Boolean Dim As 39。 stu_no amp。database=luhengxiu。要求輸入范圍 Exit Sub End If If Trim() = Then MsgBox 請輸入姓名！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If If Trim() = Then MsgBox 請輸入出生日期！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If If Not Trim( Or ) Then MsgBox 請選擇性別！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If If Then sex = 男 Else sex = 女 End If 39。 + + 39。 amp。 UserName amp。User ID=sa。 39。server=(local) 39。Dim rst As New Set = New Set rst = New = Provider=。vbOKOnly 僅顯示確定按鈕 vbExclamation 顯示！號圖標(biāo) = El
研究報告相關(guān)推薦
鄂ICP備17016276號-1