Kejobong. Diberdayakan oleh Blogger.
RSS

Baidu PC Faster

       

          Hay kaka lama nich ga upload materi, maklum sibuk kuliah kemarin abis ujian,,,
Langsung aja nich adhe mau sedikit berbagi software yang lumayan menjanjikan dan lumayan memuaskan,,
Software Baidu PC Faster ini adalah salah satu software utility seperti software TuneUp yang berfungsi intuk mengoptimalkan kinerja PC kaka,,,
        Software Baidu PC Faster ini adalah software buatan dari negara Gajah Putih (Thailand) waaaw,,,, Hueek,,, Tunggu dulu kaka jangan main Huek-Huek dulu ckckck,,, sebelum mencoba Software ini dilarang menghina hehe,,, Software ini jg bekerja sama dengan anti virus afire,, jiaahahaa kereeenn,,,
Ini nich kaka dengan sekali klik pada QUICK CARE maka PC anda langsung dalam keadaan Healthy(Sehat).

          Software Baidu PC Faster ini jg ringan saat dibuka tidak seperti TuneUp atau software cleaner yang lain,jadi siapa tahu PC kaka sering mengalami gangguan atau leled adhe kasih saran deh ka untuk pake software ini,dijamain ga rugi, Gratis juga ka,, maklum orang indonesia nyarinya yang gratis-Gratis wkwkwk

Untuk mendownload Baidu PC Faster,Disini kaka
Passwordnya : pacetiara.blogspot.com


  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

Koneksi Tran Dengan Database Server

Koneksi Tran Dengan Database Server

               Selamat pagi,siang,sore,malam buat kk yg lagi jalan-jalan nyari makalah buat tugas. Kali ini saya mau sedikit share materi kuliah Pemrograman Visual tentang Menghubungkan SQL server 2005 kedalam Visual Basic 2010.
               Maksudnya adalah kita membuat program atau database diSQL Server 2005 kemudian kita connekin ke Visual Basic 2010.
Dari pada kk-kk bingung,Mending langsung aja deh kita CEKidot Dibawah ini:
Pertama siapkan dulu kk peralatannya:
-Komputer (PC)

Langsung aja kk topik dari pembahasan kita: 

     1. Membuat Database
  • Buka SQL Server 2005 anda, kemudian buat database dengan nama dbmahasiswa. Kebetulan sebelumnya saya sudah mendapat mateeri kuliah Pengolahan Basis Data,jadi saya sudah sedikit mengerti untuk pembuatan database di SQL Server 2005 nya. Ini gan Klik kanan pada database => New Databae (Beri nama dbmahasiswa).

  • Selanjutnnya adalah membuat tabel tbmahasiswa (klik dbmahasiswa=>Tabel=>Modify) seperti gambar dibawah ini dan juga berisi (Nim,Nama,Alamat,Jurusan,TglLahir dan Spp_Tetap) dan type data nya sesuai seperti gambar berikut:


  •  Kemudian kita isikan data pada tabel yang kita buat tadi, terserah dengan berapa data. Caranya dengan Klik kanan pada tbmahasiswa => pilih open table.

 *Selamat kita selesai dalam pembuatan database*





     2. Menghubungkan  SQL Server 2005 ke Visual Basic 2010
  • Buka VB 2010 kemudian buat project baru,jangan lupa menggunakan windows dan form.
  • Bukalah database yang sudah dibuat dengan meng-klik pada menu  Data-> Add New Data Source… > Database, lalu Next > Dataset, lalu Next > New Connection…  > pilih Microsoft SQL Server
  • Pada bagian Server Name, pilih server yang tersedia. Jika tidak bisa kembali ke SQL Server dan sorot nama server (pilih Connect lalu copy nama server tersebut). Pada Log on to the server pilih Use Windows Authentication. Dan masukkan dbmahasiswa. Lalu   Test Connection, jika sukses maka telah siap dikonekkan. Selanjutnya pilih OK..!
  • Tunggu beberapa saat hingga muncul tampilan. Cek list semua table yang akan digunakan pada Visual Basic, kita contreng Seperti gambar dibawah ini,Kemudian Finish:


  • Kemudian kita kembali lagi ke Visual Basic 2010, Pada menu Data pilih Show Data Sources.
  • Ingat pada kolom jurusan, modelnya diganti ComboBox. Jika tidak maka tidak akan berfungsi.
  • Kemudian Drag semua yg td sudah dicontreng sehingga menampilkan tampilan form seperti berikut ini (pada Jurusan dibuat ComboBox, tambahkan item TI dan SI dengan Edit Items).
   
 
 
 
  • Kemudian masukan codding program dibawah ini di VB 2010.
    Ini adalah coding nya silahkan kk copas atau cermati.
Public Class Form1
    Private Sub TbmhsiswaBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TbmhsiswaBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.TbmhsiswaBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.DbmhsiswaDataSet)
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'DbmhsiswaDataSet.tbmhsiswa' table. You can move, or remove it, as needed.
        Me.TbmhsiswaTableAdapter.Fill(Me.DbmhsiswaDataSet.tbmhsiswa)
    End Sub
*Untuk mengedit*
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim ketemu As Integer
        ketemu = TbmhsiswaBindingSource.Find("nim", TextBox1.Text)
        If ketemu >= 0 Then
            MsgBox("Nim sudah terpakai", 0 + 16, "perhatian")
            TextBox1.Text = " "
            TextBox1.Focus()
        Else
            TbmhsiswaBindingSource.AddNew()
            NimTextBox.Text = TextBox1.Text
            NimTextBox.Focus()
        End If
    End Sub
* botton untuk melihat data sebelumnya*
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TbmhsiswaBindingSource.MovePrevious()
    End Sub
* button untuk melihat data paling akhir*
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        TbmhsiswaBindingSource.MoveLast()
    End Sub
*Button untuk melihat data sesudahnya*
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TbmhsiswaBindingSource.MoveNext()
    End Sub
*batton untuk melihat data paling awal/pertama*
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        TbmhsiswaBindingSource.MoveFirst()
    End Sub
*button untuk menyimpan*
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Me.Validate()
        Me.TbmhsiswaBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.DbmhsiswaDataSet)
    End Sub
*button untuk menghapus*
    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        If MsgBox("Apakah Anda Yakin ?", vbYesNo + vbQuestion + vbDefaultButton2, "Delete") = vbYes Then
            Me.TbmhsiswaBindingSource.RemoveCurrent()
        End If
    End Sub
*button untuk filter*
    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        Dim Mencari As Integer
        Mencari = InputBox("Masukkan NIM yang Anda Cari", "Filter ...")
    End Sub
*button untuk menambah data*
    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        Me.TbmhsiswaBindingSource.AddNew()
        NimTextBox.Focus()
        TgllahirDateTimePicker.ResetText()
    End Sub
*button untuk mencari*
    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        If (TbmhsiswaBindingSource.Find("NIM", TextBox1.Text)) > -1 Then
            MsgBox("Data berhasil ditemukan")
        Else
            MsgBox("Data tidak berhasil ditemukan")
        End If
    End Sub
*batton untuk keluar*
    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        End
    End Sub
End Class


  • Jalankan program dengan mengklik tombol Run(F5). 
  •  

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS