Kamis, 12 Januari 2012

Latihan 58 APKOM 4 D3B

Submit Here
Diposting oleh di

21 komentar:

  1. khaeril jhi29 Januari 2012 pukul 02.21

    'latihan 58
    Public Class latihan58
    Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    Dim x As New ByIskandar.MengaturDataBaseCrystalReport
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    laporan = x.AturDatabase(New latihan50, Application.StartupPath, "data report.accdb")
    'aplication startuppath menjelaskan bahwa filre database ada didalam folder debug.
    latihan53.honda.ReportSource = laporan
    latihan53.honda.SelectionFormula = "cdate({MASTERTRANSAKSI.TANGGALTRANSAKSI})> #" & DateTimePicker1.Value.Month & "/" & DateTimePicker1.Value.Day & "/" & DateTimePicker1.Value.Year & "# And cdate ({MASTERTRANSAKSI.TANGGALTRANSAKSI})< #" & DateTimePicker2.Value.Month & "/" & DateTimePicker2.Value.Day & "/" & DateTimePicker2.Value.Year & "#"
    If latihan53.Visible = False Then
    latihan53.Show()
    Else
    latihan53.Activate() 'jika sdh muncul tp dibelakang
    End If
    End Sub
    End Class

    BalasHapus
  2. nideria29 Januari 2012 pukul 04.32

    Public Class Form5836109050

    Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    Dim x As New ByIskandar.MengaturDataBaseCrystalReport
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
    laporan = x.AturDatabase(New form5036109050, Application.StartupPath, "data report.accdb")
    'aplication startuppath menjelaskan bahwa filre database ada didalam folder debug.
    Form5336109050.HONDA.ReportSource = laporan
    Form5336109050.HONDA.SelectionFormula = "cdate({MASTERTRANSAKSI.TANGGALTRANSAKSI})> #" & DateTimePicker1.Value.Month & "/" & DateTimePicker1.Value.Day & "/" & DateTimePicker1.Value.Year & "# And cdate ({MASTERTRANSAKSI.TANGGALTRANSAKSI})< #" & DateTimePicker2.Value.Month & "/" & DateTimePicker2.Value.Day & "/" & DateTimePicker2.Value.Year & "#"
    If Form5336109050.Visible = False Then
    Form5336109050.Show()
    Else
    Form5336109050.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  3. Juniati Muslimin1 Februari 2012 pukul 07.57

    Public Class Latihan58_36109037

    Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    Dim x As New ByIskandar.MengaturDataBaseCrystalReport
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
    laporan = x.AturDatabase(New Latihan50_36109037, Application.StartupPath, "data report.accdb")
    'aplication startuppath menjelaskan bahwa filre database ada didalam folder debug.
    Latihan53_36109037.HONDA.ReportSource = laporan
    Latihan53_36109037.HONDA.SelectionFormula = "cdate({MASTERTRANSAKSI.TANGGALTRANSAKSI})> #" & DateTimePicker1.Value.Month & "/" & DateTimePicker1.Value.Day & "/" & DateTimePicker1.Value.Year & "# And cdate ({MASTERTRANSAKSI.TANGGALTRANSAKSI})< #" & DateTimePicker2.Value.Month & "/" & DateTimePicker2.Value.Day & "/" & DateTimePicker2.Value.Year & "#"
    If Latihan53_36109037.Visible = False Then
    Latihan53_36109037.Show()
    Else
    Latihan53_36109037.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  4. Armita Laenre1 Februari 2012 pukul 11.29

    Public Class Latihan5836109040

    Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    Dim x As New ByIskandar.MengaturDataBaseCrystalReport
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
    laporan = x.AturDatabase(New Latihan5036109040, Application.StartupPath, "data report.accdb")
    'aplication startuppath menjelaskan bahwa filre database ada didalam folder debug.
    Latihan5336109040.HONDA.ReportSource = laporan
    Latihan5336109040.HONDA.SelectionFormula = "cdate({MASTERTRANSAKSI.TANGGALTRANSAKSI})> #" & DateTimePicker1.Value.Month & "/" & DateTimePicker1.Value.Day & "/" & DateTimePicker1.Value.Year & "# And cdate ({MASTERTRANSAKSI.TANGGALTRANSAKSI})< #" & DateTimePicker2.Value.Month & "/" & DateTimePicker2.Value.Day & "/" & DateTimePicker2.Value.Year & "#"
    If Latihan5336109040.Visible = False Then
    Latihan5336109040.Show()
    Else
    Latihan5336109040.Activate()
    End If
    End Sub
    End Class

    BalasHapus
  5. Magfirah6 Februari 2012 pukul 05.08

    Public Class Latihan5836109044

    Dim laporan As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    Dim x As New ByIskandar.MengaturDataBaseCrystalReport
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
    laporan = x.AturDatabase(New Latihan5036109044, Application.StartupPath, "data report.accdb")
    'aplication startuppath menjelaskan bahwa filre database ada didalam folder debug.
    Latihan5336109044.HONDA.ReportSource = laporan
    Latihan5336109044.HONDA.SelectionFormula = "cdate({MASTERTRANSAKSI.TANGGALTRANSAKSI})> #" & DateTimePicker1.Value.Month & "/" & DateTimePicker1.Value.Day & "/" & DateTimePicker1.Value.Year & "# And cdate ({MASTERTRANSAKSI.TANGGALTRANSAKSI})< #" & DateTimePicker2.Value.Month & "/" & DateTimePicker2.Value.Day & "/" & DateTimePicker2.Value.Year & "#"
    If Latihan5336109044.Visible = False Then
    Latihan5336109044.Show()
    Else
    Latihan5336109044.Activate() 'jika sdh muncul tp dibelakang
    End If
    End Sub

    Private Sub Latihan5836109044_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
    End Class

    BalasHapus
  6. Pratiwi Leila Safila Tahir7 Februari 2012 pukul 03.43

    Public Class LATIHAN_058_36109033
    Dim tiwi As New CrystalDecisions.CrystalReports.Engine.ReportDocument
    Dim t As New ByIskandar.MengaturDataBaseCrystalReport

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles honda.Click
    tiwi = t.AturDatabase(New LATIHAN_050_36109033, Application.StartupPath, "data report.accdb")
    'aplication startuppath menjelaskan bahwa filre database ada didalam folder debug.
    LATIHAN_053_36109033.Honda.ReportSource = tiwi
    LATIHAN_053_36109033.Honda.SelectionFormula = "cdate({MASTERTRANSAKSI.TANGGALTRANSAKSI})> #" & DateTimePicker1.Value.Month & "/" & DateTimePicker1.Value.Day & "/" & DateTimePicker1.Value.Year & "# And cdate ({MASTERTRANSAKSI.TANGGALTRANSAKSI})< #" & DateTimePicker2.Value.Month & "/" & DateTimePicker2.Value.Day & "/" & DateTimePicker2.Value.Year & "#"
    If LATIHAN_053_36109033.Visible = False Then
    LATIHAN_053_36109033.Show()
    Else
    LATIHAN_053_36109033.Activate() 'jika sdh muncul tp dibelakang
    End If

    End Sub

    End Class

    BalasHapus
  7. Unknown9 November 2012 pukul 19.39

    http://rainaagrippinaa.blogspot.com/2012/11/latihan5836110032.html

    BalasHapus
  8. Unknown27 November 2012 pukul 19.00

    http://rosyanausman.blogspot.com/2012/11/latihan5836110036.html

    BalasHapus
  9. Unknown28 November 2012 pukul 19.37

    http://burhankhang58.blogspot.com/2012/11/latihan5836110047.html

    BalasHapus
  10. Unknown7 Desember 2012 pukul 23.00

    http://nurrahmahrasyid2.blogspot.com/2012/11/latihan5836110042.html

    BalasHapus
  11. Unknown8 Desember 2012 pukul 22.35

    http://tiya-sri.blogspot.com/2012/12/latihan5836110044-aplikasi-komputer-4.html

    BalasHapus
  12. IlaH Az Zahra10 Desember 2012 pukul 01.37

    http://ilhaazzahra.blogspot.com/2012/11/latihan5836110033.html

    BalasHapus
  13. Unknown31 Desember 2012 pukul 00.55

    http://benhilll.blogspot.com/2012/11/deskripsi-dan-prosedur-latihan5736110039_25.html

    BalasHapus
  14. Unknown11 Januari 2013 pukul 21.52

    http://dewiwahyuni91.blogspot.com/2012/11/latihan5836110038.html

    BalasHapus
  15. Naomi Emily22 Januari 2013 pukul 04.15

    http://eminaomi.blogspot.com/2013/01/latihan5836110049.html

    BalasHapus
  16. Unknown27 Januari 2013 pukul 08.41

    http://hasfiahzain.blogspot.com/2013/01/latihan5836110052.html

    BalasHapus
  17. Unknown28 Januari 2013 pukul 10.48

    http://rahmisuryatama05.blogspot.com/2013/01/latihan5836110040.html

    BalasHapus
  18. Unknown29 Januari 2013 pukul 00.33

    http://hilariusmariotonapa.blogspot.com/2013/01/deskripsi-latihan5836110048.html
    http://hilariusmariotonapa.blogspot.com/2013/01/prosedur-penyelesaian-latihan5836110048.html

    BalasHapus
  19. Unknown29 Januari 2013 pukul 03.39

    http://rizka-azisah.blogspot.com/2013/01/deskripsi-penyelesaian-latihan5836110041_8256.html

    BalasHapus
  20. Unknown30 Januari 2013 pukul 11.24

    http://zulkiflitryputra.blogspot.com/2013/01/latihan5836110046.html

    BalasHapus
  21. Unknown2 Februari 2013 pukul 10.34

    http://reskypurwono.blogspot.com/2013/02/prosedur-penyelesaian-latihan5836110037.html

    BalasHapus

Langganan: Posting Komentar (Atom)