Sub TambahDataParkirKeluar

Sub TambahDataParkirKeluar() Dim idParkirKeluar As String T ry KoneksiDatabase() Dim dtAdapter As New SqlDataAdapter sql = sele!t " #rom t$parkirkeluar order by %D$Keluar des! dtAdapter&Sele!t'ommand = New Sql'ommand(sql 'NN) Dim dtParkirKeluar As New DataTable dtParkirKeluar&'lear() dtAdapter&*ill(dtParkirKeluar) +,, membuat No&K ode Parkir Keluar se!ara automatik t-t%dKeluar&Data.indings&Add( te-t dtParkirK eluar %D$Keluar ) t-t%dKeluar&Data.indings&'lear() %# dtParkirKeluar&/ows&'ount = 0 Then +1e&t-t%d Keluar&T e-t = 2, 3 T rim(d tpT anggal& T e-t) 1e&t-t%dKeluar&T e-t = PK,002 4lse 5ith dtParkirKeluar&/ows(0) idParkirK eluar = &%tem(%D$Keluar ) 4nd 5ith t-t% dKelua r&Te-t = PK,00 3 6 al(1i!roso#t&6 isual.asi!&/ight $ (idParkirK eluar (7en(idParkirK eluar) , 8))) 9 2 4nd %# 'at!h e- As 4-!eption 1sg.o-(e-&1essage 1sg.o-Style &%n#ormation Perhatian ) 4nd T ry T ry KoneksiDatabase() Dim dtAdapter As New SqlDataAdapter sql = sele!t " #rom t$parkirkeluar order by %D$1asuk des! dtAdapter&Sele!t'ommand = New Sql'ommand(sql 'NN) Dim dtParkirKeluar As New DataTable dtParkirKeluar&'lear() dtAdapter&*ill(dtParkirKeluar) +,, membuat No&Kode Parkir 1asuk se!ara automatik t-t%d1asuk&Data.indings&Add( te-t dtParkirKeluar %D$1asuk) t-t%d1asuk&Data.indings&'lear() %# dtParkirKeluar&/ows&'ount = 0 Then +1e&t-t%d1asuk&T e-t = 2, 3 Trim(dtpT anggal&T e-t) 1e&t-t%d1asuk &T e-t = PK,002 4lse 5ith dtParkirKeluar&/ows(0) idParkirK eluar = &%tem(%D$1asuk) 4nd 5ith t-t%d1asuk& T e-t = PK,00 3 6 al(1i!roso#t&6 isual.asi!&/ight $ (idParkirKeluar (7en(idParkirK eluar) , 8))) 9 2 4nd %# 'at!h e- As 4-!eption 1sg.o-(e-&1essage 1sg.o-Style &%n#ormation Perhatian ) 4nd T ry 4nd Sub

Upload
ferryferry
Category

Documents
view
217
download
0

Embed Size (px):

Transcript of Sub TambahDataParkirKeluar

7/23/2019 Sub TambahDataParkirKeluar

http://slidepdf.com/reader/full/sub-tambahdataparkirkeluar 1/2

Dim dtParkirKeluar As New DataTable dtParkirKeluar&'lear() dtAdapter&*ill(dtParkirKeluar)

+,, membuat No&Kode Parkir Keluar se!ara automatik t-t%dKeluar&Data.indings&Add(te-t dtParkirKeluar %D$Keluar) t-t%dKeluar&Data.indings&'lear()

%# dtParkirKeluar&/ows&'ount = 0 Then +1e&t-t%dKeluar&Te-t = 2, 3 Trim(dtpTanggal&Te-t) 1e&t-t%dKeluar&Te-t = PK,002

4lse 5ith dtParkirKeluar&/ows(0) idParkirKeluar = &%tem(%D$Keluar) 4nd 5ith t-t%dKeluar&Te-t = PK,00 3 6al(1i!roso#t&6isual.asi!&/ight $ (idParkirKeluar (7en(idParkirKeluar) , 8))) 9 2 4nd %# 'at!h e- As 4-!eption 1sg.o-(e-&1essage 1sg.o-Style&%n#ormation Perhatian) 4nd Try Try KoneksiDatabase() Dim dtAdapter As New SqlDataAdapter sql = sele!t " #rom t$parkirkeluar order by %D$1asuk des! dtAdapter&Sele!t'ommand = New Sql'ommand(sql 'NN)

Dim dtParkirKeluar As New DataTable dtParkirKeluar&'lear() dtAdapter&*ill(dtParkirKeluar)

+,, membuat No&Kode Parkir 1asuk se!ara automatik t-t%d1asuk&Data.indings&Add(te-t dtParkirKeluar %D$1asuk) t-t%d1asuk&Data.indings&'lear()

%# dtParkirKeluar&/ows&'ount = 0 Then +1e&t-t%d1asuk&Te-t = 2, 3 Trim(dtpTanggal&Te-t) 1e&t-t%d1asuk&Te-t = PK,002 4lse 5ith dtParkirKeluar&/ows(0) idParkirKeluar = &%tem(%D$1asuk)

4nd 5ith t-t%d1asuk&Te-t = PK,00 3 6al(1i!roso#t&6isual.asi!&/ight $ (idParkirKeluar (7en(idParkirKeluar) , 8))) 9 2 4nd %# 'at!h e- As 4-!eption 1sg.o-(e-&1essage 1sg.o-Style&%n#ormation Perhatian) 4nd Try 4nd Sub

7/23/2019 Sub TambahDataParkirKeluar

http://slidepdf.com/reader/full/sub-tambahdataparkirkeluar 2/2

Pri:ate Sub btnTambah$'li!k(sender As System&b;e!t e As System&4:entArgs) <andles btnTambah&'li!k 1e&7ayar.ersih() 1e&TambahDataParkirKeluar() 1e&Na:igasi(*alse) 1e&Te-tbo-4nable( True) 1e&t-tNoPlatPolisi&*o!us()

4nd Sub