《【教学课件】第13章综合实例.ppt》由会员分享，可在线阅读，更多相关《【教学课件】第13章综合实例.ppt（43页珍藏版）》请在三一办公上搜索。
1、2023/8/6,1,第13章 综合实例,13.1 统计图的绘制13.2 电话号码簿系统本章小结,2023/8/6,2,13.1.1 功能和界面设计13.1.2 MSChart定制控件13.1.3 DataGrid控件13.1.4 DataSet控件13.1.5 设计代码,13.1 统计图的绘制,2023/8/6,3,1.任务 设计一个统计图设计器，要求该设计器能够根据数据库中所存数据，生成相应的折线图、直方图等多种统计图表。2.界面设计 在窗体上放置1个MSChart定制控件、1个DataGrid控件和8个按钮。,13.1.1 功能和界面设计,2023/8/6,4,MSChart是一个以图形
2、方式显示数据的图表。对MSChart控件的添加方法说明如下：在【工具箱】中的【Windows窗体】上点击右键，选中弹出菜单的【添加/移除项】选项，将弹出的【自定义工具栏】对话框，选中【COM组件】选项卡，在下面的列表框中选中“Microsoft Chart Control 6.0”,再点击【确认】按钮，然后在【Windows窗体】上双击“Microsoft Chart Control 6.0”图标即可。,13.1.2 MSChart定制控件,2023/8/6,5,一般而言，AMSC控件与数据网格(DataGrid 对象)相关连，可以用数据网格显示图表中的数据。数据网格是存有已图表化数据的表。数
3、据网格中也包括用于在图表中标识系列和分类的标签。设计人员通过从表或数组中插入或输入数据给数据网格填充信息。DataGrid对象被配置为行和列。可以向该矩阵添加和减去行、列和标签以更改图表的外观。,13.1.3 DataGrid控件,2023/8/6,6,BackColor设置偶数行的背景色。BackgroundColor设置网格中非行区域的背景颜色。BorderStyle设置边框样式。DataSouce设置网格所显示数据的数据源。Font设置显示的文字字体。Height设置控件高度。Item设置指定单元格值。Size设置控件的高度和宽度。Visible设置是否显示该控件。VisibleColu
4、mnCount设置可见列的数目。对象该对象设置可见行的数目。Width对象该对象设置控件的宽度。,13.1.3 DataGrid控件,2023/8/6,7,DataSet控件是ADO.NET中的重要控件，它是从数据库中检索到的数据在内存中的缓存。1.DataSet控件主要属性（1）DataSetName：设置当前DataSet控件的名称。（2）HasErrors：获取指示此DataSet控件的任何表的任何行中是否有错误值。（3）NameSpace：设置DataSet控件的命名空间。（4）Prefix：设置XML前缀。（5）Tables：获取包含在DataSet控件中的表的集合。,13.1.4
5、DataSet控件,2023/8/6,8,2.DataSet控件主要方法（1）Clear方法：该方法清除DataSet控件。（2）Copy方法：该方法复制DataSet控件的结构和数据。（3）ReadXml方法：该方法将XML架构和数据读入DataSet控件。（4）WriteXml方法：该方法从DataSet控件写XML数据，也可以选择写架构。,13.1.4 DataSet控件,2023/8/6,9,1输入数据2折线图3立体折线图4直方图5立体直方图6立体域图7饼图8结束,13.1.5 设计代码,2023/8/6,10,Private Sub blnl_Click(ByVal sender A
6、s System.Object,ByVal e As System.EventArgs)Handles.Blnl_ClickDim rows,cols,r,c As ShortDim a(4)As Stringa(1)=2000年a(2)=2001年a(3)=2002年a(4)=2003年OleDbConnection1.Open()OleDbDataAdapter1.Fill(DataSetl1,TABLE1)DataGrid1.DataSource=DataSetl1rows=DataSetl1.TABLE1.Rows.Count(),1输入数据,2023/8/6,11,cols=Data
7、Set11.TABLE1.Columns.Count()AMSC.RowCount=rowsAMSC.ColumnCount=colsAMSC.TitleText=DataSet11.TABLE1.TableName.ToString()AMSC.ShowLegend=TrueFor r=1 To AMSC.RowCountAMSC.Row=rAMSC.RowLabe1=a(r)For c=1 To AMSC.ColumnCountAMSC.Column=cAMSC.ColumnLabe1=DataSet11.TABLE1.Columns(c-1).ColumnNameAMSC.Data=Da
8、taSet11.TABLE1.Rows(r-1)(c-1).ToString()Next cNext rOleDbConnection1.Close()End Sub,2023/8/6,12,Private Sub btn2_Click(ByVal sender As System.Object,ByVal e As_System.EventArgs)Handles btn2.ClickAMSC.chartTypeEnd Sub,2折线图,2023/8/6,13,Private Sub btn3_Click(ByVal sender As System.Object,ByVal e As _S
9、ystem.EventArgs)Handles btn3.ClickAMSC.chartTypeEnd Sub,3立体折线图,2023/8/6,14,Private Sub btn4_Click(ByVal sender As System.Object,ByVal e As_System.EventArgs)Handles btn4.ClickAMSC.chartType=MSChart20Lib.VtChChartType.VtChChartType2dBarEnd Sub,4直方图,2023/8/6,15,Private Sub btn5_Click(ByVal sender As Sy
10、stem.Object,ByVal e As_System.EventArgs)Handles btn5.ClickAMSC.chartType=MSChart20Lib.VtChChartType.VtChChartType3dBarEnd Sub,5立体直方图,2023/8/6,16,Private Sub btn6_Click(ByVal sender As System.Object,BvVal e As_System.EventArgs)Handles btn6.ClickAMSC.chartTypeEnd Sub,6立体域图,2023/8/6,17,Private Sub btn7
11、_Click(ByVal sender As System.Object,ByVal e As_System.EventArgs)Handles Btn7_ClickEnd Sub,7饼图,2023/8/6,18,Private Sub btn8_Click(ByVal sender As System.Object,ByVal e As_System.EventArgs)Handles btn8.ClickApplication.Exit()End Sub,8结束,2023/8/6,19,随着信息时代的到来，人们越来越看重信息的交流，在交流之时，需要记住许多联系电话以及住址等。为了解决记电话
12、的烦恼制作一个电话号码簿系统是非常必要的，用以帮助解决朋友或亲人的联系电话号码信息的添加、修改、删除以及有着方便的浏览查看功能。,13.2 电话号码簿系统,2023/8/6,20,根据需求分析规划出系统的基本功能如下：系统登录：通过用户名和密码来判断是否为合法用户，以保护系统的合法使用。查询功能：根据任意信息提供模糊查询的功能。添加功能：向系统中添加友人的联系电话及附注信息。修改功能：完成对系统中错误信息的修改。删除功能：删除系统中原有的联系人信息。,13.2.1 功能,2023/8/6,21,1.数据库设计:共有2个表：一个用来保存通讯信息的数据库表“通讯录”，另一个为存放软件用户信息的数据
13、库表“用户表”。通讯录包括编号、姓名、性别、家庭电话、办公电话、手机、QQ、Email、地址等信息；用户表包括用户名，密码。2.界面设计 分别设计主窗体、查询窗体、添加窗体、修改窗体、删除窗体。,13.2.2 步骤,2023/8/6,22,1.登录窗体的代码2.查询窗体的代码3.添加窗体代码4.修改窗体的代码5.删除窗体的代码6.主窗体的代码,13.2.3 代码,2023/8/6,23,Dim blnok As Boolean=TruePrivate Sub btn2_Click(ByVal sender As System.Object,ByVal e As System.EventArgs
14、)Handles btn2.ClickApplication.Exit()End SubPrivate Sub btn1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles btn1.ClickDim strsql As Stringstrsql=select用户名，密码from用户表where用户名=&txt1.Text&and密码=&txt2.Text&,1.登录窗体的代码,2023/8/6,24,Dim myconn As New OleDbConnectionDim mycomm As New
15、OleDbCommandDim myadpt As New OleDbDataAdapterDim myds As New DataSetTry判断用户名和密码是否为空If txt1.Text=Or txt2.Text=ThenMsgBox(用户名或密码不能为空!)txt1.Focus()txt1.SelectAll()txt2.Text=NothingExit SubEnd If,1.登录窗体的代码,2023/8/6,25,如果用户输入的数据都不为空，到数据库中去查找输入的用户名和密码是否正确myconn.ConnectionString=Provider=Microsoft.Jet.OLE
16、DB.4.0;Data Source=通讯录.mdb;Persist Security Info=Falsemyconn.Open()mycomm.CommandText=strsqlmycomm.Connection=myconnmyadpt.SelectCommand=mycommmyadpt.Fill(myds)Dim mytable As New DataTablemytable=myds.Tables(0)If mytable.Rows.Count=0 ThenMsgBox(用户名或密码输入错误!请重新输入！MsgBoxStyle.Information)txt1.Focus(),1
17、.登录窗体的代码,2023/8/6,26,txt1.SelectAll()txt2.Text=Elseblnok=TrueMe.Close()End IfCatch ex As ExceptionMsgBox(ex.ToString)Finallymyconn.Close()End TryEnd Sub,1.登录窗体的代码,2023/8/6,27,Private Sub chb1_CheckedChanged(ByVal sender As System.Object,ByVal e AsSystem.EventArgs)Handles chb.CheckedChangedIf chb1.Ch
18、ecked=True ThenComboBox1.Enabled=TrueElseComboBox1.Enabled=FalseComboBox1.Text=End IfEnd SubPrivate Sub chb4_CheckedChanged(ByVal sender As System.Object,ByVal e As _System.EventArgs)Handles Chb4.CheckedChanged,2.查询窗体的代码,2023/8/6,28,If Chb4.Checked=True ThenComboBox4.Enabled=TrueElseComboBox4.Enable
19、d=FalseComboBox4.Text=End IfEnd SubPrivate Sub Chb5_CheckedChanged Handles Chb5.CheckedChangedIf Chb5.Checked=True ThenComboBox5.Enabled=TrueElseComboBox5.Enabled=False,2.查询窗体的代码,2023/8/6,29,ComboBox5.Text=End IfEnd SubPrivate Sub Chb6_CheckedChanged Handles Chb6.CheckedChangedIf Chb6.Checked=True T
20、henComboBox6.Enabled=TrueElseComboBox6.Enabled=FalseComboBox6.Text=End IfEnd SubPrivate Sub Form1_Load Handles MyBase.Load,2.查询窗体的代码,2023/8/6,30,Dim myconn As New OleDb.OleDbConnectionDim mycomm As New OleDbCommandDim myadpt As New OleDbDataAdapterDim myds As New DataSetmyconn.ConnectionString=provi
21、der=microsoft,jet.oledb.4.0;data source=通讯录.mdbmyconn.Open()填充姓名Next填充手机Next填充加电,2.查询窗体的代码,2023/8/6,31,Private Sub Form3_Load(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles MyBase.LoadDim myconn As New OleDbConnectionDim mycomm As New OleDbCommandDim myadpt As New OleDbDataAdapter
22、Dim myds As New DataSetmyconn.ConnectionString=provider=microsoft.jet.oledb.4.0;data source=通讯录.mdbmyconn.Open()mycomm.CommandText=select*from通讯录 order by编号 descmycomm.Connection=myconn,3.添加窗体的代码,2023/8/6,32,myadpt.SelectCommand=mycommmyadpt.Fill(myds)myconn.Close()DataGrid1.DataSource=myds.Tables(0
23、)End SubPrivate Sub btn2_ Click(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles btn2.ClickMe.Close()End SubPrivate Sub btn1 _Click(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles btn1.ClickIf Trim(TextBox1.Text)=Then,3.添加窗体的代码,2023/8/6,33,MsgBox(姓名不能为空!请重新输入!)txt1
24、.Focus()Exit SubEnd IfDim myconn As New OleDbConnectionDim mycomm As New OleDbCommandDim myadpt As New OleDbDataAdapterDim myds As New DataSetmyconn.ConnectionString=provider=microsoft,jet.oledb.4.0;data source=通讯录.mdbmyconn.Open()mycomm.CommandText=select*from通讯录 where姓名=&TextBox1.Text&,3.添加窗体的代码,2
25、023/8/6,34,mycomm.Connection=myconnmyadpt.SelectCommand=mycommmyadpt.Fill(myds)If myds.Tables(0).Rows.Count=0 Then插入用户输入的信息mycomm.CommandText=insert into通讯录(姓名,性别,手机，家庭电话,QQ,E_mail,办公电话，地址)values(&Trim(txtBox1.Text)&,&ComboBox1.Text&,&txt3,Text&,&txt4.Text&,&txt5.Text&,&txt6.Text&,&txt7.Text&,&txt8.
26、Text&)mycomm.ExecuteNonQuery()更新datagrid1中的数据,3.添加窗体的代码,2023/8/6,35,mycomm.CommandText=select*from通讯录oroer by编号descmyadpt.SelectCommand=mycommmyadpt.Fill(myds)DataGrid1.DataSource=myds.Tables(0)ElseMsgBox(数据库中已经存在此人的信息，不能重复插入！)End Ifmyconn.Close()End Sub,3.添加窗体的代码,2023/8/6,36,Private Sub Form3_Load(
27、ByVal sender As System.Object.ByVal e As _System.EventArgs)Handles MyBase.LoadDim myconn As New OleDbConnectionDim mycomm As New OleDbCommandDim myadpt As New OleDbDataAdapterDim myds As New DataSetmyconn.ConnectionString=provider=microsoft,jct.oleob.4.0;data source=通记录.mdbmyconn.Open()Dim myeonn As
28、 New OleDbConnection,4.修改窗体的代码,2023/8/6,37,Dim mycomm As New OleDbCommandDim myadpt As New OleDbDataAdapterDim myds As New DataSet更新数据库myconn.ConnectionString=provider=mierosoft,jet.oledb.4.0;data source=通讯录.mdbmyconn.Open()Private Sub btn2_ Click(ByVal sender As System.Object,ByVal e As System.Even
29、tArgs)Handles btn2.ClickMe.Close()End Sub,4.修改窗体的代码,2023/8/6,38,Private Sub Form3_Load(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles MyBase.LoadDim myconn As New OleDbConnectionDim mycomm As New OleDbCommandDim myadpt As New OleDbDataAdapterDim myds As New DataSetmyconn.Connectio
30、nString=provider=microsoft,jet.oledb.4.0;data source=通讯录.mdbmyconn.Open()mycomm,CommandText=select*from通讯录mycomm.Connection=myconnmyadpt.SelectCommand=mycomm,5.删除窗体的代码,2023/8/6,39,myadpt.Fill(myds)myconn.Close()DataGrid1.DataSource=myds.Tables(0)End SubPrivate Sub txt1_TextChanged(ByVal sender As Sy
31、stem.Object,ByVal e As _System.EventArgs)Handles txt1.TextChangedDim myconn As New OleDbConnectionDim mycomm As New OleDbCommandmyconn.ConnectionString=provider=microsoft,jet.oledb.4.0;data source=通讯录.mdbmyconn.Open(),5.删除窗体的代码,2023/8/6,40,myeomm.CommandText=select,性别,手机,家庭电话,QQ,E-mail,办公话,地址from 通讯
32、录where性名=&TextBox1.Text&mycomm.Connection=myconnmyadpt.SelectCommand=mycommmyadpt.Fill(myds)myconn.Close()If myds.Tables(0).Rows.Count 0 Thentxt2.Text=myds.Tables(0).Rows(0)(0)txt3.Text=myds.Tables(0).Rows(0)(1),5.删除窗体的代码,2023/8/6,41,Private Sub Form2_Load(ByVal sender As System.Object,ByVal e As _S
33、ystem.EventArgs)Handles MyBase.LoadDim myform As New Form5myform.ShowDialog()End SubPrivate Sub MenuIteml_Click(ByVal sender As System.Object,ByVal e As _System.EventArgs)Handles MenuIteml.ClickDim myform As New Formlmyform.MdiParent=Memyform.Show()End Sub,6.主窗体的代码,2023/8/6,42,通过本章给出的一些综合实例，介绍较高级的编程知识给读者。希望各位初学者在看不懂的地方多查资料、灵活运用各种知识寻找答案，从而获得一些实战经验。,本章小结,2023/8/6,43,谢谢！,
