unit main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Buttons, jpeg, ExtCtrls, StdCtrls;

type

  TForm1 = class(TForm)
    btnNowy: TSpeedButton;
    btnPrzeglad: TSpeedButton;
    btnEdycja: TSpeedButton;
    btnKoniec: TSpeedButton;
    btnUsun: TSpeedButton;
    Image1: TImage;
    btnSzukaj: TSpeedButton;
    chkSaveAtExit: TCheckBox;
    procedure btnNowyClick(Sender: TObject);
    procedure btnEdycjaClick(Sender: TObject);
    procedure btnPrzegladClick(Sender: TObject);
    procedure btnKoniecClick(Sender: TObject);
    procedure btnUsunClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btnSzukajClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

    wskaznik = ^lista;

    TDane = record
            id : integer;
            imie, nazwisko : string[30];
            symbol : string[10];
            telefon : string[30];
            end;

    lista = record
            dane : TDane;
            next : wskaznik;
            end;
var
  Form1: TForm1;
  start : wskaznik;
  plik : file of TDane;

procedure ZapiszDoPliku;
procedure WczytajZPliku;

implementation

uses dodawanie_prac, przeglad_prac, edycja_prac, usuwanie_prac,
  szukanie_prac;

{$R *.DFM}

function DodajDoListy(var start : wskaznik; info : TDane):boolean; external 'BIBL_LIST' index 1;
function WczytajZPlikuDoListy(var start : wskaznik; info : TDane):boolean; external 'BIBL_LIST' index 2;
function UsunZListy(var start : wskaznik; idus : integer):boolean; external 'BIBL_LIST' index 3;
function Sortuj(var start : wskaznik):wskaznik; external 'BIBL_LIST' index 4;
procedure TForm1.btnNowyClick(Sender: TObject);
begin
Form2.show;
end;

procedure TForm1.btnEdycjaClick(Sender: TObject);
begin
Form4.Show;
end;

procedure TForm1.btnPrzegladClick(Sender: TObject);
begin
Form3.Show;
end;

procedure TForm1.btnKoniecClick(Sender: TObject);
begin
if chkSaveAtExit.Checked then ZapiszDoPliku;
while start<>nil do
  UsunZListy(start, start^.dane.id);
Close;
end;

procedure TForm1.btnUsunClick(Sender: TObject);
begin
Form5.show;
end;

procedure ZapiszDoPliku;
var t : wskaznik;
begin
try
  assignfile(plik, 'pracownicy.dat');
  rewrite(plik);
  t:=start;
  while t<>nil do
    begin
      write(plik, t^.dane);
      t:=t^.next;
    end;
  closefile(plik);
 except
  showmessage('Wystąpił błąd podczas zapisywania do pliku.');
 end;
end;

procedure WczytajZPliku;
var info  : TDane;
begin
try
  assignfile(plik, 'pracownicy.dat');
  reset(plik);
  while not eof(plik) do
    begin
      read(plik, info);
      WczytajZPlikuDoListy(start, info);
    end;
  closefile(plik);
  except
    on EInOutError do
      begin
      showmessage('Wystąpił błąd podczas czytania pliku lub pliku nie znaleziono.');
      rewrite(plik);
      closefile(plik);
      end;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
WczytajZPliku;
end;

procedure TForm1.btnSzukajClick(Sender: TObject);
begin
Form6.show;
end;

end.