Posted by : rynsuji.blogspot.com
Minggu, 23 November 2014
PROGRAM DATA PEGAWAI
Program ini di buat menggunakan Delphi 7. 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.
Berikut tampilan outputnya :
Bagi yang ingin mendownload silahkan klik Di Sini!!!