那位大虾 帮我说哈做手动连接数据服务器的 窗口

[p2565289]

就是那个能手动断开 再连接 输入用户名 服务器 数据库系统后 直接连接的窗口

[p2565289]

我想要他的流程代码

[springlyn]

新建一个窗口，放4个singlelineedit和2个commandbutton
sle_userid、sle_password、sle_servername、sle_database
cb_connect、cb_disconnect
===================================================

PB9直接连SQL数据库，其它比如ODBC等连接方式参照一下代码修改
cb_connect代码:
string ls_userid,ls_password,ls_servername,ls_database
ls_userid = trim(sle_userid)
ls_password = trim(sle_password)
ls_servername = trim(sle_servername)
ls_database = trim(sle_database)

SQLCA.DBMS	= MSSQL SQL Server 2000
SQLCA.Database	= ls_database
SQLCA.Logid	= ls_userid
SQLCA.Logpass	= ls_password
SQLCA.Servername= ls_servername
SQLCA.Userid	= ""
SQLCA.Dbpass	= ""
SQLCA.Lock	= ""
SQLCA.Dbparm	= ""
SQLCA.Autocommit = false
CONNECT USING SQLCA;
if sqlca.sqlcode <> 0 then
	messagebox( string(sqlca.sqlcode), "数据库连接失败！~n" + sqlca.sqlerrtext,stopsign!)
	halt
end if

===================================================

cb_connect代码:
DISCONNECT USING SQLCA;

[springlyn]

上面cb_disconnect的代码是

cb_disconnect代码:
DISCONNECT USING SQLCA;

[SKY_4K_PPM]

DISCOONECT USING SQLCA;
// Profile 123
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.DBParm = "ConnectString='DSN=MS Access Database;UID=;PWD='"
CONNECT USING SQLCA;
IF SQLCA.SQLCODE<>0 THEN
BEEP(3)
MESSAGEBOX('ERORR!','COULD NOT CONNET DATABASE! ERROR MESSAGE:'+SQLCA.SQLERRTEXT)
HALT ;
ELSE
OPEN(W_MAIN)
END IF
//ODBC CONNECTION CODE;