新建 文本文档.txt

来自「powerbuilder开发的学籍管理系统.rar」· 文本 代码 · 共 27 行

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("连接数据库错误！","连接失败"+sqlca.sqlerrtext)
halt
else
close(parent)
w_main.visible=TRUE

sqlca.DBMS="ODBC"
Open(w_main)

Disconnect using SQLCA

open(w_login)

Close(Parent)