VB學(xué)生信息管理系統(tǒng)編碼設(shè)計(jì)說(shuō)明書(shū)

1、*學(xué)院學(xué)生信息管理系統(tǒng)編碼設(shè)計(jì)說(shuō)明書(shū)1. 引言 . 12. 代碼. 1(1登錄界面 . 1(2主界面 . 2(3新用戶(hù)注冊(cè)界面 . 3(4信息管理窗口(41. 引言編寫(xiě)目的主要讓用戶(hù)對(duì)系統(tǒng)的實(shí)現(xiàn)有更詳細(xì)的了解,并便于將來(lái)的修改和維護(hù)。2. 代碼(1登錄界面界面功能:只有授權(quán)的用戶(hù)才能登錄系統(tǒng)。當(dāng)用戶(hù)輸入用戶(hù)名和密碼后,單擊“確定”按鈕,如果用戶(hù)名和密碼正確,則登錄進(jìn)入系統(tǒng),否則系統(tǒng)提示無(wú)權(quán)登錄?！按_定”的代碼為:Dim user As String, pwd As String user = Trim(Text1.Text pwd = Trim(Text2.TextDim r As New A

2、DODB.Recordset Set r = DataEnv.rsdl Dim strSQL As StringstrSQL = "select * from consumer where name='" & user & "' and mima='" & pwd & "'l i de h uiOn Error Resume NextIf r.State = adStateOpen Then r.Close r.Open s trSQL Static nTryCount As In

3、teger If r .EOF ThenMsgBox "對(duì)不起,無(wú)此用戶(hù)或者密碼不正確!請(qǐng)重新輸入!", vbCritical, "錯(cuò)誤" Text1.Text = "" Text2.Text = ""nTryCount = nTryCount + 1 If nTryCount >= 3 ThenMsgBox "您無(wú)權(quán)操作本系統(tǒng)!", vbCritical, "錯(cuò)誤" Unload Me End IfElse Load Form8 Form8.Show Unload M

4、eEnd If窗體設(shè)計(jì):(2主界面本窗體為系統(tǒng)的操作界面,所有的窗口都顯示在此窗體中。l i de h ui(3新用戶(hù)注冊(cè)界面界面功能:為新的用戶(hù)授權(quán),使其管理系統(tǒng)的權(quán)限。“提交”的代碼:If Text1.Text <> "" Or Text2.Text <> "" Or Text3.Text <> "" Then If Text2.Text = Text3.Text Then Adodc1.Recordset.UpdateMsgBox "注冊(cè)成功!", , "信息提示

5、" Unload Me ElseMsgBox "你的兩次密碼輸入比一致,請(qǐng)重新輸入!"End If ElseMsgBox "你輸入的信息為空,請(qǐng)重新輸入!" End If窗體設(shè)計(jì):l i de h ui (4信息管理窗口界面功能:該窗口用于學(xué)生信息的管理,功能有信息的添加、查詢(xún)、修改、刪除、保存功能。(a“查詢(xún)”按鈕中的代碼為:If Text1.Text <> "請(qǐng)輸入要查詢(xún)的信息" And Text1.Text <> "" ThenstrSQL = "select *

6、from stuinfo where " & Combo1.Text & " like'%" & Text1.Text & "%'"Adodc1.CommandType = adCmdText Adodc1.RecordSource = strSQL Adodc1.Refresh ElseMsgBox "你沒(méi)有輸入有效信息,請(qǐng)重新輸入!" End IfIf Text5.Text = "" ThenMsgBox "很抱歉,沒(méi)有查詢(xún)到你所需要的信息!&

7、quot; End If(b“返回首項(xiàng)”按鈕的代碼:aa = MsgBox("確定要返回第一記錄嗎?", vbOKCancel, "信息提示" If aa = 1 ThenAdodc1.Recordset.MoveFirst End If(c“到末項(xiàng)”按鈕的代碼為:aa = MsgBox("確定要跳到最后一記錄嗎?", vbOKCancel, "信息提示" If aa = 1 ThenAdodc1.Recordset.MoveLast End If(d “上一項(xiàng)”和“下一項(xiàng)”按鈕的代碼為:If Adodc1.Rec

8、ordset.BOF ThenMsgBox "已經(jīng)是第一條記錄了!", , "信息提示" Elsel i de h uiAdodc1.Recordset.MovePrevious End IfIf Adodc1.Recordset.EOF ThenMsgBox "已經(jīng)是最后一條記錄了!", , "信息提示" ElseAdodc1.Recordset.MoveNext End If(e “添加”按鈕的代碼為:aa = MsgBox("確定要添加一條記錄嗎?", vbOKCancel, "

9、信息提示" If aa = 1 ThenAdodc1.Recordset.AddNew End If(f “修改”按鈕的代碼為:Text2.Locked = False Text3.Locked = False Text4.Locked = False Text5.Locked = False Text6.Locked = False Text7.Locked = False Text8.Locked = False Text9.Locked = False Text10.Locked = False Text11.Locked = False Text12.Locked = Fal

10、seMsgBox "你可以修改所選的記錄了!", , "信息提示"(g “刪除”按鈕的代碼為:Adodc1.Recordset.DeleteMsgBox "刪除成功!", , "信息提示"(h“保存”按鈕的代碼為:aa = MsgBox("確定要保存嗎?", vbOKCancel, "信息提示" If aa = 1 ThenAdodc1.Recordset.Update Text2.Locked = True Text3.Locked = True Text4.Locked = True Text5.Locked = True Text6.Locked = True Text7.Locked = True Text8.Locked = True Text9.Lo