C/S体系中设置工作站与服务器时钟同步

核心提示：5、创建用户自定义函数来完成设置工作站时间创建一个名为f_settime的自定义函数，脚本如下：systemtime s_systime //声明前面已定义结构类型的变量datetime nettimedeclare cur_time dynamic cursor for sqlsa; //声明动态游标prepare

5、创建用户自定义函数来完成设置工作站时间

创建一个名为f_settime的自定义函数，脚本如下：

systemtime s_systime //声明前面已定义结构类型的变量
datetime nettime
declare cur_time dynamic cursor for sqlsa; //声明动态游标
prepare sqlsa from "select getdate()";
open dynamic cur_time ;
fetch cur_time into :nettime; //通过数据库获取服务器时间
lose cur_time;
s_systime.wmonth=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=30
SetLocalTime(s_systime) //调用WIN32 API函数，设置工作站时间。

6、创建可执行应用程序

在PowerBar或PowerPanel中单击Project按钮打开Project Painter。Select Project对话框出现，单击New创建一个新的工程对象，输入可执行程序名（如：settime.exe），单击OK。然后单击build，即可创建可执行文件。

7、将可执行程序安装至各工作站

将生成的可执行程序（如：settime.exe）放入各工作站的Windows的启动菜单，即可在每次启动Windows时，工作站自动根据服务器时间校正本机时间。

三、结束语

上述方法是创建一个独立的可执行文件来实现工作站与服务器的时间同步；编程时，也可在应用程序的open事件或程序登录对应事件中调用上述f_settime函数，以实现工作站的时间与服务器同步。此方法已在开发医院信息管理系统中加以应用，取得了很好的效果。