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:
xxIRISxx pe Simpatie.ro
 | Femeie
25 ani
Timis
cauta Barbat
25 - 60 ani |
|
andreony
[admin]
 Din: bucharest
Inregistrat: acum 20 ani
Postari: 1062
|
|
Baze de date 5
Creearea de videoformate folosind wizardul (FOX PRO)
Notă: Se recomandă ca mai ales la examen să nu se folosească termenul de formular şi doar cel de videoformat.
Tabele:
create table emitenti(;
simbol char(10),;
denumire char(32) not null,;
cf char(8) not null,;
data_l date,;
activ logical,;
piata char(12),;
cap_soc number(10),;
primary key simbol tag emit_pk)
create table cotatii(;
simbol char(10),;
data_c date,;
vol number(10) check vol>=0 error "volumul trebuie sa fie pozitiv",;
pret number(16,4) check pret>=0 error "pretul trebuie sa fie pozitiv",;
primary key simbol+dtoc(data_c) tag cot_pk,;
foreign key simbol tag c_e_fk references emitenti)
Se deschide proiectul ( in FOX pro )
Documents->Forms->Form Wizard->One-to-many Form Wizard
Se selecteaza toate campurile din tabela emitenti si toate din tabela cotatii. La pasul 3 daca exista o cheie externa propune Fox-ul legatura simbol-simbol. La pasul 4 se selectează stilul butoanelor iar la pasul 5 se selecteaza eventualele campuri dupa care se face ordonarea. La pasul 6 se da un nume videoformatului.
Videoformatul va aparea la Forms în tab-ul Data. Poate fi modificat (Modify) sau rulat (Run).
Să adăugăm un „raport „ care să afişeze cotaţiile emitentului curent. Acesta nu va fi un raport adevarat (creat cu Reports) ci doar o frază select. Din Form Controls selectăm Command Button pe care îl plasăm pe zona de lucru. Implict va avea eticheta Command1. Să o schimbăm. Selecăm butonul şi la Properties modificaţi Caption în Cotaţii.
Daca dăm double-click pe cotaţii se deschide fereastra, se va deschide fereastra de introducere a codului pentru evenimentul Click (pot fi asociate programe la mai multe evenimente: Init, GotFocus, RightClick, etc).
Pentru a rula videoformatul: Ctrl-E. Dacă se apasă pe butonul cotaţii se va deschide o nouă fereastră în care sunt afişate cotaţiile pentru emitentul curent.
Să creem un buton care calculează valoarea totală a tranzacţiilor pentru un emitent. Dar mai întâi să aflăm în ce zone de lucru sunt deschise cele 2 tabele. Creem un nou buton „Valoareâ€Â? pe care punem mai întâi codul:
sele 1
wait window "Tabela1="+dbf()
sele 2
wait window "Tabela2="+dbf()
Va fi afişată mai întâi tabela din zona 1 şi apoi cea din zona 2.
Vom afla că în zona 2 este deschisă tabela cotaţii aşa că înlocuim codul de mai sus cu:
sele 2
go top
sum pret_i*voltot to suma for simbol=thisform.simbol1.value
messagebox('Valoare tranzactiilor pentru '+thisform.simbol1.value+' este '+str(suma,10,4),32)
Se poate adăuga şi un text item în care să fie afişată valoarea.
In loc de messagebox('Valoare tranzactiilor pentru '+thisform.simbol1.value+' este '+str(suma,10,4),32) vom avea thisform.valtot.value=suma.
Creearea manuală de formulare
Data->Forms->New->Form
Se redimensionează de lucru. Right click oriunde pe zona de lucru si se selectează Data Enviroment.
Se face drag and drop la campurile simbol, denumire, codfiscal şi data listării. Pentru Piată se selectează din Form Control Option Group. După ce l-am selectat ne va apărea la properties (daca nu e vizibil îl activăm din View). Selectăm fiecare optiune şi la Option1 punem capture Bursa iar la Option2 punem Rasdaq nu inainte ca la Control Source -> emitenti.piata (se face legătura între text itemul din videoformat şi câmpul din tabelă .
Se adaugă un checkbox având Caption: Activ, Control Source: emitenti.activ.
Adăugăm două butoane > şi < pentru navigare.
Pentru >:
if not eof()
skip
else
wait window [Sfarsit de Tabela]
thisform.prev.setfocus
endi
thisform.refresh
Pentru <:
if not bof()
skip -1
else
wait window [Inceput de Tabela]
thisform.next.setfocus
endi
thisform.refresh
Mai putem adăuga un buton + care să adauge o nouă înregistrare:
append blank
go bottom
Rapoarte
Se pot creea rapoarte folosind wizardul similar creeri de formulare.
Creeare manuală de rapoarte: TEMA
Meniuri
Others->Menu->New
Se creează un submeniu Aplicatie cu trei optiuni şi încă o Opţiune Iesire:
Un raport se poate rula : report form rapcot.frx PREVIEW
_______________________________________
------ eVoLuTiOn ------
|
|
| pus acum 20 ani |
|
marin11988
Junior
 Inregistrat: acum 18 ani
Postari: 12
|
|
de unde pot downloada fox pro ?
_______________________________________
()_()
|"."|
(mf)
|
|
| pus acum 18 ani |
|