马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
有了rowbase的binlog后,我们来分析一下怎么实现闪回。平时的DML无非三种操作,增删改,先说三种操作的日志格式。
*//利用:
*//WaitWindows("这是一个提醒")
*//能够重复挪用,如WaitWindows("这是提醒1")、WaitWindows("这是提醒2")
*//扫除:
*//WaitWindows()
*//------------------------------
*//登待窗口
*//------------------------------
FUNCTIONWaitWindows
PARAMETERSPP_INFO
IFEMPTY(PP_INFO)
RELEASESys_Message_Wait
RETURN
ENDIF
PUBLICLP_INIFO
LP_INFO=PP_INFO
PUBLICSys_Message_Wait
Sys_Message_Wait=CREATEOBJECT("mess_form")
Sys_Message_Wait.Show()
INKEY(0.1,"H")
RETURN
**************************************************
DEFINECLASSmess_formASform
Height=64
Width=480
DoCreate=.T.
Caption=""
ControlBox=.F.
Closable=.F.
FontSize=11
MaxButton=.F.
MinButton=.F.
Movable=.F.
BorderStyle=2
BackColor=RGB(255,255,240)
Name="MESS_FORM"
ADDOBJECTconAScontainerWITH;
Top=0,;
Left=0,;
Width=480,;
Height=64,;
SpecialEffect=1,;
BackColor=RGB(255,255,240),;
Name="CON"
ADDOBJECTimage1ASimageWITH;
BackStyle=0,;
Height=39,;
Left=31,;
Top=14,;
Width=47,;
Name="Image1"
ADDOBJECTlabel1ASlabelWITH;
AutoSize=.T.,;
FontSize=11,;
BackStyle=0,;
BorderStyle=0,;
Caption="",;
Height=19,;
Left=104,;
Top=24,;
Width=322,;
Name="Label1"
PROCEDUREInit
LC_INFO="提醒信息!"
IF!EMPTY(LP_INFO)
LC_INFO=LP_INFO
ENDIF
THISFORM.CON.WIDTH=THISFORM.TEXTWIDTH(LC_INFO)+140
THISFORM.WIDTH=THISFORM.TEXTWIDTH(LC_INFO)+140
THISFORM.AUTOCENTER=.T.
THISFORM.LABEL1.CAPTION=LC_INFO
THISFORM.IMAGE1.PICTURE="WAIT.BMP"
THISFORM.REFRESH()
ENDPROC
ENDDEFINE
提供用于管理、检查、优化数据库操作的管理工具。 |