Documents
Resources
Learning Center
Upload
Plans & pricing Sign in
Sign Out
Get this document free

MembuatFormLaporanBarangMasuk

VIEWS: 49 PAGES: 6

									                         http://www.vbawam.com/
      Tutorial, Source code, Request Program Visual Basic
                                  Oleh : Moh. A Azis


 Membuat Form Laporan Barang Masuk Program Persediaan Barang


Form Laporan Barang Masuk digunakan untuk menampilkan Transaksi barang yang
masuk ke gudang yang telah anda buat dengan crystal report sebelumnya,ada empat
pilihan untuk menampilkan data transaksi barang masuk, yaitu cetak berdasarkan no
transaksi barang masuk,cetak seluruh transaksi,cetak laporan transaksi berdasarkan per
tanggal,cetak laporan transaksi per tanggal per periode. untuk menampilkan laporan dari
crystal report dengan vb maka dibutuhkan koneksi vb ke crystal report. Untuk itu ikuti
langkah-langkah di bawah ini.




                                          1

             (Step By Step membuat program persediaan barang)
                                http://www.vbawam.com/
1. Tambahkan komponen baru dengan membuka menu Project > Component. Beri
   tanda cek pada pilihan Crystal Report Control, lihat gambar di bawah ini.




2. Tambahkan form baru lalu letakkan komponen OptionButton, ComboBox,
   CommandButton, Crystal Report, DTPicker dan image. Lihat gambar di bawah :




                                                                               DTPicker




                                       2

         (Step By Step membuat program persediaan barang)
                           http://www.vbawam.com/
3. Perhatikan table di bawah ini, anda atur properties komponen yang sudah
   tertempel pada lembar form.


   Nama Control                  Properties        Nilai
   Form 1                        Name              FrmLapBarangMasuk
                                 Caption           Laporan Barang Masuk
   OptionButton1                 Name              PilLaporan
                                 Caption           No Transaksi Barang Masuk
   OptionButton2                 Name              PilLaporan
                                 Caption           Seluruh
   OptionButton3                 Name              PilLaporan
                                 Caption           Per Tanggal
   OptionButton4                 Name              PilLaporan
                                 Caption           Per Periode
   ComboBox1                     Name              cmbno
                                 Text              (dikosongkan)
   CommandButton1                Name              Btncetak
                                 Caption           Cetak
   Label1                        Caption           S/D
   DTPicker1                     Name              tgl
   DTPicker2                     Name              Tgl1
   DTPicker3                     Name              Tgl2




                                        3

         (Step By Step membuat program persediaan barang)
                           http://www.vbawam.com/
4. Klik icon view code lalu copy pastekan listing kode di bawah ini :

   Option Explicit
   Dim pilihan As Integer


   Sub Cetak_Laporan()
   With CrystalReport1
   .ReportFileName = App.Path & "/Lap Barang Masuk.rpt"
   .DataFiles(0) = App.Path & "/persediaan Barang.mdb"
   Select Case pilihan
   Case 0
   .SelectionFormula = "{Query_Barang_Masuk.no_Masuk} = '" & cmbno.Text &
   ''"
   Case 1
   .SelectionFormula = ""
   Case 2
   .SelectionFormula = "{Query_Barang_Masuk.tgl_Masuk}= date ('" & _
   Format(tgl.Value, "mm/dd/yyyy") & "')"
   Case Else
   .SQLQuery = "{Query_Barang_Masuk.tgl_Masuk} >= date('" & _
   Format(tgl1.Value, "mm/dd/yyyy") & "') and {Query_Barang_Masuk.tgl_Masuk}
   <= date('" & _
   Format(tgl2.Value, "mm/dd/yyyy") & "')"
   End Select
   .RetrieveDataFiles
   .WindowState = crptMaximized
   .Action = 1
   End With
   End Sub


                                        4

          (Step By Step membuat program persediaan barang)
                            http://www.vbawam.com/
Private Sub BtnCetak_Click()
Call Cetak_Laporan
End Sub


Private Sub Form_Load()
Me.Top = 2500
Me.Left = 3750
Pillaporan(0).Value = False: Pillaporan(1).Value = False: _
Pillaporan(2).Value = False: Pillaporan(3).Value = False: _
tgl.Enabled = False: tgl1.Enabled = False: tgl2.Enabled = False
Call Koneksi_Database
sql = "SELECT no_Masuk FROM Barang_masuk ORDER BY no_Masuk"
rs.Open sql, db, adOpenDynamic, adLockBatchOptimistic
 While Not rs.EOF
  cmbno.AddItem rs!no_Masuk: rs.MoveNext: Wend
  cmbno.Enabled = False
End Sub


Private Sub PilLaporan_Click(Index As Integer)
pilihan = Index
Select Case pilihan
Case 0
cmbno.Enabled = True: cmbno.SetFocus: tgl.Enabled = False: _
tgl1.Enabled = False: tgl2.Enabled = False
Case 1
cmbno.Enabled = False: cmbno.Text = "": tgl.Enabled = False: _
tgl1.Enabled = False: tgl2.Enabled = False
Case 2
tgl.Enabled = True: cmbno.Enabled = False: cmbno.Text = "" _
: tgl1.Enabled = False: tgl2.Enabled = False
                                    5

      (Step By Step membuat program persediaan barang)
                        http://www.vbawam.com/
   Case Else
   tgl.Enabled = False: cmbno.Enabled = False: cmbno.Text = "" _
   : tgl1.Enabled = True: tgl2.Enabled = True
   End Select
   End Sub


5. Simpan Form Laporan Barang Masuk dengan nama FrmLapBarangMasuk di
   Folder Persediaan Barang dimana Project & Database Persediaan Barang dibuat.




                                       6

         (Step By Step membuat program persediaan barang)
                          http://www.vbawam.com/

								
To top