Entri Jurusan Dengan SQL 2000

Assalamualaikum, wr wb. Hai sobat smua, ini adalah posting pertama ane, pada blog ane yg sederhana ini, posting pertama ane ini, berkaitan dengan tugas ane,, yaitu membuat program dengan Visual Basic 6.0 dengan database mnggunakan SQL Server 2000, Lansung aja gan try it.. !! buat para master ane mohon bantuannya.. karena ane masih new comers.. Selamat Membaca dan mencoba semoga bermanfaat...

Screenshoot1

Screenshoot2

Screenshoot3

Screenshoot4

Screenshoot5

Screenshoot6

Screenshoot7

Screenshoot8

Screenshoot9

Script untuk membuat program diatas:

Private sub Form_load
Berfungsi untuk menghubungkan Form dengan Module yang berguna sebagai koneksi ke database

Private Sub form_load()
hubungan
End Sub

Private Sub Command1
Berfungsi untuk menambah data atau record ke dalam database

Private Sub Command1_Click()
If Command1.Caption = "&Tambah" Then
bersih
Command1.Caption = "&Simpan"
Command2.Enabled = False
Command3.Enabled = False
Command4.Caption = "&Batal"
Else
isq = "insert into jurusan(kd_jurusan,nama_jurusan) values('" & Trim(Text1) & "','" & Trim(Text2) & "')"
Set rs = conn.Execute(isq)
bersih
formattampil
End If
End Sub

Private Sub Command2
Berfungsi Untuk mengubah atau edit Record dalam database yang sudah dibuat

Private Sub Command2_Click()
If Command2.Caption = "&Ubah" Then
bersih
Command2.Caption = "&Simpan"
Command1.Enabled = False
Command3.Enabled = False
Command4.Caption = "&Batal"
Else
isq = "Update jurusan set Nama_jurusan='" & Trim(Text2) & "'where kd_jurusan='" & Trim(Text1) & "'"
Set rs = conn.Execute(isq)
bersih
formattampil
End If
End Sub

Private Sub Command3
Berfungsi untuk Menghapus Record yang ada di dalam database yang sudah dibuat

Private Sub Command3_Click()
If Command3.Caption = "&Hapus" Then
bersih
Command3.Caption = "&Oke"
Command1.Enabled = False
Command2.Enabled = False
Command4.Caption = "&Batal"
Else
If Len(Text1) = 3 And Len(Text2) > 0 Then

Else
isq = "delete from jurusan where kd_jurusan='" & Trim(Text1) & "'"
Set rs = conn.Execute(isq)
bersih
formattampil
End If
End If
End Sub

Private Sub Command4
Berfungsi untuk Keluar dari program yang sedang dijalankan

Private Sub Command4_Click()
If Command4.Caption = "&keluar" Then
Unload Me
Else
netral
bersih
End If
End Sub

Private Sub Netral
Untuk Mengembalikan Kondisi Form setelah Entri data selesai dijalankan

Private Sub netral()
Command1.Caption = "&Simpan"
Command4.Caption = "&Ubah"
Command3.Caption = "&Hapus"
Command4.Caption = "&keluar"

Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True

End Sub

Private Sub Form_Activate
Berfungsi untuk menormalkan kondisi form yang sedang dijalankan

Private Sub Form_Activate()
bersih
formattampil
End Sub

Private Sub Bersih
Untuk Mengkondisikan Kursor ke text 1

Private Sub bersih()
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
Command1.Caption = "&Tambah"
Command2.Caption = "&Ubah"
End Sub

Private Sub Formattampil
Untuk memformat Tabel yang di buat dalam program


Private Sub formattampil()
isq = "select count(kd_jurusan) as jumdata from Jurusan"
Set rs = conn.Execute(isq)

If Not rs.EOF Then
MSF1.Rows = rs!jumdata + 1
End If
MSF1.Cols = 3

MSF1.ColWidth(0) = 500
MSF1.ColWidth(1) = 1500
MSF1.ColWidth(2) = 3000

MSF1.TextMatrix(0, 0) = "No"
MSF1.TextMatrix(0, 1) = "Kode Jurusan"
MSF1.TextMatrix(0, 2) = "Nama Jurusan"


Private Sub tampildata
Untuk mengkondisikan Record yang di entry ke database ke dalam Msf 1 atau tabel dalam Program

tampildata
End Sub
Private Sub tampildata()
Dim r As Integer
r = 1
isq = "select*from jurusan"
Set rs = conn.Execute(isq)
With rs
If Not .EOF Then
.MoveFirst
Do While Not .EOF
MSF1.TextMatrix(r, 0) = r
MSF1.TextMatrix(r, 1) = Trim(!kd_jurusan)
MSF1.TextMatrix(r, 2) = Trim(!nama_jurusan)
r = r + 1
.MoveNext
Loop
Else
End If
End With
End Sub

Private Sub Text 1
Untuk menampilkan Mesagge Box ketika Tombol Enter kita tekan, dimana Data yang di cari tidak ada dalam record ataupun sebaliknya


Private Sub text1_keypress(KeyAscii As Integer)
If KeyAscii = 13 Then
isq = "select* from jurusan where kd_jurusan='" & Trim(Text1) & "'"
Set rec = conn.Execute(isq)
With rec
If Not .EOF Then
'jika data ada dan dalam proses tambah data
If Command1.Caption = "&Simpan" Then
MsgBox "Data Sudah Ada", vbCritical + vbOKOnly, "Tambah Data"
bersih
Else
'jika data ada dalam proses ubah dan hapus
'data, data di tampilkan
Text2.Text = !nama_jurusan
Text2.SetFocus
End If
Else
'jika data tidak ada dan dalam proses tambah data
If Command1.Caption = "&Simpan" Then
Text2.SetFocus
Else
'jika data ada dalam proses ubah dan hapus
MsgBox "Data Tidak Ada", vbCritical + vbOKOnly, "Ubah/Hapus"
bersih
End If
End If
End With

End If

End Sub

Module
Ketika membuat program entry data menggunakan Database SQl, maka kita harus membuat koneksi lewat sebuah Module

Script Module dalam Program :

Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public hub As New ADODB.Recordset

Public Sub hubungan()
Set conn = New ADODB.Connection
conn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Akademik;Data Source=AZAM-PC"
End Sub


Sekian posting ane gan,, kita berjumpa lagi di posting ane berikutnya,, jangan lupa tinggalkan jejaknya ya, gan kasih komentarnya,, Smoga bermanfaat.. Thanks for visit my blog..
wassalamualaikum wr wb.

Artikel Terkait:

Posted in: vb