Windows 程序设计实践之总结报告

1、Windows 程序设计实践总结报告班级： 姓名： 学号： 任课教师： 一、功能介绍1.用户验证。用户通过系统登陆窗体输入相应的账户和密码，通过验证的用户可以使用学生信息管理系统， 如果以普通用户（学生，只具有“信息查询用权限；如果以管理员的身份登陆，则增加代码维护和学生信息输入的功能，即显示全部菜单。 2.代码维护。此系统包括数据库中的四个表分别是学院Tbl_De、专业Tbl_Se、民族Tbl_Natio、课程（Tbl_Project）和操作员（Tbl_User）进行维护。3.学生信息。选查询条件，进行精确查询或模糊查询。在线考试。在线考试窗体中，开始考试后，系统可以从“试卷”文件中读取考试

2、题目，并开始计时，学生可以选择答案，考试结束后系统将输出考生做出的答案。成绩管理。低分、最高分、平均分以及总分显示在界面中。二、补充功能图表界面截图核心代码Private Function getArrayData() As SeriesCollectione1.YValue = Convert.ToInDim SC As New SeriesCollection()Dim mydt As New DataTable(Student)的大小数值s1.Elements.Add(e1)Dim mydr As DataRow Dim i As Integermydt.Columns.Add(New

3、DataColumn(学生, GetType(Integer) mydt.Columns.Add(New DataColumn(最低分, GetType(Integer) mydt.Columns.Add(New DataColumn(最高分, GetType(Integer) mydt.Columns.Add(New DataColumn(平均分, GetType(Integer)For i = 1 To stumydr = mydt.NewRow() mydr(0) = i Randomize()mydr(1) = CInt(ds.Tables(0).Rows(i - 1).Item(1)

4、mydr(2) = CInt(ds.Tables(0).Rows(i - 1).Item(2)mydr(3) = CInt(ds.Tables(0).Rows(i - 1).Item(3) mydt.Rows.Add(mydr)NextDim s1 As NewSeries() s1.Name = 最低分Dim s2 As NewSeries() s2.Name = 最高分Dim s3 As NewSeries() s3.Name = 平均分For i = 0 To mydt.Rows.Count - 1 Dim e1 As New Element()e1.Name = ds.Tables(0

5、).Rows(i).Item(0)NextFor i = 0 To mydt.Rows.Count Dim e1 As New Element() e1.Name = ds.Tables(0).R e1.YValue = Convert.ToIn素的大小数值s2.Elements.Add(e1) NextFor i = 0 To mydt.Rows.Count Dim e1 As New Element() e1.Name = ds.Tables(0).R e1.YValue = Convert.ToIn素的大小数值s3.Elements.Add(e1) NextSC.Add(s1) SC.A

6、dd(s2) SC.Add(s3) Return SCEnd Function代码维护本学期实验已经将“学院以“专业代码维护”为说明：界面截图核心代码Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click确定学院代码Dim depid As String = If ComboBox1.Text Then conn.Open()Dim mtdep_s As Stringmtdep_s = select S_DepartmentIDTbl_D

7、ep where S_Department= + ComboBox1.Text + Dim mtdep_comm As New SqlCommand(mtdep_s, conn)dr = mtdep_comm.ExecuteReader()While dr.Readdepid = dr.Item(0)End While dr.Close() conn.Close()End IfIf Button1.Text =更新 Button1.Text = 保存 TextBox1.Enabled = True TextBox2.Enabled = True ComboBox1.Enabled = True

8、Elseconn.Open()Dim s_comm As New SqlCommand(select S_SpecialtyID fromTbl_Spe where S_SpecialtyID=+ TextBox1.Text + , conn)If s_comm.ExecuteScalar() ThenIf MsgBox(已有相同编号的信息存在！是否更新信息？, vbYesNo + vbQuestion, 提示) = vbYes ThenDim up_s As String = update Tbl_Spe set S_Specialty= + TextBox2.Text + ,S_Depar

9、tmentID= + depid + where S_SpecialtyID= + TextBox1.Text + Dim up_comm As New SqlCommand(up_s, conn)up_comm.ExecuteNonQuery() MsgBox(修改数据成功！)End If ElseIf MsgBox(是否确认保存新信息？, vbYesNo + vbQuestion, 提示) = vbYes ThenDim sa_s As String = insert into Tbl_Spe values( + TextBox1.Text + , + TextBox2.Text + ,

10、+ depid + )Dim sa_comm As New SqlCommand(sa_s, conn)sa_comm.ExecuteNonQuery() MsgBox(保存数据成功！)End If End Ifconn.Close() Button1.Text = 更新 TextBox1.Enabled = TextBox2.Enabled = ComboBox1.Enabled = False -重新加载datagridview conn.Open()Dim mtspe_s As Stringmtspe_s = select * from Tbl_Spe Dim mtdspe_comm A

11、s NewSqlCommand(mtspe_s, conn)dr = mtdspe_comm.ExecuteReader() dt = New DataTable() dt.Load(dr) DataGridView1.DataSource = dt conn.Close()End If End SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickIf MsgBox(是否删除该条记录？vbYesNovbQuestion, 提示)

12、 = vbYes Then三、实验收获conn.Open()Dim del_s As String = delete from Tbl_Spe where S_SpecialtyID= + TextBox1.Text + Dim del_commAs New SqlCommand(del_s,conn)del_comm.ExecuteNonQuery() MsgBox(成功删除该记录！) conn.Close()End If-重新加载datagridview conn.Open()Dim mtspe_s As Stringmtspe_s = select * from Tbl_SpeDimmtdspe_commAsNewSqlCommand(mtspe_s,conn)dr = mtdspe_comm.ExecuteReader() dt = New DataTable() dt.Load(dr) DataGridView1.DataSource = dt conn.Close()End Sub End ClassVB.NET首先，是对至今以来所学习的VB.NET拉框之间的限制选择，图片控件的选择和保存，文件的读写，计时器的使用等，在本次实践中训练 自己在不同情况下使用哪种控件的意识，为以后系统开发设计打下基础。其次，本次实践学习了关于A