如何使用.ini文件？？？？？？？

[lwbmail]

编程虫想问各位高手：
　　　在pb里，动态连接数据库时，如何写ini文件，并且怎样用函数调用

[klbt]

用SQLServer举例：

[Database]
DBMS = MSS Microsoft SQL Server 2000
ServerName = XXXXXX
Database = XXX
DbParm = ""
UserId =
DatabasePassword =
LogId = sa
LogPassword =
Lock =
Prompt = 0

[klbt]

调用方法：
as_inifile = "a.ini"

SQLCA.DBMS = ProfileString(as_inifile, "Database", "DBMS", " ")
SQLCA.Database = ProfileString(as_inifile, "Database", "DataBase", " ")
SQLCA.LogID = ProfileString(as_inifile, "Database", "LogID", " ")
SQLCA.LogPass = ProfileString(as_inifile, "Database", "LogPassword", " ")
SQLCA.ServerName = ProfileString(as_inifile, "Database", "ServerName", " ")
SQLCA.UserID = ProfileString(as_inifile, "Database", "UserID", " ")
SQLCA.DBPass = ProfileString(as_inifile, "Database", "DatabasePassword", " ")
SQLCA.Lock = ProfileString(as_inifile, "Database", "Lock", " ")
SQLCA.DbParm = ProfileString(as_inifile, "Database", "DbParm", " ")

Connect Using Sqlca;