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

1、精选优质文档-倾情为你奉上Windows 程序设计实践总结报告班 级：-姓 名：-学 号：-任课教师：-一、功能介绍1.用户验证。用户通过系统登陆窗体输入相应的账户和密码，通过验证的用户可以使用学生信息管理系统，如果以普通用户（学生），只具有“信息查询”、“在线考试”子系统以及“窗口”、“帮助”菜单的使用权限；如果以管理员的身份登陆，则增加代码维护和学生信息输入的功能，即显示全部菜单。2.代码维护。代码维护是指管理员通过系统界面对数据库中的表进行增删改的操作，由管理员定期进行维护。此系统包括数据库中的四个表分别是学院（Tbl_Dep）、专业（Tbl_Sep）、民族（Tbl_Nation）、课程

2、（Tbl_Project）和操作员（Tbl_User）进行维护。3.学生信息。在主界面“学生信息”菜单栏中，可选择学生信息输入和学生信息查询。在学生信息输入窗口可以添加和删除学生信息，并进行上一条和下一条的单页浏览；在学生信息查询窗体，用户可以筛选查询条件，进行精确查询或模糊查询。4.在线考试。在线考试窗体中，开始考试后，系统可以从“试卷”文件中读取考试题目，并开始计时，学生可以选择答案，考试结束后系统将输出考生做出的答案。5.成绩管理。在主界面“成绩管理”菜单栏中，可选择成绩录入和成绩统计，特别指出，只拥有学生权限的用户只能进行成绩统计而无法进行成绩录入。成绩录入窗口可以为某学生某科的平时成

3、绩和考试成绩，系统将自动计算总评成绩并存入数据库；成绩统计窗口，会将学生的将每个学生总评成绩的最低分、最高分、平均分以及总分显示在界面中。二、补充功能1.图表（1）界面截图专心-专注-专业（2）核心代码Private Function getArrayData() As SeriesCollection Dim SC As New SeriesCollection() Dim mydt As New DataTable("Student") Dim mydr As DataRow Dim i As Integer mydt.Columns.Add(New DataColum

4、n("学生", 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 stu mydr = mydt.NewRow() mydr(0) = i Randomize() mydr(

5、1) = CInt(ds.Tables(0).Rows(i - 1).Item(1) 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) Next Dim s1 As New Series() s1.Name = "最低分" Dim s2 As New Series() s2.Name = "最高分" Dim s3 As New Series() s3.Name = "

6、;平均分" For i = 0 To mydt.Rows.Count - 1 Dim e1 As New Element() e1.Name = ds.Tables(0).Rows(i).Item(0) e1.YValue = Convert.ToInt32(mydt.Rows(i)(1).ToString() '每元素的大小数值 s1.Elements.Add(e1) Next For i = 0 To mydt.Rows.Count - 1 Dim e1 As New Element() e1.Name = ds.Tables(0).Rows(i).Item(0) e1.

7、YValue = Convert.ToInt32(mydt.Rows(i)(2).ToString() '每元素的大小数值 s2.Elements.Add(e1) Next For i = 0 To mydt.Rows.Count - 1 Dim e1 As New Element() e1.Name = ds.Tables(0).Rows(i).Item(0) e1.YValue = Convert.ToInt32(mydt.Rows(i)(3).ToString() '每元素的大小数值 s3.Elements.Add(e1) Next SC.Add(s1) SC.Add(s

8、2) SC.Add(s3) Return SC End Function2.代码维护本学期实验已经将“学院”、“专业”、“民族”、“课程”和“操作员”四个表的代码维护，下面以“专业代码维护”为说明：（1）界面截图（2）核心代码 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '-确定学院代码 Dim depid As String = "" If ComboBox1.Text <> &qu

9、ot;" Then conn.Open() Dim mtdep_s As String mtdep_s = "select S_DepartmentID from Tbl_Dep where S_Department='" + ComboBox1.Text + "'" Dim mtdep_comm As New SqlCommand(mtdep_s, conn) dr = mtdep_comm.ExecuteReader() While dr.Read depid = dr.Item(0) End While dr.Close(

10、) conn.Close() End If If Button1.Text = "更 新" Then Button1.Text = "保 存" TextBox1.Enabled = True TextBox2.Enabled = True ComboBox1.Enabled = True Else conn.Open() Dim s_comm As New SqlCommand("select S_SpecialtyID from Tbl_Spe where S_SpecialtyID='" + TextBox1.Text +

11、 "'", conn) If s_comm.ExecuteScalar() Then If MsgBox("已有相同编号的信息存在！是否更新信息？", vbYesNo + vbQuestion, "提示") = vbYes Then Dim up_s As String = "update Tbl_Spe set S_Specialty='" + TextBox2.Text + "',S_DepartmentID='" + depid + "'

12、where S_SpecialtyID='" + TextBox1.Text + "'" Dim up_comm As New SqlCommand(up_s, conn) up_comm.ExecuteNonQuery() MsgBox("修改数据成功！") End If Else If MsgBox("是否确认保存新信息？", vbYesNo + vbQuestion, "提示") = vbYes Then Dim sa_s As String = "insert into

13、Tbl_Spe values('" + TextBox1.Text + "','" + TextBox2.Text + "','" + depid + "')" Dim sa_comm As New SqlCommand(sa_s, conn) sa_comm.ExecuteNonQuery() MsgBox("保存数据成功！") End If End If conn.Close() Button1.Text = "更 新" TextBo

14、x1.Enabled = False TextBox2.Enabled = False ComboBox1.Enabled = False '- '重新加载datagridview conn.Open() Dim mtspe_s As String mtspe_s = "select * from Tbl_Spe" Dim mtdspe_comm As New SqlCommand(mtspe_s, conn) dr = mtdspe_comm.ExecuteReader() dt = New DataTable() dt.Load(dr) DataGrid

15、View1.DataSource = dt conn.Close() End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If MsgBox("是否删除该条记录？", vbYesNo + vbQuestion, "提示") = vbYes Then conn.Open() Dim del_s As String = "delete from Tbl_Sp

16、e where S_SpecialtyID='" + TextBox1.Text + "'" Dim del_comm As New SqlCommand(del_s, conn) del_comm.ExecuteNonQuery() MsgBox("成功删除该记录！") conn.Close() End If '- '重新加载datagridview conn.Open() Dim mtspe_s As String mtspe_s = "select * from Tbl_Spe" Dim

17、 mtdspe_comm As New SqlCommand(mtspe_s, conn) dr = mtdspe_comm.ExecuteReader() dt = New DataTable() dt.Load(dr) DataGridView1.DataSource = dt conn.Close() End SubEnd Class三、实验收获1.VB.NET技能的提高。首先，是对至今以来所学习的VB.NET的综合使用。将对输入数据的有效控制，闰年的判断，下拉框之间的限制选择，图片控件的选择和保存，文件的读写，计时器的使用等，在本次实践中训练自己在不同情况下使用哪种控件的意识，为以后系统开发设计打下基础。其次，本次实践学习了关于ADO与数据库的技术，对Command，Datareader，Dataset等的了解加深了，并能够在试验中综合使用。2.收获界面设计注意事项。首先，是界面的一致性，在设计系统时，可能不同的功能需要不同的窗体，如果每个窗体的总体设计不能一致，不但不利于编程者的编程工作，也给用户的使