Stian Søiland, IT 111, øvingsgruppe 15 (stud.ass. Kari Alvheim)

Delphi - Øving 2 - Oppgave 5

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    svare2: TEdit;
    svare1: TEdit;
    svare3: TEdit;
    svare4: TEdit;
    svare5: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Button1: TButton;
    Button2: TButton;
    StringGrid1: TStringGrid;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    StatusBar1: TStatusBar;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  kunde: integer;

implementation

{$R *.DFM}


procedure TForm1.Button1Click(Sender: TObject);

var sum,pris,totrabatt : real;
 rabatt,antall,varer : integer;
 tsum,trabatt : string;

begin
 kunde := kunde + 1;
 if (kunde > 97512) then
  ShowMessage('Du har for mange kunder!')
 else
  begin
  antall := StrToInt(svare1.text);
  pris := 123.5;
  if antall > 50 then
   if antall > 100 then rabatt := 10
   else rabatt := 5
  else rabatt := 0;
  varer := antall;
  sum := antall * pris;
  totrabatt := antall * pris * rabatt / 100;

  antall := StrToInt(svare2.text);
  pris := 25;
  if antall > 500 then
   rabatt := 10
  else rabatt := 0;
  varer := varer + antall;
  sum := sum + antall * pris;
  totrabatt := totrabatt + antall * pris * rabatt / 100;

  antall := StrToInt(svare3.text);
  pris := 250;
  if antall > 30 then
   if antall > 70 then
    if antall > 200 then
     rabatt := 15
    else rabatt := 10
   else rabatt := 5
  else rabatt := 0;
  varer := varer + antall;
  sum := sum + antall * pris;
  totrabatt := totrabatt + antall * pris * rabatt / 100;

  antall := StrToInt(svare4.text);
  pris := 87.50;
  if antall > 110 then
   rabatt := 10
  else rabatt := 0;
  varer := varer + antall;
  sum := sum + antall * pris;
  totrabatt := totrabatt + antall * pris * rabatt / 100;

  antall := StrToInt(svare5.text);
  varer := varer + antall;
  sum := antall * 67 + sum;

  trabatt := Formatfloat('#,##0.00',totrabatt);
  tsum := Formatfloat('#,##0.00',(sum-totrabatt));

  StatusBar1.Panels[1].Text := 'Kundenr: ' + IntToStr(Kunde);
  StatusBar1.Panels[2].Text := IntToStr(Varer) + ' varer';
  StatusBar1.Panels[3].Text := 'Sum: ' + tsum;
  StatusBar1.Panels[4].Text := 'Rabatt: ' + trabatt;

  with StringGrid1 do begin
   Rowcount := kunde-91000;
   Cells[0,kunde-91001] := IntToStr(kunde);
   Cells[1,kunde-91001] := tsum;
   Cells[2,kunde-91001] := trabatt;
  end;

  svare1.text := '0';
  svare2.text := '0';
  svare3.text := '0';
  svare4.text := '0';
  svare5.text := '0';
  Label1.Caption := 'Registrer varekjop for kunde ' + IntToStr(Kunde+1);
 end

end;

procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
 kunde := 91000;
 StringGrid1.Rowcount := 0;
 for i:=0 to 2 do StringGrid1.Cells[i,0] := '';
end;


initialization
 kunde := 91000;


end.