VB工资管理系统vb+access外文翻译.docVIP

指导教师评语： 　　　　　　　　　　　　　　　签名： 　　　　　　　　　　　　　　　日期： 外文资料译文（一） 电路交换网与vb调用数据库 切换电路的连接设置的结果是保留了从发送端到接收端的包所通过的线路带宽。其它的特性这一就是所有的包都沿同一个线路意味着如果包传输超过了时序那它将不能到达接收端.由于没有路径用来进行包交换，所以要想不同的包沿不同的路径传送就是能依靠网络的条件了。这样包即便是超过了时序它们也有可能到达的。 包交换技术比线路交换技术更能容错。事实上，这也是它被发明的理由！当一个交换开头被拉下，则所有使用它的线路将被切断并且其余的包将不能再被传送。此时如果在进行包交换，包将在已选择的路径上停止交换。 预先建立一条路径也开创预先保留带宽的可能性。如果带宽被保留，那么当一个包到达时，保留的带宽预先保留带宽意味着当一个包出现时拥塞(除非多)在另一方面,当尝试建立一条路时由于拥塞尝试失败VB6.0中的MSChart控件是一个功能强大的高级图表工具，拥有丰富的图表绘制功能，可显示二维和三维的棒图、区域图、线形图、饼图等多种常用图表。近日我为了在双击图表的某个区域时将与该区域相对应的数据库的内容在DataGrid控件上显示出来，遇到了许多困难，最后用一个自定义的变量SelectSeries解决了问题，具体方法如下： 　　设数据库名称为“学生信息”，有一Access表“学生成绩”，其内容为一个班学生的考试成绩，包括学号、姓名、成绩3个字段，成绩字段格式是字符型，值为“优”、“良”、“中”、“差”中的一个。 　　窗体Form1包括一个MSChart控件McScore，类型为二维饼图，用于显示每种成绩的学生数；一个ADO控件AdScore用于连接数据库；一个DataGrid控件DgScore用于以表格形式显示数据库内容。 　　工作过程为：双击饼图的某个区域，则DgScore显示相应成绩的学生名单。 　　代码如下： 　　Option Explicit 　　Dim SelectedSeries as Integer ′自定义变量 　　Dim Rs() as String ′提取记录集用的字符串数组 　　Private Sub Form_Load() 　　′设定DataGrid控件的数据源 　　DgScore.DataSource=″AdScore″ 　　′设定ADO控件的连接字串和初始的记录源，即显示内容 　　AdScore.ConnectString=″Provider=Microsoft.OLEDB.3.51;Persist_Security Info=False;Data Source=学生信息″ 　　AdScore.RecordSource=″selet ＊ from学生成绩order by成绩″ 　　AdScore.Refresh 　　′预设好提取记录用的SQL语句 　　Rs(1)=″select＊ from学生成绩where成绩=″＋Chr(34)＋″优″＋_Chr(34)＋″order by成绩″ Rs(2)=″select ＊from学生成绩where成绩=″＋Chr(34)＋″良″＋_Chr(34)＋″order by成绩″ Rs(3)=″select ＊ from学生成绩where成绩=″＋Chr(34)＋″中″＋_Chr(34)＋″order by成绩″ Rs(4)=″select ＊ from学生成绩where成绩=″＋Chr(34)＋″差″_Chr(34)＋″order by成绩″ End Sub 　　Private Sub McScore_SeriesSelected(Series as Integer,MouseFlags as _Integer,Cancel as Integer) SelectedSeries=Series 　　End Sub 　　Private Sub McScore_PointSelected(Series as Integer,DataPoint as_Integer,MouseFlags as Integer,Cancel as Integer) 　　SelectedSeries=Series 　　End Sub 　　Private Sub McScore_Db1Click() 　　′改变ADO控件的记录源并刷新 　　Adoc1.RecordSource=Rs(SeletedSeries) 　　Adoc1.Refresh 　　End Sub　 ---- VB做为快速应用开发（RAD）工具越来越得到开发人员的认可和接受。它对许多API（如ODBC API、SOCKET API等等）的封装使得编程变得简单起