Cara membuat menu login atau sig in menggunaka delphi 2010

Cara membuat menu login atau sig in menggunaka delphi 2010

Oleh:

JOKO TURWANTO

NIM : 2011.15.458.0016

JURUSAN TEKNIK INFORMATIKA

FAKULTAS TEKNIK

UNIVERSITAS WAHIDIYAH

Untuk langkah awal kali ini kita akan membuat ligin dalam pmbuatan kali ini kita bisa membuat form terlebih dahulu komponennya antara lain : di bawah ini dan untuk panel di letakan di paling bawah.

Nama komponen	caption	nama
TLabel 1	Nama	Nama1
TLabel2	Pasword	Paswor1
TLabel3	Designprogram717	Label3
Tedit1	-	Nama
Tedit2	-	Pasword
TButton	Ok	Button
Tpanel	-	Waktu1
Ttimer	-	timer
Timage1	-	Image1

Oy untuk t image kita bisa pilih sendiri sesuai dengan keinginan kita untuk mempercantik tampilan caranya pilih properti kemu dian pictur cari dech gambarnya sesuai kesukaan kita

Untuk form utamama masukan kode seperti di bawah ini pilih kode yang terletak di bawah form kan ada tiga pilihan  yaitu kode,  design dan histori klik satu kali di kode  pastikan kode sama persis di bawah ini

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ExtCtrls, StdCtrls, jpeg;

type

  TForm1 = class(TForm)

    Nama1: TLabel;

    Pasword1: TLabel;

    nama: TEdit;

    pasword: TEdit;

    waktu1: TPanel;

    Button1: TButton;

    Timer1: TTimer;

    Timer2: TTimer;

    Label1: TLabel;

    Image1: TImage;

    procedure Button1Click(Sender: TObject);

    procedure Timer1Timer(Sender: TObject);

    procedure Timer2Timer(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

klik dua kali pada botten 1 atau ok lalu masukan kode seperti di bawah ini

procedure TForm1.Button1Click(Sender: TObject);

begin

if (nama.Text<>'joko')Or (pasword.Text<>'turwanto') then

begin

messageDlg(' Nama Atau Pasword Yang Anda Masukan Salah',MtWarning,[Mbok],0);

Exit

end;

lalu klik duakali pada timer1 dan masukan kode seperti di bawah ini

procedure TForm1.Timer1Timer(Sender: TObject);

begin

waktu1.Caption:=FormatDateTime('dddd, dd mmmm yyyy (hh:mm:ss)',Now);

end;

nah di timer 2 ini berfungsi untuk membuat tulisan berjalan klik timer2 pilih properti lalu interfalnya di ubah menjadi 10 kemudian klik 2 kali timer2 dan masukan kode seperti di bawah ini

procedure TForm1.Timer2Timer(Sender: TObject);

begin

if Label1.Left<-Label1.Width then

Label1.Left:=Width

else

label1.Left:=label1.Left-1;

end;

end.

sudah jadi dech mudahkan mudah kan ini sangat penting untuk pembuatan program karna dalam menjalankan program kalau tidak kita pasword semua orang bisa mengetahuinya tpi law kita paswort data kitakan jdi aman

g_mail   :dprwscout717@gmail.com

blok       :designprogram717.blokspot.com

no hp    : 082302577717