screen shot database

NAMA : DETY NURBAETY

NIM  : 113209016

KELAS : PAGI-SORE

JURUSAN : MANAJEMEN INFORMATIKA D3

SEMESTER : III

Buatlah database dengan file :identitas,dengan nama table :identitas disimpan pada drive  c:folder  nama anda plus UTS 2012,contoh=>C:\DETY NURBAETY\UTS2012\...

Dengan susunan filed sebagai berikut :

Dan isi dengan data sebagai berikut :

Tambahkan 2 buah record kedalamnya termasuk nama anda yang terakhir di input.

Buatlah tampilan sebagai berikut di visual basic 6.0

MASUKAN :

1.       Masukan 10 buah label

2.       Masukan 7 buah texbox

3.       Masukan 7 buah command button

4.       Masukan mshflexgrid1

5.       Masukan adodc1

Keterangan :

NO	OBJECT / KOMPONEN	PROPERTIES	KETERANGAN
01	Label 1-10	Caption : dilihat di form	disesuaikan
02	Text1	Name : Txtnama, text : kosongkan	-
03	Text2	Name : Txtalamat	-
04	Text3	Name : txtjabatan	-
05	Text4	Name : Txtgolongan	-
06	Text5	Name : Txthp	-
07	Command1	Name: cmdbersih,caption : bersihkan (clear)	-
08	Command2	Name : Cmdsimpan,caption : simpan (save)	-
09	Command3	Name: Cmdhapus,caption :hapus (delete)	-
10	Command4	Name: Cmdtampil,caption : tampil (show)	-
11	Command5	Name: Cmdrubah,caption :rubah (update)	-
12	Line 1-4	Dilihat di form	-
13	Mshflexgrid1	-	-
14	ADODC1	-	-

MEMBERSIHKAN TEXT YANG ADA :

Private Sub cmdbersih_Click()

Txtnama.Text = ""

Txtalamat.Text = ""

txtjabatan.Text = ""

Txtgolongan.Text = ""

Txthp.Text = ""

End Sub

ISI TOMBOL KELUAR :

Private Sub Cmdkeluar_Click()

End

End Sub

MEMBUAT ENTER TURUN KE BAWAH : * CATATAN KEYPREVIEW DI FORM HARUS TRUE

Private Sub Form_Keypress(KeyAscil As Integer)

If KeyAscil=13 Then

                SendKeys [“Tab”]

End if

Private Sub Cmdsimpan_Click()

Dim sumber As String

Dim cm As New Command

On Error GoTo salah

If Txtnama.Text = "" Then

    MsgBox "masukan namanya telebih dahulu"

End If

sumber = "insert into IDENTITAS values (:nama,:alamat,:jabatan,:golongan,:hp)"

cm.ActiveConnection = myconn

cm.CommandText = sumber

cm.Parameters(0).Value = Txtnama

cm.Parameters(1).Value = Txtalamat

cm.Parameters(2).Value = txtjabatan

cm.Parameters(3).Value = Txtgolongan

cm.Parameters(4).Value = Txthp

cm.Execute

betul:

MsgBox "Data Telah Masuk"

Exit Sub

salah:

MsgBox Err.Description

End Sub

Private Sub Cmdhapus_Click()

Dim sumber As String

Dim cm As New Command

Dim kunci As String

kunci = InputBox("masukan nama yang akan di hapus")

If kunci = "" Then

    MsgBox "nama belum dimasukan,,,,masukan nama:"

    Exit Sub

End If

On Error GoTo salah

sumber = "delete from IDENTITAS where NAMA=:NONAMA"

cm.ActiveConnection = myconn

cm.CommandText = sumber

cm.Parameters(0).Value = kunci

cm.Execute

benar:

    MsgBox "Data Telah Dihapus"

Exit Sub

salah:

MsgBox Err.Description

End Sub

Private Sub Cmdtampil_Click()

Dim rs As New Recordset

Dim cm As New Command

Dim sumber As String

Dim kunci As String

kunci = Txtnama.Text

If kunci = "" Then

Exit Sub

End If

sumber = " select * from Identitas where NAMA =:Kunci "

cm.ActiveConnection = myconn

cm.CommandText = sumber

cm.Parameters(0).Value = kunci

Set rs = cm.Execute

If rs.EOF Then

    txtno.SetFocus

    Exit Sub

Else

    Txtnama.Text = rs!nama

    Txtalamat.Text = rs!alamat

    txtjabatan.Text = rs!jabatan

    Txtgolongan.Text = rs!golongan

    Txthp.Text = rs!hp

       

End If

End Sub

Private Sub Cmdrubah_Click()

Dim cm As New Command

Dim sumber As String

On Error GoTo salah

sumber = "update IDENTITAS set alamat=:alamat,jabatan=:jabatan," & _

        "golongan=:golongan,golongan =:hp " & _

        "where nama=:nama"

       

cm.ActiveConnection = myconn

cm.CommandText = sumber

cm.Parameters(0).Value = Txtalamat

cm.Parameters(1).Value = txtjabatan

cm.Parameters(2).Value = Txtgolongan

cm.Parameters(3).Value = Txthp

cm.Parameters(4).Value = Txtnama

cm.Execute

betul:

MsgBox "data telah di rubah"

salah:

MsgBox Err.Description

End Sub

Subscribe to receive free email updates: