code39.txt

来自「一个用数据库编写的学生信息管理系统！做课程设计的同学可以做为参考！」· 文本 代码 · 共 18 行

程序段39
　　这段程序定义了一个事物对象，并用ProfileString函数引入XPB.INI中的
参数，它常用于应用的Open脚本。

//创建一个事务对象，Sybase 是一个已经定义好的事物类型
SybaseTrans.DBMS=ProfileString("XPB.INI","Database","DBMS", " ")
SybaseTrans.Database=ProfileString("XPB.INI","Database","Database",  " ")
SybaseTrans.LogID=PtofileString("XPB.INI","Database","LogID",   " ")
SybaseTrans.LogPass=PtofileString("XPB.INI","Database","LogPass",  " ")
SybaseTrans.ServerName=ProfileString("XPB.INI","Database","ServerName",  " ")
SybaseTrans.UserID=profileString("XPB.INI","Database","userID",    " ")
SybaseTrans.DBPass=profileString("XPB.INI","Database","DBPass",    " ")
SybaseTrans.lock=profileString("XPB.INI","Database","Lock",   " ")
SybaseTrans.DBParm=ProfileString("XPB.INI","Database","DBParm",   " ")
connect using sybasetrans;
open(win_pl)
//打开应用的主窗口