string ls_startupfile=GetCurrentDirectory()+"\pb.ini"
sqlca.DBMS=ProfileString (ls_startupfile, "database", "dbms", "")
sqlca.Database=ProfileString (ls_startupfile, "database", "database", "")
sqlca.LogID=ProfileString (ls_startupfile, "database", "logid", "")
sqlca.LogPass=ProfileString (ls_startupfile, "database", "LogPassword", "")
sqlca.ServerName=ProfileString (ls_startupfile, "database", "servername", "")
sqlca.DBParm=ProfileString (ls_startupfile, "database", "dbparm", "")
connect;
if sqlca.sqlcode <> 0 then
MessageBox ("不能连接数据库", sqlca.sqlerrtext)
return
end if
Open(w_login) // 打开登陆窗口
------解决方案--------------------
那你肯定是把默认的全局变量类型
application的那个edit source
forward
global type get_sn from application
end type
global transaction sqlca
global dynamicdescriptionarea sqlda
global dynamicstagingarea sqlsa
global error error
global message message
end forward
global variables
end variables
global type get_sn from application
string appname = "get_sn"
end type
global get_sn get_sn
on get_sn.create
appname="get_sn"
message=create message
sqlca=create transaction
sqlda=create dynamicdescriptionarea
sqlsa=create dynamicstagingarea
error=create error
end on
on get_sn.destroy
destroy(sqlca)
destroy(sqlda)
destroy(sqlsa)
destroy(error)
destroy(message)
end on
event open;open(w_getsn)
end event
------解决方案--------------------
完事要结贴
------解决方案--------------------
从来没遇到过
学习了
每天回帖即可获得10分可用分！
------解决方案--------------------
Mark ，只是看看