close

Вход

Забыли?

вход по аккаунту

?

базы данных

код для вставки
курс программирования Lazarus
Поиск записей по определенному полю
Например, в базе данных "Ученики" ищем все записи, в которых поле "Имя" соответствует заданному имени
procedure TForm1.Button4Click(Sender: TObject);
var
F:file of student;
st, poisk:student;
Pol:string[10];
begin
Memo1.Clear;
poisk.Name:=LabeledEdit1.Text;//определяем, что ищем
AssignFile(F,'baza.dat');
{$I-}
Reset(F);
{$I+}
if IOResult<>0 then ShowMessage('Нет базы')
else
while not(EOF(F)) do begin
Read(F,st);
if st.Pol=Boy then Pol:=' мальчик ' else Pol:=' девочка ';
if (st.Name=poisk.Name) then//если находим, то выводим всю запись
Memo1.Lines.Add(st.Name+' '+st.Fam+' возраст= '+IntToStr(st.Vozrast)+Pol)
else Memo1.Lines.Add('ничего не найдено');
end;
CloseFile(F);
end;
Задание 1
Создать базу данных музыкальных произведений. Поля типа - запись "Музыка" следующие: название, исполнитель, композитор, поэт, год выпуска. Записывать данные в файл, считывать из файла всю базу, осуществлять поиск по названию песни
Задание 2
Создать базу данных видеофильмов. Поля типа - запись "Фильм" следующие: название, режиссер, краткое описание, год выпуска. Записывать данные в файл, считывать из файла всю базу, осуществлять поиск по режиссеру
Задание 3
Создать базу данных мобильных телефонов. Поля типа - запись "Телефон" следующие: название фирмы, марка телефона, год выпуска, стоимость, характеристика. Записывать данные в файл, считывать из файла всю базу, осуществлять поиск по названию фирмы
Задание 4
Создать базу данных товарищей. Поля типа - запись "Товарищ" следующие: имя, фамилия, возраст, телефон домашний, телефон мобильный. Записывать данные в файл, считывать из файла всю базу, осуществлять поиск по имени
Задание 5
Создать базу данных любимых книг. Поля типа - запись "Книга" следующие: название, автор, краткая аннотация, количество страниц, год выпуска. Записывать данные в файл, считывать из файла всю базу, осуществлять поиск по автору.
Автор
sob-mk
sob-mk146   документов Отправить письмо
Документ
Категория
Школьные материалы
Просмотров
107
Размер файла
14 Кб
Теги
базы данных, Lazarus, record, программирование
1/--страниц
Пожаловаться на содержимое документа