Форум

FUNCTION CheckAndMakeString(UString)
Local bBlock, bCorrect:=.T.,x,y,z,q,s
Local temp:=1
LOCAL oErr
x:=1
y:=1
z:=1
q:=1
S:=1
UString:= "{|x,y,z,q,s|"+UString+"}"
TRY
bBlock:=&UString
temp:=Eval(bBlock,x,y,z,q,s)
Catch  oErr
bCorrect:=.F.
end
return bCorrect

if((x<=500).AND.(z>=100))
//вычисления
elseif ((y<=500).AND.(z>=500))
//вычисления
else 
//err
endif

UString:= "If (x>0)"+I2Bin(2573)+"endif"
UString:= "{|x,y,z,q,s|"+UString+"}"
TRY
bBlock:=&UString
temp:=Eval(bBlock,x,y,z,q,s)
Catch  oErr
end

  Local x 
   ALTD() 
   x:="OK" 
   SayAndWait(x) 
   RETURN NIL

CreateBasesForSpecificationConstruct()

#define cDov LoadPath()+"dover\dover.dbf"
#define cIDov LoadPath()+"dover\dover.CDX"


Procedure CreateBasesForSpecificationConstruct()
Local nExist:=3
Local aDOV:= {       {"ID_DOV", "C", 22, 0}, ;
                     {"CODEDOC", "C", 3, 0}, ;
                     {"NUMDOC", "C", 6,0},;
                     {"DATE_IN", "D", 8,0},;
                     {"DATE_OUT", "D", 8,0},;
                     {"TNUM", "C", 6,0},;
                     {"FIO", "C", 80,0},;
                     {"PASPORT", "C", 80,0},;
                     {"AGENTNAME", "C", 60,0},;
                     {"AGENTCODE", "C", 6,0},;
                     {"DOC", "C", 1,0},;
                     {"YEAR", "N", 4,0},;
                     {"STATUS", "C", 1,0},;
                     {"TTN", "C", 60,0},;
                     {"STATUS", "C", 1,0},;
                     {"PRIM", "C", 37,0}}


dBpUSH()
nExist:=CheckIfBasesAlreadyExist()
DO CASE 
  CASE (nExist==1)
      SayAndWait("Какая-либо из таблиц (или все) уже существует. Создание невозможно!!!")
  CASE (nExist==0)
    //Ветка создания баз данных
    DbCreate (cDov,aDOV)

    Use (cDov) NEW
    INDEX ON UPPER(NUMDOC) TAG NUMDOC TO (cIDov)
    REINDEX
    DbCloseArea()

    //Проверка ошибок
  CASE (nExist==3)
        SayAndWait("Неопознанная ошибка")
  ENDCASE
DbPop()
return

Function CheckIfBasesAlreadyExist()
Local nAlreadyExist:=3
If (File(cDov))
  nAlreadyExist:=1
else
  nAlreadyExist:=0
endif
return nAlreadyExist

METHOD Form_Create(Sender, Param)
::BestDataset1:Active := .NOT. ::BestDataset1:Active
IF ::BestDataset1:Active
::lblCnn:Caption := 'Соединение установленно'
ELSE
::lblCnn:Caption := 'Соединение прервано'
ENDIF
RETURN .T.


METHOD btnConnect_Click(Sender)
::BestDataset1:Active := .NOT. ::BestDataset1:Active
IF ::BestDataset1:Active
::lblCnn:Caption := 'Соединение установленно'
ELSE
::lblCnn:Caption := 'Соединение прервано'
ENDIF
RETURN .T.

METHOD btnClose_Click(Sender)
::Destroy()
RETURN .T.