Home > Delphi, form validasi > Form Validasi

Form Validasi

December 20, 2011

validasi biasanya di gunakan pada saat melakukan penyimpanan data.

sebelum data disimpan, proses validasi inputan data  dilakukan. bila terdapat inputan yang masih kosong.program akan memberikan pesan bahwa masih ada data yang harus di isi..

sebagai contoh :

buat form seperti gambar berikut :

double klik pada button cek dan ketikan coding berikut ini :

// untuk cek data
procedure TForm1.Button1Click(Sender: TObject);
var
        I : Integer;
begin
       for I := 0 to ComponentCount – 1 do
begin
      if (Components[I] is TEdit) and (Trim(Tedit(components[I]).Text)= ”)   then
           begin
            showmessage(tedit(Components[i]).Name+’ Tidak boleh kosong’);
           tedit(Components[I]).SetFocus;
           exit;
           end;
end;
end;

double klik pada button hapus dan ketikan coding berikut ini :

//untuk hapus data
procedure TForm1.Button2Click(Sender: TObject);
var
        I : Integer;
begin
        for I := 0 to ComponentCount – 1 do
       begin
                  if (Components[I] is TEdit) then

                 tedit(Components[I]).Clear;

         end;
end;

jalankan program

lakukan pengecekan data dengan mengklik button cek,.

_______________selamat mencoba_____________

Categories: Delphi, form validasi Tags:
%d bloggers like this: