INTROSPEKSI

Introspeksi adalah merenungkan segala sesuatu yang pernah di lakukan baik sadar maupun tak sadar. Seseorang yang mengalami masalah biasanya dia memiliki kepribadian yang tak bisa di tebak, dalam hal ini di butuhkan introspeksi untuk membuat dia merenung untuk menyadari hal-hal apa saja yang pernah dia lakukan sepanjang hidupnya.

Introspeksi diperlukan untuk menyadarkan seseorang agar dia menyadari hal-hal apa saja yang pernah ia lakukan baik itu disengaja maupun tidak disengaja dengan tujuan agar dia memperbaiki kesalahan yang pernah ia lakukan.

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.