VPF::[Delphi] Вывод содержимого базы данных по ключу

felmor

Дата 16.5.2009, 08:35 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 26.12.2008

Репутация: -1
Всего: -1

реализовать запрос и вывод содержимого базы
данных по ключу.Предусмотреть вывод всей базы
данных на экран. Вся обработка базы данных должна
происходить путем выбора соответствующего пункта из
меню.

Чего не хватает?
Помогите с запросом. (на фото) http://pic.ipicture.ru/uploads/090515/sMexuall6C.jpg
Не могу убрать заливку на титульной странице, ничего из-за нее не видно.

Если нужно больше информации, могу выложить всю курсовую (задание).

Код


program felkurs;
uses crt,graph;
type
     datatype=record
     firmpodryadchik:string;
     klient:string;
     typestroeniya:string;
     stoimost:integer;
     prockredit:integer;
     summavbanke:integer;
     neviplsumma:integer;
        end;
          var max:datatype;
              fel:file of datatype;
                   i:integer;
                   gm,gd,w,m,x:integer;
                   B:word;
        procedure pr;
        var s:integer;
 begin
    assign(fel,'lab.ua');
    rewrite(fel);
    for i:=1 to 3 do
    begin 
    clrscr;
 writeln('enter firmpodryadchik');
 readln(max.firmpodryadchik);
 writeln('enter klient');
 readln(max.klient);
 writeln('enter typestroeniya');
 readln(max.typestroeniya);
 writeln('enter stoimost');
 readln(max.stoimost);
 writeln(' enter prockredit ');
 readln(max.prockredit);
 writeln('enter  summavbanke ');
 readln(max.summavbanke );
 writeln('enter neviplsumma ');
 readln(max.neviplsumma);
 write(fel,max);
end;
             close(fel);
end;
procedure klient;
var k:integer;
f:boolean;
begin
clrscr;
f:=false;
writeln(' enter proc_za_credit ');
readln(k);
assign(fel,'lab.ua');
reset(fel);
while not EOF(fel) do
begin
read (fel,max);
if k=max.prockredit then
begin
f:=true;
writeln('procent' , max.prockredit);
end;
end;
if f=false then
writeln (' nety etoy summy');
close(fel);
readln;
end;
procedure r;
var j:integer;
s:boolean;
begin
clrscr;
writeln('enter neviplsumma');
readln(j);
s:=false;
assign (fel,'max.ua');
reset(fel);
while not EOF(fel) do
begin
clrscr;
read(fel,max);
if j=max.neviplsumma then
begin
s:=true;
writeln(max.summavbanke);
end;
end;
if  s=false then
begin
writeln('nety summy_vklada_v_banke');
end;
readln;
close(fel);
end;
procedure d;
begin
assign(fel,'max.ua');
reset(fel);
while not EOF(fel) do
begin
read(fel,max);
     writeln('summy_vklada_v_banke', max.summavbanke);
     writeln('neviplsumma',max.neviplsumma);
     writeln('proc_za_credit',max.prockredit);
     writeln('neviplsumma',max.neviplsumma);
     writeln('stoimost',max.stoimost);
readln;
end;
close(fel);
end;

begin
writeln('initialising graphics');
gd:=detect;
initgraph(gd,gm,'');
if graphresult<>grok then
begin
clrscr;
writeln('initialising error');
writeln(grapherrormsg(graphresult));
delay(1500);
halt(1);
end;
SetBkcolor(4);
repeat
if B<>1 then
begin
FOR x:=1 to 1000 do
circle(200,420,x);
delay(500);
rectangle(30,60,380,580);
setcolor(B);
OuttextXY(100,40,'MISTERSTVO OBRAZOVANIYA I NAYKI UKRAINY');
Setcolor(B);
OuttextXY(180,80,'GOSUDARSTVENNUJ UNNIVERSITET');
setcolor(B);
OuttextXY(130,65,'KAFEDRA INFORMACIONNUH TECHOLOGIJ PROEKTIROVANIYA');
setcolor(B);
OuttextXY(255,155,'KYRSOVAYA ROBOTA');
setcolor(B);
OuttextXY(265,175,'po displine');
setcolor(B);
OuttextXY(105,190,'osnovy programirovaniya i algoritmicheskie yaziki');
setcolor(B);
OuttextXY(90,330,'Vypolnil:');
setcolor(B);
OuttextXY(390,320,'student gruppy IT');
setcolor(B);
OuttextXY(390,340,'Ale Mase');
setcolor(B);
OuttextXY(90,360,'Variant');
setcolor(B);
OuttextXY(380,360,'3');
setcolor(B);
OuttextXY(390,390,'S.M.');
setcolor(B);
OuttextXY(280,460,'2009');
delay(1500);
end;
until keypressed;
closegraph;



repeat
 clrscr;
 writeln('1-new file');
 writeln('2-niyti klienta');
 writeln('3-nevipl.summa');
 writeln('4-podshet file');
 writeln('5-quit');
 writeln;

write('choose:');
readln(i);
if i=1 then pr;
if i=2 then klient;
if i=3 then r;
if i=4 then d;
until i=5;
end.

Это сообщение отредактировал(а) felmor - 16.5.2009, 17:18

felmor

Дата 16.5.2009, 16:46 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 26.12.2008

Репутация: -1
Всего: -1

помогите пожалуйста, хотябы с запросом. Защита черех 3 дня

Rrader

Дата 16.5.2009, 17:02 (ссылка)

(нет голосов)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 14
Всего: 191

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

--------------------

Let's do this quickly!
Rest in peace, Vit!

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »