| Referate | Director web | Adauga link | Contact |

Titlu referat: Proiect Baze de date II

Nivel referat: liceu

Descriere referat:
Proiect Baze de date II
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 say 'Copii Disk-uri' style 'BI' font 'Courier' , 20
       @
7,5 say 'Cod Disk :'
       ??
n
       @
10,5 say 'Cod copie ' get c1 valid not empty(c1) error 'Codul nu poate fi
nul'
      
   read
               seek c1
     
           
 if found()
          
         @ 17,5 say 'Cod duplicat'
          
         @ 20,4 get b1 function '*h \2,12,3
          
         read
             
c1=space(5)
           
else
               
     append blank
                 scatter
memvar
                
m.cod_c=c1
                
m.cod=n
       
                 @
12,5 say 'Stare LIBER ' style 'b'
       
                
m.stare='LIBER'
       
             @ 20,4 get a1 function '*h
\        
...



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.