//在程序的工作目录下建立 system.INI 文件
[start]
first=1
// 在open事件下写
integer OLEDB_init
String ls_path,ls_path_sub
ls_path='HKEY_CURRENT_USER/Software/Sybase/PowerBuilder/10.5/DatabaseProfiles/PowerBuilderl'
ls_path_sub='HKEY_CURRENT_USER/Software/Sybase/PowerBuilder/10.5/DatabaseProfiles/PowerBuilder/his_zg'
OLEDB_init = profileint("system.INI","start","first",1)
If OLEDB_init = 1 Then
registryset(ls_path,"his_zg",regstring!,"")
registryset(ls_path_sub,"AutoCommit",regstring!,"FALSE")
registryset(ls_path_sub,"DatabasePassword",regstring!,"00")
registryset(ls_path_sub,"DBMS",regstring!,"OLE DB")
registryset(ls_path_sub,"DBParm",regstring!,"PROVIDER='SQLOLEDB',DATASOURCE='ZHIDASOF-SERVER',PROVIDERSTRING='database=his_zg'")
registryset(ls_path_sub,"LogId",regstring!,"sa")
registryset(ls_path_sub,"LogPassword",regstring!,"0013")
registryset(ls_path_sub,"Prompt",regstring!,"FALSE")
setprofilestring("system.INI","start","first","0")
End IF