《VB课程设计》学生档案管理.doc

《《VB课程设计》学生档案管理.doc》由会员分享，可在线阅读，更多相关《《VB课程设计》学生档案管理.doc（35页珍藏版）》请在三一办公上搜索。

1、吉林工程技术师范学院VB课程设计设计题目： 学生档案管理 专 业： 信息管理与信息系统 班 级： 0841 学 号： 12 学生姓名： 指导教师： 2010年7月信息工程学院目 录摘 要1第一章 系统分析3第二章 系统实现6第三章 系统调试11第四章 使用说明14总 结16附 录1、源代码182、参考资料33 摘 要经过一个学期对VB程序设计的学习，同学们都认为真正的学到了有用知识，可能有一些人学的不够理想，但无论如何，这些知识都为我们的下一步学习打下了坚实的基础。做这么一个课程设计，一方面是为了检查我们一个学期来我们学习的成果，另一方面也是为了让我们进一步的掌握和运用它，同时也让我们认清自己

2、的不足之处和薄弱环节，加以弥补和加强。学生档案管理在学校成立时就已经被定义和应用，早期的学生档案管理是人工的管理。人工管理档案既浪费时间又浪费人力及物力。不仅如此，人工管理也会造成数据的冗余和流失。为了更好的管理学生档案，科学家们编制了计算机学生档案管理系统，解决了很多问题。也为学校管理学生档案带来方便。我所编制的学生管理程序只是简单的实现了学生档案管理的部分功能，可以让读者初步理解什么是现代化的学生档案管理。本程序是建立在windows操作系统下，vb.Net可是话的大型编程语言环境之下的学生档案管理程序。该程序是用来供管理员管理学生档案的程序，实现学生档案的修改、添加、保存、查询、删除等功

3、能。关键字：学生档案管理 人工档案管理 计算机 第一章 系统分析一、题目要求设计一个学生档案管理程序要求：1、 设计一个欢迎界面2、 实现不同用户登录功能3、 建立学生档案界面（1）实现学生档案的保存功能（2）实现学生档案的修改功能（3）实现学生档案的添加功能（4）实现学生档案的查询功能（5）实现学生档案的删除功能4、 实现三个窗体的连接二、系统分析1、欢迎界面设计为了程序的美观和vb部分功能的应用，编者设计了欢迎界面，主要是为了体现vb.Net中计时器的部分功能。也为了调动读者的好奇心和新鲜感。2、用户登录功能系统登录身份验证时绝大多数管理系统具有的功能之一，它可以保证只有经过系统管理员授权

4、的用户才能使用系统，从而保证系统数据的安全性能。（1）验证登录信息的合法性，即检验用户名是系统用户，用户口令是否正确。（2）实现支持不同口令的登录模式（3）在用户选择退出时，结束（退出）应用程序。3、学生档案管理（1） 实现了保存学生的基本档案和照片路径（2） 实现了修改学生的基本档案和照片路径（3） 实现了添加学生的基本档案和照片路径（4） 实现了查找学生的基本档案和照片路径（5） 实现了删除学生的基本档案和照片路径4、 三个窗体的连接功能 本程序通过第一个窗体的隐藏（hide）和第二个窗体的展现 (show) 来完成窗体的连接功能。三、系统模块设计添加档案欢迎界面删除档案用户登录修改档案查

5、询档案保存档案第二章 系统实现一、窗体 本程序涉及到三个窗体，这三个窗体是并列的。他们分别是欢迎窗体、用户登录窗体、学生档案管理窗体。二、窗体涉及的常用属性（1） BackgroundImage：背景图像，取值为图片的路径。（2） Font：显示文字的格式，包括字体、大小、颜色、风格。（3） Name：名称，系统默认值为Form+数值。（4） Size: 大小，具有Width和Height两个属性值。（5） Text：标题，默认值为Form+数值。三、窗体所涉及的控件及功能1、Form1窗体的控件控件功能label1欢迎语 label2设计者button1进入form2button2退出程序t

6、imer实现label1的闪动表一 Form1窗体的控件2、Form2窗体的控件控件功能label1提示label2提示button1进入form3button2取消输入button3退出程序textbox1输入用户名textbox2输入密码表二 Form2窗体的控件2、 Form3窗体的控件控件功能控件功能label1提示textbox1输入姓名label2提示textbox2输入民族label3提示textbox4输入政治面貌label4提示textbox5输入入学年份label5提示textbox6输入学制label6提示textbox7输入学号label7提示textbox8输入身份证

7、号label8提示textbox9输入家庭住址label9提示textbox10输入本人电话label10提示textbox11输入学生照片地址label11提示lable12提示button1保存button7查找button2修改button8选择照片button3确认修改button9退出button4添加textbox3输入籍贯button5确认添加combobox1选择学生性别button6删除listbox1列出所有学生档案的学生姓名 表三 Form3窗体的控件四、控件的常用属性1、left 控件的左端距离 2、height 控件的顶端距离3、backcolor 控件的背景色4、f

8、orecolor 控件的前景色5、readonly 控件的只读属性6、enabled 控件的可操作属性五、窗体所涉及的其它隐藏控件1、 OpenFileDialog控件OpenFileDialog控件，顾名思义就是用于打开文件的对话框。（1） 属性设置 DefaultExt属性：该属性用于设置OpenFileDialog打开文件的默认拓展名。比如您希望打开文件对话框的默认文件类型是文本文件，则需将此属性设为txt。FileName属性：该属性用于返回OpenFileDialog所选文件的文件名（包含路径）。我们才使用OpenFileDialog对话框的时候，通过该属性获取用户的文件名，从而实现

9、对用户指定文件的操作。Filter属性：该属性用于设置OpenFileDialog可打开文件的拓展名，各拓展名及其说明字段用“|”分隔开。一个典型的设置如下：“Text files(*.txt)|*.txt|All files (*.*)|*.*这个OpenFileDialog可以打开文本文件（*.txt）和所有文件（*.*）。（2）事件与方法FileOk事件当用户单击“确定”按钮的时候会激发这个事件。用户可以在这里写一些相应这个事件的代码。在实际应用中，一般是通过ShowDialog方法的返回值得判断来编写事件的响应代码。例如在记事本程序中，我们就是通过下面的方法来编写响应代码的：If Op

10、enFileDialog1.ShowDialog() = DialogResult.OK thenRtContent.LoadFile(OpenFileDialog1.FileName,RichTextBoxStreamType.PlainText)End If 这里我们利用ShowDialog方法打开OpenFileDialog窗口,然后判断它的返回值。如果返回值为DialogResult.OK，则将用户指定的文本导入到rtContent中。从而实现了打开文件的功能。ShowDialog方法该方法用于打开OpenFileDialog窗口。它的返回值所在的名称空间为System.Windows

11、.Forms.DialogResult。用户单击“确定”按钮时返回值为DialogResult.OK，单击“取消”按钮时返回值为DialogResult.Cancel。Reset方法该方法用于对OpenFileDialog窗口进行重置，将对话框的各项设置恢复到默认值。2、 SaveFileDialog控件SaveFileDialog控件是用于保存文件的对话框。所涉及的属性、事件、方法与OpenFileDialog控件所涉及的属性、事件、方法基本相同。第三章 系统调试如果输入错误点击查找后输入错误姓名点击选择图片按钮第四章 使用说明用户需要在进入界面后，点击“进入”按钮以进入用户登录界面。点击“

12、退出”按钮则退出程序。进入用户登录界面后，用户需要输入用户名字及用户密码。用户名字设置为“teacher”后接任何字符均可。密码被定义为与用户名相同。如果输入正确，则会进入学生档案管理界面。如果用户输入用户名活密码错误，会弹出对话框提示输入错误。用户需点击“取消”按钮，清空文本框中的信息。用户直接点击“退出”按钮会退出程序。 进入学生档案管理界面，用户需要点击“添加”按钮，添加学生信息。添加完成后，需点击“确认添加”以在列表框中形成记录。添加完成后点击保存。若用户输入学生档案需要更改，点击“修改”按钮，修改完成后，用户需要点击“确认修改”按钮，以完成列表框的修改。用户只需点击列表框中学生的名字

13、，点击“删除”按钮，以删除失效的学生档案。用户每次进行完操作后，点击“保存”按钮，以保存修改。学生照片的保存只需点击“选择图片”按钮，找出本学生的图片。图片框下方会自动生成照片路径，添加完成后点击保存。用户想退出程序，需要点击“退出”按钮。总 结三周的VB.NET课程设计已经结束了，在这三周的时间里，我学会了很多，懂得了很多。首先，我充分了解和领悟了编程实践和实际应用，使自己进一步熟悉和巩固Visual Basic.NET知识。另外，在Visual Basic.NET编程的过程中我养成良好的编程习惯和思维方式，培养了冷静思考分析问题的能力。我也通过一定的文档要求，培养良好的程序设计风格和软件开

14、发报告的书写能力 ，文档写作和程序开发同步，也就是说：应该先完成程序设计目的分析和功能模块分析后，再进行编码和程序调试、测试工作。可以先将程序中涉及的相关类设计完成后，然后录入计算机编写程序并调试。在经过定性、定量分析后，对所要进行的设计进行书面简单设计。在编程时代码规范、使用注释，养成良好的编程风格。 围绕课题教学中的目标和重点、难点进行复习。 通过回顾，理解VB.NET编程方法和逻辑思考过程，理解如何将实际问题转化成计算机语言表达的模型。通过课程设计将要用到的知识做到心中有数，并能够在此基础上进行知识的扩充。通过自己对这个程序的编码，我对vb.Net有了更深的了解。我体会到做任何工作都不是

15、简单的事情，在工作的时候要谨慎，认真，切忌急躁。 在以后的学习生活中，我会丰富自己的技能，加强自己在实践中的能力，以完善自身的知识水平和实践水平。 附 录1、源代码Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Text = 学生档案管理系统 Me.Width = 800 Me.Height = 600 Label1.BackColor = Color.Transparent Label2.Ba

16、ckColor = Color.Transparent Me.BackgroundImage = New Bitmap(e:课设图片9263490a25700f1cb0351dca.jpg) Button1.BackColor = Color.AliceBlue Button2.BackColor = Color.AliceBlue Label2.AutoSize = True Label1.AutoSize = True Label1.Text = 欢迎使用VB.NET应用程序 Label1.Left = Me.Width / 7 Label1.Top = Me.Height / 4 Lab

17、el1.ForeColor = Color.Red Label1.Font = New Font(隶书, 30, FontStyle.Bold) Label2.Font = New Font(宋体, 10, FontStyle.Italic) Label2.Text = 设计者：兰海涛 Label2.Top = Me.Height * 4 / 5 Label2.Left = Me.Width / 7 Label2.ForeColor = Color.DeepPink Timer1.Enabled = True Button1.Text = 进入 Button1.ForeColor = Colo

18、r.BlueViolet Button1.Top = Me.Height * 1 / 2 Button1.Left = Me.Width / 5 Button1.Width = 120 Button1.Height = 50 Button2.Text = 退出 Button2.ForeColor = Color.BlueViolet Button2.Top = Me.Height / 2 Button2.Left = Me.Width * 3 / 5 Button2.Width = 120 Button2.Height = 50 End Sub Private Sub Timer1_Tick(

19、ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick Label1.ForeColor = Color.FromArgb(Rnd() * 255, Rnd() * 255, Rnd() * 255) End Sub Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Form2.Show() Me.Hide() End Sub Private Sub Bu

20、tton2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click Dim a As Integer a = MsgBox(真的退出吗？, 4 + 32, 提示) If a = 6 Then End End If End SubEnd ClassPublic Class Form2 Private Sub Form2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Me.Background

21、Image = New Bitmap(e:课设图片f2cf844501b9f807cffca359.jpg) Me.Text = 档案管理登录 Me.Width = 400 Me.Height = 300 Label1.AutoSize = True Label1.Text = 用户名 Label2.Text = 密 码 Label1.Font = New Font(黑体, 10, FontStyle.Bold) Label2.Font = New Font(黑体, 10, FontStyle.Bold) Label1.Left = Me.Width / 10 Label1.Top = Me.

22、Height / 5 Label2.Left = Me.Width / 10 Label2.Top = Me.Height * 0.4 TextBox1.Left = Me.Width / 2 TextBox1.Top = Me.Height / 5 TextBox2.Left = Me.Width / 2 TextBox2.Top = Me.Height * 0.4 TextBox1.Text = TextBox2.Text = TextBox2.PasswordChar = * Label1.BackColor = Color.Transparent Label2.BackColor =

23、Color.Transparent Button1.Text = 确定 Button2.Text = 取消 Button3.Text = 退出 Button1.BackColor = Color.Pink Button2.BackColor = Color.Pink Button3.BackColor = Color.Pink Button1.ForeColor = Color.Yellow Button1.Top = Me.Height * 3 / 5 Button1.Left = Me.Width / 5 Button1.Width = 50 Button1.Height = 30 But

24、ton2.ForeColor = Color.Blue Button2.Top = Me.Height * 3 / 5 Button2.Left = Me.Width * 2 / 5 Button2.Width = 50 Button2.Height = 30 Button3.Width = 50 Button3.Height = 30 Button3.Top = Me.Height * 3 / 5 Button3.Left = Me.Width * 3 / 5 End Sub Private Sub Button1_Click(ByVal sender As System.Object, B

25、yVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text Like # + * And TextBox2.Text = TextBox1.Text Then Form3.Show() Me.Hide() Else MsgBox(输入错误！) End If End Sub Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox1.Text = TextBox2.

26、Text = End Sub Private Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click End End SubEnd ClassPublic Class Form3 Inherits System.Windows.Forms.FormPublic _students(1000) As student Public intcount As Integer Public i As Integer Public Structure student Publi

27、c name, minz, sex, jiguan, zhengzsf, ruxunf, xzhi, xhao, jiazhu, shenid, tel, photo End Structure Private Sub clear1() TextBox1.Clear() TextBox2.Clear() TextBox3.Clear() TextBox4.Clear() TextBox5.Clear() TextBox6.Clear() TextBox7.Clear() TextBox8.Clear() TextBox9.Clear() TextBox10.Clear() TextBox11.

28、Clear() ComboBox1.Text = End Sub Public Sub aa() Dim sa1 As New OpenFileDialog sa1.InitialDirectory = e:照片 sa1.Filter = （*.jpg）|*.jpg sa1.ShowDialog() TextBox11.Text = sa1.FileName PictureBox1.Image = Image.FromFile(TextBox11.Text) End Sub Private Sub lock() TextBox1.ReadOnly = True TextBox2.ReadOnl

29、y = True TextBox3.ReadOnly = True TextBox4.ReadOnly = True TextBox5.ReadOnly = True TextBox6.ReadOnly = True TextBox7.ReadOnly = True TextBox8.ReadOnly = True TextBox9.ReadOnly = True TextBox10.ReadOnly = True TextBox11.ReadOnly = True ComboBox1.Enabled = False End Sub Private Sub unlock() TextBox1.

30、ReadOnly = False TextBox2.ReadOnly = False TextBox3.ReadOnly = False TextBox4.ReadOnly = False TextBox5.ReadOnly = False TextBox6.ReadOnly = False TextBox7.ReadOnly = False TextBox8.ReadOnly = False TextBox9.ReadOnly = False TextBox10.ReadOnly = False TextBox11.ReadOnly = False ComboBox1.Enabled = T

31、rue End Sub Public Function addstudent(ByVal name As String, ByVal minz As String, ByVal sex As String, ByVal jiguan As String, ByVal zhengzsf As String, ByVal ruxunf As String, ByVal xzhi As String, ByVal xhao As String, ByVal jiazhu As String, ByVal shenid As String, ByVal tel As String, ByVal pho

32、to As String) _students(i).name = name _students(i).jiazhu = jiazhu _students(i).minz = minz _students(i).sex = sex _students(i).jiguan = jiguan _students(i).zhengzsf = zhengzsf _students(i).ruxunf = ruxunf _students(i).xzhi = xzhi _students(i).shenid = shenid _students(i).tel = tel _students(i).xha

33、o = xhao _students(i).photo = photo ListBox1.Items.Add(_students(i).name) i = i + 1 End Function Public Function showstudent(ByVal index As Integer) TextBox1.Text = _students(index + 1).name TextBox2.Text = _students(index + 1).minz ComboBox1.Text = _students(index + 1).sex TextBox3.Text = _students

34、(index + 1).jiguan TextBox4.Text = _students(index + 1).zhengzsf TextBox5.Text = _students(index + 1).ruxunf TextBox6.Text = _students(index + 1).xzhi TextBox7.Text = _students(index + 1).xhao TextBox8.Text = _students(index + 1).jiazhu TextBox9.Text = _students(index + 1).shenid TextBox10.Text = _s

35、tudents(index + 1).tel TextBox11.Text = _students(index + 1).photo ListBox1.SelectedIndex = index End Function Public Function xiugaistudent(ByVal index As Integer, ByVal name As String, ByVal minz As String, ByVal sex As String, ByVal jiguan As String, ByVal zhengzsf As String, ByVal ruxunf As Stri

36、ng, ByVal xzhi As String, ByVal xhao As String, ByVal jiazhu As String, ByVal shenid As String, ByVal tel As String, ByVal photo As String) _students(index + 1).name = name _students(index + 1).jiazhu = jiazhu _students(index + 1).minz = minz _students(index + 1).sex = sex _students(index + 1).jigua

37、n = jiguan _students(index + 1).zhengzsf = zhengzsf _students(index + 1).ruxunf = ruxunf _students(index + 1).xzhi = xzhi _students(index + 1).shenid = shenid _students(index + 1).tel = tel _students(index + 1).xhao = xhao _students(index + 1).photo = photo ListBox1.Items(index) = name End Function

38、Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Width = 800 Me.Height = 600 Me.Text = 学生档案 Me.BackgroundImage = New Bitmap(e:课设图片ebd8642c96def6ce8a13994b.jpg) ComboBox1.Items.Add(男) ComboBox1.Items.Add(女) Label1.BackColor = Color.Transparent

39、Label2.BackColor = Color.Transparent Label3.BackColor = Color.Transparent Label4.BackColor = Color.Transparent Label5.BackColor = Color.Transparent Label6.BackColor = Color.Transparent Label7.BackColor = Color.Transparent Label8.BackColor = Color.Transparent Label9.BackColor = Color.Transparent Label10.BackColor = Color.Transparent Label11.BackColor = Color.Transparent Label12.BackColor = Color.Transparent Label1.Text = 姓名 Label2.Text = 民族 Label3.Text = 性别 Label4.Text = 籍贯