unit buchungAnlegen;
interface
uses
...
type
TBuchungAnlegenForm =
class(TForm)
...
end;
var
BuchungAnlegenForm: TBuchungAnlegenForm;
implementation
{$R *.dfm}
procedure TBuchungAnlegenForm.KndEinfBtnClick(Sender: TObject);
begin
if KundeAngebenForm.ShowModal = mrOK
then
begin
edName.Text := KundeAngebenForm.neuerKunde.
name;
edVName.Text := KundeAngebenForm.neuerKunde.vorname;
edStr.Text := KundeAngebenForm.neuerKunde.strasse;
edHnr.Text := KundeAngebenForm.neuerKunde.hausnummer;
edPlz.Text := KundeAngebenForm.neuerKunde.plz;
edOrt.Text := KundeAngebenForm.neuerKunde.ort;
[b]aktKunde := KundeAngebenForm.neuerKunde;
KundeAngebenForm.neuerKunde.Free;[/b]
BuchAufnBtn.Enabled := True;
end;
end;
procedure TBuchungAnlegenForm.BuchAufnBtnClick(Sender: TObject);
var umb: Shortint;
rab: Single;
s: ShortString;
begin
s := cbRabatt.Items[cbRabatt.ItemIndex];
Delete(s, Length(s), 1);
//Prozentzeichen entfernen
rab := StrToFloat(s) / 100;
//in Gleitkomma umrechnen und durch 100 teilen
umb := cbBuch.ItemIndex;
with BuchungTab
do
begin
Active := True;
Append;
FieldByName('
Kunde').AsInteger := [b]aktKunde.id[/b];
FieldByName('
Zimmer').AsString := aktZimmer;
FieldByName('
Anreise').AsDateTime := aktDatum;
FieldByName('
Abreise').AsDateTime := dtpAbreise.Date;
FieldByName('
Rabatt').AsFloat := rab;
FieldByName('
Umbuch').AsInteger := umb;
Post;
Active := False;
end;
FBuchung := TBuchung.Create(aktZimmer, aktKunde, aktDatum, dtpAbreise.Date, umb, rab);
...
end;
end.