【vfp开源代码栏目提醒】:网学会员为广大网友收集整理了,bak.prg,希望对大家有所帮助!
DEFINE CLASS form1 AS form
ADD OBJECT shape1 AS shape WITH ;
Top = 166, ;
Left = 24, ;
Height = 72, ;
Width = 328, ;
BackStyle = 1, ;
Curvature = 7, ;
BackColor = RGB(255,248,247), ;
BorderColor = RGB(151,203,255), ;
ZOrderSet = 0, ;
Name = "Shape1"
ADD OBJECT label9 AS label WITH ;
AutoSize = .T., ;
BackStyle = 0, ;
Caption = "备份路径:", ;
Height = 16, ;
Left = 36, ;
Top = 180, ;
Width = 62, ;
TabIndex = 18, ;
ZOrderSet = 14, ;
Name = "Label9"
ADD OBJECT text1 AS textbox WITH ;
BackStyle = 0, ;
BorderStyle = 1, ;
Height = 21, ;
Left = 96, ;
SpecialEffect = 1, ;
TabIndex = 7, ;
Top = 175, ;
Width = 220, ;
DisabledBackColor = RGB(239,247,255), ;
DisabledForeColor = RGB(0,128,255), ;
BorderColor = RGB(151,203,255), ;
ZOrderSet = 15, ;
Name = "Text1"
ADD OBJECT command1 AS commandbutton WITH ;
Top = 174, ;
Left = 318, ;
Height = 21, ;
Width = 21, ;
Picture = (Sys(5)+Sys(2003)+"\Images\Open.bmp"), ;
Caption = "", ;
TabIndex = 8, ;
ZOrderSet = 16, ;
Name = "Command1"
ADD OBJECT progressbar1 AS olecontrol WITH ;
Top = 203, ;
Left = 36, ;
Height = 20, ;
Width = 240, ;
Visible = .F., ;
ZOrderSet = 17, ;
Name = "progressbar1"
ADD OBJECT shape2 AS shape WITH ;
Top = 62, ;
Left = 24, ;
Height = 94, ;
Width = 328, ;
BackStyle = 1, ;
Curvature = 7, ;
BackColor = RGB(255,248,247), ;
BorderColor = RGB(151,203,255), ;
ZOrderSet = 18, ;
Name = "Shape2"
ADD OBJECT label3 AS label WITH ;
AutoSize = .T., ;
FontBold = .T., ;
FontSize = 12, ;
BackStyle = 0, ;
Caption = "贴心提示", ;
Height = 20, ;
Left = 162, ;
Top = 72, ;
Width = 70, ;
ForeColor = RGB(255,0,0), ;
ZOrderSet = 19, ;
Name = "Label3"
ADD OBJECT button_f1 AS button_f WITH ;
Top = 203, ;
Left = 282, ;
Width = 60, ;
Height = 24, ;
TabIndex = 9, ;
ZOrderSet = 20, ;
button_style = 0, ;
caption = 备份, ;
picture_ico = (sys(5)+sys(2003)+"\Images\btn_FG\ICO_OK.bmp"), ;
Name = "Button_f1", ;
Image_Click.Height = 23, ;
Image_Click.Width = 57, ;
Image_Click.Name = "Image_Click", ;
Image_Disable.Height = 23, ;
Image_Disable.Width = 57, ;
Image_Disable.Name = "Image_Disable", ;
Image_MouseMove.Height = 23, ;
Image_MouseMove.Width = 57, ;
Image_MouseMove.Name = "Image_MouseMove", ;
Image_Normal.Height = 23, ;
Image_Normal.Width = 57, ;
Image_Normal.Name = "Image_Normal", ;
Label1.Name = "Label1", ;
Image_ICO.Height = 21, ;
Image_ICO.Width = 21, ;
Image_ICO.Name = "Image_ICO"
ADD OBJECT label4 AS label WITH ;
AutoSize = .F., ;
FontSize = 10, ;
WordWrap = .T., ;
BackStyle = 0, ;
Caption = " 数据备份可将数据保存在本地机器的其他位置,当遇到由于某些意外原因而发生数据无法使用时,可以利用数据恢复进行恢复,以减少意外带来的损失。", ;
Height = 49, ;
Left = 33, ;
Top = 98, ;
Width = 310, ;
ForeColor = RGB(64,0,0), ;
ZOrderSet = 19, ;
Name = "Label4"
ADD OBJECT image2 AS image WITH ;
Picture = (Sys(5)+Sys(2003)+"\images\heart.bmp"), ;
Height = 27, ;
Left = 125, ;
Top = 65, ;
Width = 32, ;
Name = "Image2"
PROCEDURE Load
Public Path_1,Path_2
Store "" to Path_1,Path_2
ENDPROC
PROCEDURE Init
Class_frm::Init &&在子类中引用父类的方法
THisform.frmTitle="数据备份"
set safety off &&设置覆盖文件时弹出对话框
thisform.progressbar1.visible=.f.
Thisform.Text1.Value=Sys(5)+Sys(2003)+"\DatabaseBak\"
ENDPROC
PROCEDURE MouseMove
LPARAMETERS nbutton,nshift,nxcoord,nycoord
Thisform.Button_F1.MouseOver=.T.
ENDPROC
PROCEDURE Button_y1.button_click
Thisform.release
ENDPROC
PROCEDURE shape1.MouseMove
LPARAMETERS nButton, nShift, nXCoord, nYCoord
Thisform.Button_F1.MouseOver=.T.
ENDPROC
PROCEDURE command1.Click
path_2=getdir() &&获取路径
if !empty(path_2)
thisform.text1.value=path_2
endif
ENDPROC
PROCEDURE button_f1.button_click
close all
path_1=addbs(alltrim(Sys(5)+Sys(2003)+"\Database"))
path_2=addbs(alltrim(thisform.text1.value))
if empty(path_1) or empty(path_2)
messagebox("备份数据库名和路径不许为空!",16,"系统提示")
else
if directory(path_2)=.f.
MD "&path_2"
endif
if right(path_1,1)<>"\"
dirpath=path_1+"\*.*" &&源目录下所有文件
Ypath=path_1+"\"
else
dirpath=path_1+"*.*" &&源目录下所有文件
Ypath=path_1 &&数据库所在目录
endif
adir(FileCursor,dirpath) &&将目录下文件存入数组
Cout=alen(FileCursor,1) &&取出数组的长度
thisform.progressbar1.visible=.t.
thisform.progressbar1.max=Cout
for m=1 to Cout &&a