string ls_database
userid=trim(userid)
password=trim(password)
if password="" then return -1
ls_database="ConnectString='DSN=mydb;"
sqlca.dbparm=ls_database+"UID="+userid+";PWD="+password+""
connect using sqlca;
return sqlca.SQLCode

halt

setPointer(hourglass!)
if parent.wf_connect(sle_userid.text,sle_password.text)=-1 then
messageBox("連接數(shù)據(jù)庫錯誤！","連接失敗"+sqlca.sqlerrtext)
halt
else
close(parent)
w_main.visible=TRUE

sqlca.DBMS="ODBC"
Open(w_main)

Disconnect using SQLCA

open(w_login)

Close(Parent)