Bagi kalian yang ingin mengatahui Sintaks/Source Code untuk Delphi inilah yang Paling Dasar dalam pengkodean delphi tersebut.
- Sintaks atau Source Code Save
begin
if Edit1.Text=''then
begin
ShowMessage('KODE HARUS DIISI');
Exit;
end;
if SAVE.ModalResult=mrOk then
begin
Application.MessageBox('Data Tersimpan','SAVING',MB_ICONEXCLAMATION);
end;
begin
Query_datainput.Open;
Query_datainput.Append;
Query_datainput.FieldByName('peminjamkode').AsString:=Edit1.Text;
Query_datainput.FieldByName('peminjamnama').AsString:=Edit2.Text;
Query_datainput.FieldByName('peminjamalamat').AsString:=Edit3.Text;
Query_datainput.FieldByName('peminjamtelp').value:=strtointdef(edit4.text,0);
Query_datainput.Post
end;
end;
Penjelasan :
- Dalam pengkodean ini yang paling atas if edit1.text.... hingga end menjelaskan jika textbox edit1 kosong maka akan muncul pesan KODE HARUS DIISI
- Dan dari if Save hingga end itu merupakan pengkedoan agar bisa menyipan/menginput ke database
- SAVE di atas merupakan nama dari textbox yang di ganti namanya
- Sedangkan Query_datainput merupakan ADOQuery yang sudah di ganti namanya
- pada saat FieldByName kita harus samakan dengan Field yang sudah di buat di Data Base
- Sintaks atau Source Code Refresh
begin
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='0';
Form1.Refresh;
Edit1.SetFocus;
end;
Penjelasan :
- Source code di atas yaitu untuk merefresh Form dan untuk merefresh Textbox
- Edit1.Text:='' yaitu jika tombol refresh di klick maka edit1.text/textbox akan kosong
- Form1 Refresh berarti merefresh Form
- Edit1.Setfocus saat tombol di klick maka focus akan di Edit1
- Sintaks atau Source Code Close
begin
if Application.MessageBox('Apakah Anda Ingin Menutup Program ini ?','Eksekusi Perintah', Mb_YesNo or MB_ICONQUESTION)=
IDYes then
begin
Form1.Close;
end;
Penjelasan :
- Makusd dari applicarion.mesaggebox yaitu nantinya jika tombol di klick akan ada message Apakah anda ingin menutup progra ini.
BILA ADA YANG MASIH BELUM MENGERTI SILAHKAN KOMENTAR, MENGISI DI BOX SEBELAH KANAN.
TERIMA KASIH
