Contoh Program Vb Net SQL Server

�� APLIKASI PEMBAYARAN SPP 5.1

Membuat Database Dengan Sql Server 2005 Express

��

5.2

Membuat Tabel

��

5.3

Membuat Project Baru

��

5.3.1 Memberi Nama Project

5.3.2 Membuat Module

5.4 Form Login

��

5.5

Form Menu Utama

5.6

Form User

��

5.7

Form Siswa

5.8

Form Guru

��

5.9

Form Wali Kelas

5.10 Transaksi Pembayaran SPP

��

5.11 Laporan SPP Perorangan Perorangan

�� 5.11.1 Laporan SPP Per Nomor

5.11.2 Laporan SPP Per Tanggal

5.11.3 Laporan SPP Yang Sudah Dibayar

�� 5.11.4 Laporan SPP Yang Belum Dibayar

5.11.5 Laporan Seluruh Data SPP

5.12 Laporan Data Master 5.12.1 Laporan Data User

��

5.12.3 Laporan Data Wali Kelas

��

5.13.1 Laporan Siswa Per Kelas

��

5.13.2 Laporan Data Siswa Per Tahun Ajaran

5.13.3 Mencari Nama Siswa Dalam Laporan

��

5.14 Laporan Pembayaran SPP Secara Umum 5.14.1 Laporan Laporan Per Tanggal

5.14.2 Laporan Per Bulan Dan Tahun

��

5.14.3 Laporan Pembayaran SPP Per Kelas

APLIKASI PEMESANAN DAN PENGIRIMAN BARANG 6.1

Membuat Database

��

6.2

Membuat Tabel

��

��

6.3


6.3.1 Memberi Nama Pro ject

��

6.3.2 Membuat Module �� , �� : 1.

��

2.

��

3.

��

4.

��

Imports System.Data.SqlClient Imports System.Data.SqlClient Module Module1 Module Module1 Public CONN Public CONN As As SqlConnection SqlConnection Public DA Public DA As As SqlDataAdapter SqlDataAdapter Public DS Public DS As New New DataSet DataSet Public CMD Public CMD As As SqlCommand SqlCommand Public DR Public DR As As SqlDataReader SqlDataReader Public STR Public STR As String Sub Koneksi() Sub Koneksi() STR = "data source=user-pc\sqlexpress;initial catalog=DBPemesanan;integrated security =true" CONN = New New SqlConnection(STR) SqlConnection(STR) If CONN.State If CONN.State = ConnectionState.Closed Then CONN.Open() End If End Sub End Module

��

6.4 Form login

6.5

Form Menu Utama

6.6

Form User

��

6.7

Form Barang

6.8

Form Customer

��

6.9

Form Kurir

6.10

Form Pemesanan Barang

�� , �� . 1.

�� (�� )

2.

��

3.

�� , �� (�� ) ��

4.

�� , ��

�� 5.

�� , �� (�� )

6.

�� , �� (��) ��

7.

��

��

6.11

Form Pengiriman Barang

�� : 1.

�� + 01

2.

��

3.

��

4.

��

5.

��

��

6.12

Form Laporan Pegiriman Oleh Kurir

6.13

Laporan Data Master

6.13.1 Laporan Data User

��

6.13.2 Laporan Data Customer

6.13.3 Laporan Laporan Data Kurir

��

6.13.4 Laporan Data Barang

6.14

Laporan Pemesanan Barang

��

6.15

Laporan Pengiriman Barang

6.15.1 Laporan Laporan Harian Private Sub Button1_Click( Sub Button1_Click(ByVal ByVal sender sender As As System.Object, System.Object, ByVal e ByVal e As As System.EventArgs) System.EventArgs) Handles Handles Button1.Click Button1.Click CRV.ReportSource = Nothing CRV.RefreshReport() CRV.SelectionFormula = "totext({tblkiriman.tgl_kiriman})='" & "totext({tblkiriman.tgl_kiriman})='" & DateTimePicker1.Text & "'" CRV.ReportSource = "master kiriman.rpt" End Sub

6.15.2 Laporan Laporan Periodik

�� Private Sub Button2_Click( Sub Button2_Click(ByVal ByVal sender sender As As System.Object, System.Object, ByVal e ByVal e As As System.EventArgs) System.EventArgs) Handles Handles Button2.Click Button2.Click CRV.ReportSource = Nothing CRV.RefreshReport() CRV.SelectionFormula = "({tblkiriman.tgl_kiriman}) in date ('" & ('" & DateTimePicker2.Text & "') to date ('" & ('" & DateTimePicker3.Text & "') " CRV.ReportSource = "master kiriman.rpt" End Sub

6.15.3 Laporan Bulanan Private Sub Button3_Click( Sub Button3_Click(ByVal ByVal sender sender As As System.Object, System.Object, ByVal e ByVal e As As System.EventArgs) System.EventArgs) Handles Handles Button3.Click Button3.Click CRV.ReportSource = Nothing CRV.RefreshReport() CRV.SelectionFormula = "month({tblkiriman.tgl_kiriman})=(" & "month({tblkiriman.tgl_kiriman})=(" & Month(DateTimePicker4.Text) & ") and year({tblkiriman.tgl_kiriman}) =(" & =(" & Year(DateTimePicker4.Text) & ") " CRV.ReportSource = "master kiriman.rpt" End Sub

6.15.4 Laporan Status Pengiriman Private Sub Sub ListBox1_SelectedIndexChanged( ListBox1_SelectedIndexChanged(ByVal ByVal sender sender As System.Object, ByVal ByVal e e As As System.EventArgs) System.EventArgs) Handles ListBox1.SelectedIndexChanged CRV.ReportSource = Nothing CRV.RefreshReport() CRV.SelectionFormula = "({tblPesanan.status_Pesanan})='" & "({tblPesanan.status_Pesanan})='" & ListBox1.Text & "'" CRV.ReportSource = "master kiriman.rpt" End Sub

6.15.5 Laporan Status Pembayaran Private Sub Sub ListBox2_SelectedIndexChanged( ListBox2_SelectedIndexChanged(ByVal ByVal sender sender As System.Object, ByVal ByVal e e As As System.EventArgs) System.EventArgs) Handles ListBox2.SelectedIndexChanged CRV.ReportSource = Nothing CRV.RefreshReport() CRV.SelectionFormula = "({tblPesanan.status_Pembayaran})='" & "({tblPesanan.status_Pembayaran})='" & ListBox2.Text & "'"

29

�� CRV.ReportSource = "master kiriman.rpt" End Sub

APLIKASI PERSEDIAAN BARANG 7.1

Membuat Database

7.2

Membuat Tabel

��

��

7.3


7.4

Membuat Module Koneksi

�� , �� : 5.

��

6.

��

7.

��

8.

��

Imports System.data.sqlclient Module Module1 Public CONN As sqlConnection Public DA As sqlDataAdapter Public DS As DataSet Public CMD As sqlCommand Public DR As sqlDataReader Public Sub Koneksi() Try String koneksi ke database

�� CONN = New SqlConnection("data source=userpc\sqlexpress;initial catalog=dbpersediaan;integrated security=true") CONN.Open() Catch ex As Exception MsgBox(ex.Message) End End Try End Sub End Module

7.5 Form Login

7.6

Form Menu Utama

7.7

Form User

�� , ��, �� . �� : 1.

�� , ��

2.

�� , ��

3.

��

4.

�� , ��

5.

��

6.

�� .

7.8

Form Departemen

��

7.9

Form Barang

7.10 Form Supplier

��

7.11 Form Permintaan Barang �� : 1.

��

2.

��

3.

��

4.

��

5.

��

6.

��

��

7.12 Form Pengeluaran Barang �� : 1.

��

2.

��

3.

��

��

7.13 Form Penerimaan Barang �� : 1.

��

2.

��

3.

��

4.

�� .

��

7.14 Laporan Permintaan Barang

��

��

7.15 Laporan Pengeluaran Pengeluaran Barang �� , ��, ��, �� .

��

�� 7.16 Laporan Penerimaan Barang �� , ��, ��, �� .

��

7.17 Laporan Rencana Order Barang �� .

��

Contoh Program Vb Net SQL Server

Recommend Documents