Selasa, 17 Maret 2015

PROGRAM GAJI KARYAWAN

Posted by Unknown on 12.30 with No comments


heheeawaliharidengansenyuman, :-)
mau share laginikawantentang program yang barusanakubuat yang sederhana yang berjudul "PROGRAM GAJI KARYAWAN" :-D denganmenggunakan visual delphi.. lets get..........
sebelumnyaleatdludesainformnya..








yang dibutuhkanadalah:
edit1-edit6
2buah button untuk mulai dan akhir
combowbox untuk golongan karyawan
radiobutton untuk masa kerja dan penghitunganyananti,, okelangsungsajakeskrip...

pertamakitabuat GOLONGAN dahuludengnmengguankancombobox
caraya, pertamadobleklikdlupada form kosongsehinggamasukkeskripnya,,
kriterianyauntukgolongan 1 gajipokok 500000
                          golongan 2 gajipokok 600000
                          golongan 3 gajipokok 700000 sampaigolongan "n".

danniskripnya:

procedure TForm1.FormCreate(Sender: TObject);
begin
cmbgol.items.append('satu');
cmbgol.items.append('dua');
cmbgol.items.append('tiga');
cmbgol.items.append('empat');
cmbgol.items.append('lima');
end;

*cmbgol(merupakannamadaicombobox,dapatdigantisesuaikeinginanpadapengaturan object inspector bagian name)

nah sekarangkitabukalogikakitalagi.. dari data comboboxdiatasakankitamasukankedalam edit2 yaitugajipokok.. gmanacaranya ......??
gini,pertamadobleklikcomboboxnyakemudianmasukanskripni..

procedure TForm1.cmbgolChange(Sender: TObject);
begin
if cmbgol.Text='satu'
  then edit2.text:='500000';
if cmbgol.Text='dua'
  then edit2.text:='600000';
if cmbgol.Text='tiga'
  then edit2.text:='700000';
if cmbgol.Text='empat'
  then edit2.text:='800000';
if cmbgol.Text='lima'
  then edit2.text:='900000';
end;

nah jadikancombobox qt..
langkahselanjutnyakitabuatradiobuttonyasepertipertemuankemarenpada program wisata..
dimanaradiobuttoninimerupakanpendeklarasiandarimasakerjakaryawan yang mempengaruijumlahlemburankaryawan yang berdasarkanmasakerja.
dimana 0 - 5th uanglemburnya 10000/jam
            5 - 10th uanglemburnya 25000/jam
            10th >uanglemburnya 50000/jam

dobleklikpada radiobutton1. masukanskripini...

procedure TForm1.RadioButton1Click(Sender: TObject);
varjam,lbr:integer;
    ttl,gp:real;
begin
jam:=strtoint(edit4.Text);
gp:=strtoint(edit2.Text);
if RadioButton1.checked= true then
    edit3.Text:='10000';
lbr:=(jam*10000);
edit5.text:=inttostr(lbr);
ttl:=lbr+gp;
edit6.Text:=floattostr(ttl);
end;

 *jam: mendeklarasikan total jam lembur
   lbr  : mendeklarasikanhasil jam lemburdenganlemburbedasarkanmasakerja
   ttl   : total gajidarihasiljumlahlbr + gajipokok

   gp  : gajipokok


nah samahalnyadenganradiobutton 2 dan 3,lakukan langkah yang samapadaradiobutton 1 danmasukanskripni

procedure TForm1.RadioButton2Click(Sender: TObject);
varjam,lbr:integer;
    ttl,gp:real;
begin
jam:=strtoint(edit4.Text);
if RadioButton2.checked= true then
    edit3.Text:='25000';
lbr:=(jam*25000);
edit5.text:=inttostr(lbr);
ttl:=lbr+gp;
edit6.Text:=floattostr(ttl); 
end;

procedure TForm1.RadioButton3Click(Sender: TObject);
varjam,lbr:integer;
    ttl,gp:real;
begin
jam:=strtoint(edit4.Text);
if RadioButton3.checked= true then
    edit3.Text:='50000';
lbr:=(jam*50000);
edit5.text:=inttostr(lbr);
ttl:=lbr+gp;
edit6.Text:=floattostr(ttl);
end;

udahdehkelar.. tinggalbuatbuttonnyabuatmulaidan exit..
dobleklik button mulai,masukanskripni

procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.clear;
edit5.Clear;
edit6.Clear;
end;

samahalnyadengantombol exit masukanscripnya

procedure TForm1.Button2Click(Sender: TObject);
begin
form1.close;
end;

end.


Contoh 2
Listing Program:

unittugas;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label8: TLabel;
    nip: TEdit;
    nama: TEdit;
    gapok: TEdit;
    fasilitas: TEdit;
    jabatan: TComboBox;
    total: TEdit;
    bersih: TButton;
    keluar: TButton;
    GroupBox1: TGroupBox;
    honorer: TRadioButton;
    tetap: TRadioButton;
    procedureFormCreate(Sender: TObject);
    procedurejabatanClick(Sender: TObject);
    procedurebersihClick(Sender: TObject);
    procedurekeluarClick(Sender: TObject);
    procedurehonorerClick(Sender: TObject);
    proceduretetapClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
 Form1: TForm1;
a,hasil:real;
implementation
{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
jabatan.Items.add('Direktur');
jabatan.Items.add('Manager');
jabatan.Items.add('Karyawan');
end;
procedure TForm1.jabatanClick(Sender: TObject);
begin
ifjabatan.Text='Direktur' then
begin
gapok.text:='10000000';
fasilitas.Text:='Rumah'
end
else
ifjabatan.Text='Manager' then
begin
gapok.text:='7000000';
fasilitas.Text:='Mobil'
end
else
ifjabatan.Text='Karyawan' then
begin
gapok.text:='5000000';
fasilitas.Text:='Motor'
end
else
gapok.Text:='0';
end;

procedure TForm1.bersihClick(Sender: TObject);
begin
nip.Text:='';
nama.Text:='';
jabatan.Text:='';
gapok.Text:='';
fasilitas.text:='';
total.Text:='';
end;

procedure TForm1.keluarClick(Sender: TObject);
begin
close
end;

procedure TForm1.honorerClick(Sender: TObject);
begin
ifhonorer.checked=true then
a:=strtofloat(gapok.text);
hasil:=a-(0.1*a);
total.text:=floattostr(hasil);
end;

procedure TForm1.tetapClick(Sender: TObject);
begin
ifhonorer.checked=true then
a:=strtofloat(gapok.text);
hasil:=a+(0.1*a);
total.text:=floattostr(hasil);
end;

end.
Kepalatukang – mandor – eli – proses –

http://id.scribd.com/doc/59850357/laporan-delphi


















procedure TForm1.Cbb_golChange(Sender: TObject);
var
  nama : String;
  pilihan,gp,ul : Integer;
begin
  pilihan:=Cbb_gol.ItemIndex;
  if (pilihan=001) then
  begin
    nama:='SLAMET';
    gp:=70000;
    ul:=15000;
  end
  else if ( pilihan=002) then
  begin
    nama:='BAGONG';
    gp:=62000;
    ul:=15000;
  end
  else if (pilihan=003) then
  begin
    nama:='WONDO';
    gp:=57000;
    ul:=15000;
  end
  else if (pilihan=004) then
  begin
    nama:='RAHMAT';
    gp:=53000;
    ul:=15000;
  end
  else if (pilihan=005) then
  begin
    nama:='NUR';
    gp:=50000;
    ul:=15000;
  end
  else if (pilihan=006) then
  begin
    nama:='YANTO';
    gp:=46000;
    ul:=15000;
  end
  else if (pilihan=007) then
  begin
    nama:='YUDI';
    gp:=46000;
    ul:=15000;
  end
  else if (pilihan=008) then
  begin
    nama:='YUSMAN';
    gp:=46000;
    ul:=15000;
  end
  else if (pilihan=009) then
  begin
    nama:='ANTO';
    gp:=50000;
    ul:=15000;
  end
  else if (pilihan=010) then
  begin
    nama:='JUNANTO';
    gp:=55000;
    ul:=15000;
  end
  else if (pilihan=011) then
  begin
    nama:='IYUM';
    gp:=53000;
    ul:=15000;
  end
  else if (pilihan=012) then
  begin
    nama:='GITO';
    gp:=60000;
    ul:=15000;
  end
  else if (pilihan=013) then
  begin
    nama:='ADE';
    gp:=45000;
    ul:=15000;
  end
  else if (pilihan=014) then
  begin
    nama:='RUDI';
    gp:=45000;
    ul:=15000;
  end
  else if (pilihan=015) then
  begin
    nama:='SONIA';
    gp:=45000;
    ul:=15000;
  end
  else if (pilihan=016) then
  begin
    nama:='IPUNG';
    gp:=45000;
    ul:=15000;
  end
  else if (pilihan=017) then
  begin
    nama:='YONO';
    gp:=60000;
    ul:=15000;
  end
  else
  begin
    nama:='HENDRA';
    gp:=45000;
    ul:=15000;
  end;
  Edt_nama.Text:=nama;
  Edt_gp.Text:=IntToStr(gp);
  Edt_UL.Text:=IntToStr(ul);

end;

procedure TForm1.Btn_mulaiClick(Sender: TObject);
var
  x,gp,gk,jl,ul,tl,total,kasbon,gb:Integer;
begin
  x:=StrToInt(Edt_HK.Text);
  gp:=StrToInt(Edt_gp.Text);
  jl:=StrToInt(Edt_JL.Text);
  ul:=StrToInt(Edt_UL.Text);
  kasbon:=StrToInt(Edt_Pinjaman.Text);
  tl:=jl*ul;
  Edt_TL.Text:=IntToStr(tl);
  gk:=x*gp;
  Edt_GK.Text:=IntToStr(gk);
  total:=gk+tl;
  Edt_TG.Text:=IntToStr(total);
  gb:=total-kasbon;
  Edt_GB.Text:=IntToStr(gb);
end;











KEGAGALAN PENERAPAN ERP (ENTERPRISE RESOURCE PLANNING)

Posted by Unknown on 12.20 with No comments


KEGAGALAN PENERAPAN ERP
(ENTERPRISE RESOURCE PLANNING)

TUGAS ERP
Program Study
Sistem Infrmasi (SI) STMIK TEKNOKRAT


Galih Budianto
(13311189)






























SEKOLAH TINGGI MANAJEMEN INFORMATIKA DAN KOMPUTER
PERGURUAN TINGGI TEKNOKRAT LAMPUNG
TAHUN 2014

Enterprise Resource Planning (ERP) adalah sebuah system informasi perusahaan yang dirancang untuk mengkoordinasikan semua sumber daya, informasi dan aktifitas yang diperlukan untuk proses bisnis lengkap. System ERP didasarkan pada database pada umumnya dan rancangan perangkat lunak modular. Tujuan system ERP adalah untuk mengkoordinasikan bisnis organisasi secara keseluruhan. ERP merupakan software yang ada dalam organisasi/perusahaan untuk otomatisasi dan integrasi banyak proses bisnis serta pelanggan.
Berikut beberapa faktor penyebab kegagalan implementasi ERP adalah :
1. Manajemen perubahan dan training.
Biasanya kesulitan terbesar terletak pada perubahan praktek pekerjaan yang harus dilakukan.Disamping itu training yang melibatkan banyak modul seharusnya dilaksanakan seawal mungkin.
2. Perencanaan yang buruk.
Perencanaan harus mencakup beberapa area seperti hal-hal bisnis dan ketersediaan user untuk membuat keputusan pada konfigurasi sistem.
3. Meremehkan keahlian IT.
Implementasi ERP membutuhkan keahlian staff ditingkatkan dengan baik.
4. Manajemen proyek yang buruk.
Hanya sedikit organisasi yang mengimplementasi ERP tanpa melibatkan konsultan. Namun sering kali konsultan melakukan perbuatan yang merugikan kliennya dengan tidak membagi tanggung jawab.
5. Percobaan-percobaan teknologi.
Usaha-usaha untuk membangun interface, merubah laporan-laporan, menyesuaikan software dan merubah data biasanya diremehkan.
6. Rendahnya keterlibatan Eksekutif.
Implementasi membutuhkan keterlibatan eksekutif senior untuk memastikan adaya partisipasi yang terdiri dari bisnis dan IT dan membantu penyelesaian konflik-konflik.
7.  Meremehkan sumber daya.
Sebagian besar budget melebihi target terutama untuk manajemen perubahan dan training user, pengujian integrasi, proses-proses pengerjaan ulang, kustomisasi laporan dan biaya konsultan.
8.Evaluasi software yang tidak mencukupi.
Organisasi biasanya tidak cukup memahami apa dan bagaimana software ERP bekerja sampai mereka sepakat untuk membeli.
Langganan: Komentar (Atom)