Login Sederhana di Delphi

procedure TFlogin.SpeedButton2Click(Sender: TObject);
begin

    IF (TxtUserID.Text = 'admin') and (TxtUserPass.Text = 'admin') then
    begin
        MessageDlg('Login Sukses, Selamat Datang di PT.Wirya Trikarsa',mtConfirmation,[mbOK],0);
        FPendaftaran.show;
    end
    else if (TxtUserID.Text ='') and (TxtUserPass.Text = '') then
    begin
        MessageDlg('Silahkan Isi Username dan Password Anda',mtError,[mbOK],0);
        Flogin.Show;
    end
    else
    begin
        MessageDlg('Username atau Password salah',mtError,[mbOK],0);
        Flogin.Show;
    end;
    TxtUserID.Clear;
    TxtUserPass.Clear;
end;



By David Jovi 
http://jendraldavid.blogspot.com

Pemrograman Delphi

• Borland Delphi Engine (BDE)
• Aplikasi Inventory using Delphi 7
• Jawaban Quiz Delphi (Rental VCD/DVD)
• Program Inventory
• Program Konversi Suhu V.2
• Program Konversi Suhu
• Pemrograman Delphi

E-Learning

• Aplikasi Inventory Menggunakan Java dan Access
• Membuat Database Java dan Access
• Etika Profesi
• Cara Mengetahui IP Network, IP Host, IP Broadcast
• Materi WEB 8
• Sistem Informasi Manajemen
• Jawaban UTS WEB
• Quiz WEB..
• Materi Pemrograman WEB 5
• Pertemuan ke 3 WEB
• Borland Delphi Engine (BDE)
• Penelitian Mata Kuliah Sistem Pengambilan Keputusan
• Domain Gratis
• Metodelogi Penelitian
• Jawaban UTS Pemrograman WEB
• Struktur Data