学生信息管理系统主页模块设计

学生信息管理系统主页模块 软件开发环境与工具实验 实验(二) 2014年10月23日 一、实验目的: 培养学生综合利用VB语言进行程序设计的能力，主要利用VB的标准控件进行系统界面设计。 二、实验要求 1) 菜单的设置 Menustrip控件的使用设置文件的基本属性(打开、保存、打 印)、学生的类别(全日制和非全日制)、课程的分类(必修 和选修)并建立相应的后台代码; 2) 工具栏的设置 Toolstrip控件做出相关学生的内容:新生报到、学生档案、 考试报名、成绩查询、报考设定、程序录入等; 3)状态条的设置 Statustrip控件做出状态条以显示当前时间及显示字符数。 三、实验内容: 1)菜单项设置为:文件、学生等内容; 2)设计一个学生信息管理系统主页，工具栏包括的内容有:新生报到、学生档案、考试报名、成绩查询等;学生档案中用到textbox控件、单选按钮等; 3)状态条设置显示出当前的日期及字符数。 四、实验代码: Public Class Form1 Private Sub studentdangan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles studentdangan.Click TextBox1.Text = "学生档案" End Sub Private Sub nowstudent_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles newstudent.Click TextBox1.Text = "新生报到" End Sub Private Sub testenter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles testenter.Click TextBox1.Text = "考试报名" End Sub Private Sub achievecheck_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles achievecheck.Click TextBox1.Text = "成绩查询" End Sub Private Sub testsheding_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles testsheding.Click TextBox1.Text = "报考设定" End Sub Private Sub chengji_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chengji.Click TextBox1.Text = "成绩录入" End Sub Private Sub ContextMenuStrip1_Opening(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick ToolStripStatusLabel1.Text = "日期:" & Format(Now, "yyyy-mm-dd") ToolStripStatusLabel2.Text = "时间:" & Format(Now, "hh:mm:ss") End Sub Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged ToolStripStatusLabel3.Text = "字符数:" & TextBox1.TextLength End Sub Private Sub openToolme_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles openToolme.Click OpenFileDialog1.InitialDirectory = "c:\" OpenFileDialog1.Filter = "all files (*.*)|*.*" OpenFileDialog1.FilterIndex = 1 OpenFileDialog1.RestoreDirectory = True OpenFileDialog1.ShowDialog() Dim filename As String Dim f As System.IO.FileStream Dim r As System.IO.StreamReader OpenFileDialog1.ShowDialog() filename = OpenFileDialog1.FileName f = New System.IO.FileStream(filename, IO.FileMode.Open, IO.FileAccess.Read) r = New System.IO.StreamReader(f) TextBox1.Text = r.ReadToEnd() r.Close() End Sub Private Sub saveToolMenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles saveToolMenu.Click Dim filename As String Dim w As System.IO.StreamWriter SaveFileDialog1.ShowDialog() filename = SaveFileDialog1.FileName w = System.IO.File.CreateText(filename) w.Write(TextBox1.Text) w.Close() End Sub Private Sub exitToolMenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles exitToolMenu.Click End End Sub Private Sub openToolS1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles openToolS1.Click Dim filename As String Dim f As System.IO.FileStream Dim r As System.IO.StreamReader OpenFileDialog1.ShowDialog() filename = OpenFileDialog1.FileName f = New System.IO.FileStream(filename, IO.FileMode.Open, IO.FileAccess.Read) r = New System.IO.StreamReader(f) TextBox1.Text = r.ReadToEnd() r.Close() End Sub Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged If RadioButton1.Checked Then TextBox2.Text = RadioButton1.Text End If End Sub Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged If RadioButton1.Checked Then TextBox2.Text = RadioButton2.Text End If End Sub Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged If RadioButton3.Checked Then TextBox2.Text = RadioButton3.Text End If End Sub End Class 四、实验结果: 主页面显示: 菜单栏的设置: 工具栏的设置: 五、实验: 1)通过对VB页面的设置学习，了解到VB的功能很强大，通过简单的页面设置及后台代码就能做出基本的页面; 2)页面的前端设计及布局，画面色彩等，是我们这个实验日后需要重点关注的一个方面; 3)通过小组合作的形式，可以互相讨论，取长补短，有助于实验的顺利完成，从中也加强了对VB的学习。