Tugas KTI B

-
Dimas Gumelar Septianugraha
52416044
1IA10
PTKI B



1. Penyusunan Database





2. Listing Program
Dim koneksi As ADODB.Connection
Dim query As String
Dim idold As String
Sub conn()
    Set koneksi = New ADODB.Connection
koneksi.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=konektor"
End Sub

Private Sub Command1_Click()
    Dim jenis_kelamin As String
    If Option1.Value = True Then
        jenis_kelamin = "L"
    Else
        jenis_kelamin = "P"
    End If
    query = "INSERT INTO krwdimas1ia10 (nip, nama, alamat, jenis_kelamin, status, tunjangan, gaji, no_hp) values ('" & txt_nip.Text & "', '" & txt_nama.Text & "', '" & txt_alamat.Text & "', '" & jenis_kelamin & "', '" & cmb_status.Text & "', '" & txt_tunjangan.Text & "', '" & txt_gaji.Text & "', '" & txt_nohp.Text & "')"
    koneksi.Execute query

    Adodc1.Refresh
    Set DataGrid1.DataSource = Adodc1

End Sub

Private Sub Command2_Click()
    Dim jenis_kelamin As String

    If Option1.Value = True Then
        jenis_kelamin = "L"
    Else
        jenis_kelamin = "P"
    End If

    query = "UPDATE krwdimas1ia10 SET nama = '" & txt_nama.Text & "', alamat = '" & txt_alamat.Text & "', jenis_kelamin = '" & jenis_kelamin & "', status = '" & cmb_status.Text & "', tunjangan =  '" & txt_tunjangan.Text & "', gaji = '" & txt_gaji.Text & "', no_hp = '" & txt_nohp.Text & "' WHERE nip = '" & idold & "'"
    koneksi.Execute query

    Adodc1.Refresh
    Set DataGrid1.DataSource = Adodc1

End Sub

Private Sub Command3_Click()
    query = "DELETE FROM krwdimas1ia10 WHERE nip = '" & txt_nip & "'"
    koneksi.Execute query

    Adodc1.Refresh
    Set DataGrid1.DataSource = Adodc1

End Sub

Private Sub DataGrid1_Click()
    txt_nip.Enabled = False
    txt_nip.Text = Adodc1.Recordset.Fields("nip")
    txt_nama.Text = Adodc1.Recordset.Fields("nama")
    txt_alamat.Text = Adodc1.Recordset.Fields("alamat")
    txt_tunjangan.Text = Adodc1.Recordset.Fields("tunjangan")
    txt_gaji.Text = Adodc1.Recordset.Fields("gaji")
    txt_nohp.Text = Adodc1.Recordset.Fields("no_hp")

    idold = txt_nip.Text

End Sub

Private Sub Form_Load()
    Call conn
    Adodc1.ConnectionString = koneksi
    Adodc1.RecordSource = "krwdimas1ia10"
    Adodc1.Refresh

    Set DataGrid1.DataSource = Adodc1

End Sub




3. Output Design





Komentar

Posting Komentar

Postingan populer dari blog ini

TEKNIK ANIMASI DALAM PEMBUATAN FILM ACTION: THE AVENGERS

-
Gambar
TUGAS 1    : MATA KULIAH GRAFIK KOMPUTER 2 (3IA15)                        REALISME KOMPUTER GRAFIK ANGGOTA : - AHMAD LUTHFI IBRAHIM                          (50416078)                        - DIMAS GUMELAR SEPTIANUGRAHA      (52416044)                        - FARHAN TAUFIK HIDAYAT                        (52416658)                        - IBNU FADILAH PANGESTU                        (53416352)                        - KEVIN REYNALDO            ...
Baca selengkapnya

Mercusuar Iskandariyah

-
Mercusuar Iskandariah atau Pharos Alexandria (dari bahasa Yunani o Φάρος της Αλεξάνδρειας ) adalah sebuah mercusuar yang dibangun pada abad ke-3 SM di pulau Pharos berdekatan dengan kota Iskandariah kuno, Mesir Kuno . Ketinggiannya diperkirakan melebihi 115 meter dan merupakan antara struktur tertinggi ciptaan manusia selama beratus-ratus tahun. Antipater dari Sidon telah menyenaraikannya dalam senarai Tujuh Keajaiban Dunianya . [ sunting ] Sejarah Kawasan pesisiran pantai merupakan tanah rata dan kurang sesuai sebagai pelabuhan kerana tidak mempunyai panduan untuk pedagang dan pelayar. Oleh karena itu, sebuah mercusuar yang dilengkapi dengan api dan cermin pantulan telah dibangun. [ sunting ] Pembangunan Bangunan mercusuar dirancang oleh Sostratus dari Snidus atas petunjuk Satrap (Gubernur) Ptolemeus I , seorang panglima Alexander Agung . Selepas Alexander meninggal dunia, Ptolemeus memproklamasikan diri sebagai raja baru dan mengarahkan pembangunan mercusuar. Bang...
Baca selengkapnya

TUGAS 3 – PENGEMBANGAN RENCANA BISNIS INFORMATIKA PADA BUKALAPAK

-
Gambar
Kelompok 3 : Aji Bangun P. (50416443) Dimas Gumelar S. (52416044) Farhan Taufik H. (52416658) Jourdan Paulus M. (53416771) M. Farhan Febrianza (54416168) Riski Afrialam (56416484) Zainal Abidin (57416908) Ruang Lingkup Bukalapak.com Bukalapak.com  hanya mengizinkan jual beli barang yang bisa dikirim melalui jasa pengiriman, sehingga jasa dan kerjasama dagang (franchise) tidak dapat diperdagangkan melalui  Bukalapak.com  terkecuali ada kerja sama resmi dengan pihak  Bukalapak.com . Barang-barang yang dapat diperdagangkan di  Bukalapak.com  merupakan barang yang tidak tercantum di daftar “Barang Terlarang”. Bukalapak.com  tidak bertanggung jawab atas kualitas barang, proses pengiriman, rusaknya reputasi pihak lain, dan/atau segala bentuk perselisihan yang dapat terjadi antar pengguna situs. Bukalapak.com  memiliki kewenangan untuk mengambil tindakan yang dianggap perlu terhadap akun yang diduga dan/atau terindikasi mel...
Baca selengkapnya