//////////////////////////////////////////////////////
Ulong ul_num
Int answer,answer1,answer2,answer3,answer4,answer5,answer6,answer7
String ls_driver,db_path,dqml
dqml=GetCurrentDirectory ( )
//取得数据库驱动程序的路径
answer=RegistryGet("HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI\Microsoft Access Driver (*.mdb)","driver",RegString!,ls_driver)
IF answer=-1 THEN
Messagebox("错误","应用程序无法获取Windows的系统目录，系统统将终止运行！",Stopsign!)
RETURN
END IF
//添加gw数据源
answer=RegistrySet('HKEY_current_user\Software\ODBC\ODBC.INI\ODBC Data Sources','dlcl',RegString!,'Microsoft Access Driver (*.mdb)')
IF answer=-1 THEN
Messagebox('错误','应用程序无法设置ODBC DATA SOURCE名称，系统将终止运行',StopSign!)
RETURN
END IF
db_path=dqml+'\data\xmgl.mdb'
//设置ODBC.INI的细节
answer1=RegistrySet("HKEY_current_user\Software\ODBC\odbc.ini\khgl","driver",RegString!,ls_driver)
answer2=RegistrySet("HKEY_current_user\Software\ODBC\odbc.ini\khgl","dbq",RegString!,db_path)
answer3=RegistrySet("HKEY_current_user\Software\ODBC\odbc.ini\khgl","fil",RegString!,'ms access')
        RegistrySet("HKEY_current_user\Software\ODBC\odbc.ini\khgl","uid",RegString!,'')
        Registryset("HKEY_current_user\Software\ODBC\odbc.ini\khgl","driverid",RegULong!, 25)
        Registryset("HKEY_current_user\Software\ODBC\odbc.ini\khgl","safetransactions",RegULong!, 0)
//设置ODBC.INI\engines子健的细节
answer4=RegistrySet('HKEY_current_user\Software\ODBC\ODBC.INI\khgl','engines',RegString!,'')
answer5=RegistrySet('HKEY_current_user\Software\ODBC\ODBC.INI\khgl\engines\jet','implicitcommitsync',RegString!,'')
        RegistrySet('HKEY_current_user\Software\ODBC\ODBC.INI\khgl\engines\jet','usercommitsync',RegString!,'yes')
        RegistrySet('HKEY_current_user\Software\ODBC\ODBC.INI\khgl\engines\jet','maxbuffersize',regulong!,2048)
    RegistrySet('HKEY_current_user\Software\ODBC\ODBC.INI\khgl\engines\jet','pagetimeout',regulong!,5)
        RegistrySet('HKEY_current_user\Software\ODBC\ODBC.INI\khgl\engines\jet','threads',regulong!,3)
IF answer1=-1 or answer4=-1 or answer5=-1 THEN
Messagebox('错误','应用程序无法设置odbc.ini，系统将终止运行',StopSign!)
RETURN
END IF
//连接数据源
sqlca.dbms='ODBC'
SQLCA.AutoCommit = False
sqlca.dbparm="connectstring='dsn=khgl'"
connect using sqlca;
if sqlca.sqlcode <> 0 then
    MessageBox ("错误信息","数据连接失败!!~r1.检查网络是否连接~r2.请网管员来处理")
    HALT CLOSE
    return
else
open(w_login)
end if
//Open(w_wintest)