这样写就ok了。
// Profile HXHWB
SQLCA.LogId = sle_1.text
SQLCA.LogPass =sle_2.text
SQLCA.DBMS = "O84 Oracle8/8i (8.x.4+)"
//SQLCA.LogPass = <*****>
SQLCA.ServerName = "233_nanning"
//SQLCA.LogId = "HXHWB"
SQLCA.AutoCommit = False
SQLCA.DBParm = "PBCatalogOwner='HXHWB'"
CONNECT USING SQLCA;
IF SQLCA.SQLCODE=0 THEN
OPEN(W_MAIN)
CLOSE(W_LOGIN)
ELSE
MESSAGEBOX("警告","输入的口令有误")
END IF






2007-5-12 07:55 