操作的表不同而已。5.2标准模块设计根据功能模块的划分原则,在工程中创建4个标准模块。1.Const标准模块用来管理工程中的常量。设计程序为:
PublicPublicPublicPublicPublicPublicPublicPublicPublicConstConstConstConstConstConstConstConstConstSQL_C_CHARAsLong=1SQL_COLUMN_LABELAsLong=18SQL_DROPAsLong=1SQL_DRRORAsLong=-1SQL_NO_DATA_FOUNDAsLong=100SQL_SUCCESSAsLong=0SQL_SUCCESS_WITH_INFOAsLong=1SQL_ATTR_MAX_LENGTHAsLong=100DATABASEAsString="Stocks"
PublicPublicPublicPublic
ConstConstConstConst
DSNAsString="Stocks"DB_USER_NAMEAsString="sa"DB_PASSWORDAsString="sa"CONNECT_LOOP_MAX=10
2.DbFunc标准模块用来管理工程中与数据库操作相关的声明。其数据库连接的程序设计为:
PrivateSubconnect()DimTmpStatAsLongIfIsConnect=TrueThenExitSubEndIf......TmpStat=SQLConnect(Hdbc,DSN,Len(DSN),DB_USER_NAME,_Length(DB_USER_NAME),DB_PASSWORD,Len(DB_PASSWORD))IfTmpStat<>SQL_SUCCESSAnd_TmpStat<>SQL_SUCCESS_WITH_INFOThenMsgBox"无法获得连接句柄!",,"ODBCAPI执行错误"IsConnect=TrueDisconn