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

Read More

Laporan Pemvis Web Browser

I.              Deskripsi Program

Program ini memiliki 2 kegunaan , yaitu untuk sebgai memo dengan karakteristik font yang dapat diubah. Dan juga sebagai webbrowser untuk masuk ke 4 situs yaitu google,facebook,yahoo dan twitter. Program ini terletak pada pagecontrol yang terbagi menjadi 2 tab.

Ketika program dijalankan maka kita akan masuk ke tab pertama yaitu terdapat memo1 yang tulisannya dapat diubah karakternya sesuai keinginan kita baik itu jenis font,warna maupun ukuran font. Coding perintah ini terdapat pada bitbtn1 yang bertuliskan retry. Pada tab kedua kita akan masuk ke webbrowser yang didalamnya kita dapat memilih web mana yang akan dijelajahi sesuai speedbutton yang terdapat pada program tersebut.

II.           Interface Program 

III.        Coding Program

Nama Komponen	Event	Perintah
Bitbtn1	onclick	procedure TForm1.BitBtn1Click(Sender: TObject); begin if FontDialog1.Execute = True then Memo1.Font := FontDialog1.Font; end;
Speedbutton1	On click	procedure TForm1.SpeedButton1Click(Sender: TObject); begin WEBBROWSER1.Navigate('www.google.com'); end;
Speedbutton2	Onclick	procedure TForm1.SpeedButton2Click(Sender: TObject); begin webbrowser1.Navigate('www.facebook.com'); end;
Speedbutton3	Onclick	procedure TForm1.SpeedButton3Click(Sender: TObject); begin webbrowser1.Navigate('www.yahoo.com'); end;
Speedbutton4	onclick	procedure TForm1.SpeedButton4Click(Sender: TObject); begin webbrowser1.Navigate('www.twitter.com'); end;

 Klik Saya Untuk Download

Read More