LISTING PROGRAM
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
nip: TEdit;
nama: TEdit;
Cmbjabatan: TComboBox;
gaji: TEdit;
tunjangan: TEdit;
total: TEdit;
procedure FormCreate(Sender: TObject);
procedure CmbjabatanChange(Sender: TObject);
procedure TunjanganChange(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
cmbjabatan.Items.Add('DIREKTUR');
cmbjabatan.Items.Add('MANAGER');
cmbjabatan.Items.Add('KARYAWAN');
end;
procedure TForm1.CmbjabatanChange(Sender: TObject);
begin
if cmbjabatan.Text='DIREKTUR' then
begin
gaji.Text:='10000000';
end
else
if cmbjabatan.Text='MANAGER' then
begin
gaji.Text:='5000000';
end
else
if cmbjabatan.Text='KARYAWAN' then
begin
gaji.Text:='2000000';
end
else
gaji.Text:='0';
end;
procedure TForm1.TunjanganChange(Sender: TObject);
begin
tunjangan.Text:=0.1*(gaji.Text);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
total.Text:=floattostr(strtofloat(gaji.Text)+strtofloat(tunjangan.Text));
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
nip.Text:='';
nama.Text:='';
cmbjabatan.Text:='';
gaji.Text:='';
tunjangan.Text:='';
total.Text:='';
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
if application.MessageBox('Yakin Mau Keluar','Konfirmasi',mb_yesno+32)=idyes then
close
end;
end.
0 Responses " "
Posting Komentar