pb推薦學(xué)習(xí)全集個絕對實(shí)用技巧在

1、在C/S體系結(jié)構(gòu)中設(shè)置工作站與服務(wù)器的時鐘同步（深圳：獨(dú)孤求敗2003-05-16）摘要：在實(shí)際應(yīng)用中，經(jīng)常要求客戶機(jī)/服務(wù)器體系結(jié)構(gòu)中各工作站的時鐘與服務(wù)器的時鐘保持同步；本文基于SYBASE數(shù)據(jù)庫、Powerbuilder開發(fā)工具說明了一種解決方法。關(guān)鍵詞：時鐘同步PowerbuilderWin32API函數(shù)一、前言PowerBuilder通過數(shù)據(jù)窗口對象，可方便、直接地對數(shù)據(jù)庫進(jìn)行操作，故已成為當(dāng)前開發(fā)Client/Server模式應(yīng)用的首選開發(fā)工具。在開發(fā)醫(yī)院信息管理系統(tǒng)時，我們采用了PowerBuilder作為前臺開發(fā)工具，Sybase作為后臺數(shù)據(jù)庫。醫(yī)院信息管理系統(tǒng)中，有很多模塊都

2、要求工作站的時間與服務(wù)器保持同步，如：門診收費(fèi)系統(tǒng)要求能均勻地向各司藥窗口分派處方、住院藥房擺藥要根據(jù)病房發(fā)送醫(yī)囑的時間順序進(jìn)行等。為解決此問題，我們編寫了相應(yīng)的程序，主要思路是：采用動態(tài)游標(biāo)獲取服務(wù)器時間，WIN32的API函數(shù)設(shè)置本機(jī)時間，具體實(shí)現(xiàn)方法如下：二、實(shí)現(xiàn)方法：1、連接數(shù)據(jù)庫PowerBuilder支持多種數(shù)據(jù)庫管理系統(tǒng)（DBMS），如Sybase、Oracle、Informix、MicrosoftSQLServer等；根據(jù)不同的數(shù)據(jù)庫類型，采用專用接口或ODBC連接數(shù)據(jù)庫，建立接口配置文件(DBProfile)。2、創(chuàng)建應(yīng)用對象，在應(yīng)用對象事件中編寫腳本1、應(yīng)用對象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()/調(diào)用自定義函數(shù)完成設(shè)置本地工作站時間2、應(yīng)用對象Close事件中的腳本如下：DISCONNECTUsingSQLCA;3、定義WIN32的API函數(shù)為外部函數(shù)在Script畫

5、筆工作區(qū)中,選擇DeclareGlobalExternalFunctions.，定義WIN32的API函數(shù)為外部函數(shù)，定義如下：FUNCTIONLONGSetLocalTime(refsystemtimesystimeptr)LIBRARYKernel32.dll4、定義存取時間參數(shù)的結(jié)構(gòu)單擊PainterBar或PowerPanel中的StructurePainter按鈕，定義一個名為：systemtime的結(jié)構(gòu),組成結(jié)構(gòu)的變量與對應(yīng)的數(shù)據(jù)類型如下：integerwyearintegerwmonthintegerwdayofweekintegerwdayintegerwhourinteger

6、wminuteintegerwsecondintegerwmillisecond5、創(chuàng)建用戶自定義函數(shù)來完成設(shè)置工作站時間創(chuàng)建一個名為f_settime的自定義函數(shù)，腳本如下：systemtimes_systime/聲明前面已定義結(jié)構(gòu)類型的變量datetimenettimedeclarecur_timedynamiccursorforsqlsa;/聲明動態(tài)游標(biāo)preparesqlsafromselectgetdate();opendynamiccur_time;fetchcur_timeinto:nettime;/通過數(shù)據(jù)庫獲取服務(wù)器時間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)/調(diào)用WIN32API函數(shù)，設(shè)置工作站時間。6、創(chuàng)建可執(zhí)行應(yīng)用程序在PowerBar或PowerPanel中單擊Project按鈕打開ProjectPainter。SelectProject對話框出現(xiàn)，單擊New創(chuàng)建一個新的工程對象，輸入可執(zhí)行程序名（如：settime.exe），單擊OK。然后單擊build，即可創(chuàng)建可執(zhí)行文件。7、將可執(zhí)行程序安裝至各工作站將生成的可執(zhí)行程序（如：settime.exe）放入各工作站的Windows的啟動菜單，即可在每次啟動Windows時，工作站自動根據(jù)服務(wù)器時間校正本機(jī)時間。三、結(jié)束語上述