人工设置:
SQLCA.DBMS="ODBC"
SQLCA.Database="hospital"
SQLCA.LogID="sa"
SQLCA.LogPass="system"
SQLCA.ServerName="HOSSERVER"
SQLCA.AutoCommit=False
然后保存在你的工程下,保存格式为xhhis.INI
然后在程序里面读取INI文件信息
profilestring()语法规则如下
profilestring(file,section,key,default)
eg:SQLCA.DBMS=profilestring("xhhis.ini","Database",DBMS,"")
SQLCA.Database=profilestring("xhhis.ini","Database",Database,"")
SQLCA.LogID=pro filestring("xhhis.ini","Database",LogID,"")
SQLCA.LogPass=profilestring("xhhis.ini","Database",LogPass,"")
等等把所有的信息全部读取出来,然后进行数据库的连接,这样做的好处在于,把项目发布以后,如果把程序装在不周的机子上,只要修改INI文件就可以运行程序,而不发改动程序。