| Referate | Director web | Adauga link | Contact |

Titlu referat: Cheile identificate sunt- BI pentru Clienti, Cod si Cod_copie pentru

Nivel referat: facultate

Descriere referat:
Tema proiectului :
Sa se realizeze un program Fox-Pro impreuna cu
bazele de date necesare pentru gestionarea unui centru de inchirieri de CD-uri
cu jocuri.
Modelul entitate-asociat
CLIENTI
DISK-URI
- are asociate
COPIE_DISK
- este asociata
       
             
                   
este imprumutata  
           
                     
                       
                       
           
CLIENTI
IMPRUMUT
DISK-URI
COPIE_DISK
       Exista relatii m:m care vor fi transformate in relatii 1:m sau
m:1.
Schema conceptuala a BD
User
BI
Nume
Adresa
Telefon
Loan
Cod
Cod-c
BI
Data-i
Data-r
Disk
Cod
Titlu
Producator
Categorie
Hardware
An-ap
Disk-c
Cod
Cod-c
Stare
Normalizarea Bazei de Date
Initial datele problemei aveau urmatoarele
caracteristici:
Client
BI
Date prsonale:  
        - Nume
- Adresa  
           
 structura de grup
- Telefon
Disk-uri
Cod
Cod copie
Caracteristici
(titlu,producator,categorie,hardware,an_aparitie)
Stare
Imprumut
Cod
Cod copie
BI
Data_i
Data_r
       Cheile identificate sunt: BI pentru Clienti, Cod si Cod_copie pentru
Disk-uri, BI,Cod,Cod_copie si
Data_i pentru Imprumut.
       Dupa
eliminarea campurilor repetitive structura Disk se va diviza in doua tabele:Disk si
Disk_c.
       DISK:
Cod,Titlu,Producator,Categorie,Hardware,An_aparitie;
       DISK_c:Cod,Cod_c,Stare.
       Se
elimina structurile de grup din tabela Client :
       USER:BI,Nume,Adresa,Telefon.
       Datorita faptului ca intre campurile tabelelor nu mai exista
dependente de nici un alt fel (functionale, incomplete sau tranzitive) putem
considera tabelele ca fiind in FN3.
       In
acest moment schema sistemului arata astfel:
       
User
BI
Nume
Adresa
Telefon
Loan
Cod
Cod-c
BI
Data-i
Data-r
Disk-c
Cod
Cod-c
Stare
Disk
Cod
Titlu
Producator
Categorie
Hardware
An-ap
Structura tabelelor ce compun BD
Nume
Tip cheie
Val. imp.
Check
Tab. Care
ref.
Tip data
Lungime
Not
null/unic
USER.DBF
BI
Ch. Externa
Ch. Primara
-
-
-
Caracter
10
Not null/
unic
Nume
-
-
-
-
Caracter
30
Not null
Adresa
-
-
-
-
Caracter
30
Not null
Telefon
-
-
-
-
Numeric
9
-
LOAN.DBF
Cod
Ch. Primara
-
-
-
Caracter
5
-
Cod_c
Ch. Primara
-
-
DISK_C
Caracter
5
-
BI
Ch. Primara
-
-
USER
Caracter
10
-
Data_I
Ch. Primara
Date()
-
-
Data
8
-
Data_r
-
Date()+3
-
-
Data
8
-
DISK_C.DBF
Cod
Ch. Primara
-
-
DISK
Caracter
5
-
Cod_c
Ch. Externa Ch.
Primara
-
-
-
Caracter
5
Not null/
unic
Stare
-
LIBERA
-
-
Caracter
11
-
DISK.DBF
Cod
Ch. Externa Ch.
Primara
-
-
-
Caracter
5
Not null/
unic
Titlu
-
-
-
-
Caracter
30
Categorie
-
-
-
-
Caracter
15
Producator
-
-
-
-
Caracter
15
Hardware
-
-
-
-
Memo
-
An_ap
-
-
-
-
Numeric
4
Schema interna a BD
user.dbf;
user.idx.
loan.dbf;
i1.idx;i2.idx;
i3.idx;i4.idx.
disk.dbf;
disk.idx.
disk_c.dbf;
disk_c1.idx;
disk_c2.idx.
imprumut
creare disk-uri
&
clienti
vizualizare
adaugare
stergere
gestiune
intrari
iesiri
rapoarte
lista
disk-uri
lista disk-uri imprumutate
intrari
iesiri
Listarea programului
close all
deactivate wind command
set deleted on
set talk off
set clock on
clear
set safety off
set procedure to pr.prg
close databases
use disk
index on cod to disk.idx
use disk_c
index on cod to disk_c1.idx
index on cod_c to disk_c2.idx
use user
index on bi to user.idx
use loan
index on bi to i1.idx
index on data_i to i2.idx
index on cod_c to i3.idx
index on cod to i4.idx
close databases
define window sis from 1,0 to 24,79 double
close
activate window sis
set sysmenu to
define menu _msysmenu
define pad p1 of _msysmenu prompt '\define pad p2 of _msysmenu prompt '\define pad p3 of _msysmenu prompt '\define pad p4 of _msysmenu prompt 'Ra\define pad p5 of _msysmenu prompt 'I\on pad p1 of _msysmenu activate popup popact
on pad p4 of _msysmenu activate popup poprap
on selection pad p5 of _msysmenu do iesire
on selection pad p2 of _msysmenu do impr
on selection pad p3 of _msysmenu do rest
defi popup poprap
defi bar 1 of poprap prompt '\Disk-urilor'
defi bar 2 of poprap prompt '\inchiriate'
defi bar 3 of poprap prompt 'L\intarziati'
defi bar 4 of poprap prompt 'Lista
\on selection bar 1 of poprap do rep5
on selection bar 2 of poprap do rep4
on selection bar 3 of poprap do rep1
on bar 4 of poprap activate popup poprap1
defi popup poprap1
defi bar 1 of poprap1 prompt '\categorie'
defi bar 2 of poprap1 prompt '\producator'
on selection bar 1 of poprap1 do rep3
on selection bar 2 of poprap1 do rep2
defi popup popact
defi bar 1 of popact prompt '\defi bar 2 of popact prompt 'C\on bar 1 of popact activate popup cd
on bar 2 of popact activate popup client
define popup cd
defi bar 1 of cd prompt '\defi bar 2 of cd prompt '\'
defi bar 3 of cd prompt '\on bar 1 of cd activate popup cd1
on bar 2 of cd activate popup mod
on bar 3 of cd activate popup ste
defi popup cd1
defi bar 1 of cd1 prompt '\defi bar 2 of cd1 prompt '\on selection bar 1 of cd1 do adaug1
on selection bar 2 of cd1 do adaug12
defi popup mod
defi bar 1 of mod prompt '\defi bar 2 of mod prompt 'C\on selection bar 1 of mod do modif1
on selection bar 2 of mod do modif12
defi popup ste
defi bar 1 of ste prompt '\defi bar 2 of ste prompt 'C\on selection bar 1 of ste do sterg1
on selection bar 2 of ste do sterg12
define popup client
defi bar 1 of client prompt '\BD'
defi bar 2 of client prompt '\client'
defi bar 3 of client prompt '\client'
on selection bar 1 of client do adaug2
on selection bar 2 of client do modif2
on selection bar 3 of client do sterg2
activate menu _msysmenu
***************************************
procedure iesire
set sysmenu to default
close databases
deactivate window sis
set clock off
clear
return
***************************************
proc adaug1
clear
use disk
set index to disk.idx
reindex
c=space(5)
a=1
b=2
do while b=2
       @
2,2 say 'Disk-uri' 
       @
5,5 say 'Cod disk (X-Iesire)  ' get c valid not empty(c) error 'Codul nu
poate fi nul'
    read
    if upper(c)!='X'
     seek c
     if found()
           @ 7,5
say 'Cod duplicat'
           @
20,4 get b function '*h \          
read
          
c=space(5)
     else
              append blank
          
scatter memvar
          
m.cod=c
       
          @ 7,5 say 'Tiltu      
' get m.titlu
       
          @ 8,5 say
'Hardware'
               
    @ 9,5 edit hardware size
5,21
       
          @ 15,5 say
'Categorie   ' get m.categorie function '^
\not empty(m.categorie)
       
          @ 18,5 say
'Producator  ' get m.producator
       
          @ 19,5 say
'An aparitie ' get m.an_ap VALID (m.an_ap>1950) .and. (m.an_ap<2000)
error 'An incorect.Reintroduceti'
       
         
read
              @ 20,4 get a function '*h
\               read
              @ 20,4 say
'                                        
'
         
              if a=1
               gather
memvar
               do adaug11
               sele 1
           
@ 20,4 get b function '*h \           
read       
               clea
       
         
else
       
          
delete
       
         
endif
       
         
c=space(5)
       
endif
       else
       
b=1
       endif
       clea
enddo
pack
clea
return
*********************************
procedure adaug11
clea
n=c
sele 2
use disk_c
set index to disk_c2.idx
reindex
c1=space(5)
a1=1
b1=2
do while b1=2
       @
1,10...



Curs valutar
Euro4,5511
Dolarul american4,2615
Lira Sterlina5,3015
Gramul de aur170,1555
Leul moldovenesc0,2176
Materii referate

Anatomie (61)

Astronomie (61)

Biologie (546)

Chimie (530)

Contabilitate (87)

Design (4)

Diverse (878)

Drept (356)

Ecologie (59)

Economie (520)

Educatie Fizica (2)

Educatie si Invatanmant (2)

Engleza (463)

Filosofie (99)

Fizica (343)

Franceza (25)

Geografie (838)

Germana (40)

Informatica (354)

Istorie (1169)

Italiana (21)

Latina (26)

Literatura (22)

Logica (6)

Management (133)

Marketing (118)

Matematica (114)

Mecanica (13)

Medicina si Farmacie (229)

Muzica (35)

Psihologie (337)

Religie (248)

Romana (2303)

Spaniola (31)

Statistica (17)

Stiinte politice (27)

Turism (64)

Nota explicativa

Informatiile oferite de acuz.net au scop educativ si orientativ pentru cercetare academica. Va recomandam utilizarea acestora doar ca sursa de inspiratie sau ca resurse educationale.