aplikasi penghitung gaji (PBD)

TUGAS PBD PRAKTEK

Tugas

pada sebuah lembaga kursus akan membuat program aplikasi, setiap pengajar dicatat npk, nama, alamat.

Pengajar akan mendapatkan honor/gaji 20.000 setiap pengajar. Buatlah program aplikasi untuk dapat menghitung pengajar dalam 1 bulan

Dengan data yang disimpan dlm database adalah no transaksi, npk, jumlah mengajar, bulan buat tombol simpan, tambah data, hapus.

Tampilan Run

Listing Program

unit Unit1;

interface

uses

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

  Dialogs, StdCtrls, DB, DBTables, Grids, DBGrids, Mask, DBCtrls, Buttons;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Tpengajar: TTable;

    DSpengajar: TDataSource;

    DBGrid1: TDBGrid;

    dbnpk: TDBEdit;

    dbnama: TDBEdit;

    dbalamat: TDBEdit;

    dbgaji: TDBEdit;

    btsimpan: TBitBtn;

    bttambah: TBitBtn;

    bthapus: TBitBtn;

    btgaji: TBitBtn;

    Label6: TLabel;

    Label7: TLabel;

    Label8: TLabel;

    db_jmlh: TDBEdit;

    dbbulan: TDBEdit;

    dbno_transaksi: TDBEdit;

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure btsimpanClick(Sender: TObject);

    procedure bttambahClick(Sender: TObject);

    procedure bthapusClick(Sender: TObject);

    procedure btgajiClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);

begin

Tpengajar.Append;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

Tpengajar.Delete;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Tpengajar.Append;

Tpengajar.Post;

end;

procedure TForm1.btsimpanClick(Sender: TObject);

begin

tpengajar.Post;

end;

procedure TForm1.bttambahClick(Sender: TObject);

begin

tpengajar.Append;

end;

procedure TForm1.bthapusClick(Sender: TObject);

begin

tpengajar.Delete;

end;

procedure TForm1.btgajiClick(Sender: TObject);

var a,b,c :real;

begin

a:=strtoint(db_jmlh.Text)*20000;

dbgaji.Text:=floattostr(a);

end;

end.