LISTING PROGRAM:
procedure
TForm1.Button1Click(Sender: TObject);
begin
ADOTable1.Append;
ADOTable1['Nama'] :=
Edit1.Text;
ADOTable1['NPM'] :=
Edit2.Text;
ADOTable1['Kelas'] :=
Edit3.Text;
ADOTable1['Jurusan']
:= Edit4.Text;
end;
procedure
TForm1.Button2Click(Sender: TObject);
begin
ADOtable1.delete;
ADOTable1.Refresh;
end;
procedure
TForm1.Button3Click(Sender: TObject);
begin
ADOTable1.last;
end;
procedure
TForm1.Button4Click(Sender: TObject);
begin
ADOTable1.first;
end;
procedure
TForm1.Button5Click(Sender: TObject);
begin
ADOTable1.next;
end;
procedure
TForm1.Button6Click(Sender: TObject);
begin
ADOTable1.Prior;
end;
procedure
TForm1.Button7Click(Sender: TObject);
begin
Application.Terminate;
end;
procedure
TForm1.Button8Click(Sender: TObject);
begin
ADOTable1.edit;
end..
LOGIKA PROGRAM:
procedure
TForm1.Button1Click(Sender: TObject);
begin
ADOTable1.Append;
ADOTable1['Nama'] :=
Edit1.Text;
ADOTable1['NPM'] :=
Edit2.Text;
ADOTable1['Kelas'] :=
Edit3.Text;
ADOTable1['Jurusan']
:= Edit4.Text;
end;
procedure TForm1.Button1Click(Sender: TObject);
Membuat procedure untuk button1 saat
diklik pada form1
ADOTable1.Append;
Menginsert data pada dbedit ke dalam
ADOTable1
ADOTable1['Nama'] := Edit1.Text;
Menginsert data pada Edit1 ke dalam
ke dalam ADOTable 1 Nama
ADOTable1['NPM'] := Edit2.Text;
Menginsert data pada Edit2 ke dalam
ke dalam ADOTable 1 NPM
ADOTable1['Kelas'] := Edit3.Text;
Menginsert data pada Edit3 ke dalam
ke dalam ADOTable 1 Kelas
ADOTable1['Jurusan'] := Edit4.Text;
Menginsert data pada Edit4 ke dalam
ke dalam ADOTable 1Jurusan
procedure
TForm1.Button2Click(Sender: TObject);
begin
ADOtable1.delete;
ADOTable1.refresh;
end;
procedure TForm1.Button2Click(Sender: TObject);
Membuat procedure untuk button2 saat
diklik pada form1
ADOtable1.delete;
ADOtable1.refresh;
Menghapus data pada ADOTable yang
dipilih lalu di refresh
procedure
TForm1.Button3Click(Sender: TObject);
begin
ADOTable1.last;
end;
procedure TForm1.Button3Click(Sender: TObject);
Membuat procedure untuk button3 saat
diklik pada form1
ADOTable1.Last;
Memilih data terakhir pada ADOTable1
procedure
TForm1.Button4Click(Sender: TObject);
begin
ADOTable1.first;
end;
procedure
TForm1.Button4Click(Sender: TObject);
Membuat procedure untuk button4 saat
diklik pada form1
ADOTable1.First;
Memilih data pertama pada ADOTable1
procedure
TForm1.Button5Click(Sender: TObject);
begin
ADOTable1.next;
end;
procedure
TForm1.Button5Click(Sender: TObject);
Membuat procedure untuk button5 saat
diklik pada form1
ADOTable1.Next;
Memilih data berikutnya pada
ADOTable1
procedure
TForm1.Button6Click(Sender: TObject);
begin
ADOTable1.Prior;
end;
procedure
TForm1.Button6Click(Sender:
TObject);
Membuat procedure untuk button6 saat
diklik pada form1
ADOTable1.Prior;
Memilih data sebelumnya pada
ADOTable1
procedure
TForm1.Button7Click(Sender: TObject);
begin
Application.Terminate;
end;
procedure
TForm1.Button7Click(Sender:
TObject);
Membuat procedure untuk button7 saat
diklik pada form1
Application.Terminate;
Untuk menutup/mengakhiri program
procedure
TForm1.Button8Click(Sender: TObject);
begin
ADOTable1.edit;
end;
procedure
TForm1.Button7Click(Sender:
TObject);
Membuat procedure untuk button7 saat
diklik pada form1
ADOTable1.Edit;
Berfungsi untuk mengedit data pada
ADOTable1 yang diplih
OUTPUT
PROGRAM:
EmoticonEmoticon