program vb

Public Class Form1

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub BTNKELUAR_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BTNKELUAR.Click

        End

    End Sub

    Private Sub BTNHAPUS_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BTNHAPUS.Click

        NPM.Text = ""

        NAMA.Text = ""

        JURUSAN.Text = ""

        JENJANG.Text = ""

        TAHUN.Text = ""

        NPM.Focus()

    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        JENJANG.Items.Add("D1")

        JENJANG.Items.Add("D3")

        JENJANG.Items.Add("S1")

        Call ADDTAHUN()

    End Sub

    Sub ADDTAHUN()

        Dim I As Integer

        For I = 2005 To 2012

            TAHUN.Items.Add(I)

        Next I

    End Sub

Read more »

Membuat Database Baru

Server database yang akan digunakan adalah SQLExpress 2005 yang sudah terintegrasi ke dalam IDE Visual Studio 2008. Untuk membuat suatu database, kita bisa membuatnya melalui panel Server Explorer. Munculkan panel Server Explorer dengan menekan kombinasi tombol ‘CTRL+W, L’ bila panel Server Explorer belum tampil.

Pada panel Server Explorer, klik kanan pada ‘Data Connection’ dan pilih ‘Create New SQL Server Database’, akan muncul dialog baru. Masukkan pada kolom ‘Server Name’ dengan (local)\SQLEXPRESS dan masukkan pada bagian ‘New Database Name’ dengan DataBarang. Klik ‘OK’.

Tampilan dalam Server Explorer akan menjadi seperti ini:

 

Read more »