База данных DVD–фильмов

Дорогой Александр Григорьевич если вы читаете это введение, значит я наконец то закончил свой курсовой проект. Он называется «База

База данных DVD–фильмов

Курсовой проект

Компьютеры, программирование

Другие курсовые по предмету

Компьютеры, программирование

Сдать работу со 100% гаранией
TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Button1: TButton;

Button2: TButton;

procedure input(var f:recordfile; var dvdfile:string);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

n,k:integer;

f,g:recordfile;

dvdfile:string;

end;

var

Form3: TForm3;

implementation

uses kursovik;

{$R *.dfm}

procedure tform3.input(var f:recordfile; var dvdfile:string);

var

s,q:disk;

begin

n:=1;

k:=0;

assignfile(g,derect+'buffer.db');

rewrite(g);

assignfile(f,derect+'db_ disk.db');{$I-}

reset(f); {$I+}

If IOResult=0 then

begin

while not eof(f) do

begin

inc(n);

read(f,s);

write(g,s);

end;

closefile(f);

end

else

begin

rewrite(f);

closefile(f);

end;

try

q.name:=Edit1.text;

q.stoim:=StrtoInt(Edit2.Text);

q.year:=Strtoint(Edit3.Text);

q.reg:=Edit4.Text;

q.cincom:=Edit5.Text;

seek(g,0);

while not eof(g) do

begin

read(g,s);

if s.name=q.name then

k:=1;

end;

if k=1 then

MessageBox(0,'Данный фильм существует.','',MB_ok or MB_ICONINFORMATION)

else

begin

write(g,q);

MessageBox(0,'Данные добавлены в файл.','',MB_ok or MB_ICONINFORMATION);

end;

Edit1.Clear;

Edit2.Clear;

Edit3.Clear;

Edit4.Clear;

Edit5.Clear;

except

MessageBox(0,'Цена и год выпуска указывается в цифрах!','',MB_OK or MB_ICONWARNING);

Edit2.Clear;

Edit3.Clear;

end;

closefile(g);

erase(f);

rename(g,derect+'db_ disk.db');

end;

procedure TForm3.Button1Click(Sender: TObject);

begin

close;

end;

procedure TForm3.Button2Click(Sender: TObject);

begin

if (edit1.Text='') or (edit2.text='') or (edit3.Text='')

or (edit4.Text='') or (edit5.Text='') then

MessageBox(0,'Одно или несколько полей пусты, проверьте правильность заполнения.','Внимание!',MB_ok or MB_ICONINFORMATION)

else

input(f,dvdfile);

end;

end.

 

Похожие работы

<< < 2 3 4 5 6