使工作站与服务器的时钟同步

使工作站与服务器的时钟同步

温州医学院附属第二医院

黄戈靖

---- 在以WINDOWS NT SERVER 4.0为网络操作系统构筑的局域网环境中，服务器与工作站之间的时钟同步，并不象NOVELL环境下工作站与服务器能自动实现，这就给对两端时钟同步有要求的应用程序造成很大的麻烦。因此笔者在开发医院管理系统中编写了个小程序，让应用程序在运行时自动实现工作站与服务器的时钟同步，所用的开发环境为：WINDOWS NT SERVER 4.0，MS SQL SERVER 6.5，POWERBUILDER 6.5。

---- 主要思路如下：

在MS SQL SERVER中编写一个存储过程，用来获取服务器的系统时钟。

在前台的PB环境编写一个函数，其中调用该存储过程，并调用WIN32 API函数来改变本地工作站的时钟。

在应用程序的登录部分调用该函数，以达到时钟同步之目的。

---- 有关的程序段如下：

---- 1、存储过程如下：

CREATE PROCEDURE gp_sql @sql varchar(255)

AS

execute (@sql)

GO

GRANT EXECUTE ON dbo.gp_sql TO public

GO

---- 2、先定义外部函数，一般可在大多数对象的Script画笔工作区中用Declare>Global Exter FUNCTION LONG SetLocalTime

(ref systemtime systimeptr)

LIBRARY "Kernel32.dll"

然后定义结构systemtime

integer wmonth,integer

wday,integer wyear,integer whour,

integer wminute,integer wsecond

函数（f_localtime_instep）定义如下：

systemtime s_systime

datetime ld_localtime

string ll_day,ll_date,ll_time

integer mm,dd,yy,hh,mi,ss

string sql_p

sql_p="select getdate()"

DECLARE lp_sql PROCEDURE FOR gp_sql

@sql = :sql_p ;

EXECUTE lp_sql;

FETCH lp_sql INTO :ld_localtime;

CLOSE lp_sql;

mm=month(date(ld_localtime))

dd=day(date(ld_localtime))

yy=year(date(ld_localtime))

hh=hour(time(ld_localtime))

mi=minute(time(ld_localtime))

ss=second(time(ld_localtime))

s_systime.wmonth=mm

s_systime.wday=dd

s_systime.wyear=yy

s_systime.whour=hh

s_systime.wminute=mi

s_systime.wsecond=ss

setlocaltime(s_systime)

---- 3、在应用登录部分调用函数即可。

---- 由此，笔者认为在PB应用程序适当调用WIN32 API函数，可获得事半功倍的效果。注：上面文章来自计算机日报，也可以直接在Autoexec.bat中运行NET TIME \\SERVERNAME /SET来同步时间，需要注意的是除在程序中和服务器时间同步以外，应该在任何有需要保存日期的地方使用select getdate()的方法取得服务器时间，而不是依靠today(), now()等等函数。