penggunaan input edit delete dan cari data

Penggunaan INPUT, EDIT, DELETE dan PENCARIAN DATA

Buat form  sbb:

 

Buat database access dengan nama db_minyak.mdb dan nama tabelnya =tb_minyak

 

Setting propertiesnya

ADOConnection	Name=con1 Connection String=koneksi ke database yang sudah dibuat,connected=true,login promp=false
ADOTable	Name=tbl1 Connection String=con1 Table name=tb_minyak , active=true
Datasource	Name=ds1   , DataSet=tbl1
DBNavigator	Name=dbnvgr1   ,  Datasource=ds1 Matikan component yang tidak dipakai di visibleButtons

Hasilnya sbb:

 

CODING  SBB:

Double klik pada form

procedure Tf_minyak.FormCreate(Sender: TObject);

//coding untuk memunculkan hari dan tanggal secara auto

var

  hari:Integer;

begin

edt1.Text:=DateToStr(Now);

hari:=DayOfWeek(Now);

if hari=1 then

edt2.Text:='Minggu'

else if hari=2 then

edt2.Text:='Senin'

 else

 if hari=3 then

edt2.Text:='Selasa'

 else

 if hari=4 then

edt2.Text:='Rabu'

 else

 if hari=5 then

edt2.Text:='Kamis'

 else

 if hari=6 then

edt2.Text:='Jumat'

 else

edt2.Text:='Sabtu'

end;

double klik pada button cari

procedure Tf_minyak.btn5Click(Sender: TObject);

begin

if tbl1.Locate('kode',edt10.Text,[locaseinsensitive]) then

 begin

showmessage('DATA KETEMU');

edt1.Text:=tbl1['tanggal'];

edt3.Text:=tbl1['rokan'];

edt4.Text:=tbl1['mountain'];

edt5.Text:=tbl1['siak'];

edt6.Text:=tbl1['selat'];

edt7.Text:=tbl1['koasial'];

edt8.Text:=tbl1['malacca'];

edt9.Text:=tbl1['jumlah'];

rb1.Checked:=True;

rb2.Checked:=True;

rb3.Checked:=True;

rb4.Checked:=True;

rb5.Checked:=True;

rb6.Checked:=True;

  end; 

 end;

double klik pada button jumlaH

procedure Tf_minyak.btn6Click(Sender: TObject);

var

  a,b,c,d,e,f,jumlah:Integer;

  begin

      a:=StrToInt(edt3.Text);

   b:=StrToInt(edt4.Text);

   c:=StrToInt(edt5.Text);

   d:=StrToInt(edt6.Text);

   e:=StrToInt(edt7.Text);

   f:=StrToInt(edt8.Text);

   jumlah:=a+b+c+d+e+f;

   edt9.Text:=IntToStr(jumlah);

end;

double klik pada button edit

procedure Tf_minyak.btn1Click(Sender: TObject);

begin

tbl1.Edit;

tbl1['kode']:=edt10.Text;

tbl1['tanggal']:=edt1.Text;

tbl1['hari']:=edt2.Text;

tbl1['rokan']:=edt3.Text;

tbl1['mountain']:=edt4.Text;

tbl1['siak']:=edt5.Text;

tbl1['selat']:=edt6.Text;

tbl1['koasial']:=edt7.Text;

tbl1['malacca']:=edt8.Text;

tbl1['jumlah']:=edt9.Text;

 //coding simpan radiobutton

 if rb1.Checked then

     tbl1['perusahaan']:='Chevron'

     else

        if rb2.Checked then

     tbl1['perusahaan']:='Petro Selat'

     else

     if rb3.Checked then

     tbl1['perusahaan']:='Pertamina'

     else

      if rb4.Checked then

     tbl1['perusahaan']:='Bumi Suap'

     else

      if rb5.Checked then

     tbl1['perusahaan']:='Sarana Pembangunan R'

     else

      if rb6.Checked then

     tbl1['perusahaan']:='Kondur Petrol'

      else

          tbl1['perusahaan']:='';

 tbl1.Post;

 ShowMessage('DATA BERHASIL DI EDIT');

      edt3.Text:='';

      edt4.Text:='';

      edt5.Text:='';

      edt6.Text:='';

      edt7.Text:='';

      edt8.Text:='';

      edt9.Text:='';

      edt10.Text:='';

      rb2.Checked:=False;

       rb3.Checked:=False;

        rb4.Checked:=False;

         rb5.Checked:=False;

          rb6.Checked:=False;

           rb1.Checked:=False;

end;

double klik pada button input

procedure Tf_minyak.btn2Click(Sender: TObject);

begin

   if ((edt3.Text='' )

   or (edt4.Text='' ) or( edt5.Text='')

    or (edt6.Text='' ) or( edt7.Text='')

     or (edt8.Text='' ) or( edt9.Text='')) THEN

    MessageDlg('di lengkapi dulu brooo',mtInformation,[mbOK],0)

  else

begin

tbl1.Append;

tbl1['kode']:=edt10.Text;

tbl1['tanggal']:=edt1.Text;

tbl1['hari']:=edt2.Text;

tbl1['rokan']:=edt3.Text;

tbl1['mountain']:=edt4.Text;

tbl1['siak']:=edt5.Text;

tbl1['selat']:=edt6.Text;

tbl1['koasial']:=edt7.Text;

tbl1['malacca']:=edt8.Text;

tbl1['jumlah']:=edt9.Text;

 //coding simpan check box

 if rb1.Checked then

     tbl1['perusahaan']:='Chevron'

     else

        if rb2.Checked then

     tbl1['perusahaan']:='Petro Selat'

     else

     if rb3.Checked then

     tbl1['perusahaan']:='Pertamina'

     else

      if rb4.Checked then

     tbl1['perusahaan']:='Bumi Suap'

     else

      if rb5.Checked then

     tbl1['perusahaan']:='Sarana Pembangunan R'

     else

      if rb6.Checked then

     tbl1['perusahaan']:='Kondur Petrol'

      else

          tbl1['perusahaan']:='' ;

 tbl1.Post;

 ShowMessage('DATA BERHASIL DI INPUT');

 edt3.Text:='';

      edt4.Text:='';

      edt5.Text:='';

      edt6.Text:='';

      edt7.Text:='';

      edt8.Text:='';

      edt9.Text:='';

      edt10.Text:='';

      rb2.Checked:=False;

       rb3.Checked:=False;

        rb4.Checked:=False;

         rb5.Checked:=False;

          rb6.Checked:=False;

           rb1.Checked:=False;

end;

 end;

double klik pada button HAPUS

procedure Tf_minyak.btn3Click(Sender: TObject);

begin

tbl1.Delete;

end;

double klik pada button EXIT

procedure Tf_minyak.btn4Click(Sender: TObject);

begin

CLOSE;

end;

UNTUK BUTTON PERVIEW pembuatannya sama dengan posting sebelumnya

Maka hasilnya sbb:

 

 

Semoga bermanfaat ,,,,heee