TUGAS 4 SMBD

TUGAS 4

SISTEM MANAJEMEN BASIS DATA

"Aplikasi Swalayan"

Disusun oleh:

1.    Yogy Pratama                   (121051037)

2.    Gustian Rohendi              (121051063)

3.    Nur Rohmah                     (121051110)

4.    Ermawati                           (121051111)

5.    Ajeng Dian Ambarwati    (121051091)

INSTITUT SAINS & TEKNOLOGI

AKPRIND YOGYAKARTA
2013

disni kami membuat aplikasi swalayan menggunakan visual basic dan database menggunakan ms access.
berikut adalah form yang kami buat dan scriptnya

form login

Private Sub Command1_Click()

Dim user_name As String

Dim password As String

Call BukaDB

        RSuser.Open "Select * from t_user where user_name ='" & Text1 & "' and password='" & Text2 & "'", koneksi

        If RSuser.EOF Then

            MsgBox "Password Salah, Coba Lagi!"

            Text2 = ""

            Text2.SetFocus

        Else

            Unload Me

            FrBar.Show

        End If

End Sub

Private Sub Command2_Click()

Unload Me

End Sub



form menu utama

 

Private Sub Barang_Click()

FrBarang.Show

End Sub

Private Sub Brg_Click()

End Sub

Private Sub Exit_Click()

If MsgBox("Anda yakin mau keluar?", vbQuestion + vbYesNo, "Konfirmasi") = vbYes Then

    Unload Me

End If

End Sub

Private Sub Karyawan_Click()

FrKaryawan.Show

End Sub

Private Sub lp_Click()

LpBrg.Show

End Sub

Private Sub lpkaryawan_Click()

LpKar.Show

End Sub

Private Sub lpSup_Click()

LapSup.Show

End Sub

Private Sub MDIForm_Load()

End Sub

Private Sub Pembelian_Click()

FrBeli.Show

End Sub

Private Sub Penjualan_Click()

FrJual.Show

End Sub

Private Sub Suplier_Click()

FrSupplier.Show

End Sub

Menu Master

Private Sub DBGrid1_Click()

End Sub

Private Sub Command1_Click()

tmbh_brg.Show

End Sub

Private Sub Command2_Click()

edit_brg.Show

End Sub

Private Sub Command3_Click()

On Error Resume Next

Dim Hapus

Hapus = MsgBox("Anda Yakin Data Ini Akan Dihapus???", vbQuestion + vbYesNo, "Hapus Data")

If Hapus = vbYes Then

Adodc1.Recordset.Delete adAffectCurrent

Adodc1.Refresh

Adodc1.Recordset.Update

Adodc1.Refresh

Else

MsgBox "Data Tidak Jadi Dihapus!!!", vbOKOnly + vbInformation, "Batal Menghapus"

End If

End Sub

Private Sub Command4_Click()

Me.Hide

MDIForm1.Show

End Sub

Private Sub Command5_Click()

Adodc1.Refresh

Adodc1.Recordset.Update

Adodc1.Refresh

End Sub

Private Sub Label2_Click()

End Sub

Private Sub Command6_Click()

Dim datacari As String

datacari = "nama_barang = '" & Text1.Text & " '"

Adodc1.Recordset.Find datacari

If Adodc1.Recordset.EOF Then

    MsgBox "Data tidak ditemukan"

Else

    MsgBox "Data ditemukan pada record ke : " & Adodc1.Recordset.AbsolutePosition

End If

Adodc1.Refresh

End Sub

Private Sub Form_Load()

End Sub

Private Sub Command3_Click()

    Adodc1.Recordset.AddNew

    Adodc1.Recordset!kode_barang = Text1.Text

MsgBox "Data Berhasil Disimpan!!!"

End Sub

Private Sub Command4_Click()

Me.Hide

FrBarang.Show

End Sub

Private Sub Form_Load()

Adodc1.Recordset.AddNew

Combo1.AddItem "Rak No 1"

Combo1.AddItem "Rak No 2"

Combo1.AddItem "Rak No 3"

Combo1.AddItem "Rak No 4"

Combo1.AddItem "Rak No 5"

Combo1.AddItem "Rak No 6"

Combo1.AddItem "Rak No 7"

Combo1.AddItem "Rak No 8"

Combo1.AddItem "Rak No 9"

Combo1.AddItem "Rak No 10"

Combo1.AddItem "Rak No 11"

Combo1.AddItem "Rak No 12"

Combo2.AddItem "Bks"

Combo2.AddItem "Botol"

Combo2.AddItem "Biji"

Combo2.AddItem "Kaleng"

End Sub

Private Sub Command1_Click()

tmbh_supplier.Show

End Sub

Private Sub Command2_Click()

edit_supplier.Show

End Sub

Private Sub Command3_Click()

On Error Resume Next

Dim Hapus

Hapus = MsgBox("Anda Yakin Data Ini Akan Dihapus???", vbQuestion + vbYesNo, "Hapus Data")

If Hapus = vbYes Then

Adodc1.Recordset.Delete adAffectCurrent

Adodc1.Refresh

Adodc1.Recordset.Update

Adodc1.Refresh

Else

MsgBox "Data Tidak Jadi Dihapus!!!", vbOKOnly + vbInformation, "Batal Menghapus"

End If

End Sub

Private Sub Command4_Click()

Me.Hide

MDIForm1.Show

End Sub

Private Sub Command5_Click()

Dim datacari As String

datacari = "nama = '" & Text1.Text & " '"

Adodc1.Recordset.Find datacari

If Adodc1.Recordset.EOF Then

    MsgBox "Data tidak ditemukan"

Else

    MsgBox "Data ditemukan pada record ke : " & Adodc1.Recordset.AbsolutePosition

End If

Adodc1.Refresh

End Sub

Private Sub Command6_Click()

Adodc1.Refresh

Adodc1.Recordset.Update

Adodc1.Refresh

End Sub

Private Sub DataGrid1_Click()

DataGrid1.Refresh

Adodc1.Refresh

End Sub

Private Sub Command3_Click()

On Error Resume Next

Command3.Caption = "Simpan"

    Adodc1.Recordset.AddNew

    Command3.Caption = "Simpan"

    Command4.Caption = "Keluar"

MsgBox "Data Berhasil Disimpan!!!"

End Sub

Private Sub Command4_Click()

Me.Hide

FrSupplier.Show

End Sub

Private Sub Form_Load()

Adodc1.Recordset.AddNew

End Sub

Private Sub Command1_Click()

tmbh_karyawan.Show

End Sub

Private Sub Command2_Click()

edit_karyawan.Show

End Sub

Private Sub Command3_Click()

On Error Resume Next

Dim Hapus

Hapus = MsgBox("Anda Yakin Data Ini Akan Dihapus???", vbQuestion + vbYesNo, "Hapus Data")

If Hapus = vbYes Then

Adodc1.Recordset.Delete adAffectCurrent

Adodc1.Refresh

Adodc1.Recordset.Update

Adodc1.Refresh

Else

MsgBox "Data Tidak Jadi Dihapus!!!", vbOKOnly + vbInformation, "Batal Menghapus"

End If

End Sub

Private Sub Command4_Click()

Me.Hide

MDIForm1.Show

End Sub

Private Sub Command5_Click()

Dim datacari As String

datacari = "nama = '" & Text1.Text & " '"

Adodc1.Recordset.Find datacari

If Adodc1.Recordset.EOF Then

    MsgBox "Data tidak ditemukan"

Else

    MsgBox "Data ditemukan pada record ke : " & Adodc1.Recordset.AbsolutePosition

End If

Adodc1.Refresh

End Sub

Private Sub Command6_Click()

Adodc1.Refresh

Adodc1.Recordset.Update

Adodc1.Refresh

End Sub

Private Sub Form_Load()

End Sub

Private Sub Command3_Click()

On Error Resume Next

Command3.Caption = "Simpan"

    Adodc1.Recordset.AddNew

    Command3.Caption = "Simpan"

    Command4.Caption = "Keluar"

MsgBox "Data Berhail Disimpan!!!"

End Sub

Private Sub Command4_Click()

Me.Hide

FrKaryawan.Show

End Sub

Private Sub Form_Load()

Adodc1.Recordset.AddNew

End Sub

Menu Transaksi

Menu Laporan

Private Sub Command1_Click(Index As Integer)

 With DataEnvironment1.rsBarang

        Select Case Index

            Case 0  'first

                .MoveFirst

            Case 1  'prev

                .MovePrevious

                If .BOF Then

                    .MoveFirst

                    MsgBox "Data Paling Atas", vbInformation, "PREV"

                End If

            Case 2  'next

                .MoveNext

                If .EOF Then

                    .MoveLast

                    MsgBox "Data Paling Bawah", vbInformation, "NEXT"

                End If

            Case 3  'last

                .MoveLast

        End Select

        'panel status bar

        Me.StatusBar1.Panels(1).Text = "Data ke " & .AbsolutePosition & " Dari " & .RecordCount

    End With

End Sub

Private Sub DataGrid1_Click()

End Sub

Private Sub Command1_Click(Index As Integer)

With DataEnvironment1.rsCommand2

        Select Case Index

            Case 0  'first

                .MoveFirst

            Case 1  'prev

                .MovePrevious

                If .BOF Then

                    .MoveFirst

                    MsgBox "Data Paling Atas", vbInformation, "PREV"

                End If

            Case 2  'next

                .MoveNext

                If .EOF Then

                    .MoveLast

                    MsgBox "Data Paling Bawah", vbInformation, "NEXT"

                End If

            Case 3  'last

                .MoveLast

        End Select

        'panel status bar

        Me.StatusBar1.Panels(1).Text = "Data ke " & .AbsolutePosition & " Dari " & .RecordCount

    End With

End Sub

Private Sub DataGrid1_Click()

End Sub

Private Sub Command1_Click(Index As Integer)

With DataEnvironment1.rsKaryawan

        Select Case Index

            Case 0  'first

                .MoveFirst

            Case 1  'prev

                .MovePrevious

                If .BOF Then

                    .MoveFirst

                    MsgBox "Data Paling Atas", vbInformation, "PREV"

                End If

            Case 2  'next

                .MoveNext

                If .EOF Then

                    .MoveLast

                    MsgBox "Data Paling Bawah", vbInformation, "NEXT"

                End If

            Case 3  'last

                .MoveLast

        End Select

        'panel status bar

        Me.StatusBar1.Panels(1).Text = "Data ke " & .AbsolutePosition & " Dari " & .RecordCount

    End With

End Sub

Private Sub Form_Load()

End Sub