📄 新建 文本文档.txt
字号:
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)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -