tugas

Modul Pemrograman Berorentiasi Objek

Microsoft SQL Server

1. Service Manager
2. Enterprise Manager
3. Query Analyzer

1. Service manager

Digunakan untuk mengaktifkan Service SQL Server pada Windows

2. Enterprise Manager

l Merupakan alat administrasi utama database pada SQL Server 2000

l Memungkinkan pengguna untuk:

l Mengkonfigurasi semua opsi SQL Server, Object, Login, User, dll

l Membuat dan menjalankan perintah-perintah SQL

l Dan lain sebagainya.

Layar Enterprise Manager

l Untuk membuat database baru masuk ke root database, dengan cara mengklik pada Tree View Database disebelah kanan

l Klik kanan pada list view dan pilih new database

l Misalnya barang

l Click Ok untuk membuat database

Membuat Table Baru

- Buat Table barang dengan nama tbbarang

- Set Primary Key pada kode

· Simpan dengan nama tbbarang

· Menambahkan login

4. Sql Query Analizer

Mengunakan vb enterprise edition control

Nama project

· Nama project:= project inventori

· Nama form =form tbbarang

Tambahkan ADODC ke dalam form tbbarang

Property ADODC

• Simpan connection stringnya

Listing program

Dim constring As String

Private Sub bersih()

TXTKODE.Text = ""

TXTNAMA.Text = ""

TXTSATUAN.Text = ""

TXTHARGA.Text = ""

TXTSTOK.Text = ""

End Sub

Private Sub CMDBERSIH_Click()

bersih

End Sub

Private Sub CMDHAPUS_Click()

Dim dbinventori As New ADODB.Connection

Dim rsinventori As ADODB.Recordset

dbinventori.Open constring, "nurafni", "afni"

dbinventori.Execute "Delete from tbbarang where kodebrg ='" & TXTKODE.Text & "'"

bersih

End Sub

Private Sub CMDSIMPAN_Click()

Dim dbinventori As New ADODB.Connection

Dim rsinventori As ADODB.Recordset

dbinventori.Open constring, "nurafni", "afni"

Set rsinventori = dbinventori.Execute("select * from tbbarang where kodebrg ='" & TXTKODE.Text & "'")

If rsinventori.EOF Then

dbinventori.Execute "insert into tbbarang(kodebrg,nama,satuan,harga,stok) values ('" & TXTKODE.Text & "','" & TXTNAMA.Text & "','" & TXTSATUAN.Text & "','" & TXTHARGA.Text & "', '" & TXTSTOK.Text & "')"

Else

If MsgBox("data ini sudah ada dalam database," & " perbaiki?", vbQuestion + vbYesNo, "konfirmasi") Then

dbinventori.Execute "update barang set nama ='" & TXTNAMA.Text & ""

End If

End If

End Sub

Private Sub CMDTUTUP_Click()

Unload Me

End Sub

Private Sub Form_Load()

bersih

constring = "Provider=SQLOLEDB.1;Password=afni;Persist Security Info=True;User ID=nurafni;Initial Catalog=INVENTORI;Data Source=IBM-FA741BA59D5"

End Sub

Private Sub TXTKODE_Change()

Dim dbinventori As New ADODB.Connection

Dim rsinventori As ADODB.Recordset

dbinventori.Open "Provider=SQLOLEDB.1;Password=afni;Persist Security Info=True;User ID=nurafni;Initial Catalog=INVENTORI;Data Source=IBM-FA741BA59D5", "nurafni", "afni"

Set rsinventori = dbinventori.Execute("select *from tbbarang where kodebrg = '" & TXTKODE.Text & "'")

If Not rsinventori.EOF Then

TXTKODE.Text = rsinventori!kodebrg

TXTNAMA.Text = rsinventori!nama

TXTSATUAN.Text = rsinventori!satuan

TXTHARGA.Text = rsinventori!harga

TXTSTOK.Text = rsinventori!stok

End If

If TXTKODE.Text = "" Then

bersih

End If

End Sub