SMK N 1 Bakauheni

Bakauheni, 12 November 2020

Assalamu'alaikum Wr. Wb.

Dengan Pembelajaran Daring untuk Mata Pelajaran silahkan klik sesuai dengan jam pelajaran, hanya Materi yang Ontime untuk Absen dan Tugas ada batas waktu ditentukan, silahkan klik Mata Palajarannya :

1. Pemograman Dasar

2. Sistem Komputer

 

Semua Absen dan Tugas Berakhir Sampai Hari Senin..!!!

Jadwal Normal :

Jadwal Kelas X MM1 Pemograman Dasar dan Sistem Komputer 11.30 - 15.10 Wib

Jadwal Kelas X MM2 Pemograman Dasar dan Sistem Komputer 07.30 - 11.30 Wib

Selesai !

Wassalamu'alaikum Wr. Wb.

Hasil Nilai Pemograman Dasar 

Klik  Link Nilai PD


TUGAS KELAS X TKJ, X MM1 DAN X MM3
Hari Kamis, 12 Maret 2020

1. Catatlah Materi Dibawa ini 
2. Kerjakan Soal Klik Disni
    TOKEN : SMKN1BAKAUHENI
    Setelah selesai jawab soal Klik Kirim/Submit 
   Batas waktu : 08.00 WIB

MERANCANG PROGRAM DENGAN KONTROL TABEL

Hasil Yang Diingikan

  Desain Form

 

Komponen  Tambahan yang  dibutuhkan

1.      6 button dan 1 edit text

2.      1 Dbgrid (dalam komponen Data Control) Digunakan untuk menampilkan data tabel pada form.

3.      1 table (dalam komponen BDE)

Digunakan untuk menghugnkan antara tabel dengan database yang dibutuhkan

4.      1 datasource (dalam Komponen Data  Access)

Digunakan untuk koneksi Database / Alias Data Base Didalam suatu folder.

Setting Properties

Object	Properties
	Name	Caption/text
Label1	Label1	Aplikasi Penj ….
Button1	Bawal	Pertama
Button2	Bsebelum	Sebelum
Button3	BSesudah	Sesudah
Button4	Bakhir	Akhir
Button5	bLoncat	Go To
Button6	Bclose	Close
Edit1	Eloncat	-
Object	Data Base Name	Table Name
Table1	Toko	Barang.db
Object	Data Set
Data Source1	Table1
Object	Data Source
Dbgrid1	Data Source1
Object	Active
Table1	True

Ketikan program berikut ini

procedure TForm1.bpertamaClick(Sender: TObject);
begin
table1.First
end;

procedure TForm1.bsebelumClick(Sender: TObject);
begin
if table.Bof then
showmessage('Anda diawal record')
else
TABLE1.Prior;
end;

procedure TForm1.bsesudahClick(Sender: TObject);
begin
if table1.Eof then


showmessage ('Anda berada pada record terakhir')
else
teble1.Last;
end; 

procedure TForm1.bakhirClick(Sender: TObject);
begin
table1.Next;
end; 



procedure TForm1.bloncatClick(Sender: TObject);
begin 
table1.MoveBy(strtoint(eloncat.Text));
end;




procedure TForm1.bcloseClick(Sender: Object);
begin
if (application.MessageBox('Anda yakin form akan ditutup','Info',MB_YESNO)= IDYES) then
close;
end;