vB作业说明书_vb大作业使用说明书
vB作业说明书由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“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应用小程序。要能体现出：1．《VB程序设计》各种语句的综合使用能力； 2．《VB程......
可视化程序设计（VB）第一次作业一、单项选择题1.Visual Basic程序中分隔各语句的字符是(: )2.工程文件的扩展名是（ vbp）3.下列运算符中，运算级别最高的是（* ）4.下列可作为Visual Bas......
第五次VB大作业心得体会第五次VB小组作业，跨越了VB计算机绘图的期末考试，终于在五个人的一致努力下，画上了圆满的记号。至此，本学期VB计算机绘图的学习，也告一段落。本次作业的内......
第五章(1)例 5-2 Private Sub Command1_Click() Dim sum!, n%, aver! sum = 0 n = 0 x = Val(InputBox("请输入")) Do While x - sum = sum + x n = n + 1 x = Val(I......
VB程序设计 模拟成绩管理系统学院：汽车学院专业：（交通运输）汽车运用工程 班级： 姓名 学号：模拟成绩管理系统2016 《VB程序设计》作业要求1.做一个成绩管理系统。2.系统中包括部分......
