// Profile lxrmyyhis
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.DBParm = "ConnectString='DSN=lxrmyyhis;UID=etrackhis;PWD=etrackhis',PBCatalogOwner='lxrmyyhis'"

connect; 打开数据库

CONNECT USING SQLCA;