Создание базы данных

DjSwatPro

Задание: Создайте программу для работы с базой данных учета авиапассажиров, сформироанный в виде файла записи. В каждой записи определить поля: город назначения, номер рейса, дата вылета, фамилия, паспорт. Необходимо реализовать следующие операции:добавление и удаление записи, вывод содержимого файла, редактирование, поиск и сортировка данных по фамилиям.Надеюсь, что поможите. Просто чисто физический не получается все сделать. Сессия на носу и наша училка любит под конец разбирать новые темы. Сложная тема. Зарание спасибо. PS: Делфи Консоль
10 ответов

DjSwatPro

Есть мысли, люди добрые?


DjSwatPro

Не тот раздел форума, мой друг


DjSwatPro

Почему? Делфи же. Лично мы весь 1 семестр работали с делфи.


DjSwatPro

Дельфи, но это раздел не для тех, кому надо сделать с нуля и под ключ, потому что он, видите ли, сам не хочет/не может/не успевает/учитель, как всегда, виноват. А для тех, кто принимает в решении своей задачи активное участие. Для остальных есть раздел Фриланс. Там - "любой каприз за ваши деньги". Перенести тему, или начнешь сам делать задачу, тогда и помощь (помощь, а не решение за тебя, еще раз повторяю) будет.


DjSwatPro

училка любит под конец разбирать новые темы
Конечно, преподаватель всегда крайний. Студентам порой и в голову не приходит, что есть преподаватели, которые хотят искренне поделиться опытом и знаниями.


DjSwatPro

Хорошо. С чего мне начать?Просто обычно мы делали простятские и тут бац - лекция и лаба сразу. Даже не проктиковались. Я вот лично не знаю как даже начать. + в инете не нашел примера таких задач


DjSwatPro

Просмотри работу с записями для начала


DjSwatPro

const n=5;
type
Z=record
CityNaznachenia:string[20];
NomerReisa:integer;
DataVileta:word;
Familia:string[20]
pasport:integer;
end;
 
var
s1:test;
i:integer;
a:array [1..n] of z;
 
begin
assign (S1,'A.txt');
Rewrite (S1);
 
for i:=1 to n do
with a[i] to begin
writeln ('Vedite Gorod Naznachenya');
readln (CityNaznachenia);
writeln ('Vedite Nomer Reisa');
readln (NomerReisa);
writeln ('Vedite Data Vileta');
readln (DataVileta);
writeln ('Vedite Familiu');
readln (Familia);
writeln ('Vedite Pasport');
readln (Pasport);
end;
Close (s1);
readln;
end.
Накалякал. В S1 ругается в варе и в pasport:integer; И скжите что дальше делать.где же вы?


DjSwatPro

S1:TextFile;
Pasport:string;


DjSwatPro

все равно не паспорт ругается. и что дальше мне делать? ведь задание на этом не закончилось ввел я их. а как их вывести.
 Procedure vuvoddannuh(a:TFile); //вывод данных 
 var i:Integer; 
 begin 
 writeln ('--------------------------------------------------------------------------'); 
 writeln (' CityNaznachenia / Data Vileta / Familiu / Vedite Pasport'); 
 writeln ('--------------------------------------------------------------------------'); 
 for i:=1 to n do 
 writeln(a[i].CityNaznachenia:15,' ',a[i].NomerReisa:15,' ',a[i].DataVileta:5,' ',a[i].Pasport:15); 
 end.
и это можно под конец влепить. помогите составить полный код программы. Надеюсь, что вы видите, что я не какой-нить лаботряс, который любит всю работу скидывать на людей.ну что?понятно все с вами.