VB学生信息管理系统编码设计说明书

1、*学院学生信息管理系统编码设计说明书1. 引言 . 12. 代码. 1(1登录界面 . 1(2主界面 . 2(3新用户注册界面 . 3(4信息管理窗口(41. 引言编写目的主要让用户对系统的实现有更详细的了解,并便于将来的修改和维护。2. 代码(1登录界面界面功能:只有授权的用户才能登录系统。当用户输入用户名和密码后,单击“确定”按钮,如果用户名和密码正确,则登录进入系统,否则系统提示无权登录。“确定”的代码为: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 "对不起,无此用户或者密码不正确!请重新输入!", vbCritical, "错误" Text1.Text = "" Text2.Text = ""nTryCount = nTryCount + 1 If nTryCount >= 3 ThenMsgBox "您无权操作本系统!", vbCritical, "错误" Unload Me End IfElse Load Form8 Form8.Show Unload M

4、eEnd If窗体设计:(2主界面本窗体为系统的操作界面,所有的窗口都显示在此窗体中。l i de h ui(3新用户注册界面界面功能:为新的用户授权,使其管理系统的权限。“提交”的代码:If Text1.Text <> "" Or Text2.Text <> "" Or Text3.Text <> "" Then If Text2.Text = Text3.Text Then Adodc1.Recordset.UpdateMsgBox "注册成功!", , "信息提示

5、" Unload Me ElseMsgBox "你的两次密码输入比一致,请重新输入!"End If ElseMsgBox "你输入的信息为空,请重新输入!" End If窗体设计:l i de h ui (4信息管理窗口界面功能:该窗口用于学生信息的管理,功能有信息的添加、查询、修改、删除、保存功能。(a“查询”按钮中的代码为:If Text1.Text <> "请输入要查询的信息" And Text1.Text <> "" ThenstrSQL = "select *

6、from stuinfo where " & Combo1.Text & " like'%" & Text1.Text & "%'"Adodc1.CommandType = adCmdText Adodc1.RecordSource = strSQL Adodc1.Refresh ElseMsgBox "你没有输入有效信息,请重新输入!" End IfIf Text5.Text = "" ThenMsgBox "很抱歉,没有查询到你所需要的信息!&

7、quot; End If(b“返回首项”按钮的代码:aa = MsgBox("确定要返回第一记录吗?", vbOKCancel, "信息提示" If aa = 1 ThenAdodc1.Recordset.MoveFirst End If(c“到末项”按钮的代码为:aa = MsgBox("确定要跳到最后一记录吗?", vbOKCancel, "信息提示" If aa = 1 ThenAdodc1.Recordset.MoveLast End If(d “上一项”和“下一项”按钮的代码为:If Adodc1.Rec

8、ordset.BOF ThenMsgBox "已经是第一条记录了!", , "信息提示" Elsel i de h uiAdodc1.Recordset.MovePrevious End IfIf Adodc1.Recordset.EOF ThenMsgBox "已经是最后一条记录了!", , "信息提示" 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