min=ar(i)
EndIf
Next
Me.TextBox3.Text=min
EndSub
PrivateSubButton6_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton6.Click
Me.Close()
EndSub
PrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.Click
Dimsum,iAsInteger
Fori=0To4
sum=sum+ar(i)
Next
Me.TextBox4.Text=sum
EndSub
PrivateSubButton5_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton5.Click
Dimsum,iAsInteger
Fori=0To4
sum=sum+ar(i)
Next
Me.TextBox5.Text=Format(sum/i,"##0.00")
EndSub
二、使用向导连接数据库类型
4、创建一个如下图所示的程序,以“学生信息导航条”为文件名保存在考试目录下。
(10)
能够实现对学生信息表的查询、添加、修改和删除操作。
【参考答案】:
该题不用自己编写代码,连接数据库的过程如下:
打开项目文件—数据菜单—添加新数据源
选择“数据库”,单击“下一步”
输入如箭头所指内容
选择对应的数据表
点“完成”按钮之后,在数据源窗口中生成exam2011DataSet对象,将其下面的学生信息表拖到窗体上释放即可。
5、创建一个如下图所示的程序,以“用户信息导航条”为文件名保存在考试目录下。
(10)
能够实现对用户信息表的查询、添加、修改和删除操作。
【参考答案】:
此题同上题,不用自己编写代码,连接数据库课程参考上题,将其下面的用户信息表前的“+”号点开,左键单击其后的下拉箭头选“详细信息”,然后按题图中选项拖到窗体上释放即可。
最后添加一个Label1控件到窗体上,将其text属性值改为:
(权限:
管理员为0,教师为1,学生为2)
三、数据绑定类型
6、打开“数据绑定TEXT”项目文件。
实现文本框控件与数据的绑定以及界面上按钮的功能。
【参考答案】:
此题先建立数据库向导,如上面第4题,所选表为用户表(注意把用户表拖到窗体上释放之后,还要将生成的表格和导航条删除,我们要的是下面的3个对象),再将Textbox1的DataBindings属性中的Text属性绑定“用户BindingSource”的“姓名”,Textbox2和Textbox3用同样的方法绑定到“密码”和“权限”字段。
按钮事件的代码为:
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
Me.用户BindingSource.MoveFirst()
EndSub
PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
Me.用户BindingSource.MoveNext()
EndSub
PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.Click
Me.用户BindingSource.MovePrevious()
EndSub
PrivateSubButton4_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton4.Click
Me.用户BindingSource.MoveLast()
EndSub
PrivateSubButton5_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton5.Click
Me.Close()
EndSub
7、打开“数据绑定Combobox”项目文件。
实现如下功能:
(1)将学生信息表中的姓名字段与Combobox控件绑定。
(2)在Combobox控件中选择学生姓名,则在右边区域显示该学生的相关信息。
运行结果如下图所示。
【参考答案】:
此题先建立数据库向导,如上面第4题,所选表为学生信息表(注意把学生信息表拖到窗体上释放之后,还要将生成的表格和导航条删除,我们要的是下面的3个对象),再将ComboBox1的DataSource属性设置为“其他数据源”下的“Form1列表实例”下的Exam2011DataSet,然后将DisplayMember设置为“学生信息.姓名”,将学号后面的文本框Textbox1的DataBindings属性中的Text属性绑定“其他数据源”下的“Form1列表实例”下的Exam2011DataSet的“学号”,Textbox2、Textbox3和Textbox4用同样的方法绑定到“性别”、“出生年月”和“家庭住址”字段。
8、打开“数据绑定Listbox”项目文件。
实现如下功能:
(1)将学生信息表中的学号字段与Listbox控件绑定。
(2)在Listbox控件中选择学生学号,则在右边区域显示该学生的相关信息。
运行结果如下图所示。
【参考答案】:
此题先建立数据库向导,如上面第4题,所选表为学生信息表(注意把学生信息表拖到窗体上释放之后,还要将生成的表格和导航条删除,我们要的是下面的3个对象),再将LIstBox1的DataSource属性设置为“其他数据源”下的“Form1列表实例”下的Exam2011DataSet,然后将DisplayMember设置为“学生信息.学号”,将学号后面的文本框Textbox1的DataBindings属性中的Text属性绑定“其他数据源”下的“Form1列表实例”下的Exam2011DataSet的“姓名”,Textbox2和Textbox3用同样的方法绑定到“性别”、和“出生年月”字段。
9、打开“数据绑定PIC”项目文件。
实现如下功能:
(1)将学生信息表中的学号字段与Listbox控件绑定。
(2)在Listbox控件中选择学生学号,则在右边区域显示该学生的相关信息。
图片文件夹存放在bin\debug文件夹中。
运行结果如下图所示。
(相对路径符“.”是指向项目文件夹中的bin\debug文件夹,可以使用对象Application的StartupPath属性获取debug文件夹的绝对路径。
读取时可以使用相对路径,存放时只能使用绝对路径)
【参考答案】:
先把图片所在的PIC文件夹拷贝到bin\debug文件夹中,再建立数据库向导,如上面第4题,所选表为学生信息表(注意把学生信息表拖到窗体上释放之后,还要将生成的表格和导航条删除,我们要的是下面的3个对象),再将LIstBox1的DataSource属性设置为“学生信息BindingSource”,然后将DisplayMember设置为“姓名”,将学号后面的文本框Textbox1的DataBindings属性中的Text属性绑定“学生信息BindingSource”下的“学号”,Textbox2用同样的方法绑定到“性别”字段,PictureBox1的DataBindings属性中的Tag属性绑定“学生信息BindingSource”下的“相片”。
对应事件的代码为:
PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load
'TODO:
这行代码将数据加载到表“Exam2011DataSet.学生信息”中。
您可以根据需要移动或移除它。
这句注释及下面的第一条代码都是自动生成的,第二条语句是自己加进去的。
Me.学生信息TableAdapter.Fill(Me.Exam2011DataSet.学生信息)
Me.PictureBox1.Image=Image.FromFile(".\pic\"&Me.PictureBox1.Tag)
EndSub
PrivateSubListBox1_SelectedIndexChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesListBox1.SelectedIndexChanged
Me.PictureBox1.Image=Image.FromFile(".\pic\"&Me.PictureBox1.Tag)
EndSub
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
End
EndSub
四、数据库查询操作类型
10、打开“用户信息查询”项目文件。
实现“显示所有用户信息”和“查询”功能。
1.单击“显示所有用户信息”按钮,显示用户表中所有用户信息。
2.在文本框中输入要查询的姓名,单击“查询”按钮,显示该用户的信息。
3.在文本框中输入的信息为空,单击“查询”按钮,显示用户表中所有用户信息。
4.程序运行后结果如下图所示。
(10)
【参考答案】:
在代码窗口顶部(即PublicClassForm1)输入“ImportsSystem.Data.SqlClient”,然后在三个Button按钮单击事件里输入代码如下。
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click
DimconnAsNewSqlConnection("server=localhost;database=exam2011;IntegratedSecurity=true;")
conn.Open()
DimstrAsString="select*from用户"
DimsqldaAsNewSqlDataAdapter(str,conn)
DimdsAsNewDataSet
sqlda.Fill(ds,"用户")
Me.DataGridView1.DataSource=ds.Tables("用户")
conn.Close()
EndSub
PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click
DimconnAsNewSqlConnection("server=localhost;database=exam2011;IntegratedSecurity=true;")
conn.Open()
DimstrAsString
IfMe.TextBox1.Text=""Then
str="select*from用户where姓名"
Else
str="select*from用户where姓名='"+Me.TextBox1.Text+"'"
EndIf
DimsqldaAsNewSqlDataAdapter(str,conn)
DimdsAsNewDataSet
sqlda.Fill(ds,"用户")
Me.DataGridView1.DataSource=ds.Tables("用户")
conn.Close()
EndSub
PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton3.Click
End
EndSub
11、打开“学生信息查询”项目文件。
按学号或姓名实现对学生信息模糊查询功能。
程序运行结果如下图所示。
(15)
【参考答