Laporan Akhir membuat Login pada Delphi

LISTING PROGRAM

procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage('Nama:'+edit1.Text+#13#10+ 'NPM:'+edit2.Text+#13#10+ 'Kelas:'+edit3.Text+#13#10+ 'Email Studentsite:'+edit4.Text); end;

procedure TForm1.Button1Click(Sender: TObject); begin Form1.color:=clActiveCaption; end;

procedure TForm1.Button2Click(Sender: TObject); begin Form1.color:=clLime; end;

procedure TForm1.Button2Click(Sender: TObject); begin Application.Terminate; end; end.

LOGIKA PROGRAM

Pada pemrograman kali ini saya akan membahas mengenai Pembuatan Form Pendaftaran Seminar Green IT. Pada listing pertama yaitu menggunakan Label yang terletak pada Component Pallete. Berikut adalah listingnya:

select * Label

MAKE LABEL TO FORM

CHANGE LABEL WITH CAPTION BECOME (NAME,NPM,CLASS,STUDENTSITE EMAIL)

Pada pemrograman diatas berarti kita telah membuat Label dengan format ‘Nama,NPM,Kelas,Email Studentsite’.

Berikutnya adalah listing yang serupa dengan diatas yaitu Edit1, Edit2, Edit3, Edit4 sama caranya seperti membuat label pada listing diatas. Listing:

select * EDIT

MAKE EDIT TO FORM

CHANGE EDIT WITH CAPTION BECOME, EXAMPLE (DEVIE EVIANI,51411941,1IA16,devie.eviani@student.gunadarma.ac.id)

Listing program diatas berarti bahwa kita membuat sebuah Edit yang bisa dimasukkan biodata mahasiswa pendaftaran seminar.

Berikutnya kita mengklik Botton untuk membuat kotak instruksi Login dan Close dari pendaftaran. Berikut adalah listingnya :

select * BUTTON

MAKE EDIT TO FORM

CHANGE EDIT WITH CAPTION BECOME (LOGIN,CLOSE)

Sehingga pada form terdapat icon yang dapat diklik untuk Login dan Close.

Berikutnya memasukkan coding terhadap Button Login supaya kita dapat menklik icon Login. Listingnya:

select * BUTTON LOGIN

insert code (Showmessage(‘nama:’+edit1.text+#13#1o+

‘npm:’+edit2.text+#13#10+

‘kelas:’+edit3.text+#13#10+

‘email studentsite:’+edit4.text); )

(+#13#10+) digunakan untung meng-enter coding.

 

Lalu memasukkan coding untuk keluar dari isi biodata di pendaftaran. Berikut listingnya:

select * BUTTON CLOSE

INSERT CODE (APpLICATION.TERMINATE; END; end.)

Listing ini hampir sama seperti Login hanya saja pada listing kali ini untuk keluas atau Close dari isi biodata pendaftaran.

Berikutnya adalah menampilkan warna pada saat mengklik Login dan Close. Listingnya:

select * BUTTON LOGIN

INSERT CODE (form1.color:=c1activecaption; )

Form1 diatas adalah berfungsi sebagai latar atau form pendaftaran.

Color merupakan methode dari sebuah warna yg akan ditampilkan pada form.

C1ActiveCaption adalah code dari warna itu sendiri.

Ini adalah cara menampilkan warna pada saat keluar dari isi biodata pendaftaran. Berikut listingnya:

select * BUTTON close

INSERT CODE (Form1.color:=c1lime; end;)

Serupa dengan listing code Button Login,

Form1 diatas adalah berfungsi sebagai latar atau form pendaftaran.

Color merupakan methode dari sebuah warna yg akan ditampilkan pada form.

C1Lime adalah code dari warna itu sendiri.

 

OUTPUT PROGRAM

Warna ketika Login diklik,

Warna ketika Close diklik,