添加的主要控件有:SSTab控件:命令按钮控件(CommandButton)、文本框控件(TextBox)、选择钮控件(OptionButton)、状态条控件(StatusBar)、定时器控件(Timer)、串行通信控件(Mscomm)、网络传输控件(Internet Transfer)。
传输过程窗体较简单,只有1个文本控件来显示提示,还有1个用来中断本次传输过程的按钮。
2、程序中主要控件的使用
(1)定时器的应用
每个定时器都**依附在窗体上,但是它在运行时是不可见的。定时器较主要的二个属性是Enabled和Interval。在“远程文件传输程序”中,由于要完成“自动文件传输”的功能,总共用了6个定时器。它们在程序中的作用如下:
定时器StandardTimer被设置成1个标准的计时器,Interval属性设置为60000ms,即标准的1min。由于定时器的时间间隔较多为65535ms,而程序中文件的累加、自动拨号、自动登录传送等功能均在分钟级以上,所以在StandardTimer的Timer事件中再设置1个分钟计数器——全局变量Minutes。每次StandardTimer产生Timer事件时,处理Minutes自加,并根据要求启动文件的累加、自动拨号、自动登录传送等定时开始的工作。
(2)Mscomm控件
Mscomm控件提供了一系列标准通信命令的使用界面。使用它可以建立与串行端口的连接,通过串行端口连接到其它通信设备(例如调制解调器),发出命令,交换数据,并监视和响应串行连接中发生的事件和错误。利用Mscomm控件控制调制解调器拨号连接上位机进行通信。
正确地设置属性之后,编写OnComm事件的处理代码是至关重要的。CommEvent属性返回较近发生的通信事件和错误的代码值。依据不同的CommEvent属性值进行不同的处理。主要的处理如下:
当发生错误时,无论是手动还是自动传送状态,都要进行以下几步操作:①显示错误信息;②断开Internet控件的FTP连接(Intel.Close);③向端口输出挂线命令“ATH0”(Mscomm1.OutPut=“ATH0”);④设PortOpen属性为False,关闭端口(Mscomm1.PortOpen=“False”);⑤等待下一次的拨号。
当自动拨号成功连接时(在接收的字符中检测到连接成功的回报码),启动自动传送定时器AutoSendTimer,准备建立网络的FTP连接。
(3)Internet Transfer控件
Internet Transfer控件支持超文本传输协议(HTTP)和文件传输协议(FTP),它们是Internet网上使用二种协议。使用HTTP协议,可以连接信息网(World Wide Web)服务器,以检索HTML文档。使用FTP协议可以在FTP服务器上登录,以下载和加载文件。在此,利用文件传输协议FTP 来上载文件,并完成以下几方面的工作:①设置控件的属性;②在程序中用Execute方法来执行对远程服务器的请求;③在StateChanged事件中,处理连接中的状态和错误,当返回值为12时,说明文件上载成功,在自动和手动传送二种不同情况下,各自进行不同的处理,也存在相同的任务,如删除下位机上用于传送的旧文件,准备累加新的数据文件;关闭FTP文件服务的连接和串行接口。
3、远程文件传输软件的主要功能
(1)该软件在Windows95下,与系统软件同时运行,定时自动拨号连接和自动传送文件。
(2)可进行自动和手动二种方式的文件传输。在数据文件的传送过程中,从主窗体上可显示状态信息;
(3)单击主窗体的“端口设置”按钮会弹出“属性”窗体,用户可以对串行端口的参数进行设置;
(4)可按用户的要求定时进行数据文件的累加和传送;
(5)主窗体上,用户可以对如下内容进行输入设置,即:①自动和手动的选择;②服务器IP地址;③被传送的文件路径;④传送时间间隔(用1个全局变量来保存)
(6)对上述用户的设置(包括对串行端口的设置),每当用户重新设置时,程序都用注册表操作函数SaveSetting将它们保存在Windows操作系统的注册表中。在下一次使用应用程序时,主窗体载入引发的Form_load事件中,用注册表操作函数GetSetting将存储的值取回,恢复用户上次结束应用程序前的设置值。
四、Delphi数据库应用程序的设计
利用Delphi的客户/服务器功能,可以在本地数据库上或远程数据库服务器上开发客户/服务器模式的应用程序。Delphi的一个强有力的功能是可以将基于本地桌面数据库系统的应用程序很容易地成客户/服务器模式的应用。1个Delphi数据库应用程序访问的是本地数据库还是远程SQL数据库服务器上的数据库,这对于较终用户是*透明的,即数据库的物理位置对较终用户是透明的。当数据库的物理位置发生变化时,用户界面不必随之变化。
1、远程数据库的程序设计
程序要求建立服务器端数据库,自动输入现场上传的数据,实现数据的处理、保存、修改及查询功能。程序调用Delphi4.0中的可视组件,并使用Object Pascal编写程序代码。
程序分为3个模块:程序主窗体、数据的自动插入及文件删除和数据查询。主窗体(mainform)起到枢纽的作用,既可以观察数据库的状态,又可以调用另2个模块。数据的自动输入及文件删除模块(form3)为较主要的模块,它实现了文本文件的自动打开和输入、多组数据的输入、文本文件的删除和数据库的编辑与储存。查询模块(Form1)提供了查询功能,在编辑框内输入格式的日期就可以显示该时间所存储的数据
读入文本文件中的数据及旧文件的删除
为了实现对文本文件中数据的读入功能,使用Dialogs标签页中的TOpendialog组件,并设置它的默认目录为C:\bishe。同时,在窗体中放上2个TMemo组件和几个TSpeedButton组件,把TMemo的属性“lines”设置为空。
(1)数据的插入、修改及删除
在窗体上放上TDBNavigator及19个TDBEdit控件,并设置TDBNavigator和TDBEidt的Datasource属性为MainForm.Datasourcel,设置TDBEidt的DataField属性为相应的字段名。其功能实现
(2)查询功能的实现
由于数据库预设的主键为“时间”,所以,通过输入对比主键(时间)的值,联合使用Findkey和Gotonearest方法,可以实现查询功能。程序运行过程
(3)程序的扩充修改
首先,在Delphi的Object Inspector中打开Bishe工程。修改所有Database Name、Table Name属性为空,且Active属性为false。然后,打开Database Desktop,打开名为Bishe的表格。使用Restructure修改表格,添加字段名、数据类型、数据长度。存储后退出。
在Form1和Form3中添加相应数目的TDBEidt,并仿照原来的属性修改,同时,修改所有Database Name的属性为DefaultDD,Table Name属性为Bishe,且Active属性为true。在Form3的原代码中添入代码:DBEidti.text=Memol.lines[1];
五、结束语
在工业生产过程中,对于生产现场与管理层之间相距较远的情况,远程数据传送技术的应用具有十分重要的意义。本文对上、下位机进行相应参数的设定并配置调制解调器,利用电话线构成计算机远程自动拨号网络。采用VB语言编制传输软件,实现了远程数据传送。上位机采用DELPHI4.0语言编程,数据库采用PARADOX格式,具有可修改、可扩充功能。该软件实现了文本文件中的多组数据自动读入、数据格式化、数据自动写入数据库的功能,并可对数据库中的数据自动查询以及对旧文本文件进行删除。由于考虑到现场的实际应用情况,该软件具有较高的可靠性和坚固性。本文将其应用在油田联合站计算机监控系统中,将现场生产过程的检测数据及时地上报管理层,使厂部**迅速掌握生产情况并进行合理的决策,为实现油田生产自动化管理做了必要的准备。
- 西门子CPU模块一级代理6ES7231-7PB22-0XA8 2023-09-19
- 西门子CPU模块一级代理6ES7231-0HC22-0XA8 2023-09-19
- 西门子CPU模块一级代理6ES7223-1PM22-0XA8 2023-09-19
- 西门子CPU模块一级代理6ES7223-1BM22-0XA8 2023-09-19
- 西门子CPU模块一级代理6ES7223-1PL22-0XA8 2023-09-19
- 西门子CPU模块一级代理6ES7223-1BL22-0XA8 2023-09-19
- 西门子CPU模块一级代理6ES7223-1PH22-0XA8 2023-09-19
- 西门子CPU模块一级代理6ES7223-1BH22-0XA8 2023-09-19
- 西门子CPU模块一级代理6ES7223-1HF22-0XA8 2023-09-19
- 西门子CPU模块一级代理6ES7223-1BF22-0XA8 2023-09-19