用VB.NET实现基于B/S模式的检斤内网开发和应用

王　超，李军生，张守华

日照港集团股份二公司，山东日照　276826

用VB.NET实现基于B/S模式的检斤内网开发和应用

王超，李军生，张守华

日照港集团股份二公司，山东日照276826

基于B/S模式的检斤内网Web服务器主要服务于检斤队，通过相应的权限层级控制，实现了维修方、队管理人员、检斤员对内网资料的查询访问、上传下载、自主学习，为各级用户查询实时检斤数据提供了灵活实用的平台，安全性好、维护简单、使用方便、查询速度快，检斤大数据的分析也为汽车衡校验、维保提供了技术支持。

B/S模式；检斤内网；WEB服务器；检斤数据

近年来，我公司始终秉承“科技引领发展、创新成就未来”的科技理念，充分发挥广大科技技术人员的聪明才智，通过各部门的协作创新，运用科技手段解决了公司生产、经营和管理中的一系列难题。从12年开始，公司自主创新研发的V3智能检斤系统已在我队全部磅房推广使用，实现了流程再造、全面协同作业、作业票信息化，具备数据稳定、传输率高、实时统计存储、多策略控制等特点。

伴随公司信息化建设的不断推进，队内部现行的汽车衡及辅助设备相关资料、单证使用多手工填写提报，易丢失，后期追溯查询也不方便；同时汽车衡维保多采用计划检修和事后维修的方法，管理滞后；队内各时间段、各班次检斤信息亟待整合、加工、对比分析，供港区各磅房统一共享查阅。

基于各磅房网络互联互通、V3智能检斤系统提供的检斤局域网的稳定性，检斤队利用VB.NET着手搭建队内网站，旨在搭建起实时、便捷、高效、动态的信息交流管理平台。

1　基于B/S结构的数据库访问模式

1.1B/S三层结构

B/S模式是是对传统C/S结构的一种改进，它把软件应用的业务逻辑全部移植到了服务器端。以访问Web数据库为中心，HTTP为传输协议，员工端通过浏览器（Browser）访问Web服务器和与其逻辑相连的后台数据库，是真正的三层结构。

第一层是数据层。负责管理数据库，主要完成中间层提交的查询、删除、更新和存储等功能。

第二层Web服务器是功能层，即接受员工请求，并与后台数据库连接，进行申请处理，然后将处理结果返回Web服务器，再传至员工端。中间层是Web应用中最重要的一层，负责处理复杂的应用研究逻辑、数据分析等各种与用户界面及数据存储无关的工作，是用户层的数据服务的逻辑桥梁。WebServer可以利用Asp.net或Java技术来生成基于数据信息的HTML文件。

第三层是员工端即浏览器，一般借助Asp.net、JavaScript、Active等显示用户界面和应用服务的运行结果，可向中间层发送服务请求。主要完成员工和后台的交互及最终结果输出功能。

B/S架构服务器无论是使用还是数据库维护都比传统模式更加经济方便，而且使维护任务层次化——信息管理员负责服务器硬件日常管理和维护，程序开发人员负责后台数据库数据更新维护，员工不需要进行维护。

1.2B/S模式应用到检斤内网WEB服务器的设计

检斤内网后台数据库设在队部数据监控室，在本地服务器上安装IIS信息服务，并搭建运行环境。因全队作业电脑有36台，处在同一局域网内，故采用静态IP（路由器上采用IP与MAC绑定）方式，使员工端和服务器能有较好的交互性。

检斤队内部网站设有会员专区及会员信箱、非会员区，会员区由外修方、队管理人员、检斤员自己注册账号与密码登陆网站，在作业过程中实现信息共享的同时，也确保了操作人员身份的准确。网站在绩效考核管理、创新平台管理、设备技术管理、生产实时管理、计量单管理、培训管理等6个方面进行了改革创新。访问权限密码采用MD5多次加密算法，不易破解。防火墙技术可以保证后台数据库的安全性，结合Windows XP与IIS的高度安全性，系统安全可以较好地得到保障。

2　系统结构的开发

2.1开发工具的选择

使用.NET技术进行开发，在开发过程中操作系统采用Windows XP，采用基于.NET框架（Framework）的开发平台，其前端开发工具选用VisualStudio.NET2005集成开发环境，结合VB.NET和ADO.NET技术进行开发。

2.2登陆权限管理

针对单证异常处理、绩效考核、维修派工等模块，需要根据工作岗位不同分配不同权限。

strSql=”select 登录权限 from用户管理where ［姓名］=’” + Label1.Text +“’”

cm=New OleDb.OleDbCommand（strSql，cn）

dt=cm.ExecuteScalar（）

cn.Close（）

If dt=”技术员” Or dt =“统计” Or dt =“中控主管” Then

Else

ClientScript.RegisterStartupScript（Client Script.GetType（），”myscript”，””）

2.3网站管理

检斤内部网站资料系统的数据库为Access2000数据库。其在数据库管理功能、完整性检查、安全性、一致性方面都有良好的表现。网站信息上传、删除、编辑等操作代码如下：

网页整理：

Handles GridView1.SelectedIndexChanged

del_id=GridView1.SelectedRow.Cells（3）.Text

End Sub

网页上传：

strSql=”select 目录编号 from 站点结构 where［网站目录］=’” & DropDownList1.Text &“’”

Try

cn.Open（）

Catch ex As Exception

Response.Write（“数据连接错误！”）

End Try

cm=New OleDb.OleDbCommand（strSql， cn）

Bh=cm.ExecuteScalar（）

cn.Close（）

Bh1=System.Text.RegularExpressions.Regex. Replace（Bh，“［B］［1-6］”，“”）

Save_Path1=”~/admin/main_aspx/” & Bh1 & “/”& Bh &“/”

Save_Path=Server.MapPath（“~/admin/main_ aspx/” & Bh1 &“/” & Bh &“/”）

Label4.Text=”要上传的网页将保存在：~/admin/ main_aspx/” & Bh1 &“/” & Bh &“目录”

ClientScript.RegisterStartupScript（Client Script.GetType（），”myscript”， “”）

2.4SQL结构化数据的存储及查询

单班作业汇总是将每班次汽车衡运行状况、人员出勤、设备运行及其他明细由当班中控主管核准并录入系统，是检斤内网最核心最关键的信息。数据录入部分代码如下：

If TextBox1.Text=”” And TextBox2.Text=”” And TextBox4.Text=”” Then

ClientScript.RegisterStartupScript（Client Script.GetType（）， “myscript”， “”）

ElseIf TextBox1.Text=”” Or TextBox2.Text=””Or TextBox4.Text=”” Then

ClientScript.RegisterStartupScript（Client Script.GetType（），”myscript”，””）

Else

jy1=”select 作业日期 from 中控交班 where ID=（select max（ID） from 中控交班）“

jy2=”select 昼夜 from 中控交班 where ID=（select max（ID） from 中控交班）“

jy4=”select count（*） from 中控交班 where ID=（select max（ID） from 中控交班）”

strSql = “insert into 中控交班 （班次，填表时间，作业日期，昼夜，接班问题，本班问题，交班事项，填表人） values （‘” & DropClass.Text & “’，’” & Session（“mydate11”） & “’，’” & Session（“MyDate”） &“’，’” & DropDorN.Text & “’，’”& TextBox1.Text &“’，’” & TextBox2.Text &“’，’”& TextBox4.Text &“’，’” & DropName.Text &“’）”

根据需要，对检斤单班资料查询主要是日期及班次的查询，查询方法采用SQL结构化语句。以查询某个时间的某个班次的检斤作业数据为例，SQL查询语句为：

strSql=”select 填表人 from 中控生产 where ID=（select max（ID） from 中控生产）“；

strSql1=”select 班次 from 中控生产 where ID=（select max（ID） from 中控生产）“；

strSql2=”select 昼夜 from 中控生产 where ID=（select max（ID） from 中控生产）“；

strSql3=”select 作业日期 from 中控生产where ID=（select max（ID） from 中控生产）“。

检斤生产作业量查询是选取相应时间段进行检斤量查询，其SQL语句可以这样写：

strSql=”select 作业日期，昼夜，汽运吨数from 中控生产 where ［作业日期］ between #” & date_1 &“# and #” & Now.Date &“#”。

3　结论

基于VB.NET的检斤内网Web服务器的建立，将我队分布在港区各处的磅房、检斤中控室、检斤队队部联系起来，纵向将疏港检斤工作的日日夜夜联系起来。

随着系统运行及使用的深入，内部网站实时性、动态性、直观性、便捷性的优势凸显，不仅为检斤员日常绩效考核、技能培训提供了信息交互平台，更是在为汽车衡校验、日常维保、故障预诊断提供了数据和技术支持。

［1］盛宇，刘俊熙，龙怡，等.使用VisualBasic.NET创建Web应用程序［J］.现代情报，2010（30）：159-161.

［2］张文增，赵冬斌，孙振国，等.ASP.NET——动态网页开发趋势［J］.计算机工程，2002（28）：7-9.

［3］殷开成.基于.NET平台电力设备管理系统的研究［D］.南京：南京航天航空大学，2009.

TP3

A

1674-6708（2016）166-0109-02

王超，日照港集团股份二公司。李军生，日照港集团股份二公司。张守华，日照港集团股份二公司。