Menghilangkan Database Login pada TTable

Pada saat kita mengkoneksikan database kita dengan komponen TTable akan munculDatabase Login seperti gambar dbawah ini.





Untuk menghilangkan Database Login yang perlu kalian lakukkan yaitu menambahkan komponen TDatabase. Ganti nilai LoginPrompt menjadi false lalu beri nilai AliasName=Nama Alias kita di ODBC, dan jangan lupa lakukan hal yang sama pada DatabaseName. Perhatikan gambar dibawah ini.



Setelah di run Database Login tidak akan muncul lagi pada aplikasi kita.

Selengkapnya

Membuat form login pada delphi 7.0

1. Buka aplikasi Delphi yang anda gunakan dan buat lembar kerja baru dengan mengklik pada menu file > New > Form
2. Setelah muncul lebar kerja baru, letakkan dua buah label pada tab “standard” ke dalam form baru anda. Dan kemudian ubah nama label tersebut sesuai dengan keinginan anda.untuk mengubah nama label tersebut, klik tab “properties” > caption rubah nama label tersebut.




3. Setelah itu letakkan dua buah form Edit masih pada tab “standard” dimana anda mengambil label tadi,kemudian rubah nama dan caption label sesuai dengan keinginan anda. Misalnya untuk Edit1 “Enama” dan untuk Edit2 “Epassword”.
4. Kemudian masih pada tab yang sama,yaitu pada tab standard tadi, letakkan 2 buah button di bawah Form Edit tadi dengan merubah name dan captionnya..misalnya untuk button1 “Bsubmit” caption “Submit” dan untuk Button2 “Bbatal” caption “Batal”
Berikut contoh peletakan formnya 



5. tombol LOGIN dan paste code berikut :

if (Enama.Text <> 'gilang') or (EPassword.Text <> 'gilang') then
begin
MessageDlg('id atau password anda salah! ', MTWarning, [MBOK], 0);
Exit;
end;
FormStok.Show
end;

6. sekarang coba anda jalankan form yang sudah anda buat tadi..berhasil kan? 


note : untuk baris yang berwarna merah diatas, silahkan anda rubah sesuai degan nama form,user dan password yang anda inginkan.
FormStok.show berfungsi jika password dan username yang anda inputkan benar,maka tampil Form stok. Silahkan anda rubah sesuai dengan nama Form anda.




sumber : http://sauri-sofyan.blogspot.com

Selengkapnya

Membuat form loading pada Delphi 7.0

sekarang saya akan sharing ilmu yang sudah umum. yah setidaknya memperbanyak Postingan aja.. heee

langsung aja..

siapkan 2 buah Form..
dimana Form pertama akan kita jadikan form loading dan yang kedua akan kita jadikan form akhir setelah loading.

oke. pada Form pertama kita masukan dahulu komponen Timer, kemudia ProgresBar nya juga jangan lupa..

sesudah itu.. pada timer kita klik 2x masukkan script ini
>  procedure TForm1.Timer1Timer(Sender: TObject);

begin




ProgressBar1.Position:=ProgressBar1.Position+1;

if ProgressBar1.Position=100then




begin




Timer1.Enabled:=False;

Form1.Hide;

Form2.Show;

end;

end;




ok. kalau sudah saya jelaskan .

pada tanda warna Hitam sesuaikan dengan nama form kamu..

pada tanda warna hijau sesuaikan dengan kecepatan loading kamu, lebihkecil dia akan lebih cepat ^^.




pada tanda warna merah untuk nama form loading kamu yang akan di sembunyikan setelah itu pada tanda tanda warna biru adalah nama form akhir yang sudah kamu siapkan sendiri tentunya.. :P




ok kalau sudah coba compile dengan menekan f9




Selengkapnya