Posted by : rynsuji.blogspot.com
Sabtu, 13 Desember 2014
PROGRAM GAJI MENGGUNAKAN DATABASE
Program
ini di buat menggunakan Delphi 7. Program ini adalah tentang menghitung data pegawai, disini saya akan menerapkannya pada pemrograman delphi.
Program
ini menggunakan label, button, edit, panel,
timer, DBGrid, DBNavigator, ADOConnection, ADOQuery dan DataSource. 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 dengan menggunakan DBNavigator, 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, DB, DBGrids, ADODB, DBCtrls;
type
TForm1 = class(TForm)
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Kode: TEdit;
Pegawai: TEdit;
Jam: TEdit;
Button1: TButton;
Button2: TButton;
Panel2: TPanel;
Panel3: TPanel;
Button3: TButton;
Gj: TEdit;
Label4: TLabel;
ADOConnection1: TADOConnection;
DBGrid1: TDBGrid;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
DBNavigator1: TDBNavigator;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
var t,jm,gj2,lembur,lembur2,pokok:integer;
a:string;
implementation
{$R *.dfm}
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.FormCreate(Sender: TObject);
begin
a:='Riyan Susilo Adji ';
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;
adoquery1.Append;
adoquery1['Kode']:=kode.Text;
adoquery1['Nama Barang']:=pegawai.Text;
adoquery1['Jam Kerja']:=jam.Text;
adoquery1['Gaji Per Jam']:=gj.Text;
adoquery1['Total Gaji']:=IntToStr(t);
adoquery1.Post;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
kode.Clear;
Pegawai.Clear;
Jam.Clear;
Gj.clear;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
application.Terminate;
end;
end.
Berikut tampilan outputnya :
Bagi yang ingin mendownload silahkan klik Di Sini!!!