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

使工作站与服务器的时钟同步 温州医学院附属第二医院 黄戈靖 在以 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() 等等函数。