Form Hardware

& Form Hardware Metode Data Environment &

& Data Environment &

‘Pada data environment double klik supaya tidak selalu ganti folder ketika buka vb

Private Sub DataEnvironment_Initialize()

    DataEnvironment1.Connection1.Open App.Path & "\Access\data.mdb"

End Sub

& Sql Statement &

‘Pada sql statement jika ingin diurutkan menurut kdhard

select * from hardware order by kdhard

& Koding &

Dim tambah As Boolean

Private Sub Form_Load()         'saat load

    DataEnvironment1.rsbarang.Open

    isi

    fotoe

    isilist

End Sub

Private Sub isi()           'tampil isi data

    With DataEnvironment1.rsbarang

        Me.txtkdhard.Text = .Fields("kdhard")

        Me.txtnmhard.Text = .Fields("nmhard")

        Me.txtsatuan.Text = .Fields("satuan")

        Me.txthargabeli.Text = .Fields("hargabeli")

        Me.txthargajual.Text = .Fields("hargajual")

        Me.txtstok.Text = .Fields("stok")

        Me.txtkode.Text = .Fields("kdspl")

        Me.txtjenis.Text = .Fields("jenis")

    End With

DataEnvironment1.rssupp.Open

            supp

End Sub

Private Sub fotoe()             'tampil foto

    varfotoe = DataEnvironment1.rsbarang.Fields("foto")

    If varfotoe <> "-" And varfotoe <> "" Then

        Me.imagefoto.Picture = LoadPicture(App.Path & "\Gambar\" & varfotoe)

    Else

        Me.imagefoto.Picture = LoadPicture("")

    End If

End Sub

Private Sub isilist()                  'sumber query

    Dim isi As ListItem

    With DataEnvironment1.rsCommand1

    .Requery                               'refresh

    .MoveFirst

    Me.ListView1.ListItems.Clear                   ‘membersihkan list

    While Not .EOF

        Set isi = Me.ListView1.ListItems.Add(, , .Fields("kdhard"))

        isi.SubItems(1) = .Fields("nmhard")

        isi.SubItems(2) = .Fields("satuan")

        isi.SubItems(3) = .Fields("hargabeli")

        isi.SubItems(4) = .Fields("hargajual")

        isi.SubItems(5) = .Fields("stok")

        isi.SubItems(6) = .Fields("jenis")

        .MoveNext

    Wend

    End With

End Sub

Private Sub Command4_Click()        'first

    DataEnvironment1.rsbarang.MoveFirst

    isi

    fotoe

End Sub

Private Sub Command5_Click()        'prev

    With DataEnvironment1.rsbarang

        .MovePrevious

        If .BOF Then

            .MoveFirst

        End If

        isi

        fotoe

    End With

End Sub

Private Sub Command6_Click()        'next

    With DataEnvironment1.rsbarang

        .MoveNext

        If .EOF Then

            .MoveLast

        End If

        isi

        fotoe

    End With

End Sub

Private Sub Command7_Click()        'last

    DataEnvironment1.rsbarang.MoveLast

    isi

    fotoe

End Sub

Private Sub supp()

If DataEnvironment1.rssupp.State = 0 Then DataEnvironment1.rssupp.Open

DataEnvironment1.rssupp.MoveFirst

DataEnvironment1.rssupp.Find "kdspl='" & Me.txtkode.Text & "'"

If Not DataEnvironment1.rssupp.EOF Then

    Me.txtnama.Text = DataEnvironment1.rssupp(1)

End If

End Sub

Private Sub Command1_Click()            'tambah

        Me.txtkdhard.Text = ""

        Me.txtnmhard.Text = ""

        Me.txtsatuan.Text = ""

        Me.txthargabeli.Text = ""

        Me.txthargajual.Text = ""

        Me.txtstok.Text = ""

        Me.txtjenis.Text = ""

        Me.txtkode.Text = ""

        Me.txtnama.Text = ""

        Me.imagefoto.Picture = LoadPicture("")

        Me.txtgolek.Visible = True

        Me.txtgolek.SetFocus

        tambah = True

End Sub

Private Sub txtgolek_KeyPress(KeyAscii As Integer)

 If KeyAscii = 13 Then

        With DataEnvironment1.rsbarang

            If .State = adStateClosed Then .Open

            If Not .EOF Then .MoveFirst

            .Find "kdhard='" & Me.txtgolek.Text & "'"

        If Not .EOF Then

            MsgBox "Kode sudah digunakan.."

        Else

            DataEnvironment1.rsbarang.AddNew

            Me.txtkdhard.Text = Me.txtgolek.Text

            Me.txtgolek.Text = ""

            Me.txtgolek.Visible = False

            Me.txtnmhard.SetFocus

        End If

        End With

    End If

End Sub

Private Sub LbSupp_Click()               ‘ketika label V di klik untuk memunculkan list supplier untuk mengisi kode supplier dan nama supplier

    Me.listsupp.Visible = True

    Me.listsupp.SetFocus

    Dim LSuplier As ListItem

   

    'isi list

    With DataEnvironment1.rssupp

        If .State = adStateClosed Then .Open

        Me.listsupp.ListItems.Clear         'kosongkan listview

            .MoveFirst

        While Not .EOF

        Set LSuplier = Me.listsupp.ListItems.Add(, , .Fields(0))

            LSuplier.SubItems(1) = .Fields(1)

            .MoveNext

        Wend

    End With

End Sub

Private Sub listsupp_KeyPress(KeyAscii As Integer)            ‘ketika ditekan enter

    If KeyAscii = 13 Then

        Me.txtkode.Text = Me.listsupp.SelectedItem.Text        'kode supplier

        Me.txtnama.Text = Me.listsupp.SelectedItem.ListSubItems(1).Text     'nama supplier

        Me.txtjenis.SetFocus

        Me.listsupp.Visible = False

    End If

End Sub

Private Sub cmdfoto_Click()              ‘klik button untuk mencari foto

    Me.CommonDialog1.DialogTitle = "Cari Foto"

    Me.CommonDialog1.Filter = "File name|*.jpg"

    Me.CommonDialog1.ShowOpen

    Me.imagefoto.Picture = LoadPicture(Me.CommonDialog1.FileName)

End Sub

Private Sub Command2_Click()            'batal

    DataEnvironment1.rsbarang.CancelUpdate

    Me.txtgolek.Visible = False

    Me.txtgolek.Text = ""

    Me.txtkdhard.Visible = True

    DataEnvironment1.rsbarang.MoveFirst

    isi

    fotoe

End Sub

Private Sub Command3_Click()            'simpan

    With DataEnvironment1.rsbarang

    'jika kosong maka keluar msgbox

        If Me.txtnmhard = "" Then

            Me.txtnmhard.SetFocus

            MsgBox "Harus disi bossss"

            Exit Sub

        End If

       

        If Me.txtsatuan = "" Then

            Me.txtsatuan.SetFocus

            MsgBox "Harus disi bossss"

            Exit Sub

        End If

        If Me.txthargabeli = "" Then

            Me.txthargabeli.SetFocus

            MsgBox "Harus disi bossss"

            Exit Sub

        End If

        If Me.txthargajual = "" Then

            Me.txthargajual.SetFocus

            MsgBox "Harus disi bossss"

            Exit Sub

        End If

        If Me.txtstok = "" Then

            Me.txtstok.SetFocus

            MsgBox "Harus disi bossss"

            Exit Sub

        End If

        If Me.txtjenis = "" Then

            Me.txtjenis.SetFocus

            MsgBox "Harus disi bossss"

            Exit Sub

        End If

       

        If Me.imagefoto.Picture = LoadPicture("") And tambah = True Then

            MsgBox "Fotonya mana??"

            Exit Sub

        End If

       

        'nyimpan

        .Fields(0) = Me.txtkdhard.Text

        .Fields(1) = Me.txtnmhard.Text

        .Fields(2) = Me.txtsatuan.Text

        .Fields(3) = Val(Me.txthargabeli.Text)

        .Fields(4) = Val(Me.txthargajual.Text)

        .Fields(5) = Val(Me.txtstok.Text)

        .Fields(6) = Me.txtkode.Text

        .Fields(7) = Me.txtjenis.Text

       

        If tambah = True Then kopifoto

        If Me.CommonDialog1.FileTitle <> "" Then

            If Len(Me.CommonDialog1.FileTitle) > 15 Then

                judul = Right(Me.CommonDialog1.FileTitle, 15)

            Else

                judul = Me.CommonDialog1.FileTitle

            End If

            DataEnvironment1.rsbarang.Fields("foto") = judul

        End If

       

        .Update

        .MoveFirst

        isi

        fotoe

        tambah = False

    End With

Exit Sub

End Sub

Private Sub kopifoto()                  'kopi namafoto

    If Me.CommonDialog1.FileName = "" Then

        MsgBox "Foto belum disi boss"

    Else

        If Len(Me.CommonDialog1.FileTitle) > 15 Then

            judul = Right(Me.CommonDialog1.FileTitle, 15)

        Else

            judul = Me.CommonDialog1.FileTitle

        End If

            If Dir(App.Path & "\Gambar\" & judul) = "" Then

                    FileCopy Me.CommonDialog1.FileName, App.Path & "\Gambar\" & judul

            End If

    End If

End Sub

Private Sub Command8_Click()        'delete

    DataEnvironment1.rsbarang.Delete adAffectCurrent

    'Kill App.Path & "\Gambar\" & DataEnvironment1.rsbarang.Fields("foto")

    DataEnvironment1.rsbarang.MoveFirst

    isi

    fotoe

End Sub

Private Sub Command9_Click()            'edit

    Me.txtkdhard.Locked = True

    Me.txtnmhard.Locked = False

    Me.txtsatuan.Locked = False

    Me.txthargabeli.Locked = False

    Me.txthargajual.Locked = False

    Me.txtstok.Locked = False

    Me.txtjenis.Locked = False

    Me.txtnmhard.SetFocus

    tambah = False

End Sub