vB作业说明书

VB期末作业

学生信息管理系统

班级：测控1101 学号：1110340110 姓名：刘太丽

目录

设计目的…………………………………………………………………………………………1 设计目标…………………………………………………………………………………………1 设计说明…………………………………………………………………………………………2 程序代码…………………………………………………………………………………………3

1.设计目的

学校的学生信息管理系统采用人工方式,由于现在学生人数不段增多,且学生信息的工作都在月底进行,时间要求紧.所以给学校学籍科人员的工作负担重,效率低,要不段修改和增减学生的信息,所以我校学籍科迫切要求开发一个计算机学生信息管理系统,用以取代现行的手工操作。

按照软件项目开发计划书所确定的工作范围为指南。为明确软件需求，搞清该项目的数据流向和数据结构，为设计阶段打下坚实的基础；确定系统功能，设计时应遵循的原则，约束条件以及性能等要求；建立和保持与用户之间的通信，确保以后的工作能够比较顺利的开展，撰写需求规格说明书即当前文档。 本文档供项目经理、设计人员、测试人员等软件开发成员以及用户参考。

2.设计目标

用计算机管理系统代替手工学生信息管理,计算机学生信息管理系统应实现以下目标: （1）对原有的原始学生信息管理进行分析整理.用做原始的数据输入到计算机,原始数据保存待查。

（2）取消有关手工学生信息系统的操作,所以数据都保存在计算机磁盘上。

（3）各种表及有关数据都又计算机系统生成并且输出。 （4）有灵活方便的学生信息数据更新。 （5）可以随时查询我班学生的学生信息等。 3.功能说明

（1）学生基本信息的增加、保存和删除。学生基本信息包括：学号、姓名、性别、生日和宿舍。

（2）查找学生信息，可通过姓名、学号查找

（3）登录界面

4.程序代码 1.Form1 Private Sub Command1_Click() Form1.Hide Form2.Show End Sub

Private Sub Form_Load()

End Sub

Private Sub Text1_Change() End End Sub

2.Form2 Private Sub Command1_Click()

Adodc1.Recordset.MoveFirst

Adodc2.Recordset.MoveFirst

End Sub

Private Sub Command10_Click() ask = MsgBox(\"删除否？\", vbYesNo, \"警告\") If ask = 6 Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast Adodc2.Recordset.Delete Adodc2.Recordset.MoveNext If Adodc2.Recordset.EOF Then Adodc2.Recordset.MoveLast End If

End Sub

Private Sub Command2_Click()

Adodc1.Recordset.MoveLast

Adodc2.Recordset.MoveLast End Sub

Private Sub Command3_Click()

Adodc1.Recordset.MovePrevious

If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst

Adodc2.Recordset.MovePrevious

If Adodc2.Recordset.BOF Then Adodc2.Recordset.MoveFirst End Sub

Private Sub Command4_Click()

Adodc1.Recordset.MoveNext

If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast

Adodc2.Recordset.MoveNext

If Adodc2.Recordset.EOF Then Adodc2.Recordset.MoveLast End Sub

Private Sub Command5_Click() Dim xm

xm = InputBox(\"输入姓名\", \"查找窗\")

Adodc1.Recordset.Find \"姓名=\' \" & xm & \" \'\", , , 1

If Adodc1.Recordset.EOF Then MsgBox \"无此姓名！\", , \"提示\" End Sub

Private Sub Command6_Click()

Dim mno As String

mno = InputBox(\"输入学号\", \"查找窗\")

Adodc1.Recordset.Find \"学号=\' \" & mno & \" \'\", , , 1

Adodc2.Recordset.Find \"学号=\' \" & mno & \" \'\", , , 1

If Adodc1.Recordset.EOF Then MsgBox \"无此学号！\", , \"提示\" End Sub

Private Sub Command7_Click() ask = MsgBox(\"是否退出？\", vbYesNo, \"提示\") If ask = 6 Then

Form1.Show Form2.Hide End If

End Sub

Private Sub Command8_Click() Adodc1.Recordset.AddNew Adodc2.Recordset.AddNew End Sub

Private Sub Command9_Click() Adodc1.Recordset.Update Adodc2.Recordset.Update

End Sub

Private Sub DataGrid2_Click()

End Sub

Private Sub Form_Load()

End Sub

VB程序设计(大作业)

第五次VB大作业心得体会

可视化程序设计(VB)第一次作业

VB作业模拟成绩管理系统

西北农林科技大学 vb实习作业

隆回县退耕还林作业说明书

vb

4月份考试可视化程序设计(VB)第二次作业

9月份考试可视化程序设计(VB)第一次作业

VB语言程序设计在线作业_C 答案

《vB作业说明书.doc》

将本文的Word文档下载到电脑，方便收藏和打印

推荐度：

点击下载文档