oc klik buttgon kelas
I:= StrToInt(EKLS1.Text);
if I=3 then begin
ShowMessage('Tidak berlaku untuk kelas 3');
BCARI.Enable...
sp1.SetFocus;
===================================================================
of 2

Naikklsindividujhbjh

nkjnk
Published on: Mar 3, 2016
Published in: Entertainment & Humor      
Source: www.slideshare.net


Transcripts - Naikklsindividujhbjh

  • 1. oc klik buttgon kelas I:= StrToInt(EKLS1.Text); if I=3 then begin ShowMessage('Tidak berlaku untuk kelas 3'); BCARI.Enabled:=False; SP1.Enabled:=False; EKLS1.SetFocus; end else if I<3 then begin BCARI.Enabled:=True; SP1.Enabled:=True; //ESUBKLS1.SetFocus; end; ==================================================== on keypreess SMT1 var a:integer; begin if not (key=chr(13)) then exit; a:=strtoint(esmt1.Text)+1; sp2.Hint:=inttostr(a); enis2.SetFocus; ============================================= BTN Cari ON klik if (ETHN1.Text='') then begin ShowMessage('Tahun angkatan berapa?'); ETHN1.SetFocus end else begin Tbnaikkls.Active:=False; Tbnaikkls.CommandText:='Select a.ANGKATAN, a.NIS,b.nama, a.THNPEL, a.SMT, a.KLS,a.SUBKLS, a.SPP '+ 'from TNAIKKLS a,tmurid b where a.THNPEL='''+ETHN1.Text+'''and a.KLS ='''+EKLS1.Text+''''+ 'and a.SUBKLS ='''+ESUBKLS1.Text+''' and a.SMT='''+ESMT1.Text+''' and a.nis=b.nis and a.nis='''+enis2.text+'''order by a.SUBKLS, a.NIS'; Tbnaikkls.Active:=True; if Tbnaikkls.RecordCount>0 then begin ShowMessage('Silakan lanjutkan'); //ESMT1.SetFocus; SP1.Enabled:=True; sp1.SetFocus; end else if Tbnaikkls.RecordCount<=0 then begin ShowMessage('Data di semester ini belum ada'); ETHN1.SetFocus; SP1.Enabled:=False; end; end; =========================================== on key press button cari if not (key=chr(13)) then exit;
  • 2. sp1.SetFocus; ===================================================================

Related Documents