1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:

unit bBuecherverwaltung;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons, Vcl.Grids;

const
  pmax = 1000000; // Maximale Plätze

type
  TFormBuecherverwaltung = class(TForm)
    LabelBuchtitel: TLabel;
    LabelISBNummer: TLabel;
    LabelAutor: TLabel;
    LabelErscheinungsjahr: TLabel;
    EditBuchtitel: TEdit;
    EditAutor: TEdit;
    EditErscheinungsjahr: TEdit;
    EditISBNummer: TEdit;
    BitBtnHinzufuegen: TBitBtn;
    BitBtnLoeschen: TBitBtn;
    StringGridBuecherverwaltung: TStringGrid;
    BitBtnZurueck: TBitBtn;
    BitBtnVor: TBitBtn;
    BitBtnSchliessen: TBitBtn;
    BitBtnSuchen: TBitBtn;
    MemoBuecherverwaltung: TMemo;
    ListBoxBuecherverwaltung: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure BitBtnLoeschenClick(Sender: TObject);
    procedure BitBtnHinzufuegenClick(Sender: TObject);
    procedure BitBtnZurueckClick(Sender: TObject);
    procedure BitBtnVorClick(Sender: TObject);
    procedure BitBtnSchliessenClick(Sender: TObject);
    procedure EditErlaubteZahlenKeyPress(Sender: TObject; var Key: Char);
    procedure EditErlaubteZeichenKeyPress(Sender: TObject; var Key: Char);
    procedure BitBtnSuchenClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  FormBuecherverwaltung: TFormBuecherverwaltung;

implementation

uses
  aHaupt,         // Implementation des ersten Fensters aHaupt beinhaltet Menüleiste
  aHauptfenster,  // Implementation des zweiten Fensters aHauptfenster beinhaltet Button zu Bücherverwaltung & Kundenverwaltung
  sSuchen;        // Implementation des sechsten Fensters sSuchen beinhaltet den Such-Modus für die Bücherverwaltung & Kundenverwaltung

{$R *.dfm}

// ANFANG - Buecherverwaltung-Tabelle Aufbau

procedure TFormBuecherverwaltung.FormCreate(Sender: TObject);
var
  // Deklaration der Integer
  ls_erscheinungsjahr : Integer;
  li : Integer;

  // Deklaration der Strings
  ls_zeile : string;
  ls_buch : string;
  ls_autor : string;
  ls_isbnummer : string;
  ls_rest : string;
  ls_exe : string;
  ls_exepath : string;

begin
  ls_exe := Application.ExeName;
  ls_exepath := ExtractFilePath(ls_exe);

  // ANFANG - Laden des Memofeldes

  MemoBuecherverwaltung.Lines.LoadFromFile(ls_exepath+'verwaltung\buecher\memofeldbuecher.txt'); // Lädt Text, wenn vorhanden

  // Laden des Memofeldes - ENDE

end;

// Buecherverwaltung-Tabelle Aufbau - ENDE

// ANFANG - Erlaubte Zeichen

procedure TFormBuecherverwaltung.EditErlaubteZahlenKeyPress(Sender: TObject; var Key: Char);  // Verhinderung von Ziffern die nicht deklariert sind
begin
  if not (key in ['0'..'9','.','-', Char(VK_BACK)]) then                                      // Nur Zahlen möglich
     key := #0;                                                                               // wenn keine Zahl, dann Feld leer lassen
end;

procedure TFormBuecherverwaltung.EditErlaubteZeichenKeyPress(Sender: TObject; var Key: Char); // Verhinderung von Zeichen die nicht deklariert sind
begin
  If not(key in [#8,#32,#45,#46,#65..#90,#97..#122,#196,#214,#220,#223,#228,#246,#252])       // Nur Zeichen möglich
     then key := #0                                                                           // wenn kein Zeichen, dann Feld leer lassen
end;

// Erlaubte Zeichen - ENDE

// ANFANG - Initialization Suchen

procedure TFormBuecherverwaltung.BitBtnSuchenClick(Sender: TObject);
begin
  FormSuchen := TFormSuchen.Create(application);  // Erstellt das zweite Fenster
  FormSuchen.Show;                                // Gibt das zweite Fenster wieder
end;

// Initialization Suchen - ENDE

// ANFANG - Edit Eingabe Hinzufügen

procedure TFormBuecherverwaltung.BitBtnHinzufuegenClick(Sender: TObject);
var
  // Deklaration der Integer
  ls_erscheinungsjahr : Integer;
  li : Integer;


  // Deklaration der Strings
  ls_zeile : string;
  ls_buch : string;
  ls_autor : string;
  ls_isbnummer : string;
  ls_rest : string;
  ls_exe : string;
  ls_exepath : string;

begin
  ls_exe := Application.ExeName;
  ls_exepath := ExtractFilePath(ls_exe);

  // Eingabe in einem Memofeld
  MemoBuecherverwaltung.Lines.Add(ls_buch+';'+ls_autor+';'+IntToStr(ls_erscheinungsjahr)+';'+ls_isbnummer);
  MemoBuecherverwaltung.Lines.SaveToFile(ls_exepath+'verwaltung\buecher\memofeldbuecher.txt');

end;

// Edit Eingabe Hinzufügen - ENDE

// ANFANG - Seite zurück

procedure TFormBuecherverwaltung.BitBtnZurueckClick(Sender: TObject);
begin
// BAUSTELLE
end;

// Seite zurück - ENDE

// ANFANG - Seite vor

procedure TFormBuecherverwaltung.BitBtnVorClick(Sender: TObject);
begin
// BAUSTELLE
end;

// Seite vor - ENDE

// ANFANG - Editfelder Löschen

procedure TFormBuecherverwaltung.BitBtnLoeschenClick(Sender: TObject);
begin
  EditBuchtitel.Text := '';         // Löscht umgehend das Editfeld "Buchtitel"
  EditAutor.Text := '';             // Löscht umgehend das Editfeld "Autor"
  EditErscheinungsjahr.Text := '';  // Löscht umgehend das Editfeld "Erscheinungsjahr"
  EditISBNummer.Text := '';         // Löscht umgehend das Editfeld "ISBNummer"
end;

// Editfelder Löschen - ENDE

// ANFANG - Bücherverwaltung Schliessen

procedure TFormBuecherverwaltung.BitBtnSchliessenClick(Sender: TObject);
begin
  FormBuecherverwaltung.Close; // Schliesst nur das Fenster "Buecherverwaltung"
end;

// Bücherverwaltung Schliessen - ENDE

end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TFormBuecherverwaltung.BitBtnVorClick(Sender: TObject);
var
  li_y : Integer;
begin
  for li_y := 1 to 10 do
  begin
    EditBuchtitel.Text := StringGridBuecherverwaltung.Cells[1,li_y];
    EditAutor.Text := StringGridBuecherverwaltung.Cells[2,li_y];
    EditErscheinungsjahr.Text := StringGridBuecherverwaltung.Cells[3,li_y];
    EditISBNummer.Text := StringGridBuecherverwaltung.Cells[4,li_y];
  end;
end;					

1:
2:
3:
4:
5:
6:
7:

type 
  TForm1 = class(TForm)
  [...]
  private
    FSelectedEntry: integer
  [...]
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.ButtonVorClick(Sender: TObject);
begin
  inc(FSelectedEntry);
  //Prüfungen auf Ober- und Untergrenzen nicht vergessen !
  FillEdits;
end;

procedure TForm1.FillEdits;
begin
  //Prüfungen auf Grenzen nicht vergessen !
  ISBN.Text:=StringGridBuecherverwaltung.Cells[1,FSelectedEntry];
  [...]
end;