long ll_file
ll_file = FileOpen("errlog.dat",LineMode!,Write!,Shared!,Append!)
FileWrite(ll_file,"系统启动时不能连接数据库!~r错误信息:" + sqlca.sqlerrtext + "~r数据库服务器:" + sqlca.ServerName + "~r数据库:" + sqlca.DataBase + "~r用户:" + sqlca.LogId + "~r程序终止!")
FileClose(ll_file)