打开窗口文件
string net_ip
string pass_str
string parm_str
string database_str


net_ip = trim(profilestring("config.ini","ODBC","ServerName",""))
pass_str = trim(profilestring("config.ini","ODBC","PassWord",""))

if pass_str = "" then
    setnull(pass_str)
end if

parm_str = trim(profilestring("config.ini","ODBC","DBParm",""))
database_str = trim(profilestring("config.ini","ODBC","database",""))
sqlca.dbms = "MSS Microsoft SQL Server 2000"
sqlca.database = database_str
sqlca.autocommit = false
sqlca.servername = net_ip
sqlca.logid = "sa"
sqlca.logpass = pass_str
sqlca.dbparm = parm_str
connect using sqlca;

if sqlca.sqlcode <> 0 then
    messagebox("系统提示","不能连接数据库")
    disconnect using sqlca;
    return 0
else
    return 1
end if
config.ini文件

[odbc]
Database=jxwis
ServerName=218.87.237.77
PassWord=sa
DBParm=ConnectString='DSN=jxwis;UID=sa;PWD=sa',ConnectOption='SQL_DRIVER_CONNECT,SQL_DRIVER_COMPLETE_REQUIRED;SQL_INTEGRATED_SECURITY,SQL_IS_ON;SQL_PRESERVE_CURSORS,SQL_PC_ON',CallEscape='No'