Penggajian Karyawan (Delphi7)

<div dir="ltr" style="text-align: left;" trbidi="on"> <i><b>Penggajian Karyawan</b></i><br /> <br /> unit tugas;<br /> <div class="MsoNormal"> interface</div> <div class="MsoNormal"> <a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjYuoiMZ4Gu97RaFdJqwHezK_LNqfYYZiMQGynvnU7hOQw6-gHFd4WW0JRJIkXdWfhxlLqon_su6-DWKqfDzfNl14Xt7atE4aSxeORsQ3ovd_yGHPyLOdKt-Qu_SkE2INp1p9_BZ3bqMqQ_/s1600/penggajian.png" imageanchor="1" style="clear: right; float: right; margin-bottom: 1em; margin-left: 1em;"><img border="0" height="320" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjYuoiMZ4Gu97RaFdJqwHezK_LNqfYYZiMQGynvnU7hOQw6-gHFd4WW0JRJIkXdWfhxlLqon_su6-DWKqfDzfNl14Xt7atE4aSxeORsQ3ovd_yGHPyLOdKt-Qu_SkE2INp1p9_BZ3bqMqQ_/s320/penggajian.png" width="254" /></a>uses</div> <div class="MsoNormal"> <span style="mso-spacerun: yes;">  </span>Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,</div> <div class="MsoNormal"> <span style="mso-spacerun: yes;">  </span>Dialogs, StdCtrls;</div> <div class="MsoNormal"> type</div> <div class="MsoNormal"> <span style="mso-spacerun: yes;">  </span>TForm1 = class(TForm)</div> <div class="MsoNormal"> <span style="mso-spacerun: yes;">    </span>Label1: TLabel;</div> <div class="MsoNormal"> <span style="mso-spacerun: yes;">    </span>Label2: TLabel;</div> <div class="MsoNormal"> <span style="mso-spacerun: yes;">    </span>Label3: TLabel;</div> <div class="MsoNormal"> <span style="mso-spacerun: yes;">    </span>Label4: TLabel;</div> <div class="MsoNormal"> <span style="mso-spacerun: yes;">    </span>Label5: TLabel;</div> <div class="MsoNormal"> <span style="mso-spacerun: yes;">    </span>Label6: TLabel;</div> <div class="MsoNormal"> <span style="mso-spacerun: yes;">    </span>Label8: TLabel;</div> <div class="MsoNormal"> <span style="mso-spacerun: yes;">    </span>nip: TEdit;</div> <div class="MsoNormal"> <span style="mso-spacerun: yes;">    </span>nama: TEdit;</div> <div class="MsoNormal"> <span style="mso-spacerun: yes;">    </span>gapok: TEdit;</div> <div class="MsoNormal"> <span style="mso-spacerun: yes;">    </span>fasilitas: TEdit;</div> <div class="MsoNormal"> <span style="mso-spacerun: yes;">    </span>jabatan: TComboBox;</div> <div class="MsoNormal"> <span style="mso-spacerun: yes;">    </span>total: TEdit;</div> <div class="MsoNormal"> <span style="mso-spacerun: yes;">    </span>bersih: TButton;</div> <div class="MsoNormal"> <span style="mso-spacerun: yes;">    </span>keluar: TButton;</div> <div class="MsoNormal"> <span style="mso-spacerun: yes;">    </span>GroupBox1: TGroupBox;</div> <div class="MsoNormal"> <span style="mso-spacerun: yes;">    </span>honorer: TRadioButton;</div> <div class="MsoNormal"> <span style="mso-spacerun: yes;">    </span>tetap: TRadioButton;</div> <div class="MsoNormal"> <span style="mso-spacerun: yes;">    </span>procedure FormCreate(Sender: TObject);</div> <div class="MsoNormal"> <span style="mso-spacerun: yes;">    </span>procedure jabatanClick(Sender: TObject);</div> <div class="MsoNormal"> <span style="mso-spacerun: yes;">    </span>procedure bersihClick(Sender: TObject);</div> <div class="MsoNormal"> <span style="mso-spacerun: yes;">    </span>procedure keluarClick(Sender: TObject);</div> <div class="MsoNormal"> <span style="mso-spacerun: yes;">    </span>procedure honorerClick(Sender: TObject);</div> <div class="MsoNormal"> <span style="mso-spacerun: yes;">    </span>procedure tetapClick(Sender: TObject);</div> <div class="MsoNormal"> <span style="mso-spacerun: yes;">  </span>private</div> <div class="MsoNormal"> <span style="mso-spacerun: yes;">    </span>{ Private declarations }</div> <div class="MsoNormal"> <span style="mso-spacerun: yes;">  </span>public</div> <div class="MsoNormal"> <span style="mso-spacerun: yes;">    </span>{ Public declarations }</div> <div class="MsoNormal"> <span style="mso-spacerun: yes;">  </span>end;</div> <div class="MsoNormal"> var</div> <div class="MsoNormal"> <span style="mso-spacerun: yes;"> </span>Form1: TForm1;</div> <div class="MsoNormal"> <b style="mso-bidi-font-weight: normal;">a,hasil:real;</b></div> <div class="MsoNormal"> implementation</div> <div class="MsoNormal"> {$R *.dfm}</div> <div class="MsoNormal"> <br /> </div> <div class="MsoNormal"> procedure TForm1.FormCreate(Sender: TObject);</div> <div class="MsoNormal"> <b style="mso-bidi-font-weight: normal;">begin</b></div> <div class="MsoNormal"> <b style="mso-bidi-font-weight: normal;">jabatan.Items.add('Direktur');</b></div> <div class="MsoNormal"> <b style="mso-bidi-font-weight: normal;">jabatan.Items.add('Manager');</b></div> <div class="MsoNormal"> <b style="mso-bidi-font-weight: normal;">jabatan.Items.add('Karyawan');</b></div> <div class="MsoNormal"> end;</div> <div class="MsoNormal"> procedure TForm1.jabatanClick(Sender: TObject);</div> <div class="MsoNormal"> <b style="mso-bidi-font-weight: normal;">begin</b></div> <div class="MsoNormal"> <b style="mso-bidi-font-weight: normal;">if jabatan.Text='Direktur' then</b></div> <div class="MsoNormal"> <b style="mso-bidi-font-weight: normal;">begin</b></div> <div class="MsoNormal"> <b style="mso-bidi-font-weight: normal;">gapok.text:='10000000';</b></div> <div class="MsoNormal"> <b style="mso-bidi-font-weight: normal;">fasilitas.Text:='Rumah'</b></div> <div class="MsoNormal"> <b style="mso-bidi-font-weight: normal;">end</b></div> <div class="MsoNormal"> <b style="mso-bidi-font-weight: normal;">else</b></div> <div class="MsoNormal"> <b style="mso-bidi-font-weight: normal;">if jabatan.Text='Manager' then</b></div> <div class="MsoNormal"> <b style="mso-bidi-font-weight: normal;">begin</b></div> <div class="MsoNormal"> <b style="mso-bidi-font-weight: normal;">gapok.text:='7000000';</b></div> <div class="MsoNormal"> <b style="mso-bidi-font-weight: normal;">fasilitas.Text:='Mobil'</b></div> <div class="MsoNormal"> <b style="mso-bidi-font-weight: normal;">end</b></div> <div class="MsoNormal"> <b style="mso-bidi-font-weight: normal;">else</b></div> <div class="MsoNormal"> <b style="mso-bidi-font-weight: normal;">if jabatan.Text='Karyawan' then</b></div> <div class="MsoNormal"> <b style="mso-bidi-font-weight: normal;">begin</b></div> <div class="MsoNormal"> <b style="mso-bidi-font-weight: normal;">gapok.text:='5000000';</b></div> <div class="MsoNormal"> <b style="mso-bidi-font-weight: normal;">fasilitas.Text:='Motor'</b></div> <div class="MsoNormal"> <b style="mso-bidi-font-weight: normal;">end</b></div> <div class="MsoNormal"> <b style="mso-bidi-font-weight: normal;">else</b></div> <div class="MsoNormal"> <b style="mso-bidi-font-weight: normal;">gapok.Text:='0';</b></div> <div class="MsoNormal"> <b style="mso-bidi-font-weight: normal;">end;</b></div> <div class="MsoNormal"> <br /> </div> <div class="MsoNormal"> procedure TForm1.bersihClick(Sender: TObject);</div> <div class="MsoNormal"> begin</div> <div class="MsoNormal"> <b style="mso-bidi-font-weight: normal;">nip.Text:='';</b></div> <div class="MsoNormal"> <b style="mso-bidi-font-weight: normal;">nama.Text:='';</b></div> <div class="MsoNormal"> <b style="mso-bidi-font-weight: normal;">jabatan.Text:='';</b></div> <div class="MsoNormal"> <b style="mso-bidi-font-weight: normal;">gapok.Text:='';</b></div> <div class="MsoNormal"> <b style="mso-bidi-font-weight: normal;">fasilitas.text:='';</b></div> <div class="MsoNormal"> <b style="mso-bidi-font-weight: normal;">total.Text:='';</b></div> <div class="MsoNormal"> <b style="mso-bidi-font-weight: normal;">end;</b></div> <div class="MsoNormal"> <br /> </div> <div class="MsoNormal"> procedure TForm1.keluarClick(Sender: TObject);</div> <div class="MsoNormal"> begin</div> <div class="MsoNormal"> <b style="mso-bidi-font-weight: normal;">close</b></div> <div class="MsoNormal"> end;</div> <div class="MsoNormal"> <br /> </div> <div class="MsoNormal"> procedure TForm1.honorerClick(Sender: TObject);</div> <div class="MsoNormal"> <b style="mso-bidi-font-weight: normal;">begin</b></div> <div class="MsoNormal"> <b style="mso-bidi-font-weight: normal;">if honorer.checked=true then</b></div> <div class="MsoNormal"> <b style="mso-bidi-font-weight: normal;">a:=strtofloat(gapok.text);</b></div> <div class="MsoNormal"> <b style="mso-bidi-font-weight: normal;">hasil:=a-(0.1*a);</b></div> <div class="MsoNormal"> <b style="mso-bidi-font-weight: normal;">total.text:=floattostr(hasil);</b></div> <div class="MsoNormal"> <b style="mso-bidi-font-weight: normal;">end;</b></div> <div class="MsoNormal"> <br /> </div> <div class="MsoNormal"> procedure TForm1.tetapClick(Sender: TObject);</div> <div class="MsoNormal"> <b style="mso-bidi-font-weight: normal;">begin</b></div> <div class="MsoNormal"> <b style="mso-bidi-font-weight: normal;">if honorer.checked=true then</b></div> <div class="MsoNormal"> <b style="mso-bidi-font-weight: normal;">a:=strtofloat(gapok.text);</b></div> <div class="MsoNormal"> <b style="mso-bidi-font-weight: normal;">hasil:=a+(0.1*a);</b></div> <div class="MsoNormal"> <b style="mso-bidi-font-weight: normal;">total.text:=floattostr(hasil);</b></div> <div class="MsoNormal"> <b style="mso-bidi-font-weight: normal;">end;</b></div> <div class="MsoNormal"> <br /> </div> <span style="font-family: "Calibri","sans-serif"; font-size: 11.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-ascii-theme-font: minor-latin; mso-bidi-font-family: "Times New Roman"; mso-bidi-language: AR-SA; mso-bidi-theme-font: minor-bidi; mso-fareast-font-family: Calibri; mso-fareast-language: EN-US; mso-fareast-theme-font: minor-latin; mso-hansi-theme-font: minor-latin;">end.</span></div>

Penggajian Karyawan (Delphi7)

Penggajian Karyawan unit tugas; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dia...

Read more »