VB用户登录管理系统.docx

VB用户登录管理系统

第一篇：VB用户登录管理系统软件开发环境与工具实验报告实验二实验题目：用户登录及管理系统实验地点：软件实验室一指导老师：王琦实验类型：设计型系班：计算机科学与技术系1103班姓名：秦芳芳（2011100316）2013年11月22日一．实验项目名称：用户登录及管理系统二.实验目的和任务：1、掌握系统登录界面设计基本流程2、了解用户管理所要实现的基本功能3、要求利用三层架构思想机ado.Net相关技术实现程序三.实验内容及要求：1、能够进行登录验证2、能够实现对用户的基本管理,管理员能够进行查询添加修改删除3、利用ado.net数据库连接访问数据库,提高安全性四．实验步骤：1、class1.vb的代码：ImportsSystem.Data.SqlClientPublicClassClass1DimstrconnAsString=Me.getstrconn()PublicFunctionyanzheng(ByValstr1AsString)AsIntegerDimconnAsNewSqlConnectionconn.ConnectionString=strconnconn.Open()DimcmdAsNewSqlCommandcmd.CommandText=“select*fromstudentwheresname='”&str1&“'”cmd.Connection=conn'cmd.CommandType=CommandType.TextDimdrAsSqlDataReaderdr=cmd.ExecuteReaderIfdr.ReadThendr.Close()conn.Close()Return1Elsedr.Close()conn.Close()Return0EndIfEndFunctionPublicFunctionpwdyanzheng(ByValstrAsString)AsSqlDataReaderDimconnAsNewSqlConnectionconn.ConnectionString=strconnconn.Open()DimcmdAsNewSqlCommandcmd.CommandText=“select*fromstudentwheresname='”&str&“'”cmd.Connection=connDimdrAsSqlDataReader=cmd.ExecuteReaderReturndrEndFunctionPublicFunctiongetstrconn()AsStringDimstrAsStringstr=“server=”&System.Configuration.ConfigurationManager.AppSettings(“server”)&“;”str&=“uid=”&System.Configuration.ConfigurationManager.AppSettings(“uid”)&“;”str&=“pwd=”&System.Configuration.ConfigurationManager.AppSettings(“pwd”)&“;”str&=“database=”&System.Configuration.ConfigurationManager.AppSettings(“database”)ReturnstrEndFunctionPublicFunctiongetalldata()AsDataSetDimconnAsNewSqlConnectionconn.ConnectionString=strconnconn.Open()DimdaAsNewSqlDataAdapter(“select*fromstudent”,conn)DimdsAsNewDataSetda.Fill(ds,“student”)conn.Close()ReturndsEndFunctionPublicFunctioninsdata(ByValstr1AsString,ByValstr2AsString)AsStringDimconnAsNewSqlConnectionconn.ConnectionString=strconnDimcmdAsNewSqlCommandcmd.Connection=conncmd.CommandText=“insertintostudent(sname,sno)values('”&str1&“','”&str2&“')”Tryconn.Open()cmd.ExecuteNonQuery()Return“1”CatchexAsExceptionReturn“-1”&ex.MessageEndTryconn.Close()EndFunctionPub