Windows 程序设计实践之总结报告由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“程序设计实践报告”。
《Windows 程序设计实践》
总结报告
班
级：-----------------姓
名：-----------------学
号：-------------------任课教师：--------------------
一、功能介绍
1.用户验证。
用户通过系统登陆窗体输入相应的账户和密码，通过验证的用户可以使用学生信息管理系统，如果以普通用户（学生），只具有“信息查询”、“在线考试”子系统以及“窗口”、“帮助”菜单的使用权限；如果以管理员的身份登陆，则增加代码维护和学生信息输入的功能，即显示全部菜单。2.代码维护。
代码维护是指管理员通过系统界面对数据库中的表进行增删改的操作，由管理员定期进行维护。此系统包括数据库中的四个表分别是学院（Tbl_Dep）、专业（Tbl_Sep）、民族（Tbl_Nation）、课程（Tbl_Project）和操作员（Tbl_User）进行维护。3.学生信息。
在主界面“学生信息”菜单栏中，可选择学生信息输入和学生信息查询。在学生信息输入窗口可以添加和删除学生信息，并进行上一条和下一条的单页浏览；在学生信息查询窗体，用户可以筛选查询条件，进行精确查询或模糊查询。4.在线考试。
在线考试窗体中，开始考试后，系统可以从“试卷”文件中读取考试题目，并开始计时，学生可以选择答案，考试结束后系统将输出考生做出的答案。5.成绩管理。
在主界面“成绩管理”菜单栏中，可选择成绩录入和成绩统计，特别指出，只拥有学生权限的用户只能进行成绩统计而无法进行成绩录入。成绩录入窗口可以为某学生某科的平时成绩和考试成绩，系统将自动计算总评成绩并存入数据库；成绩统计窗口，会将学生的将每个学生总评成绩的最低分、最高分、平均分以及总分显示在界面中。
二、补充功能
1.图表
（1）界面截图
（2）核心代码
Private Function getArrayData()As SeriesCollection e1.YValue = Convert.ToInt32(mydt.Rows(i)(1).ToString())'每元素 Dim SC As New SeriesCollection()Dim mydt As New DataTable(“Student”)Dim mydr As DataRow Dim i As Integer mydt.Columns.Add(New 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 stu mydr = mydt.NewRow()mydr(0)= i Randomize()mydr(1)= CInt(ds.Tables(0).Rows(i1).Item(2))mydr(3)= CInt(ds.Tables(0).Rows(i1 Dim e1 As New Element()e1.Name = ds.Tables(0).Rows(i).Item(0)的大小数值
s1.Elements.Add(e1)Next
For i = 0 To mydt.Rows.Count1 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(s2)SC.Add(s3)Return SC End Function
'每元'每元2.代码维护
本学期实验已经将“学院”、“专业”、“民族”、“课程”和“操作员”四个表的代码维护，下面以“专业代码维护”为说明：（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 “” 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()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 + “'”, 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 + “' 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 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 = “更 新” TextBox1.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)DataGridView1.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_Spe 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 mtdspe_comm As New SqlCommand(mtspe_s, conn)
dr = mtdspe_comm.ExecuteReader()dt = New DataTable()dt.Load(dr)
DataGridView1.DataSource = dt conn.Close()End Sub End Cla
三、实验收获
1.VB.NET技能的提高。
首先，是对至今以来所学习的VB.NET的综合使用。将对输入数据的有效控制，闰年的判断，下拉框之间的限制选择，图片控件的选择和保存，文件的读写，计时器的使用等，在本次实践中训练自己在不同情况下使用哪种控件的意识，为以后系统开发设计打下基础。
其次，本次实践学习了关于ADO与数据库的技术，对Command，Datareader，Dataset等的了解加深了，并能够在试验中综合使用。2.收获界面设计注意事项。
首先，是界面的一致性，在设计系统时，可能不同的功能需要不同的窗体，如果每个窗体的总体设计不能一致，不但不利于编程者的编程工作，也给用户的使用造成不便，因为用户很有可能对每个窗体的使用方法无法记全记清，因此会降低用户对系统的满意度。
其次，是界面的简洁性，如果一个界面（或者一个窗体）包含的信息十分繁多，应用组合框进行分类放置，如果没有进行有效放置，用户常常会因为寻找一个信息的输入框而浪费不必要的时间，同时如果包含的信息量不多，则应尽量使界面呈现在用户面前的时候十分简洁明了。
最后，是界面的人性化设计，既要美观又要符合用户的使用习惯。比如，按钮控件应尽量设置在右边，符合人手使用习惯；还有，应尽量让用户进行选择而不是敲击键盘。美观方面，颜色不应五花八门，一些个性化的小图标能提高用户的满意度。
《WINDOWS程序设计》教学大纲课程类别：专业任选课课程代码：RZ1451 学 分：2 总学时: 32(讲授24学时，上机8学时) 适用专业：电气工程及其自动化 先修课程：C语言程序设计、数据结构C一......
Windows程序设计课程设计任务书,课程设计题目1: 设计一个简单的学生信息管理应用程序一、设计目标与内容：1.了解Windows编程的基础知识，掌握MFC应用程序的基本知识; 2.基本掌......
汇编程序设计总结报告设计时间：2002．1.14----1.24 设计者：李小霞 班号：99090B3学号：08号 设计内容： 本组负责设计一个文本编辑器（EDITOR）,我主要编写光标的移动和清除屏幕模块， 实现......
海州矿之行感悟太阳石精神为了使大家能够更进一步的了解阜新漏天矿精神和我校的太阳石精神，我队于2010年11月27日冒着严寒前往阜新漏天矿进行实地考察。刚进入海州漏天矿正门......
《Windows程序设计案例教程》习题解答第１章1.1 选择题1..NET Framework是一种( )。A、编程语言 B、程序运行平台 C、操作系统 D、数据库管理系统 2.用Visual Studio.NET编写......
