Visual Basic 程序设计
综合实验
学 院： 北方科技学院
专 业： 通信工程
学 生：
学 号：
指导教师： 王晓斌
二○##年十一月
一、实验目的
1. 掌握常用控件的使用
2. 了解数据库应用程序开发过程
3. 掌握ADO数据控件的使用
4. 掌握数据绑定控件的使用
5. 掌握结构化查询语言SQL的使用
6. 综合应用所学的知识，编写具有可视化界面的应用程序
二、实验内容
1. 设计实现《学生管理系统》
2. 要求：
（1） 设计数据库与数据表
（2） 系统登录功能
（3） 系统菜单
（4） 数据编辑浏览功能
（5） 查询功能
（6） 统计功能
系统设计要实用合理、界面友好、操作简单、便于维护。
Private Sub Command1_Click()
Dim MPassword As String
Adodc1.RecordSource = "select * from 密码表 where username ='" & Text1.Text & "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
MPassword = Adodc1.Recordset.Fields("password")
If Text2.Text = MPassword Then '判断数据的密码是否正确
Name1 = Text1.Text
Form2.Show
'frm_Main.Show
Unload Me
Else
MsgBox "密码不正确,请您确认后重新输入", , "提示信息"
Text2.Text = ""
Text2.SetFocus
End If
Else
MsgBox "对不起 没有此用户的信息", , "提示信息"
Text1.Text = ""
Text2.Text = ""
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
'Adodc1.RecordSource = "select * from 密码表"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
ListView1.Enabled = True
ListView1.ListItems.Clear
i = 1
Adodc1.Recordset.MoveFirst
Do While Adodc1.Recordset.EOF = False
Key = Adodc1.Recordset.Fields("username")
Set itmX = ListView1.ListItems.Add(, , Key, i)
i = i + 1
Adodc1.Recordset.MoveNext
Loop
Else
ListView1.Enabled = False
End If
End Sub
Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)
End Sub
Private Sub ListView1_Click()
Text1.Text = ListView1.SelectedItem
'Adodc1.Refresh
Text2.SetFocus
End Sub
Private Sub find_Click()
Form3.Show
End Sub
Private Sub Form_Load()
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1
Form3.Show
Case 2
Form4.Show
End Select
End Sub
Private Sub Command1_Click()
zy = Combo1
Adodc1.RecordSource = "select * from 学生信息 where 专业 ='" & zy & "'"
Adodc1.Refresh
End Sub
Private Sub Command2_Click()
Adodc1.RecordSource = "select 专业,count(*) as 人数 from 学生信息 group by 专业"
Adodc1.Refresh
End Sub
Private Sub Command3_Click()
Adodc1.RecordSource = "select * from 学生信息 order by 入学分数 desc"
Adodc1.Refresh
End Sub
Private Sub Command4_Click()
End
End Sub
Private Sub DataGrid1_Click()
End Sub
第二篇：VB课程设计报告(样稿)
南京工程学院
课程设计说明书(论文)
题 目
课 程 名 称
院（系、部、中心）专 业
班 级
学 生 姓 名
学 号
设 计 地 点
指 导 教 师
设计起止时间： 年 月 日至 年 月 日
VB课程设计说明
VB课程设计成绩分两部分：设计成绩和课程设计报告成绩。
课程设计报告要求
请班长或学习委员为大家发放空白的课程设计报告，在课程设计报告中，需具备如下内容。
注：其中除了第四部分课程设计成果打印外，其他各部分的内容必须手写完成；如下内容中黑色字体部分抄写到课程设计报告中，红色字体部分自己根据要求撰写。
一、 课程设计目的和要求
目的：通过本课程设计的实践环节，使学生具有使用VB开发简单应用程序的能力，并理解软件系统开发的基本流程。加深对《程序设计基础-VB》的基本理论、基本方法的理解，并运用所学的VB 系统开发的基本技术与方法，针对不同的实际问题，进行系统分析与设计，训练系统开发编程的实际能力。
要求：
这部分内容请参阅《VB课程设计指导书》各自所分配到的题目的（要求与提示）部分。 二、 课程设计主要设备和软件
电脑一台
windows2000操作系统
Visual Basic
三、
四、 课程设计步骤 课程设计成果 这部分内容请对应各自的题目要求，详细叙述完成各要求的具体操作步骤。
这部分内容请叙述程序的关键代码和关键控件的属性设置，以及界面图片打印出来，附在报告中。注意：打印时用的纸张大小必须与报告一样。
五、 课程设计总结与思考 这部分请叙述自己本次课程设计实习的思考、总结、收获。
请大家按照自己分配到的题目，和上述要求填写课程设计报告，并装订，课程设计周结束一周之内将报告交给班长，请班长同学将课程设计报告交给我。
课程设计成果和课程设计报告，两者缺一不可，任何一项没有完成都将没有这门课程的成绩。
如发现有任意两份课程设计成果雷同或任意两份课程设计报告雷同，成绩一律不
及格。
智能定时器的设计
一、设计内容
二、。。。。
