//在应用程序Open 事件代码中
idle(600)
openbakflag=1
///////////////////////读取配置文件数据库连接设置///////////////////////
string server,datname,datuser,datpsw
server=ProfileString ( "yy.ini","yygl","server", "" )
datname=ProfileString ( "yy.ini","yygl","datname", "" )
datuser=ProfileString ( "yy.ini","yygl","datuser", "" )
datpsw=ProfileString ( "yy.ini","yygl","datpsw", "" )
///////////////////////读取配置文件数据库连接设置End///////////////////////
string ispath
integer logintype
string l_cmpname
ulong ll_buffer =512
long l_flag = 0
//程序工作目录
Ispath =getCurrentDirectory ( )
//==================连接数据库===================================================//
SQLCA.DBMS = "SNC SQL Native Client(OLE DB)"
SQLCA.LogPass = "********"
SQLCA.ServerName = "DELL-5F6F8D3F6E\SQLEXPRESS"
SQLCA.LogId = "mydatabaseuser"
SQLCA.AutoCommit = false
SQLCA.DBParm = "Database='MyDataBase"
Connect using SQLCA;
if sqlca.sqlerrtext<>"" then
messagebox("连接数据库错误","连接数据库失败！"+sqlca.sqlerrtext)
halt
return
end if
//连接池
//this.settranspool( 12, 16, 10)
