procedure TForm2.Button1Click(Sender: TObject);

begin

if (user.Text='admin') AND (pass.Text='123456') then

begin

ShowMessage('Login berhasil');

Form1.Show;

end

else

begin

ShowMessage('Peiksa kembali user danpassword');

user.Text:='';

pass.Text:='';

user.SetFocus;




end;

end;

procedure TForm2.userKeyPress(Sender: TObject; var Key: Char);

begin

if not(key=chr(13)) then exit;

pass.SetFocus;

end;




procedure TForm2.passKeyPress(Sender: TObject; var Key: Char);

begin

if not(key=chr(13)) then exit;

Button1.SetFocus;

end;




procedure TForm2.Button2Click(Sender: TObject);

begin

user.Text:='';

pass.Text:='';

end;




end.











procedure TForm1.Button3Click(Sender: TObject);

begin

close;

end;




procedure TForm1.Timer1Timer(Sender: TObject);

begin

tanggal.Caption:=FormatDateTime('dd-mm-yyyy',now)

end;




procedure TForm1.Button5Click(Sender: TObject);

begin

no.Text:='';

nip.Text:='';

nama.Text:='';

id.Text:='';

lblgol.Caption:='';

lblpangkat.Caption:='';

tj.Text:='';

gaji.Text:='';

mkn.Text:='';

ass.Text:='';

bank.Text:='';

smb.Text:='';

koprasi.Text:='';

ass.Text:='';

akhir.Caption:='';

end;




procedure TForm1.namaKeyPress(Sender: TObject; var Key: Char);

begin

if not(key in['A'..'Z','a'..'z',#8,#13]) then

begin

key:=#0;

end

else if key=#13 then

begin

id.SetFocus;

end;

end;




procedure TForm1.noKeyPress(Sender: TObject; var Key: Char);

begin

if not(key=chr(13)) then exit;

if no.Text='' then

begin

ShowMessage('Isi telebih dahulu');

no.Text:='';

no.SetFocus;

end;




nip.SetFocus;

end;




procedure TForm1.nipKeyPress(Sender: TObject; var Key: Char);

begin

if not(key=chr(13)) then exit;

nama.SetFocus;

end;




procedure TForm1.arsKeyPress(Sender: TObject; var Key: Char);

var a,b,c,d,e,f,g,h,i,j:real;

begin

if not(key=chr(13)) then exit;




a:=StrToFloat(ass.text);

b:=StrToFloat(bank.Text);

c:=StrToFloat(smb.Text);

d:=StrToFloat(koprasi.Text);

e:=StrToFloat(ars.Text);

f:=StrToFloat(ptg.Text);




f:=(a+b+c+d+e);




g:=StrToFloat(gaji.Text);

h:=StrToFloat(tj.Text);

i:=StrToFloat(mkn.Text);

j:=StrToFloat(akhir.Caption);







j:=(g+h+i)-f;




ass.Text:=FloatToStr(a);

bank.Text:=FloatToStr(b);

smb.Text:=FloatToStr(c);

koprasi.Text:=FloatToStr(d);

ars.Text:=FloatToStr(e);

ptg.Text:=FloatToStr(f);

gaji.Text:=FloatToStr(g);

tj.Text:=FloatToStr(h);

mkn.Text:=FloatToStr(i);

akhir.Caption:=FloatToStr(j);

end;




procedure TForm1.assKeyPress(Sender: TObject; var Key: Char);

begin

if not(key=chr(13)) then exit;

bank.SetFocus;

end;




procedure TForm1.bankKeyPress(Sender: TObject; var Key: Char);

begin

if not(key=chr(13)) then exit;

smb.SetFocus;

end;




procedure TForm1.koprasiKeyPress(Sender: TObject; var Key: Char);

begin

if not(key=chr(13)) then exit;

ars.SetFocus;

end;




procedure TForm1.smbKeyPress(Sender: TObject; var Key: Char);

begin

if not(key=chr(13)) then exit;

koprasi.SetFocus;

end;




procedure TForm1.tjKeyPress(Sender: TObject; var Key: Char);

begin

if not(key=chr(13)) then exit;

mkn.SetFocus;

end;




procedure TForm1.mknKeyPress(Sender: TObject; var Key: Char);

begin

if not(key=chr(13)) then exit;

ass.SetFocus;

end;




procedure TForm1.idKeyPress(Sender: TObject; var Key: Char);

begin

if not(key=chr(13)) then exit;




if LeftStr(id.text,2)='01' then

begin

cb1.ItemIndex:=0;

end;

if LeftStr(id.text,2)='02' then

begin

cb1.ItemIndex:=1;

end;

if LeftStr(id.text,2)='03' then

begin

cb1.ItemIndex:=2;

end;

if LeftStr(id.text,2)='04' then

begin

cb1.ItemIndex:=3;

end;

if LeftStr(id.text,2)='05' then

begin

cb1.ItemIndex:=4;

end;

if LeftStr(id.text,2)='06' then

begin

cb1.ItemIndex:=5;

end;

if LeftStr(id.text,2)='07' then

begin

cb1.ItemIndex:=6;

end;

if LeftStr(id.text,2)='08' then

begin

cb1.ItemIndex:=7;

end;

if LeftStr(id.text,2)='09' then

begin

cb1.ItemIndex:=8;

end;

if LeftStr(id.text,2)='10' then

begin

cb1.ItemIndex:=9;

end;

if LeftStr(id.text,2)='11' then

begin

cb1.ItemIndex:=10;

end;

if LeftStr(id.text,2)='12' then

begin

cb1.ItemIndex:=11;

end;







if RightStr(id.Text,2)='2A' then

begin

lblgol.Caption:='IIA';

lblpangkat.Caption:='Pengatur Muda';

gaji.Text:='1714100';

tj.Text:='215000';

mkn.Text:='250000';

end;

if RightStr(id.Text,2)='2B' then

begin

lblgol.Caption:='IIB';

lblpangkat.Caption:='Guuru Pertama';

gaji.Text:='1871900';

tj.Text:='215000';

mkn.Text:='250000';

end;

if RightStr(id.Text,2)='2C' then

begin

lblgol.Caption:='IIC';

lblpangkat.Caption:='Pengatur';

gaji.Text:='1951100';

tj.Text:='215000';

mkn.Text:='250000';

end;

if RightStr(id.Text,2)='2D' then

begin

lblgol.Caption:='IID';

lblpangkat.Caption:='Pengatur TK.1';

gaji.Text:='2033600';

tj.Text:='215000';

mkn.Text:='250000';

end;

if RightStr(id.Text,2)='3A' then

begin

lblgol.Caption:='IIIA';

lblpangkat.Caption:='Penata Muda';

gaji.Text:='3590900';

tj.Text:='400000';

mkn.Text:='250000';

end;

if RightStr(id.Text,2)='3B' then

begin

lblgol.Caption:='IIIB';

lblpangkat.Caption:='Penata Muda Tk.1';

gaji.Text:='3742800';

tj.Text:='400000';

mkn.Text:='250000';

end;

if RightStr(id.Text,2)='3C' then

begin

lblgol.Caption:='IIIC';

lblpangkat.Caption:='Penata';

gaji.Text:='3901100';

tj.Text:='400000';

mkn.Text:='250000';

end;

if RightStr(id.Text,2)='3D' then

begin

lblgol.Caption:='IIID';

lblpangkat.Caption:='Penata Tk.1';

gaji.Text:='4066100';

tj.Text:='400000';

mkn.Text:='250000';

end;

if RightStr(id.Text,2)='4A' then

begin

lblgol.Caption:='IVA';

lblpangkat.Caption:='Pembina';

gaji.Text:='4238000';

tj.Text:='630000';

mkn.Text:='250000';

end;

if RightStr(id.Text,2)='4B' then

begin

lblgol.Caption:='IVB';

lblpangkat.Caption:='Pembina Tk.1';

gaji.Text:='4417400';

tj.Text:='630000';

mkn.Text:='250000';

end;

if RightStr(id.Text,2)='4C' then

begin

lblgol.Caption:='IVC';

lblpangkat.Caption:='Pembina Utama Muda';

gaji.Text:='4604200';

mkn.Text:='250000';

tj.Text:='630000';

end;

if RightStr(id.Text,2)='4D' then

begin

lblgol.Caption:='IVD';

lblpangkat.Caption:='Pembina Utama Madaya';

gaji.Text:='4799000';

tj.Text:='630000';

mkn.Text:='250000';

end;

ass.SetFocus;

end;

end.






















procedure TForm2.Button1Click(Sender: TObject);

begin

if (user.Text='admin') AND (pass.Text='123456') then

begin

ShowMessage('Login berhasil');

Form1.Show;

end

else

begin

ShowMessage('Peiksa kembali user danpassword');

user.Text:='';

pass.Text:='';

user.SetFocus;




end;

end;

procedure TForm2.userKeyPress(Sender: TObject; var Key: Char);

begin

if not(key=chr(13)) then exit;

pass.SetFocus;

end;




procedure TForm2.passKeyPress(Sender: TObject; var Key: Char);

begin

if not(key=chr(13)) then exit;

Button1.SetFocus;

end;




procedure TForm2.Button2Click(Sender: TObject);

begin

user.Text:='';

pass.Text:='';

end;




end.











procedure TForm1.Button3Click(Sender: TObject);

begin

close;

end;




procedure TForm1.Timer1Timer(Sender: TObject);

begin

tanggal.Caption:=FormatDateTime('dd-mm-yyyy',now)

end;




procedure TForm1.Button5Click(Sender: TObject);

begin

no.Text:='';

nip.Text:='';

nama.Text:='';

id.Text:='';

lblgol.Caption:='';

lblpangkat.Caption:='';

tj.Text:='';

gaji.Text:='';

mkn.Text:='';

ass.Text:='';

bank.Text:='';

smb.Text:='';

koprasi.Text:='';

ass.Text:='';

akhir.Caption:='';

end;




procedure TForm1.namaKeyPress(Sender: TObject; var Key: Char);

begin

if not(key in['A'..'Z','a'..'z',#8,#13]) then

begin

key:=#0;

end

else if key=#13 then

begin

id.SetFocus;

end;

end;




procedure TForm1.noKeyPress(Sender: TObject; var Key: Char);

begin

if not(key=chr(13)) then exit;

if no.Text='' then

begin

ShowMessage('Isi telebih dahulu');

no.Text:='';

no.SetFocus;

end;




nip.SetFocus;

end;




procedure TForm1.nipKeyPress(Sender: TObject; var Key: Char);

begin

if not(key=chr(13)) then exit;

nama.SetFocus;

end;




procedure TForm1.arsKeyPress(Sender: TObject; var Key: Char);

var a,b,c,d,e,f,g,h,i,j:real;

begin

if not(key=chr(13)) then exit;




a:=StrToFloat(ass.text);

b:=StrToFloat(bank.Text);

c:=StrToFloat(smb.Text);

d:=StrToFloat(koprasi.Text);

e:=StrToFloat(ars.Text);

f:=StrToFloat(ptg.Text);




f:=(a+b+c+d+e);




g:=StrToFloat(gaji.Text);

h:=StrToFloat(tj.Text);

i:=StrToFloat(mkn.Text);

j:=StrToFloat(akhir.Caption);







j:=(g+h+i)-f;




ass.Text:=FloatToStr(a);

bank.Text:=FloatToStr(b);

smb.Text:=FloatToStr(c);

koprasi.Text:=FloatToStr(d);

ars.Text:=FloatToStr(e);

ptg.Text:=FloatToStr(f);

gaji.Text:=FloatToStr(g);

tj.Text:=FloatToStr(h);

mkn.Text:=FloatToStr(i);

akhir.Caption:=FloatToStr(j);

end;




procedure TForm1.assKeyPress(Sender: TObject; var Key: Char);

begin

if not(key=chr(13)) then exit;

bank.SetFocus;

end;




procedure TForm1.bankKeyPress(Sender: TObject; var Key: Char);

begin

if not(key=chr(13)) then exit;

smb.SetFocus;

end;




procedure TForm1.koprasiKeyPress(Sender: TObject; var Key: Char);

begin

if not(key=chr(13)) then exit;

ars.SetFocus;

end;




procedure TForm1.smbKeyPress(Sender: TObject; var Key: Char);

begin

if not(key=chr(13)) then exit;

koprasi.SetFocus;

end;




procedure TForm1.tjKeyPress(Sender: TObject; var Key: Char);

begin

if not(key=chr(13)) then exit;

mkn.SetFocus;

end;




procedure TForm1.mknKeyPress(Sender: TObject; var Key: Char);

begin

if not(key=chr(13)) then exit;

ass.SetFocus;

end;




procedure TForm1.idKeyPress(Sender: TObject; var Key: Char);

begin

if not(key=chr(13)) then exit;




if LeftStr(id.text,2)='01' then

begin

cb1.ItemIndex:=0;

end;

if LeftStr(id.text,2)='02' then

begin

cb1.ItemIndex:=1;

end;

if LeftStr(id.text,2)='03' then

begin

cb1.ItemIndex:=2;

end;

if LeftStr(id.text,2)='04' then

begin

cb1.ItemIndex:=3;

end;

if LeftStr(id.text,2)='05' then

begin

cb1.ItemIndex:=4;

end;

if LeftStr(id.text,2)='06' then

begin

cb1.ItemIndex:=5;

end;

if LeftStr(id.text,2)='07' then

begin

cb1.ItemIndex:=6;

end;

if LeftStr(id.text,2)='08' then

begin

cb1.ItemIndex:=7;

end;

if LeftStr(id.text,2)='09' then

begin

cb1.ItemIndex:=8;

end;

if LeftStr(id.text,2)='10' then

begin

cb1.ItemIndex:=9;

end;

if LeftStr(id.text,2)='11' then

begin

cb1.ItemIndex:=10;

end;

if LeftStr(id.text,2)='12' then

begin

cb1.ItemIndex:=11;

end;







if RightStr(id.Text,2)='2A' then

begin

lblgol.Caption:='IIA';

lblpangkat.Caption:='Pengatur Muda';

gaji.Text:='1714100';

tj.Text:='215000';

mkn.Text:='250000';

end;

if RightStr(id.Text,2)='2B' then

begin

lblgol.Caption:='IIB';

lblpangkat.Caption:='Guuru Pertama';

gaji.Text:='1871900';

tj.Text:='215000';

mkn.Text:='250000';

end;

if RightStr(id.Text,2)='2C' then

begin

lblgol.Caption:='IIC';

lblpangkat.Caption:='Pengatur';

gaji.Text:='1951100';

tj.Text:='215000';

mkn.Text:='250000';

end;

if RightStr(id.Text,2)='2D' then

begin

lblgol.Caption:='IID';

lblpangkat.Caption:='Pengatur TK.1';

gaji.Text:='2033600';

tj.Text:='215000';

mkn.Text:='250000';

end;

if RightStr(id.Text,2)='3A' then

begin

lblgol.Caption:='IIIA';

lblpangkat.Caption:='Penata Muda';

gaji.Text:='3590900';

tj.Text:='400000';

mkn.Text:='250000';

end;

if RightStr(id.Text,2)='3B' then

begin

lblgol.Caption:='IIIB';

lblpangkat.Caption:='Penata Muda Tk.1';

gaji.Text:='3742800';

tj.Text:='400000';

mkn.Text:='250000';

end;

if RightStr(id.Text,2)='3C' then

begin

lblgol.Caption:='IIIC';

lblpangkat.Caption:='Penata';

gaji.Text:='3901100';

tj.Text:='400000';

mkn.Text:='250000';

end;

if RightStr(id.Text,2)='3D' then

begin

lblgol.Caption:='IIID';

lblpangkat.Caption:='Penata Tk.1';

gaji.Text:='4066100';

tj.Text:='400000';

mkn.Text:='250000';

end;

if RightStr(id.Text,2)='4A' then

begin

lblgol.Caption:='IVA';

lblpangkat.Caption:='Pembina';

gaji.Text:='4238000';

tj.Text:='630000';

mkn.Text:='250000';

end;

if RightStr(id.Text,2)='4B' then

begin

lblgol.Caption:='IVB';

lblpangkat.Caption:='Pembina Tk.1';

gaji.Text:='4417400';

tj.Text:='630000';

mkn.Text:='250000';

end;

if RightStr(id.Text,2)='4C' then

begin

lblgol.Caption:='IVC';

lblpangkat.Caption:='Pembina Utama Muda';

gaji.Text:='4604200';

mkn.Text:='250000';

tj.Text:='630000';

end;

if RightStr(id.Text,2)='4D' then

begin

lblgol.Caption:='IVD';

lblpangkat.Caption:='Pembina Utama Madaya';

gaji.Text:='4799000';

tj.Text:='630000';

mkn.Text:='250000';

end;

ass.SetFocus;

end;

end.

    Baru saja kemarin pengumuman kelulusan dan alhamdulilah SMK Telkom Lulus semuanya, dan sekarang tanggal 21 Mai 2014 diadakan Farewell Party di gedung Bina Satria Banjarbaru yang diadakan pukul 09.00 am sampai dengan 02.00 pm yang bertemakan "13YE!" acara ini sangat meriah dan juga gak kalah serunya dengan angkatan sebelumnya, acara farewell party ini dihadiri siswa siswi SMK Telkom dan Guru-guru beserta staf SMK Telkom
    Dibukanya acara dengan Tari Tradisional dari kakak-kakak kelas 3, selanjutnya sambutan dari ketua OSIS, lalu Band, ataksi sulap dari kakak kelas 3, drama dari angkatan 14 dan 15, dilanjutkan dengan Band lagi, lalu pemutaran Vidio dari angkatan 13 dan selanjutnya.
    Pokoknya yang tadi datang gak nyesel deh menghadiri acara Farewell party angkatan 15 terimakasih

Add caption

Add caption

Add caption

Berhubung telah memasuki akhir Mai guru-guru mengadakan ujian untuk mata pelajaran produftif salah satunya Desain Grafis yang di Gurui oleh Widdi Hermawan, beliau mengadakan final test pada hari ini 20 Mai 2014 pada 2 kelas yaitu 2C dan 2D, bahan yang diujikan adalah sebagai berikut




kelas "XI-D" 
NIS "121959"
Absen "23"
SMK Telkom Banjarbaru ingin mengumpulkan hasil final test yang diadakan tadi pagi, semoga dapat bermanfaat bagi teman-teman semua dan dapat memotifasi kita semua untuk dapat belajar lebih giat lagi terimakasih

  Mendekati ujian akhir semester para guru gencar mengadakan ulangan harian dan pengumpulan tugas-tugas untuk menambah nilai para siswa agar pada saat pembagian rapot para siswa memiliki nilai yang mencapai KKM sekolah mulai dari Produktif, Adaftif, Normatif semua akan diujikan
   Ulangan yang akan diadakan pada tanggal 2 Juni ini membuat para guru kewalahan untuk mengajarkan materi pembelajaran dikarenakan banyaknya waktu libur dan acara-acara yang diadakan sekolah, siswa pun kelabakan menerima pelajaran yang begitu banyak, semoga saja pada saat mendekati ulangan para siswa bisa mengerjakan soal dengan lancar tanpa kesulitan !!!!!!

    Kegiatan studytour yang diadakan pada tanggal 21-26 April ini melibatkan 78 orang siswa dan 6 orang guru pendamping, tour yang diadakan selama 6 hari ini adakan untuk refreshing para siswa dan untuk melakukan kunjungan ke berbagai macam universitas di Malang dan mengunjungi SMK telkom Malang, disana bukan hanya berlibur tetapi juga belajar
   Kegiatan yang awalnya di mulai dari pulau Bali untuk bersenang-senang lalu dilanjutkan menuju kota Malang kurang lebih 1hari di perjalanan, disana hawanya dingin sekali tepatnya di Batu Malang kami disana tidak lama sekitar 2 hari saja,banyak universitas besar disana selain itu juga banyak wahana permainan yang mengasikan untuk di kunjungi contohnya BNS (Batu Night Spectaculer)
    Tak lama di Malang kami pun menuju bandara Djuanda untuk kembali ke Banjarmasin sekian cerita singkat saya selama perjalanan