Tugas Pemvis 7 [DATABASE DELPHI ACCES]

I.     Deskripsi Program

Program ini merupakan program pendukung keputusan suatu siswa dinyatakan lulus ataupun tidak berdasarkan nilai teori dan nilai praktik. Dalam program ini saya menggunakan database berbasis acces. Dalam program ini terdapat beberapa kolom yang harus diinput seperti NIS, nama, nilai teori dan nilai praktik. Nnatinya nilai praktika akan digabung dengan nilai teori dengan ketentuan nilai teori 60% dan nilai praktik 40%. Hasil dari program ini akan disimpan pada record dalam database acces dan outputnya adalah berupa pernyataan lulus atau tidaknya seorang siswa. Dalam program ini kita juga dapat mencari data satu orang saja siswa dengan mencari data berdasarkan data NIS.

II.  Interface Program

III.        Coding Program

Nama Komponen	Event	Perintah
Button1	OnClick	procedure TForm1.Button1Click(Sender: TObject); var strsql:string; begin strsql:='Select * from siswa_sma Where NIS Like"'+edit1.Text+'%"'; adoquery1.SQL.Clear; adoquery1.SQL.Add(strsql); adoquery1.Close; adoquery1.Open; end;
Button2	OnClick	procedure TForm1.Button2Click(Sender: TObject); var strsql:string; begin strsql:='Select * from siswa_sma '; adoquery1.SQL.Clear; adoquery1.SQL.Add(strsql); adoquery1.Close; adoquery1.Open; end;
Button3	OnClick	procedure TForm1.Button3Click(Sender: TObject); begin application.Terminate; end;
Button5	Onclick	procedure TForm1.Button5Click(Sender: TObject); var n1,n2,TOTAL:REAL; ket:string; begin if (Edit2.Text='') or (edit3.Text='') or (Edit4.Text='') or (Edit5.Text='') then   begin     ShowMessage('Lengkapi Data Dulu Ya');   end else   begin     if not ADOquery1.Locate('NIS',Edit2.Text,[])then     begin     ShowMessage('data kami simpan');     ADOQUERY1.Append;     ADOQuery1['NIS']:=Edit2.Text;     ADOQUERY1['NAMA']:=edit3.Text;     ADOQUERY1['NILAI_TEORI']:=edit4.Text;     n1:=StrToFloat(Edit4.Text);     ADOQUERY1['NILAI_PRAKTIK']:=Edit5.Text;     n2:=StrToFloat(Edit5.Text);     TOTAL:=(0.6*n1)+(0.4*n2);     ADOQUERY1['TOTAL_NILAI']:=TOTAL;     if TOTAL>60 then ket:='LULUS'     else ket:='TIDAK LULUS';     ADOQuery1['KET_KEL']:=ket;     ADOQUERY1.Post;   end   else   ShowMessage('Data Sudah Ada');   end;
Bersih1	Onclick	procedure TForm1.Bersih1Click(Sender: TObject); begin application.Terminate; end;

 Klik Disini Untuk Download Program