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   &&分别拷贝并显示拷贝进度
				thispathname=Ypath+alltrim(FileCursor(m,1))
				bakpathname=path_2+alltrim(FileCursor(m,1))
				copy file "&thispathname" to "&bakpathname"
				thisform.progressbar1.value=m
				thisform.refresh
			endfor
			thisform.progressbar1.visible=.f.
			messagebox("数据备份成功！",48,"系统提示")
		endif
	ENDPROC


ENDDEFINE
*

**************************************************