Form Login pada Delphi

Pengetahuan Komputer Terapan, Referensi PBO 1 (Delphi)
form login: procedure tflogin.loginclick(sender:tobject); begin if (edit1.text=’public’) then begin with fmenuutama do begin mahasiswa1.enabled:=false; praktikum1.enabled:=false; fmenuutama.show; flogin.close; end; end else if (edit1.text=’operator’)and(edit2.text=table1.fields[0].asstring) then begin fmenuutama.show; flogin.close; end end;

Share this

Leave a Reply

Your email address will not be published.