Toko Abdurrahiim | Sedia Aneka Herbal

Source Code PT Meniti Jalan Yang Lurus

unit Quiz_Pra_UTS;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, jpeg, ExtCtrls;

type

  TForm1 = class(TForm)

    bclose: TButton;

    btotal: TButton;

    binput: TButton;

    etgl: TEdit;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    cnip: TComboBox;

    enama: TEdit;

    egapok: TEdit;

    GroupBox1: TGroupBox;

    rtetap: TRadioButton;

    rkontrak: TRadioButton;

    GroupBox2: TGroupBox;

    cbpagi: TCheckBox;

    cbsore: TCheckBox;

    Label6: TLabel;

    etunjangan: TEdit;

    Label7: TLabel;

    egaber: TEdit;

    cjabatan: TComboBox;

    Label9: TLabel;

    eambilpagi: TEdit;

    eambilsore: TEdit;

    Label10: TLabel;

    ejmlpagi: TEdit;

    Label8: TLabel;

    ejmlsore: TEdit;

    Label11: TLabel;

    ejampagi: TEdit;

    ejamsore: TEdit;

    bproses: TButton;

    Label12: TLabel;

    etlembur: TEdit;

    Shape1: TShape;

    procedure bcloseClick(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure cnipClick(Sender: TObject);

    procedure cjabatanClick(Sender: TObject);

    procedure rtetapClick(Sender: TObject);

    procedure rkontrakClick(Sender: TObject);

    procedure btotalClick(Sender: TObject);

    procedure binputClick(Sender: TObject);

    procedure cbpagiClick(Sender: TObject);

    procedure cbsoreClick(Sender: TObject);

    procedure bprosesClick(Sender: TObject);

 

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.bcloseClick(Sender: TObject);

begin

if (application.MessageBox('Anda Yakin Keluar?','Informasi',MB_YESNO+MB_ICONWARNING)=IDYES)then

close

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

cnip.Items.Add('001');

cnip.Items.Add('002');

cnip.Items.Add('003');

cnip.Items.Add('004');

cnip.Items.Add('005');

ejampagi.Text:='0';

ejamsore.Text:='0';

ejmlpagi.Text:='0';

ejmlsore.Text:='0';

etlembur.Text:='0';

eambilpagi.Text:='0';

eambilsore.Text:='0';

egapok.Text:='0';

etunjangan.Text:='0';

{setting tanggal otomatis}

dateseparator:='/';

shortdateformat:='dd/mmmm/yyyy';

etgl.Text:=datetostr(date);

end;

procedure TForm1.cnipClick(Sender: TObject);

begin

if cnip.Text='001'then

 enama.Text:='Irfan MR'

else

if cnip.Text='002'then

 enama.Text:='Kurnia Ningsih'

else

if cnip.Text='003'then

 enama.Text:='Ganjar'

else

if cnip.Text='004'then

 enama.Text:='Galih'

else

enama.Text:='Aan Fatimah';

end;

procedure TForm1.cjabatanClick(Sender: TObject);

begin

if cjabatan.Text='Direktur'then

egapok.Text:=' 5000000'

else

if cjabatan.Text='Wakil Direktur'then

egapok.Text:='3000000'

else

if cjabatan.Text='Lead Manager'then

egapok.Text:=' 1800000'

else

if cjabatan.Text='Manager'then

egapok.Text:=' 1350000'

else

egapok.Text:=' 10000000';

end;

procedure TForm1.rtetapClick(Sender: TObject);

var a, hasil:real;

begin

if rtetap.Checked = true then

a := strtofloat(egapok.Text);

hasil :=a*0.3;

etunjangan.Text := floattostr(hasil)

end;

procedure TForm1.rkontrakClick(Sender: TObject);

var a, hasil :real;

begin

if rkontrak.Checked = true then

a := strtofloat(egapok.Text);

hasil :=a*0.1;

etunjangan.Text := floattostr(hasil)

end;

procedure TForm1.btotalClick(Sender: TObject);

var a, b, c, d:real;

begin

a := strtofloat(egapok.Text);

b := strtofloat(etunjangan.Text);

c := strtofloat(etlembur.Text);

d := a+b+c;

egaber.Text := floattostr(d);

end;

procedure TForm1.binputClick(Sender: TObject);

begin

cnip.Text := 'NIP';

cjabatan.Text:='Jabatan';

enama.Text := '';

egaber.Text := '0';

etunjangan.Text := '0';

egapok.Text := '0';

rtetap.Checked := false;

rkontrak.Checked := false;

ejampagi.Text:='0';

ejamsore.Text:='0';

ejmlpagi.Text:='0';

ejmlsore.Text:='0';

etlembur.Text:='0';

eambilpagi.Text:='0';

eambilsore.Text:='0';

cnip.SetFocus;

end;

procedure TForm1.cbpagiClick(Sender: TObject);

begin

if cbpagi.Checked= true then

 begin

 ejampagi.Text:='30000';

 end

 else

 begin

 cbpagi.Checked:=false;

 ejampagi.Text:='';

end;

eambilpagi.SetFocus;

end;

procedure TForm1.cbsoreClick(Sender: TObject);

begin

if cbsore.Checked= true then

 begin

 ejamsore.Text:='40000';

 end

 else

 begin

 cbsore.Checked:=false;

 ejamsore.Text:='';

end;

eambilsore.SetFocus;

end;

procedure TForm1.bprosesClick(Sender: TObject);

begin

ejmlpagi.Text:=floattostr(strtofloat(ejampagi.Text)*strtofloat(eambilpagi.Text));

ejmlsore.Text:=floattostr(strtofloat(ejamsore.Text)*strtofloat(eambilsore.Text));

etlembur.Text:=floattostr(strtofloat(ejmlpagi.Text)+strtofloat(ejmlsore.Text));

end;

end.