Kamis, 21 Mei 2015

Koding Simpan - Update

Try
            For i As Integer = 0 To ListView1.Items.Count - 1
                SQL2 = "INSERT INTO DTJUAL VALUES('" & TXTNOFAKTUR.Text & "','" & ListView1.Items(i).SubItems(0).Text & "','" & ListView1.Items(i).SubItems(2).Text & "','" & ListView1.Items(i).SubItems(4).Text & "')"
                connection.Open()
                adapter.InsertCommand = connection.CreateCommand
                adapter.InsertCommand.CommandText = SQL2
                adapter.InsertCommand.ExecuteNonQuery()
                connection.Close()

                'TAMBAHKAN UPDATE STOK
                SQL4 = "SELECT * FROM TBLBRG WHERE KODEBRG ='" & ListView1.Items(i).SubItems(0).Text & "'"
                connection.Open()
                With command2
                    .CommandText = SQL4
                    .Connection = connection
                    reader = .ExecuteReader
                End With

                Try
                    reader.Read()
                    If reader.HasRows = True Then
                        STOK = reader.GetValue(3)
                    End If
                Finally
                    reader.Close()
                End Try
                connection.Close()


                SQL3 = "UPDATE TBLBRG SET STOK = '" & STOK + ListView1.Items(i).SubItems(2).Text & "' WHERE KodeBRG = '" & ListView1.Items(i).SubItems(0).Text & "'"
                connection.Open()
                adapter.UpdateCommand = connection.CreateCommand
                adapter.UpdateCommand.CommandText = SQL3
                adapter.UpdateCommand.ExecuteNonQuery()
                connection.Close()


            Next

Kamis, 26 Februari 2015

Tugas Delphi SI2Q

Tugas :
Keterangan Soal :
1. Harga Satuan menggunakan EditBox masing2 untuk Buku, Pensil dan Penghapus serta Total Harga.. Harga satuan sesuai dengan gambar.
2. JML atau Jumlah masing2 diisi menggunakan objek SpinEdit untuk Buku, Pensil dan Penghapus..
3. Jika kita menekan  Tombol Total Harga akan menghitung Total dari semua Penjualan (Misalnya Buku @3000 x JML 2 = 6000 + Pensil @2500 x JML 2 = 5000 + Penghapus @2000 x JML 1 = 2000 jd Total harga = 13000)
4. EditBox JML atau Jumlah disamping Total Harga merupakan Total dari Jumlah buku, pensil dan penghapus (Misalnya Buku isi JML 2, Pensil isi JML 2 dan Penghapus isi JML 1 jadi hasilnya 5)

Good Luck