123档.txt

来自「着 是 学生管理系统的代码」· 文本 代码 · 共 12 行

open(w_welcome)
SQLCA.DBMS = "DBBC"
SQLCA.AutoCommit = False
SQLCA.DBParm = "Connectstring='DSN=student'"
connect;
if sqlca.sqlcode<>0 then
	messagebox("错误","数据库连接错误,经检查后重试!",stopsign!)
	close(w_welcome)
	return
end if
close(w_welcome)
openwithparm(w_login,"First")