PB

连接数据库

SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.DBParm = "ConnectString='DSN=yzdel;UID=;PWD=<******>'"

sqlca是系统默认的全局变量，是transcation类型的object

尝试连接数据库

connect using sqlca;

if sqlca.sqlcode <> 0 then
messagebox('','连接数据库失败')

end if

尝试插入数据

select 密码,账户ID
into :ls_pwd,:currentid
from 账户
where 账号=:currentname;
if sqlca.sqlcode =100 then
messagebox('','账号错误',Exclamation!)
return
else  
if ls_pwd <> sle_2.text then
messagebox('','密码错误'+ ls_pwd,Exclamation!)
sle_2.text=''
return
end if

end if

尝试注册

select 账户ID
into :li_id
from 账户
where 账号=:currentname;
if sqlca.sqlcode = 0 then
messagebox('','账号已存在')
return
end if
insert into 账户(创建时间,账号,上次登录时间,最后登出时间,昵称,密码)
values(:dt,:currentname,:dt,:dt,:currentname,:ls_pwd);
if sqlca.sqlcode <> 0 then
messagebox('','注册失败')
return
end if