code10.txt

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

程序段10
这段程序将源OLEStorage变量 stg_first保存在目标OLEStorage变量stg_second
的子存储sub1中

boolean exist
int result,i,m,n
string pname, fname
getfilesavename ("保存文件",pnme,fname,"ole","OLE Files(*.ole),
               *.ole,& DOC Files(*.doc),*.doc)
stg_first=CREATE olestorage
stg_second=CREATE olestorage    //创建两个存储
m=stg_second.open(fname)   //打开存储stg_decond,fname 可以是一个
                             固定的文件名
i=stg_first.Open("c:xx.ole")  //打开存储stg-first
resule=stg_first.SaveAs("sub1",stg_second)
stg_second.MemberExists("sub1",exist)  //判断SaveAs函数是否运动成功
//如果成功就显示成功信息
if exist then messagebox("成功","父存储中存在sub1子存储。",Exclamation!)