11.验证SQLServer的身份认证方式prototype NUMBER checkSQLAuth(); function NUMBER checkSQLAuth()NUMBER nResult,nType,nSize;STRING szKey,szValue,szKeyName,szSQLServiceName1,szSQLServiceName;beginszKeyName = "Login... Read More
posted @ 2010-08-20 17:31 蓝欣児 Views(382) Comments(0) Diggs(0) Edit
7.判断操作系统if !(SYSINFO.WINNT.bWinServer2003 || SYSINFO.WINNT.bWinXP) thenif SELECTED_LANGUAGE = ISLANG_ENGLISH then szMsg = "Your current operation system cannot satisfy the requests.\n The operation sy... Read More
posted @ 2010-08-20 17:30 蓝欣児 Views(390) Comments(0) Diggs(0) Edit
prototype BOOL ExecuteSQLScript(STRING); prototype BOOL ExecuteScript(OBJECT,OBJECT,STRING);//参数ConnectionString = Provider=SQLOLEDB.1;Data Source=servername;Initial Catalog=MyProject;Integrated Secur... Read More
posted @ 2010-08-20 17:30 蓝欣児 Views(274) Comments(0) Diggs(0) Edit
5.测试制定的数据库连接是否可用,并创建数据库prototype CheckConnection(STRING,STRING,STRING,BOOL);function CheckConnection(tsServerName,tsUserName,tsPassword,bWinAthMode) STRING connstr, szADOCommObjID; BOOL bResult; OB... Read More
posted @ 2010-08-20 17:29 蓝欣児 Views(196) Comments(0) Diggs(0) Edit
1.安装语言判断:if SELECTED_LANGUAGE = ISLANG_ENGLISH then szLicenseFile = SRCDIR ^ "licenseAgreementEn.txt";//如果是英语,选择英文的许可协议 else szLicenseFile = SRCDIR ^ "licenseAgreementCn.txt";//否则,选择中文的许可协议 endif;2.验证... Read More
posted @ 2010-08-20 17:28 蓝欣児 Views(298) Comments(0) Diggs(0) Edit