Простая база данных.

 

   Используя процедуры работы с файлами можно создать несложную БД. В поля диалогового окна пользователь может вводить дату и температуру воздуха. С видом формы БД можно познакомиться в папке «Задания» под названием «БД Погода».

 

const  DBNAME = 'c:\pogoda.db';

var    db: TextFile;                                              // файл - база данных

procedure TForm1.FormActivate(Sender: TObject);

begin

  AssignFile(db, DBNAME);

  {$I-}

  Append(db);

  if IOResult = 0

     then begin

            Edit1.Text:= DateToStr(Date);             // Получить текущую дату

            Edit2.SetFocus;                                     // курсор в поле Edit2

         end

     else begin

          Rewrite(db);

          if IOResult <> 0 then

             begin                 // сделать недоступными поля ввода и командную кнопку

                 Edit1.Enabled := False;

                 Edit2.Enabled := False;

                 Button1.Enabled := False;

                 ShowMessage('Ошибка cоздания '+DBNAME);

             end;

       end;

end;                                                 // щелчок на кнопке Добавить

procedure TForm1.Button1Click(Sender: TObject);

begin

   if (Length(edit1.text)=0) or (Length(edit2.text)=0)

     then ShowMessage('Ошибка ввода данных.'

                      +#13+'Все поля должны быть заполнены.')

     else writeln(db, edit1.text,' ',edit2.text);

end;                                       // Событие OnClose возникает при закрытии формы

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

        CloseFile(db); // закрыть файл БД

end;

 

 

Задание. Изменить программу так, чтобы появилась возможность просмотра созданного текста файла БД.