2.2.5 Реализация сервисных функций
Сохранение баз:
Sochranenie.scx
Формa INIT:
CLOSE DATABASES
CLOSE TABLES
WITH thisform
.text1.readonly=.t.
ENDWITH
thisform.Refresh
Формa KeyPress:
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nKeyCode=27
IF MESSAGEBOX("Вы хотите выйти ?",4,"Внимание")=6
thisform.Release
ELSE
thisform.Refresh
ENDIF
ENDIF
Кнопка «Сохранить» (click):
LOCAL strcop,OUT,IN1
IF EMPTY(thisform.text1.Value)=.t.
MESSAGEBOX("Путь не указан копирование не возможно, нажмите кнопку '...'!!!",0,"Внимание !!!")
thisform.Refresh
ELSE
out=""
strcop=""
in1=""
in1=ALLTRIM(thisform.text1.value)
out=SYS(5) + ALLTRIM(sys(2003)) + "\"
strcop="COPY FILE " + out + "table1.DBF TO " + in1 + "table1.dbf"
&strcop
strcop="COPY FILE " + out + "table2.DBF TO " + in1 + "table2.dbf"
&strcop
strcop="COPY FILE " + out + "table3.DBF TO " + in1 + "table3.dbf"
&strcop
strcop="COPY FILE " + out + "таблица1.DBF TO " + in1 + "таблица1.dbf"
&strcop
MESSAGEBOX("Операция прошла успешно!!!",0,"Внимание !!!")
ENDIF
Кнопка «Выход» (click):
IF MESSAGEBOX("Вы хотите выйти ?",4,"Внимание")=6
thisform.Release
ELSE
thisform.Refresh
ENDIF
Кнопка «выбора» (click):
a=0
b=0
b=PUTFILE('Имя файла:','copy','log')
pozic=RAT("\",b)
a=SUBSTR(b,1,pozic)
WITH thisform
.text1.Value=ALLTRIM(a)
.refresh
ENDWITH
Рис.2.20 Сохранение баз
Ochistka.scx
Кнопка «очистка» (click):
IF MESSAGEBOX('Вы хотите очистить основные базы ?',4,'ВНИМАНИЕ !!!')=6
CLOSE ALL
CLOSE TABLES
SELECT 1
USE table1
ZAP
use
SELECT 2
USE table2
ZAP
USE
SELECT 3
USE table3
ZAP
use
SELECT 4
USE Таблица1
ZAP
USE
thisform.Refresh()
ELSE
thisform.Refresh()
ENDIF
Кнопка «Выход» (click):
IF MESSAGEBOX("Вы хотите выйти ?",4,"Внимание")=6
thisform.Release
ELSE
thisform.Refresh
ENDIF
Рис.2.21 Очистка баз
Vostanovlenie.scx
Формa INIT:
CLOSE DATABASES
CLOSE TABLES
WITH thisform
.text1.readonly=.t.
ENDWITH
thisform.Refresh
Формa KeyPress:
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nKeyCode=27
IF MESSAGEBOX("Вы хотите выйти ?",4,"Внимание")=6
thisform.Release
ELSE
thisform.Refresh
ENDIF
ENDIF
Кнопка «Восстановить» (click):
LOCAL strcop,OUT,IN1
IF EMPTY(thisform.text1.Value)=.t.
MESSAGEBOX("Путь не указан копирование не возможно, нажмите кнопку '...'!!!",0,"Внимание !!!")
thisform.Refresh
ELSE
out=""
strcop=""
in1=""
in1=ALLTRIM(thisform.text1.value)
out=SYS(5) + ALLTRIM(sys(2003)) + "\"
strcop="COPY FILE " + in1 + "table1.DBF TO " + out + "table1.dbf"
&strcop
strcop="COPY FILE " + in1 + "table2.DBF TO " + out + "table2.dbf"
&strcop
strcop="COPY FILE " + in1 + "table3.DBF TO " + out + "table3.dbf"
&strcop
strcop="COPY FILE " + in1 + "таблица1.DBF TO " + out + "таблица1.DBF"
&strcop
MESSAGEBOX("Операция прошла успешно!!!",0,"Внимание !!!")
ENDIF
Кнопка «Выход» (click):
IF MESSAGEBOX("Вы хотите выйти ?",4,"Внимание")=6
thisform.Release
ELSE
thisform.Refresh
ENDIF
Кнопка «выбора» (click):
a=0
b=0
MESSAGEBOX("Выберите папку где хранятся ваши базы!",0,"Внимание!")
b=PUTFILE('Имя файла:','copy','log')
pozic=RAT("\",b)
a=SUBSTR(b,1,pozic)
WITH thisform
.text1.Value=ALLTRIM(a)
.refresh
ENDWITH
Рис.2.22 Восстановле