HackStuff...
Aici veti gasi o gama larga de metode de hack atat pe Windows cat si pe platforme Linux/Unix , programe , tutoriale etc. In acelasi timp veti avea si asistenta help . Precizam ca tot ce se gaseste pe acest site este doar in scop de dezvoltare iar voi va asumati intreaga raspundere pt actiunile savarsite.ENJoY --- by andreony ---
|
Lista Forumurilor Pe Tematici
|
HackStuff... | Reguli | Inregistrare | Login
POZE HACKSTUFF...
Nu sunteti logat.
|
Nou pe simpatie:
Andreea Miluta
 | Femeie
24 ani
Braila
cauta Barbat
30 - 48 ani |
|
andreony
[admin]
 Din: bucharest
Inregistrat: acum 20 ani
Postari: 1062
|
|
Baze de date 4
Stabilirea domeniului inregistrarilor:
For <conditie> se refera la inregistrarile pentru care <conditie> are valoarea .T.
While <conditie> se refera la inregistrarile cuprinse intre inregistrarea curenta si prima inregistrare pentru care <conditie> este .F.
List for vol>8000 afiseaza toate inregistrarile pentru care vol>8000
Go top
List while vol>8000 afiseaza pana cand intalneste un volum mai mic sau egal cu 8000
Cautare indexata:
Comenzile seek si find se folosesc doar pe tabelele indexate.
Exemplu:
use emitenti
index on simb tag isimb
seek "TLV"
if found()
display
endif
Jonctiuni
Pentru a creea o legatura intre cotatii si emitenti:
sele 1
use emitenti
index on simb to p1
sele 2
use cotatii
set relation to simb into emitenti
set skip to emitenti
?relation(1) -> afiseaza pe ce s-a facut prima legatura adica: SIMB
browse fields emitenti.denumire,cotatii.data_c,cotatii.pret FOR cotatii.simb='TLV'
sau
join with emitenti to cemit for simb=A.simb fields a.denumire,data_c,pret
select * from cemit
Se afiseaza denumirea, data cotatiei si pretul pentru simbolul TLV.
Using SET RELATION, you can establish relations between tables open in different work areas. When the record pointer is moved in the parent table, the record pointer in the child table moves to the first corresponding record. The relational expression in SET RELATION determines where the record pointer moves in the child table. A one-to-one relation is created � for each record in the parent table, the record pointer moves to the first matching record in the child table. If a matching record can’t be found in the child table, the record pointer in the child table moves to the end of the table.
Frequently, a child table contains multiple records that correspond to one record in the parent table. SET SKIP lets you establish a one-to-many relationship between one record in the parent table and multiple records in the child table. When you skip through the parent table, the record pointer remains on the same parent record until the record pointer moves through all related records in the child table.
To establish a one-to-many relationship, first create the relationship between the parent and child table with SET RELATION. Then, issue SET SKIP to create a one-to-many relationship. In commands that support a scope (DISPLAY, LIST, and so on), records in the parent table are repeated for each corresponding record in the child table.
Structuri de program FOX
Structura secventiala:
O astfel de structura este data de o secventa de comenzi, care nu contine structurile alternative IF si CASE sau structurile repetitive (WHILE, FOR, SCAN).
Atribuirea se face prin STORE sau prin =.
Exemplu
Store 100 to X1,X2
sau
X1=100
X2=100
Structura alternativa
If <conditie>
Secventa - instructiuni 1
Else
Secventa – instructiuni 2
Exemplu
Clear
Go top
If vol>5000
?simb," este la categoria I"
else
?"este la categoria II"
endif
Do case
Case expresie 1
Secventa 1
Case expresie 2
Secventa 2
….
Case expresie n
Secventa n
Otherwise
Secventa
Endcase
Input [introduceti media:] to medie
do case
Case between(medie,7,8.50)
?"medie buna"
case between(medie,8.51,9.50)
?"medie foarte buna"
case between(medie,9.51,10)
otherwise
?"medie slaba"
endcase
Structura repetitiva
Cu numar cunoscut de repetitii
For v=v1 to vf [step Vp]
Instructiuni
[exit]
[loop]
endfor
Cu număr neconoscut de repetitii
Do while <conditie>
Instructiuni
[loop]
[exit]
enddo
Scan – instructiune specifică lucrului cu tabele- secventa se executa pentru fiecare inregistrare din tabela
Scan <scop>
Instructiuni
[loop]
[exit]
endscan
loop – transmite controlul instructiunii de sfarsit a secventei repetitive
exit – transmite controlul primei instructiuni ce urmeaza secventei
Exemple:
Sa se afiseze cotatiile cat si numarul lor din luna curenta folosind functia locate
close tables
Use cotatii
Set talk off
Nr=0
Locate for year(data_c)=year(date()) and month(data_c)=month(date())
Do while found()
display
Nr=nr+1
Continue
Enddo
?"Numar total de cotatii:",nr
Sa se afiseze folosind o structura do while emitentii care incep cu 'P'
close tables
use emitenti
go top
clear
do while NOT EOF()
if like ('P*',denumire)
?denumire
endif
skip
enddo
Sa se afiseze folosind scan emitentii care incep cu 'P'
close tables
use emitenti
go top
clear
scan for substr(denumire,1,1)='T'
?denumire
endscan
Sa se afiseze folosind for si iif emitentii care incep cu 'P'
close tables
use emitenti
go top
clear
for i=1 to reccount()
?iif(substr(denumire,1,1)='P',denumire,'Nu incepe cu P')
skip
?replicate("-",35)
endfor
use
_______________________________________
------ eVoLuTiOn ------
|
|
| pus acum 20 ani |
|