Laman

▼

Memahami Penggunaan Fungsi IF Tunggal dan Validasi Data Di Delphi Konsep dan Implementasi


Logika IF adalah kondisi Benar atau Salah dan terdiri dari IF tunggal dan Bertingkat dimana yang membedakannya IF tunggal hanya didefinisikan satu kondisi IF sedangkan IF Bertingkat di definisikan dengan banyak IF (Lebih dari satu) Untuk Memamahi penggunaan kondisi Logika IF di Delphi Pahami konsep teorinya dan Implementasinya langsung membuat aplikasi sederhana.

Konsep
Statement If di dalam delphi ada beberapa syntax atau cara penulisan. Sekarang kita belajar dengan menggunakan satu syntax pernyataan IF.

IF Expresi Then Pernyataan;

Catatan :
·         Expresi harus bernilai logik atau boolean yaitu True atau false
·         Pernyataan setelah Then harus diawali dengan begin dan end jika lebih dari satu baris pernyataan.
·         pernyataan sebelum else tidak diakhiri tanda ;

Implementasi
Buat Aplikasi dan Desain Form  Seperti dibawah ini 

DESAIN FORM


Penjelasan
1.       Atur Masing-masing Komponen dan Propertienya di Menu Objec Inspector
2.       Komponen yang digunakan GroupBox, Label, EditText, Button, dan Panel
3.       Tulis Script Codingnya seperti dibawah ini

Komponen & Event
Script / Coding
Button Proses 1
(On Click)
procedure TForm1.btn_prosesClick(Sender: TObject);
Var
total, diskon,bayar : real;
begin
if edtotal.Text = '' then
  Begin
   ShowMessage('Total Belanja Harus di isi');
   edtotal.SetFocus;
  end
else
Begin
diskon := 0;
total := strtofloat(edtotal.Text);
if total > 100000 then
  Begin
   diskon := total * 0.1;
   eddiskon.Text := floattostr(diskon);
   edbayar.Text := floattostr(total - diskon);
  end
else
  ShowMessage('Anda Tidak Mendapat Diskon karena total belanja < 100.000' );
end;
end;
Button Proses 2
(On Click)
procedure TForm1.Button1Click(Sender: TObject);
var
  Nilai : integer;
  Status : string;
begin
if EdNilai.Text = '' then
  Begin
   ShowMessage('Nilai harus diisi');
   ednilai.SetFocus;
  end
   else
   Begin
    Nilai := strtoint(ednilai.Text);
    If Nilai >= 60   then
     begin
       Status := 'Lulus';
       Showmessage('Anda '+ Status)
     end
     else
       begin
         status := 'Tidak Lulus';
         showmessage('Anda '+status)
       end;

        end;

end;
Tombol Close
(On Click)
if MessageDlg('Yakin anda akan keluar dari Aplikasi ini ?',
   mtConfirmation,[mbYes,mbNo],0)= mrYes then
   close;

Penjelasan Program
1.       Pada tombol Proses 1 program akan menjalankan perintah logika IF Tunggal, dimana jika proses di klik dan Inputan total belanja belum diidi makan akan melakukan validasi data yang menyakan data harus di isi terlebih dahulu, dan jika data sudah di isi proses akan dilakukan dengan menyeleksi jumlah total belanja jika total belanja kurang dari > dari Rp 100.0000 maka mendapat diskon dan jika kurang dari Rp.100.000 maka tidak akan mendapat diskon.
2.       Pada tombol Proses ke 2 program akan menjalankan perintah logika if Tunggal dengan validasi data hampir sama dengan proses 1. Dimana proses logika akan menyeleksi inputan nilai jika nilai >= 60 adalah lulus dan jika lebih kecil 60 tidak lulus
3.       Tombol Close berfungsi untuk tombol keluar menggunakan fungsi Messegagedlg. Fungsi ini digunakan untuk memunculkan kotak pesan dan respon dari pemakai sistem.

Output Aplikasi

SELEKSI LOGIKA IF KONDISI TRUE
 
SELEKSI LOGIKA IF KONDISI FALSE

 Selamat Mencoba

PADEPOKAN IT COURSES
IT Tutorial, Training Center & IT Solution
www.padepokanit.com



No comments:

Memahami Fungsi Pencarian Data di Delphi Menggunakan Event On Change Pada Komponen Edit. Studi Kasus Mencari Data Berdasarkan NIM


Ketika melakukan Pencarian data kita bisa menggunakan fasilitas On Change pada komponen edit dimana cara kerjanya data akan ditampilkan jika ID yang di cari benar. Yang dimaksud dengan event On change adalah ketika kita menginput sebuah huruf atau angka di dalam edit, hasilnya akan langsung berubah. Untuk memahaminya kita coba membuat suatu aplikasi pencarian data mahasiswa berdasarkan NIM. Jadi jika nim yang dicari benar maka nama dan alamatnya  otomatis akan tampil.

Syntak
procedure TFPenelitian_Mahasiswa.ed_nimChange(Sender: TObject);
begin
if Length (ed_nim.Text) < 8 then
  Begin
    exit;
  end;
with FPenelitian_Mahasiswa do
   with QMahasiswa do
     begin
       sql.Clear;
       sql.Add('Select * from Tmahasiswa where nim like :nim order by nim');
       Params.ParamByName('nim').Value:= '%'+ed_nim.Text+'%';
       Active := true;
       if not QMahasiswa.IsEmpty then
         Begin
           ed_nama.Text := QMahasiswa['nama'];
           ed_alamat.Text := QMahasiswa['alamat'];
           ed_nama.SelectAll;
         End
       else
         begin
            application.MessageBox ('Nim Tersebut Belum Terdaftar..','info',MB_ok + MB_NOFOCUS + MB_ICONERROR);
            ed_nim.setfocus;
            ed_nim.Clear;
            exit;
            end;
  end;
end;
Keterangan
 Sintak SQL diatas menggunakan SQL Like dimana Kriteria atau operator Like digunakan dalam kueri untuk menemukan data yang cocok dengan pola tertentu. Kriteria atau operator Like sangat berguna saat sedang membandingkan nilai bidang dengan ekspresi string.  Dalam syntak diatas kriteria yang dicari berdasarkan Nim. Sehingga outputnya jika Nim benar maka Nama dan Alamat akan otomatis ditampilkan.

Output Aplikasi


PENCARIAN DATA MENGGUNAKAN
EVENT ON CHANGE PADA KOMPONEN EDIT

PADEPOKAN IT COURSE
IT Tutorial, Training Center & IT Solution
www.padepokanit.com



No comments: