PROGRAM DATA PEGAWAI

PROGRAM DATA PEGAWAI

10.16
dp ilu
Program ini adalah tentang menghitung data pegawai, disini saya akan menerapkannya pada pemrograman delphi. Sebenarnya program ini tidak terlalu sulit, cara kerja dari program ini adalah kita hanya diminta untuk memasukan inputan nama pegawai, jam kerja dan gaji per jam. Setelah terisi semua data dan ketika kita klik button input maka data  yang kita inputkan akan tampil dalam stringgrid, ketika kita klik button clear maka data yang pernah kita masukkan di pilihan edit akan di bersihkan. Data yang tampil dalam stringgrid bisa kita hapus, tapi satu per satu dari bawah dan tidak langsung terhapus semuanya, caranya dengan mengklik button delete, dan button close untuk keluar dari program. Berikut Source codenya :
unit gaji;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Pegawai: TEdit;
    Jam: TEdit;
    Gj: TEdit;
    Button1: TButton;
    Button2: TButton;
    Panel2: TPanel;
    Panel3: TPanel;
    Button4: TButton;
    Button3: TButton;
    Timer1: TTimer;
    sg: TStringGrid;
    procedure Button4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  var i,j,t,tb,jm,gj2,gj3,lembur,lembur2,pokok:integer;
  a:string;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
a:='Riyan Susilo Adji ';
sg.ColCount := 5;
sg.RowCount := 1;
sg.Cells[0,0]:='No';
sg.Cells[1,0]:='Nama Pegawai';
sg.Cells[2,0]:='Jam Kerja';
sg.Cells[3,0]:='Gaji';
sg.Cells[4,0]:='Total Gaji';

sg.ColWidths [0]:=30;
sg.ColWidths [1]:=80;
sg.ColWidths [2]:=80;
sg.Colwidths[3]:=60;
sg.colwidths[4]:=80;

end;


procedure TForm1.Button1Click(Sender: TObject);
begin
if MessageDlg(' Apakah ingin anda input?', mtInformation, [mbYes, mbNO],0)= MRYES THEN


jm:=strtoint(Jam.text);
gj2:=strtoint(Gj.Text);
           if jm > 10 then
                    begin
                      lembur:=jm-10;
                      lembur2:=lembur*gj2*2;
                      pokok:=(jm-lembur)*gj2;
                      t:=lembur2+pokok;
                      end
                    else
                    begin
                      t:=jm*gj2;
                      lembur2:=0;
                    end;
sg.RowCount := sg.rowcount+1;
sg.cells[1,sg.RowCount-1]:= Pegawai.Text;
sg.Cells[2,sg.RowCount-1]:= Jam.Text ;
sg.Cells[3,sg.rowcount-1]:= Gj.Text ;
sg.cells[4,sg.RowCount-1] :=IntToStr(t);
for i:=1 to sg.RowCount-1 do
sg.Cells[0,i]:=inttostr(i);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
 sg.RowCount := sg.rowcount-1;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var 
i: Integer; 
begin 
Application.Title := a; 
Form1.Caption := a; 
for i := 1 to (length(a) - 1) do
a[i] := Application.Title[i + 1];
a[Length(a)] := Application.Title[1];
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
application.Terminate;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Pegawai.Clear;
Jam.Clear;
Gj.clear;
end;

end.

Source Code juga bisa Download DISINI