1. Langkah pertama buatlaha database dengan nama Db_Mahasiswa menggunakan Microsoft Access
2. Langkah kedua buat tabel dengan nama Tabel_Mahasiswa
dengan field-field sebagai berikut
3. Langkah ketiga desain
No
|
Komponen
|
Properti
|
Nilai
|
1
|
ADOConection1
|
Conection String
Conected
Login Prompt
|
.....
True
False
|
2
|
ADOTable1
|
Conection
Table Name
Active
|
ADOConection1
Tabel_Mahasiswa
True
|
3
|
DataSource1
|
Data Set
|
ADOTable1
|
4
|
DBGrid1
|
DataSource
|
DataSource1
|
5
|
DBNavigator
|
DataSource
|
DataSource1
|
6
|
Button1
|
Caption
|
Simpan
|
7
|
Button2
|
Caption
|
Resset
|
8
|
Label1
|
Caption
|
Nama
|
9
|
Label2
|
Caption
|
Nim
|
10
|
Label3
|
Caption
|
Kelas
|
11
|
Label4
|
Caption
|
Jurusan
|
12
|
Edit1
|
Text
|
|
13
|
Edit2
|
Text
|
|
14
|
Edit3
|
Text
|
|
15
|
Edit4
|
Text
|
|
4. Langkah selanjutnya buat form1 dan desai sesuai aba-aba
diatas seperti contoh gambar dibawah
ini
5.a. selanjutnya
double click pada button dengan caption “RESET”
Dan masukkan
cooding ini
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
end;
b. selanjutnya
double click pada button dengan caption “SIMPAN”
Dan masukkan
cooding ini
procedure TForm1.Button2Click(Sender: TObject);
begin
ADOTable1.Open;
ADOTable1.Append;
ADOTable1.FieldByName('nama').AsString:=Edit1.Text;
ADOTable1.FieldByName('nim').AsString:=Edit2.Text;
ADOTable1.FieldByName('kelas').AsString:=Edit3.Text;
ADOTable1.FieldByName('jurusan').AsString:=Edit4.Text;
ADOTable1.Post;
end;
6. Setelah anda
selesai memasukkan cooding diatas baru anda run program tersebut dgn menggnakan F9
7. Dan hasilnya seperti gambar di bawah ini
Tidak ada komentar:
Posting Komentar