《学生信息系统》由会员分享,可在线阅读,更多相关《学生信息系统(14页珍藏版)》请在金锄头文库上搜索。
1、VB.NET课程设计报告设计课题:学生信息管理 Button1.ClickDim DA AsNew连接数据库_类DA.creatconn(Dim sqlstring AsStringsqlstring =select scode,sname,sprass,ssex,sduty,stitle,sbirthday from suser wherescode= & TextBox1.Text & and sprass= & TextBox2.Text &DA.selcmd(sqlstringIf DA.scode = TextBox1.Text ThenWhile DA.dr.Readscode =
2、 DA.dr.GetString(0sname = DA.dr.GetString(1sprass = DA.dr.GetString(2ssex = DA.dr.GetString(3sduty = DA.dr.GetString(4Trystitle = DA.dr.GetString(5Catch ex As Exceptionstitle =EndTryTrysbirthday = DA.dr.GetString(6Catch ex As Exceptionsbirthday =EndTryEndWhile 显示窗口 .Show(Me.Close(ElseMsgBox( error!E
3、ndIfEndSubHandlesPrivateSub Button2_Click( ByVal sender As System.Object, ByVal e As System.EventArgs Button2.ClickEndEndSubHandlesPrivateSub Label4_Click( ByVal sender As System.Object, ByVal e As System.EventArgs Label4.Click注册界面 .Show(EndSubEndClass用户基本信息用尸基本信息歸号:0933063301照片:姓名:刘翔密码:000000性别:男角色
4、:学生出生日期:2000-0-0 FotkI回区代码如下:PublicClass 显示窗口Public tsname AsStringPublic tsprassAsStringPublic tssex AsStringPublic tstltleAsStringHandlesPrivateSub Button2_Click( ByVal sender As System.Object, ByVal e As System.EventArgsButton2.ClickEndEndSubPrivateSub 显示窗口 _Load( ByVal sender As System.Object, B
5、yVal e As System.EventArgsHandlesMyBase.Load注册界面.TextBox1.Text =Metscode.Text注册界面.TextBox2.Text =Metsname注册界面.TextBox3.Text =MetsprassEndSubPrivateSub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgsHandlesButton1.Click 修改界面.Show( EndSub EndClass学生注册信息表代码如下:Imports System.Data
6、.SqlImports System.Data.SqlClientPublicClass注册界面Public psqlstring AsStringPrivateSub Button2_Click( ByVal sender As System.Object, ByVal e As System.EventArgsHandles Button2.ClickEndEndSubPrivateSub 登录界面 _Load( ByVal sender As System.Object, ByVal e As System.EventArgsHandlesMyBase.LoadDim conn AsNe
7、wSqlConnectionconn.ConnectionString =Data Source=DP47SQLEXPRESS Initial Catalog=huang 。Integrated Security=TrueDim cmd AsNewSqlCommandDim sqlstring AsStringsqlstring =select * from suser cmd.Connection = conncmd.CommandText = sqlstringconn.Open(Dim rd As SqlDataReaderrd = cmd.ExecuteReaderDoWhile rd.ReadComboBox1.Items.Add(rd.GetInt32(0Loopconn.Close(EndSubHandlesPrivateSub Button1_Click( ByVal sender As System.Object, ByVal e As System.EventArgs Button1.ClickDim insertsqlstring AsStringDim selsqlstring AsStringDim DA AsNew连接数据库_类DA.creatconn(selsqlstring =select scode from su