pb推荐学习全集个绝对实用技巧在

1、在C/S体系结构中设置工作站与服务器的时钟同步（深圳：独孤求败2003-05-16）摘要：在实际应用中，经常要求客户机/服务器体系结构中各工作站的时钟与服务器的时钟保持同步；本文基于SYBASE数据库、Powerbuilder开发工具说明了一种解决方法。关键词：时钟同步PowerbuilderWin32API函数一、前言PowerBuilder通过数据窗口对象，可方便、直接地对数据库进行操作，故已成为当前开发Client/Server模式应用的首选开发工具。在开发医院信息管理系统时，我们采用了PowerBuilder作为前台开发工具，Sybase作为后台数据库。医院信息管理系统中，有很多模块都

2、要求工作站的时间与服务器保持同步，如：门诊收费系统要求能均匀地向各司药窗口分派处方、住院药房摆药要根据病房发送医嘱的时间顺序进行等。为解决此问题，我们编写了相应的程序，主要思路是：采用动态游标获取服务器时间，WIN32的API函数设置本机时间，具体实现方法如下：二、实现方法：1、连接数据库PowerBuilder支持多种数据库管理系统（DBMS），如Sybase、Oracle、Informix、MicrosoftSQLServer等；根据不同的数据库类型，采用专用接口或ODBC连接数据库，建立接口配置文件(DBProfile)。2、创建应用对象，在应用对象事件中编写脚本1、应用对象open事件

3、的脚本如下：startupfile=settime.inisqlca.DBMS=ProfileString(startupfile,database,dbms,)sqlca.database=ProfileString(startupfile,database,database,)sqlca.userid=ProfileString(startupfile,database,userid,)sqlca.dbpass=ProfileString(startupfile,database,dbpass,)sqlca.logid=ProfileString(startupfile,database,

4、logid,)sqlca.logpass=ProfileString(startupfile,database,LogPassWord,)sqlca.servername=ProfileString(startupfile,database,ervername,)sqlca.dbparm=ProfileString(startupfile,database,dbparm,)connect;f_setlocaltime()/调用自定义函数完成设置本地工作站时间2、应用对象Close事件中的脚本如下：DISCONNECTUsingSQLCA;3、定义WIN32的API函数为外部函数在Script画

5、笔工作区中,选择DeclareGlobalExternalFunctions.，定义WIN32的API函数为外部函数，定义如下：FUNCTIONLONGSetLocalTime(refsystemtimesystimeptr)LIBRARYKernel32.dll4、定义存取时间参数的结构单击PainterBar或PowerPanel中的StructurePainter按钮，定义一个名为：systemtime的结构,组成结构的变量与对应的数据类型如下：integerwyearintegerwmonthintegerwdayofweekintegerwdayintegerwhourinteger

6、wminuteintegerwsecondintegerwmillisecond5、创建用户自定义函数来完成设置工作站时间创建一个名为f_settime的自定义函数，脚本如下：systemtimes_systime/声明前面已定义结构类型的变量datetimenettimedeclarecur_timedynamiccursorforsqlsa;/声明动态游标preparesqlsafromselectgetdate();opendynamiccur_time;fetchcur_timeinto:nettime;/通过数据库获取服务器时间closecur_time;s_systime.wmon

7、th=month(date(nettime)s_systime.wday=day(date(nettime)s_systime.wyear=year(date(nettime)s_systime.whour=hour(time(nettime)s_systime.wminute=minute(time(nettime)s_systime.wsecond=second(time(nettime)s_systime.wmillisecond=30SetLocalTime(s_systime)/调用WIN32API函数，设置工作站时间。6、创建可执行应用程序在PowerBar或PowerPanel中单击Project按钮打开ProjectPainter。SelectProject对话框出现，单击New创建一个新的工程对象，输入可执行程序名（如：settime.exe），单击OK。然后单击build，即可创建可执行文件。7、将可执行程序安装至各工作站将生成的可执行程序（如：settime.exe）放入各工作站的Windows的启动菜单，即可在每次启动Windows时，工作站自动根据服务器时间校正本机时间。三、结束语上述