MEMMBUAT CODING DATA SRETIFIKASI GURU

Sselamat datang di blog yang sederhana ini, kita lanjutkan kembali.
Langkah pertama kitq pilih command1 yitu input klik 2x pada input tersebut.

ketikan coding tersebut di bawai ini.

seperti gambar di bawah ini ...........

langkah selanjutya sama seperti langkah yang pertama tadi, masukan coding-coding di bawah ini sesuai dengan command tersebut

CMD INPUT
On Error GoTo a
Data1.Recordset.AddNew
Text1.SetFocus
a:
Command1.Enabled = False
Command2.Enabled = True
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = True


CMD SAVE
On Error GoTo b
Data1.Recordset.Update
Data1.Refresh
Data1.Recordset.MoveLast
b:
Command1.Enabled = True
Command2.Enabled = False
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = True


CMD EDIT
On Error GoTo c
Data1.Recordset.Edit

c:
Command1.Enabled = False
Command2.Enabled = True
Command3.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command6.Enabled = True

CMD DELETE
On Error GoTo d
Data1.Recordset.Delete
Data1.Refresh
Data1.Recordset.MoveLast
d:
Command1.Enabled = True
Command2.Enabled = False
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = True
End Sub

CMD SEARCH
On Error Resume Next
Dim kode As String
kode = InputBox("ketik NIP:")
Data1.Recordset.Index = "idxnip"
Data1.Recordset.Seek "=", kode
If Data1.Recordset.NoMatch Then
Text1.Text = Data1.Recordset.Fields(0)
Text2.Text = Data1.Recordset.Fields(1)
Text3.Text = Data1.Recordset.Fields(2)
Text4.Text = Data1.Recordset.Fields(3)
Text5.Text = Data1.Recordset.Fields(4)
response = MsgBox("Data Tidak Ditemukan!", 0, "Pencarian Data")
End If


CMD EXIT
Private Sub Command6_Click()
If (MsgBox("YAKIN ANDA INGIN KELUAR?", vbYesNo, "KELUAR") = vbYes) Then
   Unload Me
End If




OK di atas ini adalalh coding2nya jia semua sudah di ketik sepeti langkah pertma tadi, kita cek bagian search nya kita kemabli lagi ke add-ins

kemudian klik visual data manage,  kemudian klik file pilih open database, pilih dan klik microsoft acces.


Langkah selanjunya pilih database sertifikasi kllik 2x.

Kllik kanan pada database guru tersebut klik desaign.

Kita ubah index tersebut dengan idxnip dengan caara mengetik pada kolom name tersebut.

jjika sudah selesai kita jalankan progrmnya tersebut apakah berjalan dengan baik jika da hal yang gagal perlu  kita cek ulang coding  yang kita ketik tadi apa ada yang salah dalam penulisannya.
pilih run

langkah selanjutnya kita  cek input dan lainnya di bawah irtu data- data yang telah di input terlebih dahulu..
 

ok kemudian kita klik input teraebut jika sudah selesai masukan nip dll,


lebih jelasnya lihat gambar di bawah ini,

jika sudah di input, kita save maka data tersebut akan menambah di dbgid tersebut.

ok kita di sini mencoba untuk menghapusnya 1 data saja, kta pilih yang data nip 005 tersebut, apakah berjalan atau tidak, ok kllik delete untuk meghapus data tersebut.


jika sudah sudah menjalankan delete tersebut maka data di dbgris tersebut otomatis akan terhapus. ok langkah selanjutnya kita mencoba pencarian

ok kita klik search tersebut maka akan muncul seperti gambar di bawah ini, misalkan kita mencari data dengan nip 002 kemmudian kita klik ok,

hasil pencarian tersebut akan muncul seperi gambar di bawah ini. ok kita belum mengecek editnnya nih kta jalankan saja dengan mengubah nnip tersebut beserta nama guru dll

langkah selanjutna kita ubah data tersebut seperti gambar di bawah ini kemudoan jika sudah selesai kita klik save tersebut,

 ok selesai sudah semua tombol berfungsi, seperti gambar tadi tang kita ubah adalah nip 002 kita ubah ke nip 005 beserta nama guru dll maka semua berungsi dengan baik.

langkah selanjutnya adalah kitamengecek 2 lagi yaiut tombol keluarnya apakah berfungsi, klik exit tersebut maka akan muncul yakin anda akan keluarjika kita pikh yes maka program tersebut akan keluar, jika no program tidak akan keluar.


ook sekian dan terimaksi semoga bermanfaat ........

CARA MENGUBAH TEXTBOX PADA FORM DATA SERTIFIKASI GURU......

Selamat datang kemaballi di blog yang sederhana ini, kita langsung saja ke tutorial tersebut.

langkah pertama kita pilih data 1,

kita ubah di propertise data1 pili recordsettype kemudian pilih 0 -table.

langkah selanjutnya kembali ke form kita pilih text1, lebih jelasnya lihat gambar di bawah ini.

kemudian ke propertise test1, kemudian pilih data source ppilih data1, dan selanjutnya pilih data field nya nip, jangan sampai tertukar, jika salah meilih maka prigram kan eror, di sesuiakn dengan yang ada di form tersebut.

jika sudah selesai maka selanjutnya pilih text2nya, lebih jelasnya lihat gambra dibawah ini.

jika sudah seleai kita ke propertise text2 langkahnya sama sepeti yang pertama tadi yang hanya di ubah adalah datafielfnya nama_guru.

jjika sudah selesai langkah selanjutnya text3nya di ubah juga, dan seterusnya sampai text 5, di sesuikan dengan urutan yang ada di form tersebut, jika sudah sselesau, coba di  run apakah berhasil text nya kosong, pilih run di tool tersebut yang berwarna hijau.

jika berhasil lihat gabar di bawah ini untuk lebih jelasnya/

ok sekian dan terimakasih semoga bermanfaat...............  

TUTORIAL PENGGABUNGAN DATABASE DATA SERTIFIKASI GURU

Langkah-langkah penggabungan database data sertifikasi guru

Selamat datang di blog ini kita masih lanjut dalam pembahasan vb 6.0, ok kita langsung saja,
Langkah pertama kita pilih data.
Kemmudian letakkan yang kita pilih tadi ke dalam form di bawah ini.


Langkah selanjutnya klik kanan pada area kosong di general pillih components, kemudian pilih centang microsoft data bound grid control 5.0 (SP3) jangan sampai salah piliih   ya guys.. jika sudah di centang kllk ok .

Di tools general tersebut menambah 1 komponen dengannama DBGrid, klik DBGrid terseebut.

Letakkan DBGrid tersebut di bawah data tersebut, atur sesuai keinginan anda.

Kemudian pilih data, setelah itu ke propertis bar, pilih database name tersebut klik pada kolom 3 titik tersebut.

Jika sudah masuk ke salam database name kemudian klik 2x pada ms acces sertifikasi

Masih sama langkah yang  tadi tetap di propertis data1 kemudian pilih record source, pilih sertifikasi.


Kemudain pilih data source, pilih data 1.

Kemuidan pilih DBGrid .





Pllih data source pada propertis dbgrid, pilih data 1.

Jika semua sudah selesai , maka langkah selanjutnya adalah klik kanan pada dbgrid, kemuidan pilih retrieve field.

Jika sudah di lakkukan maka akan muncul database yang kita buat tadi.

ok sekian dan terimakasih, jika ada kesalaha dala penukisan saya harap di maklumi.

Tutorial Pembuatan Database Data Sertifikasi Guru

Tutorial Pembuatan Database Data Sertifikasi Guru

Langkah pertama kita pilih tools add-ins kemudian klik pilih data visual data manager,

Setelah itu pili tolls file, kemudian pilih new untuk membuat database baru, kemudian pilih microsoft accesppillih yang version 7.0


Kemudian selanjutnya untuk ppenyimpanan database, di dalam folder untuk memuddahkan menemukan data tersebut, ketik dengan nama sertifikasi.setelah itu pilih save untuk menyimpannya.



 Setelah menyimpan kemiudian ;angkah selanjutnya klik kanan pada properties kemudian pilih new table 

Kemudian pilih add field

O,k kemuidan kita ketik nama tabelya sertifikasi, selanjutnya ketik name di kotak tersebut dengan nip, nama_guru, , alamat ,tahun_lulus dan nomor_handphone.

Hasilnya sepeti pada gambar di bawah ini.

Langkah selanjutnya kita memmbuat primary key pada databese tersebut. kita pilih add index

Selanjutnya kita pilih nip untuk priamry key nya name nya tersebut di samakan dengan index yaitu nip.

ok jika semua sudah selesai membuat table sertifikasi dengan primary key langkah selanjutnya pilih
build the table

klik build trh tsble terssebut,
setelah di lik akan kembali ke awal lagi dn menambah data yaitu dengan nama sertfikat,


ok terimakasih atas hal ini semoga bermanfaat untuk pebuatan database tersebut.