none
bagaimana cara memindahkan data dari datagridview ke datagridview lain pada 1 form yang sama (klasifikasi murid pada suatu kelas) RRS feed

  • Pertanyaan

  • halo, saya menggunakan visual studio 2012 dan SQL server 2012 untuk mebuat aplikasi pendaftara siswa pada SMA dengan metode OOP.

    program yang ingin saya buat seperti ini:

    DGV= datagridview

    - pertama = DGV1 pada form1  telah menampung data yang telah diinput.

      - kedua =   pada form baru  terdapat 2 datagridview, bedanya pada DGV1 pertama berisi data yang sama dengan DGV  pada form baru ini lalu DGV2 siap menampung data dari DGV1 (DGV1 otomatis kosong) ketika data pada DGV1 di klik, setelah DGV2 menampung data dari DGV1 klik simpan maka itu menjadi suatu kelas pada sekolah (10a,b,c,...).

     

    - ketiga = pada form3 terdapat tombol "keluarkan", fungsi tombol ini untuk mengeluarkan siswa dari suatu kelas (DGV2),
    dan data tersebut kembali ke DGV1 secara utuh.

    kesulitan saya:

    saya ingin membuat koding untuk langkah kedua dan ketiga, tetapi saya tidak tahu bagaimana caranya.

    bagaimana cara membuat kodingnya?


    koding yang saya buat seperti ini:

    form1

    Public Class Form1
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            ClassKoneksi.namadatabase = "KPIRWAN"
            ClassSiswa.namadatabase = "KPIRWAN"
            datagridview()
        End Sub
        Sub datagridview()
            Dim sql As String
            Dim dsdata As New DataSet
            sql = "select*from siswa"
            dsdata = ClassSiswa.displayData(ClassSiswa.opencon, sql, "siswa")
            DataGridView1.DataSource = dsdata
            DataGridView1.DataMember = "siswa"
            DataGridView1.ReadOnly = True
            ClassSiswa.closecon()
        End Sub
        Private Sub btnKeluar_Click(sender As Object, e As EventArgs) Handles btnKeluar.Click
            Me.Close()
        End Sub
    
        Private Sub btnSimpan_Click(sender As Object, e As EventArgs) Handles btnSimpan.Click
            If Len(Trim(txt_nis.Text)) = 0 Or Len(Trim(txt_nisn.Text)) = 0 Or Len(Trim(txt_namasiswa.Text)) = 0 Or Len(Trim(cmb_kelaminsiswa.Text)) = 0 Or Len(Trim(txt_kotalahir.Text)) = 0 Or Len(Trim(DTP_siswa.Value)) = 0 Or Len(Trim(cmb_agamasiswa.Text)) = 0 Or Len(Trim(txt_beratsiswa.Text)) = 0 Or Len(Trim(txt_tinggi_badan.Text)) = 0 Then
                MsgBox("Data Belum Lengkap")
                Exit Sub
            End If
            ClassSiswa.Nis = txt_nis.Text
            ClassSiswa.Nisn = txt_nisn.Text
            ClassSiswa.Nama_Siswa = txt_namasiswa.Text
            ClassSiswa.Jenis_Kelamin = cmb_kelaminsiswa.Text
            ClassSiswa.Kota_Lahir = txt_kotalahir.Text
            ClassSiswa.Tanggal_Lahir = DTP_siswa.Value
            ClassSiswa.Agama = cmb_agamasiswa.Text
            ClassSiswa.Berat_Badan = txt_beratsiswa.Text
            ClassSiswa.Tinggi_Badan = txt_tinggi_badan.Text
            ClassSiswa.RekamData(ClassSiswa.opencon)
            MsgBox("Data siswa Berhasil Disimpan")
            datagridview()
        End Sub
    
        Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    
            Dim Cari As SqlClient.SqlDataReader
            Cari = ClassSiswa.carisiswa(ClassKoneksi.opencon, Trim(txt_nis.Text))
            If Not Cari.Read Then
                MsgBox("NIS Salah/Tidak Ada")
            Else
                txt_nisn.Text = Cari("Nisn")
                txt_namasiswa.Text = Cari("Nama_Siswa")
                cmb_kelaminsiswa.Text = Cari("Jenis_Kelamin")
                txt_kotalahir.Text = Cari("Kota_Lahir")
                DTP_siswa.Text = Cari("Tanggal_Lahir")
                cmb_agamasiswa.Text = Cari("Agama")
                txt_beratsiswa.Text = Cari("Berat_Badan")
                txt_tinggi_badan.Text = Cari("Tinggi_Badan")
            End If
            ClassKoneksi.closecon()
            datagridview()
        End Sub
    
        Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
            Dim result As Integer = MsgBox("apakah anda yakin untuk menghapus?", MessageBoxButtons.YesNo)
            If (result = DialogResult.Yes) Then
                ClassSiswa.HapusSiswa(ClassSiswa.opencon, txt_nis.Text)
                datagridview()
            End If
        End Sub
    
        Private Sub kosongkan()
            txt_nis.Text = Nothing : txt_nisn.Text = Nothing : txt_namasiswa.Text = Nothing : cmb_kelaminsiswa.Text = Nothing : txt_kotalahir.Text = Nothing : DTP_siswa.Text = Nothing : cmb_agamasiswa.Text = Nothing : txt_beratsiswa.Text = Nothing : txt_tinggi_badan.Text = Nothing
            txt_nis.Focus()
        End Sub
    
        
        Private Sub btnupdate_Click(sender As Object, e As EventArgs) Handles btnupdate.Click
            ClassSiswa.Nis = txt_nis.Text
            ClassSiswa.Nisn = txt_nisn.Text
            ClassSiswa.Nama_Siswa = txt_namasiswa.Text
            ClassSiswa.Jenis_Kelamin = cmb_kelaminsiswa.Text
            ClassSiswa.Kota_Lahir = txt_kotalahir.Text
            ClassSiswa.Tanggal_Lahir = DTP_siswa.Value
            ClassSiswa.Agama = cmb_agamasiswa.Text
            ClassSiswa.Berat_Badan = txt_beratsiswa.Text
            ClassSiswa.Tinggi_Badan = txt_tinggi_badan.Text
            ClassSiswa.EditData(ClassSiswa.opencon, txt_nis.Text)
            MessageBox.Show(" Data Telah Diupdate")
            datagridview()
    
        End Sub
    
        
    
        Private Sub Bersihkan_Click(sender As Object, e As EventArgs) Handles Bersihakan.Click
            txt_nis.Text = ""
            txt_nisn.Text = ""
            txt_namasiswa.Text = ""
            DTP_siswa.Text = ""
            cmb_kelaminsiswa.Text = ""
            txt_kotalahir.Text = ""
            cmb_agamasiswa.Text = ""
            txt_beratsiswa.Text = ""
            txt_tinggi_badan.Text = ""
    
        End Sub
    
    
        Private Sub DataGridView1_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles DataGridView1.CellMouseClick
            txt_nis.Text = DataGridView1.Rows(e.RowIndex).Cells(0).Value
            txt_nisn.Text = DataGridView1.Rows(e.RowIndex).Cells(1).Value
            txt_namasiswa.Text = DataGridView1.Rows(e.RowIndex).Cells(2).Value
            cmb_kelaminsiswa.Text = DataGridView1.Rows(e.RowIndex).Cells(3).Value
            txt_kotalahir.Text = DataGridView1.Rows(e.RowIndex).Cells(4).Value
            DTP_siswa.Text = DataGridView1.Rows(e.RowIndex).Cells(5).Value
            cmb_agamasiswa.Text = DataGridView1.Rows(e.RowIndex).Cells(6).Value
            txt_beratsiswa.Text = DataGridView1.Rows(e.RowIndex).Cells(7).Value
            txt_tinggi_badan.Text = DataGridView1.Rows(e.RowIndex).Cells(8).Value
    
    
        End Sub
    
    
    
        Private Sub btnCetak_Click(sender As Object, e As EventArgs) Handles btnCetak.Click
            ' koding btn cetak dari PBO2D(frmCetakBukuKriteria) pada button2
            If Len(Trim(txt_nis.Text)) = 0 Then
                MsgBox("Masukan NIS Terlebih Dahulu")
                txt_nis.Focus()
                Exit Sub
            End If
            Dim dssiswa As New DataSet
            Dim sql As String
            sql = "select*from Siswa where Nis like '%" & txt_nis.Text & "%'"
            dssiswa = ClassSiswa.displayData(ClassSiswa.opencon, sql, "DataSiswa")
    
            Dim tampil As New FrmViewer 'nama form yg ada crystalReportViewer
            Dim cetak As New RptSiswa    'Nama File crystalReport
    
            cetak.SetDataSource(dssiswa.Tables("DataSiswa"))
            tampil.CrystalReportViewer1.ReportSource = cetak
            tampil.WindowState = FormWindowState.Maximized
            tampil.Refresh()
            tampil.Show()
        End Sub
    
    
    
    
    End Class
    

    class

    Public Class ClassSiswa
        Inherits ClassKoneksi
        Private Shared _Nis, _Nisn, _Berat_Badan, _Tinggi_Badan As Integer
        Private Shared _Nama_Siswa, _Jenis_Kelamin, _Kota_Lahir, _Agama As String
        Private Shared _Tanggal_Lahir As Date
        Public Shared Property Nis() As Integer
            Get
                Return _Nis
            End Get
            Set(ByVal value As Integer)
                _Nis = value
            End Set
        End Property
        Public Shared Property Nisn() As Integer
            Get
                Return _Nisn
            End Get
            Set(ByVal value As Integer)
                _Nisn = value
            End Set
        End Property
        Public Shared Property Berat_Badan() As Integer
            Get
                Return _Berat_Badan
            End Get
            Set(ByVal value As Integer)
                _Berat_Badan = value
            End Set
        End Property
        Public Shared Property Tinggi_Badan() As Integer
            Get
                Return _Tinggi_Badan
            End Get
            Set(ByVal value As Integer)
                _Tinggi_Badan = value
            End Set
        End Property
        Public Shared Property Nama_Siswa() As String
            Get
                Return _Nama_Siswa
            End Get
            Set(ByVal value As String)
                _Nama_Siswa = value
            End Set
        End Property
        Public Shared Property Jenis_Kelamin() As String
            Get
                Return _Jenis_Kelamin
            End Get
            Set(ByVal value As String)
                _Jenis_Kelamin = value
            End Set
        End Property
        Public Shared Property Kota_Lahir() As String
            Get
                Return _Kota_Lahir
            End Get
            Set(ByVal value As String)
                _Kota_Lahir = value
            End Set
        End Property
        Public Shared Property Tanggal_Lahir() As Date
            Get
                Return _Tanggal_Lahir
            End Get
            Set(ByVal value As Date)
                _Tanggal_Lahir = value
            End Set
        End Property
        Public Shared Property Agama() As String
            Get
                Return _Agama
            End Get
            Set(ByVal value As String)
                _Agama = value
            End Set
        End Property
        Public Shared Sub RekamData(ByVal _Cn As SqlClient.SqlConnection)
            Dim sql As SqlClient.SqlCommand
            sql = New SqlClient.SqlCommand
            sql.Connection = _Cn
            sql.CommandType = CommandType.Text
            sql.CommandText = "Insert into siswa values('" & Nis & "','" & Nisn & "','" & Nama_Siswa & "','" & Jenis_Kelamin & "','" & Kota_Lahir & "','" & Tanggal_Lahir & "','" & Agama & "','" & Berat_Badan & "','" & Tinggi_Badan & "')"
            sql.ExecuteNonQuery()
        End Sub
    
        Public Shared Function displayData(ByVal _cn As SqlClient.SqlConnection, ByVal _sql As String, ByVal _siswa As String) As DataSet
            Dim _da As New SqlClient.SqlDataAdapter
            Dim _dsdata As New DataSet
            Dim sql As New SqlClient.SqlCommand
            _dsdata.Clear()
            sql.Connection = _cn
            sql.CommandType = CommandType.Text
            sql.CommandText = _sql
            _da.SelectCommand = sql
            _da.Fill(_dsdata, _siswa)
            Return _dsdata
        End Function
    
        Public Shared Function carisiswa(ByVal _cn As SqlClient.SqlConnection, ByVal _Nis As String) As SqlClient.SqlDataReader
    
            Dim crsiswa As SqlClient.SqlDataReader
            Dim sql As New SqlClient.SqlCommand
            sql.Connection = _cn
            sql.CommandType = CommandType.Text
            sql.CommandText = "Select * from siswa where nis='" & _Nis & "'"
            crsiswa = sql.ExecuteReader
            Return crsiswa
    
        End Function
        Public Shared Function CariDataPengguna(ByVal _CN As SqlClient.SqlConnection, ByVal Nama As String, ByVal Sandi As String) As SqlClient.SqlDataReader
            Dim crpengguna As SqlClient.SqlDataReader
            Dim sql As New SqlClient.SqlCommand
            sql.Connection = _CN
            sql.CommandText = "Select * from Pengguna where nama = '" & Nama & "'and sandi ='" & Sandi & "'"
            crpengguna = sql.ExecuteReader
            Return crpengguna
        End Function
    
    
        Public Shared Sub HapusSiswa(ByVal _cn As SqlClient.SqlConnection, ByVal _Nis As String)
            Dim sql As New SqlClient.SqlCommand
            sql.Connection = _cn
            sql.CommandType = CommandType.Text
            sql.CommandText = "Delete from siswa where nis = '" & _Nis & "'"
            sql.ExecuteNonQuery()
        End Sub
        Public Shared Sub EditData(ByVal _cn As SqlClient.SqlConnection, ByVal Nis As Integer)
            Dim sql As New SqlClient.SqlCommand
            sql.Connection = _cn
            sql.CommandText = "update siswa set Nis =@Nis,Nisn=@Nisn,Nama_Siswa=@Nama_Siswa,Jenis_Kelamin=@Jenis_Kelamin,Kota_Lahir=@Kota_Lahir,Tanggal_Lahir=@Tanggal_Lahir,Agama=@Agama,Berat_Badan=@Berat_Badan,Tinggi_Badan=@Tinggi_Badan where Nis=@Nis"
            sql.Parameters.AddWithValue("@Nis", Nis)
            sql.Parameters.AddWithValue("@nisn", Nisn)
            sql.Parameters.AddWithValue("@Nama_Siswa", Nama_Siswa)
            sql.Parameters.AddWithValue("@Jenis_Kelamin", Jenis_Kelamin)
            sql.Parameters.AddWithValue("@Kota_Lahir", Kota_Lahir)
            sql.Parameters.AddWithValue("@Tanggal_Lahir", Tanggal_Lahir)
            sql.Parameters.AddWithValue("@Agama", Agama)
            sql.Parameters.AddWithValue("@Berat_Badan", Berat_Badan)
            sql.Parameters.AddWithValue("@Tinggi_Badan", Tinggi_Badan)
    
            sql.ExecuteNonQuery()
        End Sub   
    
    End Class
    

    Jumat, 08 Mei 2015 10.07

Jawaban