Memberikan Validasi "Tidak Boleh Kosong" pada Delphi 7
Hai Bangsawan Tua ..... Kali ini saya akan membagikan script yang berguna untuk melindungi program anda dari eror. Hal berikut dinamakan validasi, ada banyak valdisi tergantung program yang kita buat mau menggunakan validasi apa.
Dalam artikel ini saya akan memberikan validasi “Tidak Boleh Kosong”. Validasi ini sangat berguna jika program menggunakan database. Maksut dari “Tidak Boleh Kosong” adalah jika kita melakukan penyimpanan dan ternyata user lupa mengisikan salah satu field maka di database field yang kosong tersebut akan terlihat.
Untuk memvalidasi masalah berikut anda dapat menggunakan script berikut :
if (Edit10.Text = '') and (edit6.Text = '') then
begin
Application.MessageBox('Maaf.. Gagal .. :(', 'Gagal..', MB_ICONERROR);
End;
Maksud dari Script diatas adalah jika Edit 10 dan Edit6 kosong maka akan muncul sebuah Message Box
Untuk menyisipkan script tersebut dapat meletakan di Button Simpan
Semoga artikel diatas dapat membantu tugas anda ^_^
Tidak ada komentar:
Posting Komentar