Трябва ми помощ

[Audi_RS*]

Колеги закъсах го с една програма,трябва да направя информационна система на Аксес 2007 за фирма рент-а-кар например,но не го разбирам,четох и учебници и какво ли не и не мога да го направя...
Ако някой разбира и се навие да се видим някъде в клуб да ми обясни ще съм много благодарен,плащам си за услугата !

[Adnan]

Колеги закъсах го с една програма,трябва да направя информационна система на Аксес 2007 за фирма рент-а-кар например,но не го разбирам,четох и учебници и какво ли не и не мога да го направя...
Ако някой разбира и се навие да се видим някъде в клуб да ми обясни ще съм много благодарен,плащам си за услугата !

Какво точно давай насам, ще оправиме нещата !

[Audi_RS*]

Ми някаква простичка система като мобиле.бг само че да избираш например от 3-4 марки след това от всяка марка по няколко модела и по-основни екстри и евентуално за колко дни се взима колата както и да има връзки с тези таблици за да работи системата.. Не ми е дадена конкретна задача,просто крайния резултат трябва да е информационна система с няколко таблици в нея свързани с връзки помежду си..

[Adnan]

Ми някаква простичка система като мобиле.бг ....

На какво трябва да е написана програмата, ако си навид за делфи си готов за 20 мин. За нещо просто само с търсене. Ако вече искаш въвеждане на данни проверки. Заявки и други екстри вече става малко по сложно и малко повече време, но не е болка за умиране

[Audi_RS*]

Еми на Access трябва да я направя попринцип,делфито как се прави тая задача,дали ще успея да я разбера понеже после сигурно ще разпитват кое как и защо.. ?Трябва да може да се прави заявка ...

ICQ ми е 214501481

[Adnan]

Еми на Access трябва да я направя попринцип,делфито как се прави тая задача,дали ще успея да я разбера понеже после сигурно ще разпитват кое как и защо.. ?

Най ще ок да се направи базата на Access, а самия интерфейс на Делфи.
Давай на лични да пишеме, че ще има доста да си говориме или давай ИСКЮ или мессангер или Скайп.

[Tyan]

имам същото ама за таксиметрова фирма писал съм го на Паскал ...с дос графичен интерфейс е без мишка .ама не мога да намеря сорса да се преправи... най добре верно на делфи с база на каквото се реши

[Adnan]

... без мишка .ама не мога да намеря сорса да се преправи... най добре верно на делфи с база на каквото се реши

Къв е проблема да се сложи и мишката дибави библиотеката и ти си човека !

[Tyan]

абе фа съм го писал преди 400 години за къв чеп ми е ..... иначе е сорс ако на някой му върши работа


Program Dbase;

uses Crt;

type

Auto = record
Marka : String[20];
No : Longint;
Sobst : String[30];
Probeg : Real;
Cenakm : Real;
Cenagorivo : Real;
Prihodi : Real;
Razhodi : Real;
Pechalba : Real;
End;
Taxi = File of Auto;

var

Fdata : Taxi;
Car : Auto;
Fname : String[79];
N, I , Op : Integer;
C : Char;

Procedure Zapis;

Begin
with Car do
Begin
Write('Vyvedete markata na kolata ');
Readln(Marka);
Write('Vyvedete nomera na kolata : ');
Readln(No);
Write('Vyvedete imeto na shofiora: ');
Readln(Sobst);
Writeln('Vyvedete Probega na avtomobila za denq');
Readln(Probeg);
Writeln('Vyvedete cena za lityr gorivo');
Readln(Cenagorivo);
Writeln('Vyvedete tarifata');
Readln(Cenakm);
Prihodi := Probeg*Cenakm;
Razhodi := (Probeg/10)*Cenagorivo;
Pechalba := Prihodi - Razhodi;


End;
End; {krai na procedurata Zapis}

Procedure Izvod;

Begin
with Car do
Begin
Writeln('| Kolata e marka | No na kolata | Shofirana ot: |');
Writeln(' | ',Marka,' | ',NO,' | ',sobst,' |');
Writeln;
Writeln('|Probega za denq e|Razhoda za denq e|Prihoda za denq e|Pechalbata e|');
Write('| ',Probeg:6:2,' | ',Razhodi:6:2,' | ',Prihodi:6:2,' | ',Pechalba:6:2,' ');
Writeln;

End;
End; {krai na procedurata Izvod}

Procedure Incar;

Begin
Clrscr;
Writeln('Syzdavane na nov fail i vyvejdane na danni');
Writeln;
Write('Vyvedete imeto na faila ');
Readln(Fname);
Assign(Fdata, Fname);
Rewrite(Fdata);
Writeln;
Write('Vyvedete broq na avtomobilite No: ');
Readln(N);
For I := 1 to N do
Begin
Writeln;
Write(I:2,'.');
Zapis;
Write(Fdata, Car);
End;
Close(Fdata);
Writeln;
Writeln('Natisnete klavish za vrushtane v menuto');
C := ReadKey;
End; {krai na procedurata Incar}

Procedure Pregfile;

Begin
ClrScr;
Writeln('Pregled na dannite vyv faila');
Writeln;
Write('Vyvedete Imeto na faila ');
Readln(Fname);
Write('Vyv fail ',Fname);
Writeln(' sa vyvedeni dannite za slednite avtomobili');
Assign(Fdata, Fname);
Reset(Fdata);
For I := 1 to FileSize(Fdata) do
Begin
Writeln;
Write(I:2,'.');
Read(Fdata,Car);
Izvod;
C := ReadKey;
End;
Writeln;
Write('Kraj na dannite');
Close(Fdata);
Writeln;
Writeln('Natisnete klavish za vryshtane v menuto');
C := ReadKey;
End; {Krai na tekushtata procedura}

Procedure ActFile;

var
Equal : Boolean;
Sobst : String[30];

Begin

ClrScr;
Writeln('Smqna na dannite na shofiora');
Writeln;
Write('Vyvedete imeto na faila: ');
Readln(Fname);
Assign(Fdata, Fname);
Reset(Fdata);
Equal := False;
Writeln('Vyvedete imeto na shofiora: ');
Readln(Sobst);
While not Eof(Fdata) and not Equal do
Begin
Read(Fdata, Car);
Writeln('Dannite za shofiora sa sa ');
If Sobst = Car.Sobst then
Equal := True;
End;
If Equal then
Begin
Writeln('Dannite za shofiora sa');
Izvod;
Writeln;
Writeln('vyvedete novite danni ');
Zapis;
Seek(Fdata, FilePos(fdata) -1);
Write(Fdata,Car);
End
else
Writeln('Nqma danni za tozi sobstvenik ');
Close(Fdata);
Writeln;
Writeln('Natisnete klavish za vryshtane v menuto');
C := ReadKey;
End;

Procedure Search;

var
Equal : Boolean;
Sobst : String[30];

Begin

ClrScr;
Writeln('Tyrsene na danni');
Writeln;
Write('Vyvedete imeto na faila: ');
Readln(Fname);
Assign(Fdata, Fname);
Reset(Fdata);
Equal := False;
Writeln('Vyvedete imeto na shofiora: ');
Readln(Sobst);
While not Eof(Fdata) and not Equal do
Begin
Read(Fdata, Car);
If Sobst = Car.Sobst then
Equal := True;
End;
If Equal then
Begin
Writeln('Dannite za shofiora sa');
Izvod;
Writeln;

End
else
Writeln('Nqma danni za tozi sobstvenik ');
Close(Fdata);
Writeln;
Writeln('Natisnete klavish za vryshtane v menuto');
C := ReadKey;
End;


Begin {Glavna programa}

Repeat

ClrScr;
Writeln;
Textcolor(12);
Writeln(' MENU ZA OBRABOTKA NA FAILOVETE');
Writeln;
Textcolor(Yellow);
Writeln('Strahil Mehandzhitski, F24392');
Writeln('Baza danni za taksimetrova firma');
Textcolor(white);
Writeln;
Writeln('1. Syzdavane na nov fail');
Writeln('2. Aktualizirane na fail');
Writeln('3. Pregled na dannite');
Writeln('4. Tyrsene');
Writeln('5. Izhod');
Writeln;
Writeln('Napravete izbor: ');
repeat
Gotoxy(18,13);
ClrEol;
Readln(Op);
Until ((op > 0) and (OP < 6));
case Op of
1 : Incar;
2 : ActFile;
3 : PregFile;
4 : Search;
end;
Until Op = 5;
end.

[Чудомир]

Дай некъв скаип да ти звънна.

[Audi_RS*]

Пратих ти го на ЛС

[Божков]

Абе тия не се отказаха от Access-а. Предполагам нещо в училище ти го искат. Пак сме съвсем леко изостанали. В Македония, представете си, в средните училища в момента учели Фортран... То бива праисторическо мислене ама явно македонския инат е непоправим.

[Audi_RS*]

Искат ми го в университета това.. лошото е че нито в техникума нито до сега в унито не ни научиха на кой знае какви неща,нямат желание май.. особено в техникума..

[Божков]

То в техникум не можеш да очакваш кой знае на какво да те научат. Лошото е че в университетите доста преподаватели са посредствени и повечето не искат да се развиват, а цял живот да дъвчат каквото са учили някога си. За ИТ това е пагубно - да ти преподават жалки смешки отпреди 10-15 години и ако им кажеш нещо да ти се дървят, че уж ти не си наясно колко е велико нещото. Само че в минало време.