铁路货车装车CAD系统的研发

1、西安文理学院本科毕业设计（论文）目录第1章：概述21.1 货物装载与加固的基本要求21.2 使用铁线或钢丝绳加固捆绑31.3 超长、集重和超限货物的装载加固31.4 装载集重货物41.5 用两辆以上的连挂车组跨装货物41.6 货车满载工作5第2章：规则分析52.1 重车重心高度52.2 超限、超长货物52.3 木材和竹子6第3章：软件流程设计83.1 开发工具的选用83.2 数据库的选用83.3 绘制流程图9第4章：软件界面设计104.1 TabControl控件104.2 GroupBox控件114.3 OLEDB控件12第5章：数据相关设计135.1 高重心限速表135.2 超限与超长表1

2、45.3 竹子或木材表145.4 文件的命名14第6章：软件代码设计156.1 连接字符串156.2 窗体控件控制156.3 测量根据高度限速156.4 测量根据突出限速166.5 木材或竹子加固176.6 加载规则文件17第7章：软件运行调试187.1 主窗体运行187.2 高重心限速检测187.3 超限与超长检测197.4 木材或竹子检测20结束语22致谢23参考文献24附录25第1章：概述1.1 货物装载与加固的基本要求 货物装载与加固的基本要求是：必须保证能够经受正常的调车作业以及列车运行中所产生的各种力的作用，以便保证货物在运输的全过程中，不致发生移动、滚动、倾覆、倒坍或坠落等情况。

3、装载货物选择车辆时，应遵守货车使用限制表及有关规定。货物装载的宽度与高度，除另有规定者外，不得超过机车车辆限界，或特定区段装载限制。装载货物的重量除另有规定者外，不得超过货车标记载重量，货物的重量应合理分布在车底板上，不得偏重。使用有端、侧板的平车、砂石车装载长度或宽度超出车底板的货物，可将端、侧板放下，需用铁线与车体捆绑牢固，不得影响提钩杆的正常使用和压住车钩。一件货物宽度等于或小于车底板宽度时，允许突出端梁300毫米；当货物的宽度大于车底板的宽度时，允许突出端梁200毫米。超过此限时，必须使用游车。装载成件包装货物时，应排列紧密、整齐。当货物的高度或宽度超出侧板时，应层层压缝，四周货物倾向

4、中间，并予加固（不得以篷布代替加固材料），两侧超出侧板的宽度应该一致。装载袋装货物，捆扎袋口应朝向内侧。装载轻浮货物时，除用绳索交叉捆绑外，对超出侧板的货垛四周或四角的货件，应用绳索串联一起捆绑牢固或在货车两端用挡板（壁）、支柱等加固。货物重心的投影应位于车底板的纵、横中心线的交叉点上，特殊情况下必须位移时，横方向位移不得超过100毫米，超过时，应采取配重措施。纵方向位移时，每个车辆转向架所承受的货物重量不得超过货车标记载重量的二分之一，并且两转向架承受重量之差不得大于10吨（另有规定者除外）。重车重心高度从钢轨面起算，一般不得超过2000毫米，超过时，可采取配重措施，以降低重车重心高度。否则

5、应限速运行。限速运行时，由装车站以文电向分局请示，分局以电报批示。跨分局（局）运输时，并抄给有关分局和铁路局。1.2 使用铁线或钢丝绳加固捆绑1捆绑在货物上的拴结点，在条件许可时，应在货物重心高度相等处；2铁线拉牵形状应成八字形、倒八字形、交叉捆绑或下压式捆绑；3捆绑的铁线（或钢丝绳）与其在车底板上投影的夹角，一般应接近于45°。如捆绑铁线或钢丝绳主要用于防止货物水平移动时，其角度应适当减少；如主要用于防止货物倾覆时，其角度应适当增大（图略）。4苫盖篷布或加固货物时，所用绳子或铁线捆绑拴结后的余尾部分，长度不得超过300毫米。装载货物时，发货单位应按发站要求提供货物装载加固方面的有关

6、资料，并根据货物的种类、重量、重心高度以及外形结构特点等因素，按下表的规定确定加固方法，选择加固材料。装载笨重零担货物或整车货物轻重配装时，应根据形状、重量及重心位置进行加固。各分卸站卸后进行整理或加固，以保证安全。1.3 超长、集重和超限货物的装载加固一件货物的长度，超过所装平车的长度，需要使用游车或跨装运输时，称为超长货物。一件货物的重量，大于应装平车负重面长度的最大容许载重量的，称为集重货物。发货单位托运超长或集重货物时，应向发站提出下列资料：1货物外形尺寸图；2应以“十”符号注明货物重心位置及其有关尺寸；3货物支重面的长度和宽度；4计划装载、加固方案。1.4 装载集重货物1集重货物的最

7、大容许载重量（除另有规定者外）应遵守规定；2根据集重货物的重量，其支重面长度小于上列各表的规定时，须铺垫横垫木。两横垫木之间的最小距离，应符合上列各表规定。如集重货物支重面长度小于两横垫木之间的最小距离时，应铺垫横纵垫木。1.5 用两辆以上的连挂车组跨装货物1跨装货物只准两车负重。负重车车底板高度应相等，如高度不等时，需要垫平。对未达到标记载重量的货车，可以加装货物。2在两辆负重车的中间只准加挂一辆游车（另有规定者除外）。3货物转向架的支重面应遵守第24条的规定。货物转向架应放在车底板的横中心线上，必须纵向位移时，应遵守第23条的有关规定。货物转向架上架体与跨装货物，下架体与车底板应分别固定在

8、一起。4捆绑加固方法不得影响车辆通过曲线时的转向，并将提钩杆用铁丝捆紧。5两辆以上跨装车组（指中间加挂游车的）通过9号及9号以下道岔时，不得推送调车，以防止脱轨。遇尽头线时，可以不超过每小时3公里的速度匀速推送。装载超长、超限和集重货物时，如货物重心的投影不能位于货车纵中心线上时，同一转向架左右旁承游间之和，应由车辆部门在装车前调整为210毫米，但任何一侧旁承游间不得为零。超长、集重和超限货物装车后，应用不褪色的颜料在车底板上按货物外形轮廓的主要处所，标画易于辨认的检查线。装运超长、集重和超限货物时，发站应在货物运单、票据封套、编组顺序表及车牌上注明“超长货物”、“集重货物”或“超限货物”字样

9、；以连挂车组装运时，应注明“连挂车组不得分摘”字样；限速运行时，应注明“限速××公里”字样。1.6 货车满载工作货车满载工作的主要任务是，在保证运输安全的基础上，提高货车静载重。铁路局、分局应设专人，负责此项工作。各站应成立满载小组，会同物资部门共同研究改进货物的包装和装载方法，不断总结和推广满载工作先进经验，应做到捆包机械化、包装规格化、装载定型化。第2章：规则分析2.1 重车重心高度根据中华人民共和国铁道部铁路货物装载加固规则第二章第十二条规定：重车重心高度从钢轨面起，超过2000 mm时应按表1.1的规定限速运行。重车重心高度H(mm)区间限速(kmh)通过侧向道岔限

10、速(kmh)2000<H240050152400<H280040152800<H30003015 表2.1 超过2000 mm的规定限速运行从表中可以得知重心高度与区间限速、通过侧向道岔限速两者的关系：其中当重车重心高度从钢轨面起，超过2000 mm时通过侧向道岔时应以最小时速：15km/h通过。而区间限速则需要根据超出距离的范围进行区分，超出的高度越高则速度限制越低。2.2 超限、超长货物根据中华人民共和国铁道部铁路货物装载加固规则第二章第十二条规定：一辆平车装载超长货物，应遵守下列规定：均重货物使用60 t、61 t平车装载，两端均衡突出时，其装载重量不得超过表1.2的规

11、定。突出车端长度L(mm)L<15001500L<20002000L<25002500L<30003000L<3 5003500L<40004000L<45004 500L5000容许载重量(t)5857565655545352表2.2 装载重量从表中可以得知一辆平车装载超长货物时突出车端长度与允许的载重量的关系：货物突出端长度越长则容许的载重量越小。两者的关系可以分为八个区段分别由两两相对应。2.3 木材和竹子根据中华人民共和国铁道部铁路货物装载加固规则第三章第三条规定：装载原木(包括坑木、小径木)时，应对每垛起脊部分做整体捆绑，整体捆绑线使用直径不

12、小于7mm的钢丝绳或破断拉力不小于21kN的专用捆绑加固器材；腰线使用专用捆绑加固器材时，整体捆绑线可使用6.5mm盘条2股。每道整体捆绑线的铺设位置距车辆端、侧墙顶面向下不小于100mm。材长大于4m的，每垛整体捆绑5道，4m及以下的每垛整体捆绑3道。整体捆绑线的余尾部分折向车内，并用U形钉钉固。车辆两端安装挡板时，应使用8号镀锌铁线对挡板进行拦护；不使用挡板时，靠车辆两端的起脊部分的顶层，应使用8号镀锌铁线2股对原木端部向支柱方向兜头拦护，镀锌铁线与每根原木端部接触处用U形钉钉固。敞车装载板、方材时，货物高度超出车辆端侧墙的，应在车辆两端安装挡板(围装除外)，并使用8号镀锌铁线对挡板进行拦

13、护。支柱的对数应符合表2.3的规定。支柱折断时，必须更换。每垛木材的长度L(mm)每垛木材使用支柱对数2500L<500035 000L<8 0004L80005表2.3从表中可以得知每垛木材使用支柱对数和每垛木材的长度的对应关系，即长度越长需要的支柱越多。第3章：软件流程设计3.1 开发工具的选用Visual Basic .NET通常缩写为VB.NET,在某些特定情况下也直接简称VB，比如在.NET这个大话题下或者与其他.NET语言一起讨论的时候。Visual Basic .NET属Basic系语言，其语法特点是以极具亲和力的英文单词为基础标识，以及与自然语言极其相近的逻辑表达，

14、有时候你会觉得写VB.NET代码就好像在写英文句子一样，从这个角度来说，VB.NET似乎是最高级的一门编程语言，当然在Basic系语言中VB.NET也确实是迄今为止最强大的一门编程语言。3.2 数据库的选用Access是一款数据库应用的开发工具软件，其开发对象主要是Microsoft JET数据库和Microsoft SQL Server数据库。由于在Office 97及以前的版本中，Microsoft JET 3.51及以前版本的数据库引擎是随Access一起安装和发布的，JET数据库与Access就有了天生的血缘关系，并且Access对JET数据库做了很多地扩充，如，在Access的环境中

15、，可以在查询中使用自己编写的VBA函数，Access的窗体、报表、宏和模块是作为一种特殊数据存储在JET数据库文件(.mdb)中，只有在Access环境中才能使用这些对象。随着，Microsoft Windows操作系统版本的不断升级和改良，在Windows XP以后版本中，Microsoft将JET数据库引擎集成在 Windows 操作系统中作为系统组件的一部分一起发布(主要原因是Windows中还有很多组件需要使用JET引擎，活动目录等)。从此JET数据库引擎从Access中分离出来，而Access也就成为了一个专门的数据库应用开发工具。由于JET数据库引擎的分离，很多应用程序采用了JET

16、数据库作为其应用的数据库，JET数据库符合关系数据库理论，有着完整的数据定义、数据处理、数据安全管理体系。在Microsoft Windows操作系统中，随着Microsoft在ActiveX技术上的发展，Windows中不断升级换代的数据访问组件，这些组件包括ODBC、OLEDB、DAO、ADO、ADO，JET数据库引擎和这些组件一起已组成了免费的数据库管理系统。3.3 绘制流程图根据程序需要绘制流程图如图2.3：图3.3 流程图第4章：软件界面设计4.1 TabControl控件TabControl控件：TabControl控件显示多个选项卡，这些选项卡类似于笔记本中的分隔卡和档案柜文件夹

17、中的标签。TabControl控件的选项卡中可包含图片和其他控件。此外，TabControl控件还可以用来创建一组相关属性的属性页。图4.11所示为TabControl控件。图4.11控件设计：添加4个TabPage修改Text属性分别为：“高重心限速”、“超限与超长”、“木材或竹子”、“相关规定”。如图4.12所示：图4.12 图像界面4.2 GroupBox控件GroupBox控件：GroupBox 显示围绕一组控件的框架（带或不带标题）。使用 GroupBox 对窗体上的控件集合进行逻辑分组。组框是可用于定义控件组的容器控件。组框的典型用途是包含 RadioButton 控件的逻辑组。如

18、果有两个分组框，每个分组框都包含多个选项按钮（也称为单选按钮），每组按钮都互相排斥，则每组设置一个选项值。图3.21所示为GroupBox控件。图4.21添加3个GroupBox控件如图4.22、4.23、4.24所示：分别用于根据高度限速、根据突出限载、木材和竹子。图4.22 高度限速图像检测界面图4.23 限载图像界面图4.24 木材或竹子图像界面4.3 OLEDB控件OLEDB控件：OLEDB位于ODBC层与应用程序之间。在ASP页面里，ADO是位于OLEDB之上的应用程序。ADO调用先被送到OLEDB，然后再交由ODBC处理。OLEDB（OLEDB）是微软的战略性的通向不同的数据源的低

19、级应用程序接口。OLE DB不仅包括微软资助的标准数据接口开放数据库连接（ODBC）的结构化查询语言（SQL）能力，还具有面向其他非SQL数据类型的通路。作为微软的组件对象模型（COM）的一种设计，OLE DB是一组读写数据的方法（在过去可能被称为渠道）。OLE DB中的对象主要包括数据源对象、阶段对象、命令对象和行组对象。使用OLE DB的应用程序会用到如下的请求序列：初始化OLE、连接到数据源、发出命令、处理结果、释放数据源对象并停止初始化OLE。第5章：数据相关设计5.1 高重心限速表高重心限速表设计如图5.1所示：图5.1 高重心限速表5.2 超限与超长表超限与超长表设计如图5.2所示

20、：图5.2 超限与超长表5.3 竹子或木材表竹子或木材表设计如图5.3所示：图5.3 竹子或木材表5.4 文件的命名数据库命名为：Data.mdb 放置于程序根目录，加固规则文档命名为路货物装载加固规则放置于程序根目录。第6章：软件代码设计6.1 连接字符串根据数据库文件名(Data.mdb)得知连接字符串为: Public AccessConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "DataSource=" & My.Application.In

21、fo.DirectoryPath & "Data.mdb;" & _ "Persist Security Info=False"6.2 窗体控件控制让GroupBox居中：在窗体的Resize事件中添加代码： Private Sub 主窗体_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize GroupBox1.Left = (TabPage0.Width - GroupBox1.Width) / 2 GroupBox1.Top = (

22、TabPage0.Height - GroupBox1.Height) / 2 GroupBox2.Left = (TabPage1.Width - GroupBox2.Width) / 2 GroupBox2.Top = (TabPage1.Height - GroupBox2.Height) / 2 GroupBox3.Left = (TabPage2.Width - GroupBox3.Width) / 2 GroupBox3.Top = (TabPage2.Height - GroupBox3.Height) / 2 End Sub在TabControl1的SelectedIndexC

23、hanged事件中添加代码： Private Sub TabControl1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TabControl1.SelectedIndexChanged GroupBox1.Left = (TabPage0.Width - GroupBox1.Width) / 2 GroupBox1.Top = (TabPage0.Height - GroupBox1.Height) / 2 GroupBox2.Left = (TabPage1.Width

24、- GroupBox2.Width) / 2 GroupBox2.Top = (TabPage1.Height - GroupBox2.Height) / 2 GroupBox3.Left = (TabPage2.Width - GroupBox3.Width) / 2 GroupBox3.Top = (TabPage2.Height - GroupBox3.Height) / 2 End Sub6.3 测量根据高度限速在Button1的Click事件中添加代码： Private Sub Button1_Click(ByVal sender As System.Object, ByVal e

25、As System.EventArgs) Handles Button1.Click Try Dim AccessString As String = "SELECT * FROM 高重心限速 WHERE (重车最低台重心高度H<" & TextBox_h.Text & " AND 重车最高重心高度H=>" & TextBox_h.Text & ")" Dim AccessConn As New OleDb.OleDbConnection(AccessConnectionString) Ac

26、cessConn.Open() Dim AccessAdapter As OleDbDataAdapter = New OleDbDataAdapter(AccessString, AccessConn) AccessConn.Close() Dim TempDataSet As New DataSet AccessAdapter.Fill(TempDataSet) If TempDataSet.Tables(0).Rows.Count > 0 Then TextBox_qs.Text = TempDataSet.Tables(0).Rows(0).Item("区间限速&quo

27、t;) TextBox_cs.Text = TempDataSet.Tables(0).Rows(0).Item("通过侧向道岔限速") End If Catch AccessException As Exception MsgBox(AccessException.Message) End Try End Sub6.4 测量根据突出限速在Button4的Click事件中添加代码： Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles But

28、ton4.Click Try Dim AccessString As String = "SELECT 容许载重量 FROM 超限与超长 WHERE (突出端长度下限<" & TextBox_l.Text & " AND 突出端长度上限=>" & TextBox_l.Text & ")" Dim AccessConn As New OleDb.OleDbConnection(AccessConnectionString) AccessConn.Open() Dim AccessAdapter

29、 As OleDbDataAdapter = New OleDbDataAdapter(AccessString, AccessConn) AccessConn.Close() Dim TempDataSet As New DataSet AccessAdapter.Fill(TempDataSet) If TempDataSet.Tables(0).Rows.Count > 0 Then TextBox_t.Text = TempDataSet.Tables(0).Rows(0).Item("容许载重量") End If Catch AccessException

30、As Exception MsgBox(AccessException.Message, , sender.text) End Try End Sub6.5 木材或竹子加固在Button8的Click事件中添加代码： Try Dim AccessString As String = "SELECT 每垛木材使用支柱对数 FROM 竹子或木材 WHERE (每垛木材的下限长度<" & TextBox_ml.Text & " AND 每垛木材的上限长度=>" & TextBox_ml.Text & ")&

31、quot; Dim AccessConn As New OleDb.OleDbConnection(AccessConnectionString) AccessConn.Open() Dim AccessAdapter As OleDbDataAdapter = New OleDbDataAdapter(AccessString, AccessConn) AccessConn.Close() Dim TempDataSet As New DataSet AccessAdapter.Fill(TempDataSet) If TempDataSet.Tables(0).Rows.Count >

32、; 0 Then TextBox_ds.Text = TempDataSet.Tables(0).Rows(0).Item("每垛木材使用支柱对数") End If Catch AccessException As Exception MsgBox(AccessException.Message, , sender.text) End Try6.6 加载规则文件在主窗体的Load事件中添加代码： Private Sub 主窗体_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles M

33、yBase.Load RichTextBox1.LoadFile(Application.StartupPath & "铁路货物装载加固规则.rtf") End Sub第7章：软件运行调试7.1 主窗体运行主窗体启动后会加载帮助文件铁路货物装载加固规则如图7.1所示：图7.1 铁路货物装载加固规则 7.2 高重心限速检测高重心限速检测以重车重心高度为2500mm为例点击检测按钮后得到结果为区间限速40km/h，得到通过侧向道岔限速15km/h，如图7.2所示：图7.2 高重心限速检测7.3 超限与超长检测超限与超长检测以突出端长度3000mm为例点击检测按钮后得到结

34、果为容许载重量为56t，如图7.3所示：图7.3 超限与超长检测7.4 木材或竹子检测木材或竹子检测以每垛木材长度7000mm为例点击检测按钮后得到结果为每垛木材使用支柱对数为4，如图7.4所示：图7.4 木材或竹子检测 结束语 通过本次设计，使我了解到软件制作的大致过程，首先联系实际问题，经过一定的框架性的分析与设计后，产生软件的雏形，其次通过实际问题更深入的需要，由浅入深的进行更细致的分析与设计，从而最终达到软件的完善。本次编程使用了Visual Basic .NET的编程环境，这是一款非常实用的编程软件。本次设计中许多基本的问题，通过该编程环境的学习都得到了解决。经过这次设计使我深入认识

35、了Visual Basic .NET软件，并且在使用过程中掌握了许多基本操作。在这些问题的解决与设计中，不断的会有新的问题出现，并且一个一个的解决，再加上反复的调试，才得到最终软件。目前铁路货车装车系统的加固已经广泛的应用于货车装车系统中，它大大节省了工人的人工检测，更好地降低了事故发生的概率，所以可以看出其发展前景十分明朗。在完成本次设计后，更加对自己以后能够在电子行业打下一定的基础，所以此次的设计意义及其深远。虽然此次的软件设计结束了，可是我在通过此次设计，掌握的经验、知识将深深地影响着我以后从事的工作，我会在以后的工作生涯中更加努力！ 致谢本论文在张馨予导师的悉心指导下完成的。历时将近两

36、个月的时间终于将这篇论文写完，在论文的写作过程中遇到了无数的困难和障碍，都在同学和老师的帮助下度过了。尤其要强烈感谢我的论文指导老师张馨予导师，她对我进行了无私的指导和帮助，不厌其烦的帮助进行论文的修改和改进。另外，在校图书馆查找资料的时候，图书馆的老师也给我提供了很多方面的支持与帮助。在此向帮助和指导过我的各位老师表示最中心的感谢！在此我向文理学院电子信息工程专业的所有老师表示衷心的感谢，谢谢你们四年的辛勤栽培，谢谢你们在教学的同时更多的是传授我们做人的道理，谢谢四年里面你们孜孜不倦的教诲！感谢这篇论文所涉及到的各位学者。本文引用了数位学者的研究文献，如果没有各位学者的研究成果的帮助和启发，

37、我将很难完成本篇论文的写作。感谢我的同学和朋友，在我写论文的过程中给予我了很多素材，还在论文的撰写和排版等过程中提供热情的帮助。由于我的学术水平有限，所写论文难免有不足之处，恳请各位老师和学友批评和指正！ 参考文献1铁路货物装载加固规则铁运200661号2田原.VB.NET程序设计.北京交通大学出版社.2006年06月3国家示范性高等职业院校优质核心课程改革教材·计算机类.数据库程序设计电子科技大学出版社.第1版.2010年9月1日 附录1.软件程序主窗体.vbImports System.Data.OleDbPublic Class 主窗体 Public AccessConnect

38、ionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & My.Application.Info.DirectoryPath & "Data.mdb;" & _ "Persist Security Info=False" Private Sub 主窗体_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Ha

39、ndles MyBase.Load RichTextBox1.LoadFile(Application.StartupPath & "铁路货物装载加固规则.rtf") End Sub Private Sub 主窗体_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize GroupBox1.Left = (TabPage0.Width - GroupBox1.Width) / 2 GroupBox1.Top = (TabPage0.Height - GroupBox1

40、.Height) / 2 GroupBox2.Left = (TabPage1.Width - GroupBox2.Width) / 2 GroupBox2.Top = (TabPage1.Height - GroupBox2.Height) / 2 GroupBox3.Left = (TabPage2.Width - GroupBox3.Width) / 2 GroupBox3.Top = (TabPage2.Height - GroupBox3.Height) / 2 End Sub Private Sub TabControl1_SelectedIndexChanged(ByVal se

41、nder As Object, ByVal e As System.EventArgs) Handles TabControl1.SelectedIndexChanged GroupBox1.Left = (TabPage0.Width - GroupBox1.Width) / 2 GroupBox1.Top = (TabPage0.Height - GroupBox1.Height) / 2 GroupBox2.Left = (TabPage1.Width - GroupBox2.Width) / 2 GroupBox2.Top = (TabPage1.Height - GroupBox2.

42、Height) / 2 GroupBox3.Left = (TabPage2.Width - GroupBox3.Width) / 2 GroupBox3.Top = (TabPage2.Height - GroupBox3.Height) / 2 End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try Dim AccessString As String = "SELECT * FROM 高重心限速

43、WHERE (重车最低重心高度H<" & TextBox_h.Text & " AND 重车最高重心高度H>=" & TextBox_h.Text & ")" Dim AccessConn As New OleDb.OleDbConnection(AccessConnectionString) AccessConn.Open() Dim AccessAdapter As OleDbDataAdapter = New OleDbDataAdapter(AccessString, AccessConn)

44、AccessConn.Close() Dim TempDataSet As New DataSet AccessAdapter.Fill(TempDataSet) If TempDataSet.Tables(0).Rows.Count > 0 Then TextBox_qs.Text = TempDataSet.Tables(0).Rows(0).Item("区间限速") TextBox_cs.Text = TempDataSet.Tables(0).Rows(0).Item("通过侧向道岔限速") End If Catch AccessExcep

45、tion As Exception MsgBox(AccessException.Message) End Try End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox_qs.Clear() TextBox_cs.Clear() TextBox_h.Clear() End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal

46、 e As System.EventArgs) Handles Button4.Click Try Dim AccessString As String = "SELECT 容许载重量 FROM 超限与超长 WHERE (突出端长度下限<" & TextBox_l.Text & " AND 突出端长度上限>=" & TextBox_l.Text & ")" Dim AccessConn As New OleDb.OleDbConnection(AccessConnectionString)

47、AccessConn.Open() Dim AccessAdapter As OleDbDataAdapter = New OleDbDataAdapter(AccessString, AccessConn) AccessConn.Close() Dim TempDataSet As New DataSet AccessAdapter.Fill(TempDataSet) If TempDataSet.Tables(0).Rows.Count > 0 Then TextBox_t.Text = TempDataSet.Tables(0).Rows(0).Item("容许í

48、;载?重?量?") End If Catch AccessException As Exception MsgBox(AccessException.Message, , sender.text) End Try End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click TextBox_t.Clear() TextBox_l.Clear() End Sub Private Sub Button6_Click(By

49、Val sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click Try Dim AccessString As String = "SELECT 每垛木材使用支柱对数 FROM 竹子或木材 WHERE (每垛木材的下限长<" & TextBox_ml.Text & " AND 每垛木材的上限度>=" & TextBox_ml.Text & ")" Dim AccessConn As New Ole

50、Db.OleDbConnection(AccessConnectionString) AccessConn.Open() Dim AccessAdapter As OleDbDataAdapter = New OleDbDataAdapter(AccessString, AccessConn) AccessConn.Close() Dim TempDataSet As New DataSet AccessAdapter.Fill(TempDataSet) If TempDataSet.Tables(0).Rows.Count > 0 Then TextBox_ds.Text = Temp

51、DataSet.Tables(0).Rows(0).Item("每木材使用支柱对数") End If Catch AccessException As Exception MsgBox(AccessException.Message, , sender.text) End Try End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click TextBox_ds.Clear() TextBox_ml.Cle

52、ar() End SubEnd Class<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _Partial Class 主窗体 Inherits System.Windows.Forms.Form <System.Diagnostics.DebuggerNonUserCode()> _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNo

53、t Nothing Then components.Dispose() End If Finally MyBase.Dispose(disposing) End Try End Sub Private components As System.ComponentModel.IContainer <System.Diagnostics.DebuggerStepThrough()> _ Private Sub InitializeComponent() Me.TabPage3 = New System.Windows.Forms.TabPage() Me.RichTextBox1 = New System.Windows.Forms.RichTextBox()