In Datenbank(Edit1.Txt) suchen

[xv300]

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, ExtCtrls;

type
  TForm1 = class(TForm)
    LaDateisatz: TLabel;
    EdName: TEdit;
    EdVorname: TEdit;
    EdStrasse: TEdit;
    EdPLZ: TEdit;
    EdTelefon: TEdit;
    EdOrt: TEdit;
    LaName: TLabel;
    LaVorname: TLabel;
    LaStrasse: TLabel;
    LaPLZORT: TLabel;
    Telefon: TLabel;
    Budateineu: TButton;
    Budateioeffnen: TButton;
    BuDatensatzhinzu: TButton;
    Buzurueck: TButton;
    Buvorwaerts: TButton;
    Ladatei: TLabel;
    BuBeenden: TButton;
    Label3: TLabel;
    BuTabelle: TButton;
    Button1: TButton;
    RGsuchen: TRadioGroup;
    procedure BuBeendenClick(Sender: TObject);
    procedure BudateineuClick(Sender: TObject);
    procedure BudateioeffnenClick(Sender: TObject);
    procedure BuzurueckClick(Sender: TObject);
    procedure BuvorwaertsClick(Sender: TObject);
    procedure BuDatensatzhinzuClick(Sender: TObject);
    procedure BuTabelleClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

    T_Adresse=Record
    Name: String[20];
    Vorname: String[20];
    Strasse: String[30];
    PLZ: String[7];
    Ort: String[15];
    Telefon : String[20];
    end;
        T_Datei = file of T_Adresse;
var
  Form1 : TForm1;
  Adresse : T_Adresse;
  f : T_Datei;
  Dateiname : String;
  ClickedOK : Boolean;
  Satznummer : Integer;


implementation

uses Unit2;

procedure liesadresse(Var Adresse:T_Adresse);
begin
  with Adresse do
    begin
      Name := Form1.EdName.Text;
      Vorname := Form1.EdVorname.Text;
      Strasse := Form1.EdStrasse.Text;
      PLZ := Form1.EDPLZ.Text;
      Ort := Form1.EdOrt.Text;
      Telefon := Form1.EdTelefon.Text;

    end;
end;    
{$R *.dfm}

procedure TForm1.BuBeendenClick(Sender: TObject);
begin
 Form1.Close;
end;

procedure TForm1.BudateineuClick(Sender: TObject);
begin
  Dateiname := '';
  ClickedOK:=InputQuery('Neue Datei anlegen','Name der neuen Datei(Vollständiger Pfad)',Dateiname);
  if clickedOk then
    begin
      Assignfile(f,Dateiname);
      rewrite(f);
      LaDatei.Caption := 'Datei ' + Dateiname + 'wurde angelegt';
    end;
end;

procedure TForm1.BudateioeffnenClick(Sender: TObject);
begin
    Dateiname := '';
    ClickedOK := InputQuery('Vorhandene Datei öffnen','Name der zu öffnenden Datei(Vollständiger Pfad)', Dateiname);
    if ClickedOK then
      begin
        AssignFile(f,Dateiname);
        Reset(f);
        LaDatei.Caption := 'Datei '+ Dateiname + ' wurde geöffnet !';
      end;



end;
procedure TForm1.BuzurueckClick(Sender: TObject);
begin
 if Satznummer > 0 then
     begin
  Satznummer:= Satznummer - 1;
  LaDateisatz.Caption := 'Datensatz-Nr.: ' + IntToStr(Satznummer);
  Application.ProcessMessages;
  seek(f,Satznummer);
  read(f,Adresse);
      with Adresse do
        begin
          EdName.Text := Name;
          EdVorName.Text := Vorname;
          EdStrasse.Text := Strasse;
          EdPLZ.Text := PLZ;
          EdOrt.Text := Ort;
          EdTelefon.Text := Telefon;

        end

     end
   else Label3.Caption := 'Sie sind wieder am Anfang!';
    Application.ProcessMessages;
end;

procedure TForm1.BuvorwaertsClick(Sender: TObject);
begin
  if not eof(f) then
    begin
      read(f,Adresse);
      inc(Satznummer);
      LaDateisatz.Caption := 'Datensatz-Nr.: ' + IntToStr(Satznummer);
      Application.ProcessMessages;
      with Adresse do
        begin
          EdName.Text := Name;
          EdVorname.Text := Vorname;
          EdStrasse.Text := Strasse;
          EdPLZ.Text := PLZ;
          EdOrt.Text := Ort;
          EdTelefon.Text := Telefon;
         end
      end
  else
    Label3.Caption := 'Sie sind am Dateiende angekommen!!!';
end;

procedure TForm1.BuDatensatzhinzuClick(Sender: TObject);
begin
  liesadresse(Adresse);
  write(f,Adresse);
end;

procedure TForm1.BuTabelleClick(Sender: TObject);
begin
  Form2 := TForm2.Create(Form1);
  Form2.Show;
  Form2.Tabelle.Cells[0,0] := ' ';
  Form2.Tabelle.Cells[1,0] := 'Name';
  Form2.Tabelle.Cells[2,0] := 'Vorname';
  Form2.Tabelle.Cells[3,0] := 'Strasse';
  Form2.Tabelle.Cells[4,0] := 'PLZ';
  Form2.Tabelle.Cells[5,0] := 'Ort';
  Form2.Tabelle.Cells[6,0] := 'Telefon';


  while not eof(f) do
    begin
      read(f,Adresse);
      Satznummer := Satznummer + 1;

      with Adresse do
        begin
          Form2.Tabelle.Cells[0,Satznummer] := IntToStr(Satznummer);
          Form2.Tabelle.Cells[1,Satznummer] := Name;
          Form2.Tabelle.Cells[2,Satznummer] := Vorname;
          Form2.Tabelle.Cells[3,Satznummer] := Strasse;
          Form2.Tabelle.Cells[4,Satznummer] := PLZ;
          Form2.Tabelle.Cells[5,Satznummer] := Ort;
          Form2.Tabelle.Cells[6,Satznummer] := Telefon;
        end
      end
end;

end.