Algoritmi in Programare - Inchiriere DVd

Proiect
8/10 (1 vot)
Domeniu: Calculatoare
Conține 8 fișiere: doc, exe, tpu, pas, dat, idx
Pagini : 19 în total
Cuvinte : 3037
Mărime: 41.87KB (arhivat)
Cost: 5 puncte
Profesor îndrumător / Prezentat Profesorului: Bogdan Ghilic
Academia de Studii Economice Cibernetică, Statistică şi Informatică Economică

Extras din document

Fişiere secvenţiale:

Programul ÎnchiriereDVD este un program dedicate acelora care doresc să ţină evidenţa clienţilor unui centru de închirieri DVD. Este un program bazat pe fişiere secvenţiale.

Are o interfaţă cu meniuri, destul de prietenoasă, care te va ajuta să navighezi printre funcţiile programului. Cu ajutorul acestui program poţi ţine evidenţa clienţilor noi, poţi actualiza baza de date, poţi introduce DVD-urile închiriate de clienţi, poţi seta o categorie preferată pentru clienţi, poţi actualiza plăţile efectuate de clienţi, şi multe altele prin care vom trece în continuare.

Să luăm pe rând toate funcţiile programului. În primul rând meniul principal. Acesta are 5 categorii:

1. Modificaţi baza de date

2. Afişările

3. Efectuaţi plăţile clienţilor

4. Introducerea DVD - urilor închiriate

5. Modificarea tarifelor.

Să le luăm pe rând:

1.Modificaţi baza de date: (1.1. Introducere client nou; 1.2. Ştergere cilent; 1.3. Trecerea de la o categorie la alta; 1.4. Modificarea numelui fişierului de date).

Cu această opţiune putem să adăugăm un client nou, să ştergem un client din baza de date, să modificăm categoria preferată pentru un client, sau să modificăm numele fişierului de date.

Programul funcţionează pe baza categoriei preferate, în sensul că un client îşi alege o categorie de DVD-uri, comandând numai din acea categorie. Bineînţeles că acesta îşi poate schimba categoria când va considera că este potrivit, această schimbare fiind gratuită. Acest lucru ajută la o mai bună gestionare a bazei de date.

2.Afişările: (2.1. Factura unui client; 2.2. Afişarea clienţilor pentru trimiterea facturii; 2.3. Afişarea codurilor disponibile de la un cod dat).

Prin această opţiune avem acces la informaţiile din baza de date. Putem afişa factura unui client şi putem afişa codurile disponibile. Aici trebuie precizat că orice client care este introdus în baza de date primeşte un cod unic, format din 6 cifre. Această numerotare ajută la o mai bună gestionare a bazei de date.

3.Efectuaţi plăţile clienţilor:

Cu această opţiune înregistraţi plăţile efectuate de clienţi şi le anulaţi datoriile.

4.Introducerea DVD-urilor închiriate:

Cu această opţiune introduceţi valoarea DVD-urilor închiriate de clienţi. Aveţi 2 opţiuni: Clasice şi Moderne. Această opţiune ajută la practicarea a 2 tarife pentru fiecare categorie de DVD-uri. De obicei, preţul unui DVD clasic este mai mic decât preţul unui DVD modern.

5.Modificarea tarifelor DVD-urilor

Aceasta este prima opţiune pe care ar trebui să o selectaţi. Aici setaţi preţul pentru fiecare categorie de DVD în parte. Aveţi la dispoziţie 5 categorii: Horror, Acţiune, Comedie, Dramă şi Documentare. Puteţi seta preţuri diferite pentru fiecare secţiune în parte. De asemenea puteţi intra mai târziu pentru a modifica tarifele existente.

6.Iesire (I)

Părăsiţi programul pentru gestionarea DVD-urilor

Programul este compus din două părţi. Executabilul (sau fişierul cu extensia pas şi unitul indexate.tpu). În acesta sunt definite type-urile record, precum şi unele proceduri, pentru a face mai simplă realizarea programului principal. În continuare vă prezentăm codul sursă al unit-ului indexate.tpu:

unit indexate;

interface

type tipcheie = longint;

tipab = record

c:integer;

a:integer;

end;

Categorie = record

a20:tipab;

a15:tipab;

a12:tipab;

a10:tipab;

a5: tipab;

end;

tipcategorii = record

DVDcla:integer;

DVDmod:integer;

end;

dat = record

an:word;

luna:word;

zi:word;

end;

tipart = record

nrm:tipcheie;

nume:string;

date:string;

tipab:1 5;

inchirieri:tipcategorii;

plata:integer;

data:dat;

end;

tipfis=file of tipart;

procedure opennew(var f:tipfis;var numefis:string;var trfa:boolean);

procedure openold(var f:tipfis;var numefis:string;var trfa:boolean);

procedure closefile(var f:tipfis);

procedure readseqrec(var f:tipfis;var z:tipart;var sf:boolean);

procedure readkeyrec(var f:tipfis;var z:tipart;key:tipcheie;var trfa:boolean);

procedure writeseqrec(var f:tipfis;var z:tipart;var trfa:boolean);

procedure writekeyrec(var f:tipfis;var z:tipart;key:tipcheie;var trfa:boolean);

procedure rewriterec(var f:tipfis;var z:tipart;var trfa:boolean);

procedure deleteseqrec(var f:tipfis;var trfa:boolean);

procedure deletekeyrec(var f:tipfis;key:tipcheie;var trfa:boolean);

procedure start(var f:tipfis;key:tipcheie;var trfa:boolean);

implementation

type tipindex = record

is:0 1;

cheie:tipcheie;

nr:word

end;

tabela = file of tipindex;

var g:tabela;

y:tipindex;

procedure sort (var g:tabela);

var h:tabela; a, b:tipindex;i,j:word;

begin

assign(h, 'temp.dat ');

rewrite(h);

seek(g,0);

for i:=1 to filesize(g) do

begin

read(g, a);

if a.is=1 then write(h, a);

end;

close(g);

seek(h,0);

for i:=1 to filesize(h)-1 do

begin

seek(h,i-1);

read(h,a);

for j:=i+1 to filesize(h) do

begin

seek(h,j-1);

read(h,b);

if a.cheie>b.cheie then

begin

seek(h,i-1);write(h, b);

seek(h,j-1);write(h, a);

a:=b

end

end

end;

rewrite(g); seek(h,0);

for i:=1 to filesize(h) do

begin

read(h, a);

write(g, a);

end;

close(h);

erase(h);

end;

procedure opennew;

begin

assign(f, numefis);{$i-}reset(f);{$i+}

if IOResult <>0 then

begin

trfa:=false; rewrite(f);

assign(g,copy(numefis,1,length(numefis)-4)+'.idx');

rewrite(g)

end

else trfa:= true

end;

Preview document

Algoritmi in Programare - Inchiriere DVd - Pagina 1
Algoritmi in Programare - Inchiriere DVd - Pagina 2
Algoritmi in Programare - Inchiriere DVd - Pagina 3
Algoritmi in Programare - Inchiriere DVd - Pagina 4
Algoritmi in Programare - Inchiriere DVd - Pagina 5
Algoritmi in Programare - Inchiriere DVd - Pagina 6
Algoritmi in Programare - Inchiriere DVd - Pagina 7
Algoritmi in Programare - Inchiriere DVd - Pagina 8
Algoritmi in Programare - Inchiriere DVd - Pagina 9
Algoritmi in Programare - Inchiriere DVd - Pagina 10
Algoritmi in Programare - Inchiriere DVd - Pagina 11
Algoritmi in Programare - Inchiriere DVd - Pagina 12
Algoritmi in Programare - Inchiriere DVd - Pagina 13
Algoritmi in Programare - Inchiriere DVd - Pagina 14
Algoritmi in Programare - Inchiriere DVd - Pagina 15
Algoritmi in Programare - Inchiriere DVd - Pagina 16
Algoritmi in Programare - Inchiriere DVd - Pagina 17
Algoritmi in Programare - Inchiriere DVd - Pagina 18
Algoritmi in Programare - Inchiriere DVd - Pagina 19

Conținut arhivă zip

  • Algoritmi in Programare - Inchiriere DVd
    • CONNEX.DAT
    • CONNEX.IDX
    • Documentatie.doc
    • INDEXATE.PAS
    • INDEXATE.TPU
    • PROJECT.EXE
    • PROJECT.PAS
    • TARIFE.DAT

Alții au mai descărcat și

Proiect Microsoft Acces - Dictionar

Introducere Scopul principal al acestui proiect il constituie introducerea in lucrul cu baze de date in limbajul Microsoft Access. Obiectul...

Proiectare Baze de date în Access

Aplicatia I - BAZA DE DATE ÎN EXCEL I.1 CREAREA UNEI BAZE DE DATE Am creat 4 baze de date reprezentând situatia ?colarA a studentilor de la...

Baza de Date in Access

O bibliotecă doreşte informatizarea activităţii sale. Abonaţilor li se întocmesc fişe ce conţin un număr al fişei, data întocmirii, CNP, numele,...

Baze de Date în Access

1.ANALIZA STRUCTURALA 1.1 Identificarea entitatilor S-au creat trei entitati : - Clienti - Comenzi - Produse Entitatea CLIENTI contine : -...

Proiect Bazele Programarii - Evidenta Personalului

Acest program se doreste a fi unul care sa vina in ajutorul contabililor precum si a celor ce se ocupa cu evidenta personalului in cadrul unei...

Indrumator in Excel

1. Consideraţii generale Rezultatele cercetărilor experimentale pot fi reprezentate sub formă de tabele, grafice sau ecuaţii. În general, în...

Baza de Date

INTRODUCERE Definirea problemei: Sa se creeze o baza de date care sa monotorizeze informatiile masinilor vandute ( Chervrolet, Ford si Audi ) 1....

Lucrare Laborator Access 05

Laborator Informatica 9+10 Faceti o aplicatie access care sa ajute la gestionarea informatiilor stocate pe discuri (pe CDuri sau DVD-uri). Spre...

Ai nevoie de altceva?