Oracle数据库自动备份程序V1.02.1 (预算执行系统,国库集中支付系统)Ps:需要安装Oracle客户端包含以下文件:AutoExpData.exe MD5:84466FA9D0CD23128B1D07D8E3C33305软件截图:下载地址1下载地址2

Delphi 代码：//----------------------------------------------------------------------------var  hMutex:hwnd;  ret:integer;begin  Application.Initialize;  hmutex:=createMutex(nil,false,'MyAPP');  ret:=getlasterror;  if ret <>error_already_exists then  begin    Application.CreateForm(TMainFrm, MainFrm);  Application.Run;  end  else  begin    Application.MessageBox('program已经运行,请不要运行两次','program不能运行',MB_搞定 or MB

-- 创建一个新的小空间的UNDO TABLESPACECreate UNDO TABLESPACE UNDOTBS2 DATAFILE 'E:\oracle10g\product\10.2.0\oradata\wst10g\UNDOTBS02.DBF' SIZE 100M REUSE AUTOEXTEND ON;-- 设置新的表空间为系统UNDO_TABLESPACEAlter SYSTEM SET UNDO_TABLESPACE=UNDOTBS2;-- Drop 旧的表空间Drop TABLESPACE UNDOTBS1 INCLUDING CONTENTS;Select * FROM DBA_TABLESPACES;完成后删除E:\oracle10g\product\10.2.0\oradata\wst10g\UNDOTBS01.DBF，然后进行出下操作：-- 创建一个新的小空间的UNDO TABLESPACECreate UNDO TABLESPACE UNDOTBS1 DATAFILE 'E:\oracle10g\product\10.2.0\oradata\wst10g\U