unit MainApplication;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DateUtils, ExtCtrls, Buttons, ComCtrls;
type
TfMainApplication =
class(TForm)
GroupBox1: TGroupBox;
edGefahreneKilometer: TEdit;
edTageskostenFahrzeug: TEdit;
edKilometerkostenFahrzeug: TEdit;
GroupBox2: TGroupBox;
edKilometerkosten: TEdit;
edFahrzeugkosten: TEdit;
edGesamtkosten: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label5: TLabel;
rgFahrzeuge: TRadioGroup;
BitBtn1: TBitBtn;
DateTimePicker1: TDateTimePicker;
DateTimePicker2: TDateTimePicker;
Label9: TLabel;
Label13: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
procedure Button1Click(Sender: TObject);
procedure rgFahrzeugeClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure edGefahreneKilometerKeyPress(Sender: TObject;
var Key: Char);
procedure edTageskostenFahrzeugKeyPress(Sender: TObject;
var Key: Char);
procedure edKilometerkostenFahrzeugKeyPress(Sender: TObject;
var Key: Char);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
fMainApplication: TfMainApplication;
implementation
{$R *.dfm}
{ TfMainApplication }
procedure TfMainApplication.Button1Click(Sender: TObject);
var iGefahreneKilometer: Real;
dtUebernahme: TDateTime;
dtRueckgabe: TDateTime;
rTageskostenFahrzeug: Real;
rKilometerkostenFahrzeug: Real;
begin
if not (edFahrzeugKosten.Text = '
')
and not (edTageskostenFahrzeug.Text = '
')
then
//and not (edUebernahmeTag.Text = '') and not (edRueckgabeTag.Text = '') then
begin
try
edFahrzeugkosten.Text := FloatToStr(StrToFloat(edTageskostenFahrzeug.Text) * DaysBetween(DateTimePicker1.DateTime, DateTimePicker2.DateTime));
except
On E:
Exception do
ShowMessage('
Prüfen Sie die Eingaben auf richtigkeit!');
end;
end;
if not (edFahrzeugKosten.Text = '
')
and not (edTageskostenFahrzeug.Text = '
')
then
//and not (edUebernahmeTag.Text = '') and not (edRueckgabeTag.Text = '') then
begin
try
edKilometerkosten.Text := FloatToStr(StrToFloat(edGefahreneKilometer.text)* StrToFloat(edKilometerkostenFahrzeug.Text));
except
On E:
Exception do
ShowMessage('
Prüfen Sie die Eingaben auf richtigkeit!');
end;
end;
if not (edFahrzeugKosten.Text = '
')
and not (edTageskostenFahrzeug.Text = '
')
then
//and not (edUebernahmeTag.Text = '') and not (edRueckgabeTag.Text = '') then
begin
try
edGesamtkosten.Text := FloatToStr(StrToFloat(edKilometerkosten.Text)+ StrToFloat(edFahrzeugkosten.Text));
except
On E:
Exception do
ShowMessage('
Prüfen Sie die Eingaben auf richtigkeit!');
end;
end;
end;
procedure TfMainApplication.rgFahrzeugeClick(Sender: TObject);
begin
if rgFahrzeuge.ItemIndex = 0
then
begin
//rGrossesMotorrad.Itemindex:=
edTageskostenFahrzeug.Text := '
80,00';
edKilometerkostenFahrzeug.Text := '
0,25';
end;
if rgFahrzeuge.ItemIndex = 1
then
begin
//rKleinesMotorrad.Itemindex:=
edTageskostenFahrzeug.Text := '
65,00';
edKilometerkostenFahrzeug.Text := '
0,20';
end;
if rgFahrzeuge.ItemIndex = 2
then
begin
//rVespa.Itemindex:=
edTageskostenFahrzeug.Text := '
45,00';
edKilometerkostenFahrzeug.Text := '
0,17';
end;
if rgFahrzeuge.ItemIndex = 3
then
begin
//rMoped.Itemindex:=
edTageskostenFahrzeug.Text := '
35,00';
edKilometerkostenFahrzeug.Text := '
0,12';
end;
end;
procedure TfMainApplication.FormCreate(Sender: TObject);
begin
edGefahreneKilometer.Text := '
';
//iGefahreneKilometer:= 46;
//dtUebernahme:= StrToDate('23.7.2011');
//dtRueckgabe:= StrToDate('26.7.2011');
//edTageskostenFahrzeug.Text := '80,00';
//rTageskostenFahrzeug:= ('80.00');
//edKilometerkostenFahrzeug.Text := '0,25';
//rKilometerkostenFahrzeug:= 0.25;
end;
procedure TfMainApplication.edGefahreneKilometerKeyPress(Sender: TObject;
var Key: Char);
begin
if not (Key
in [#48..#57, #8, #44])
then
Key:=#0;
end;
procedure TfMainApplication.edTageskostenFahrzeugKeyPress(Sender: TObject;
var Key: Char);
begin
if not (Key
in [#48..#57, #8, #44])
then
Key:=#0;
end;
procedure TfMainApplication.edKilometerkostenFahrzeugKeyPress(
Sender: TObject;
var Key: Char);
begin
if not (Key
in [#48..#57, #8, #44])
then
Key:=#0;
end;
end.^