Kode Kecil

Home All posts

Tuesday, February 18, 2014

CRUD vb.net 2012 database sql server 2008

Author : Doni El Rezen 10:11 AM No comments

Syalom.. Pagi teman teman selamat beraktifitas semua.. gimana belajarnya..?? makin semangat belajar programnya..?? pastinya ya.. hheehee.. langsung aja teman teman ya. karna emang pada dasarnya saya gak pintar basa basi. langsung aja ya kita lanjut belajar pemrogramanya.

pada postingan kali ini saya akan coba berbagi tentang CRUD vb.net 2012 dengan database sql server 2008. mari kita mulai langkah langkah membuat programnya..

langkah pertama buat dahulu database dengan nama 'RekamMedis' di sql server teman teman.. kemudian buat tabel baru dengan nama 'Tbl_Obat'.. struktur tabel obatny kurang lebih seperti ini..

setelah selesai membuat tabel obat sesuai dengan struktur gambar diatas, langkah selanjutnya kita buat form untuk control tabel.ny. desain form obat seperti gambar berikut..

setelah itu kita masuk dibagian program.ny.. petama kita buat terlebih dahulu sebuah module untuk koneksi antara vb.net dan sql server kita. caranya but module dengan nama koneksi dan pastekan program berikut.

Imports System.Data.SqlClient
Imports System.Data

Module Koneksi
    Public strConnection As String = "Data Source=EL_RE-PC\SQLEXPRESS;initial catalog=RekamMedis;Integrated Security=True;"

    Public conn As New SqlConnection
    Public Sub hubungkan()
        conn = New SqlConnection(strConnection)
        If conn.State <> ConnectionState.Open Then
            conn.Open()
        End If
    End Sub

    Public Sub tutupkoneksi()
        If conn.State = ConnectionState.Open Then
            Try
                conn.Close()
            Catch ex As Exception
                MsgBox("Gagal Menutup Koneksi" & ex.ToString)
            End Try
        End If
    End Sub
End Module

Pada baris program

Public strConnection As String = "Data Source=EL_RE-PC\SQLEXPRESS; initial catalog=RekamMedis;Integrated Security=True;"

tulisan berwarna biru ganti dengan nama server slq yang teman teman gunakan..

setelah selesai membuat module untuk koneksinya kemudian kita bekerja pada bain formny teman teman.. langsung saja saya bagikan srcipt programny.. namu sesuaikan dengan form yg teman teman desain di projek teman teman sekalian. ini dia program.nya


Imports System.Data.SqlClient
Imports System.Data


Dim ds As DataSet
Public Class FormObat

Dim dt As New DataTable
Dim myadp As SqlDataAdapter

Dim DREADER As SqlDataReader
Dim query As String
    Dim CMD As SqlCommand

Public comSQL As New SqlClient.SqlCommand
Dim sql As String

    Sub refreshtampil()
        hubungkan()

myadp = New SqlDataAdapter(query, conn)
query = ("SELECT * FROM Tbl_Obat")
        dt.Clear()
        myadp.Fill(dt)

TextBox3.Enabled = False
DataGridView1.DataSource = dt
    End Sub

    Private Sub NoNable()
        TextBox2.Enabled = False

Button3.Enabled = False
TextBox4.Enabled = False
        ComboBox2.Enabled = False
        ComboBox1.Enabled = False
        Button4.Enabled = False

TextBox4.Enabled = True
Button5.Enabled = False
    End Sub

    Private Sub Enable()
        TextBox2.Enabled = True
        TextBox3.Enabled = True

TextBox1.Text = ""
ComboBox2.Enabled = True
        ComboBox1.Enabled = True
    End Sub

    Private Sub clear()
        Button2.Enabled = True
        NoNable()

Private Sub kodeotomatis()
TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        ComboBox2.Text = ""
        ComboBox1.Text = ""
    End Sub

        hubungkan()

If dr.Read = False Then
sql = "select max(kodeobat) as no from Tbl_Obat"
        comSQL = New SqlCommand(sql, conn)
        Dim dr As SqlDataReader = comSQL.ExecuteReader()

            TextBox1.Text = "OB-0001"
        Else

TextBox1.Text = "OB-000" & (Val(TextBox1.Text) + 1)
TextBox1.Text = dr("no").ToString
            TextBox1.Text = Microsoft.VisualBasic.Right(TextBox1.Text, 4)
            If Val(TextBox1.Text) < 10 Then
            ElseIf Val(TextBox1.Text) >= 10 And Val(TextBox1.Text) < 100 Then

TextBox1.Text = "OB-" & (Val(TextBox1.Text) + 1)
TextBox1.Text = "OB-00" & (Val(TextBox1.Text) + 1)
            ElseIf TextBox1.Text > 99 Then
                TextBox1.Text = "OB-0" & (Val(TextBox1.Text) + 1)
            ElseIf TextBox1.Text > 999 Then
            End If
        End If
        tutupkoneksi()
    End Sub


Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        Dispose()
    End Sub

    Private Sub FormObat_Load(sender As Object, e As EventArgs) Handles Me.Load
        refreshtampil()
        NoNable()
        kodeotomatis()
        TextBox1.Enabled = False
    End Sub

        Enable()
        Button2.Enabled = False

CMD = New SqlCommand("SELECT * FROM Tbl_Obat WHERE kodeobat= '" & TextBox1.Text & "'", conn)
Button3.Enabled = True
        TextBox2.Focus()
    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        clear()
        kodeotomatis()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        hubungkan()
        DREADER = CMD.ExecuteReader
        If DREADER.Read Then

Dim tambah As String = "INSERT INTO Tbl_Obat VALUES ('" & UCase(TextBox1.Text) & "','" & UCase(TextBox2.Text) & "','" & ComboBox1.SelectedItem & "','" & ComboBox2.SelectedItem & "','" & UCase(TextBox3.Text) & "','" & UCase(TextBox4.Text) & "')"
MsgBox("Data Sudah Ada..!!")
            clear()
            TextBox1.Focus()
        ElseIf TextBox1.Text = "" Or TextBox2.Text = "" Or ComboBox1.Text = "" Or ComboBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Then
            MsgBox("Lengkapi Data Anda..!!")
            TextBox1.Focus()
        Else
            DREADER.Close()
            Dim cmd As New SqlCommand

If TextBox1.Text = "" Or TextBox2.Text = "" Or ComboBox1.Text = "" Or ComboBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Then
cmd.Connection = conn
            cmd.CommandText = tambah
            cmd.ExecuteNonQuery()
            refreshtampil()
            DataGridView1.Refresh()
            clear()
            NoNable()
            conn.Close()
            kodeotomatis()
        End If
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
            MsgBox("Lengkapi Data Anda..!!")

cmd.Connection = conn
TextBox1.Focus()
        Else
            hubungkan()
            Dim tambah As String = "UPDATE Tbl_Obat SET namaobat ='" & UCase(TextBox2.Text) & "',jenis='" & ComboBox1.SelectedItem & "',kategori='" & ComboBox2.SelectedItem & "', harga='" & UCase(TextBox3.Text) & "', jumlah='" & UCase(TextBox4.Text) & "' WHERE kodeobat = '" & TextBox1.Text & "'"
            Dim cmd As New SqlCommand
            cmd.CommandText = tambah

Dim cmd As New SqlCommand
cmd.ExecuteNonQuery()
            refreshtampil()
            DataGridView1.Refresh()
            clear()
            NoNable()
            kodeotomatis()
            conn.Close()
        End If
    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        hubungkan()
        Dim tambah As String = "DELETE FROM Tbl_Obat WHERE kodeobat = '" & TextBox1.Text & "'"
        cmd.Connection = conn

CMD = New SqlCommand("SELECT * FROM Tbl_Obat WHERE kodeobat= '" & a & "'", conn)
cmd.CommandText = tambah
        cmd.ExecuteNonQuery()
        refreshtampil()
        DataGridView1.Refresh()
        clear()
        NoNable()
        conn.Close()
        kodeotomatis()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        hubungkan()
        Dim a As String
        a = InputBox("Please Insert Kode Pasien..!! : ", "PENCARIAN")
        DREADER = CMD.ExecuteReader
        If DREADER.Read Then

MsgBox("Dala Tidak Ditemukan")
Enable()
            Button2.Enabled = False
            Button4.Enabled = True
            Button5.Enabled = True
            TextBox1.Text = DREADER.Item("kodeobat")
            TextBox2.Text = DREADER.Item("namaobat")
            ComboBox1.Text = DREADER.Item("jenis")
            ComboBox2.Text = DREADER.Item("kategori")
            TextBox3.Text = DREADER.Item("harga")
            TextBox4.Text = DREADER.Item("jumlah")
        Else
            NoNable()
        End If

End Class
DREADER.Close()

End Sub

setelah selesai mengcopy program diatas dan sesuaikan dengan nama masing masing control yang teman teman buat, seharusnya program kita dapat berjalan dengan baik.

mari kita uju coba program yang telah selesai kita buat tadi

Selamat.!! program berjalan dengan baik..

hahha.. :D

sekain untuk postingan kali ini.. selamt mencoba buat tean teman semua..

semoga bermanfaat..

Penulis Doni El Rezen

Android Kalkulator Sederhana

Android komputer Pemrograman

Author : Doni El Rezen 11:12 AM No comments

11:12 AM

Syalom sahabat., selamat beraktifitas.. buat yang masi sekolah atau kuliah.. semangat belajar aja.. jangan lupa buat tugasnya.. hheheh..

Dipostingan saya kali ini saya akan menulis tentang bagai mana cara membuat kalkulator sederhana dengan android. langsung saja kita praktekkan bagai mana cara membuatnya..

Pertama buat projek baru dengan nama kakkulatorku

Setelah Oke selesai membuat projek baru, kemudia desain tampilan layout androidnya seperti gambar berikut. (terdapat pada bagian res-> layout)

Setelah itu kita masuk ke code program java yang ada di bagian src, ketikan program berikut:

package com.example.kalkulatorku;

import android.R.string;
import android.app.Activity;
import android.os.Bundle;
import android.view.Menu;
import android.view.View;
import android.view.View.OnClickListener;
import android.widget.Button;
import android.widget.EditText;
import android.widget.TextView;

public class MainActivity extends Activity {
 
 Button proses;
 EditText bil1 , bil2;
 TextView hasil;

 @Override
 protected void onCreate(Bundle savedInstanceState) {
  super.onCreate(savedInstanceState);
  setContentView(R.layout.activity_main);
  
  bil1 = (EditText) findViewById(R.id.bil1);
  bil2 = (EditText) findViewById(R.id.bil2);
  hasil = (TextView) findViewById(R.id.hasil);
  proses = (Button) findViewById(R.id.button1);  
  proses.setOnClickListener(new OnClickListener() {
   @Override
   public void onClick(View v) {
    int a = Integer.parseInt(bil1.getText().toString().trim());
    int b = Integer.parseInt(bil2.getText().toString().trim());
    
    int c = a + b ;
    String d = String.valueOf(c);
    hasil.setText("Hasil :" + d);
        
   }
  });
 }

 @Override
 public boolean onCreateOptionsMenu(Menu menu) {
  // Inflate the menu; this adds items to the action bar if it is present.
  getMenuInflater().inflate(R.menu.main, menu);
  return true;
 }
}

Setelah selesai mengetik code program diatas kemudian jalankan program..

Penulis Doni El Rezen

Instalasi Eclipse Android SDK

Android komputer Pemrograman

Author : Doni El Rezen 8:50 AM No comments

8:50 AM

Pada postingan kali ini saya akan membahas tentang bagaimana cara menginstall eclipse agar dapat digunakan untuk membuat aplikasi Android. Adapun software yang harus disediakan untuk di install yaitu :

JDK (Java SE Development Kit) Windows

Eclipse

ADT (Android Development Tools)

Android SDK Windows

Droiddraw

Jika salah satu link diatas tidak bisa dipakai, silahkan cari software Android di
http://www.softpedia.com/ Kemudian masukan nama software yang akan dicari pada kotak pencarian.

A). Cara Install JDK Windows

Software pertama yang harus di install adalah JDK Windows. Caranya mudah yaitu hanya tinggal klik Next saja.

B). Cara Install ADT

1. Klik Help lalu klik Install New Sosftware.

2. Ketika muncul kotak isian Local dan Archive, masukan atau isi Archive dengan memasukkan ADT.

Catatan : Jika sebelumnya sudah pernah memasukkan ADT namun ingin memasukkan ADT lagi, maka diwajibkan untuk mengcopy ADT ke tempat lain kemudian baru dimasukkan kembali dengan tujuan agar tidak terjadi Duplicate yang mengakibatkan kegagalan.

Perhatikan gambar berikut :

Kemudian pilih add, masukkan pada name dengan nama ADT lalu pilih pilih archive

Pilih dari direktori anda Arcdive ADT yg telah selesai anda download tadi, open dan tunggu sampai tampilan seperti pada no 3 muncul.

3. Centang semua Android yang terdapat di dalam Developer Tools dan kemudian dilanjutkan dengan klik Next.

4. Klik “I accept the terms of the license agreements” kemudian klik Finish.

5. Selanjutnya klik Window lalu pilih Preferences. Masukkan Android SDK Windows kemudian klik OK.

Pilih folder tempat anda menaruh SDK android for windows yg telah selesai anda download tadi, perhatikan seperti pada gambar.

6. Untuk penggunaan Eclipse, ADT, dan Android SDK Windows versi lama yang diinstall pada Windows 7 harus di update terlebih dahulu agar Eclipse tersebut memiliki banyak Versi Android terbaru dan dapat digunakan. Adapun jenis software Android yang digunakan pada Windows 7 yang saya miliki Seperti :

a). Eclipse Juno [SDK 4.2.2 Win32]

b). ADT 23.3.0

c). Android SDK R21.1 Windows

d). JDK 7u15 Windows i586

e). Droiddraw R1B22

Tujuan dari meng-update Android SDK Manager salah satunya adalah untuk menambahkan banyak versi Android agar dapat digunakan seperti Jelly Bean, Key Lime Pie dan versi-versi android sebelumnya. Selain itu update juga berfungsi agar Eclipse dan software lainnya dapat digunakan pada Windows 7.

Jika semua langkah diatas sudah dilakukan, maka langkah selanjutnya kita akan mencoba apakah eclipse yang sudah diinstall dapat berjalan. Caranya yaitu dengan klik Window kemudian pilih Android Virtual Device Manager.

Setelah itu pada jendela kerja Android Virtual Devices klik New yang letaknya ada disebelah kanan layar.

Isi AVD Name dan tentukan pilihan yang tersedia pada jendela kerja Create Android Virtual Device (AVD) kemudian klik OK.

Ketika Window Android Virtual Device Manger muncul pada layar, pilih nama AVD yang sudah dibuat kemudian klik Start yang dilanjutkan dengan klikLaunch.

Apabila setelah klik Launch muncul tampilan Virtual Android seperti pada gambar dibawah ini, maka Eclipse yang anda install adalah Berhasil.

setelah selesai loding tampilan akan seperti berikut.

ketika tampilan setelah seperti pada gambar diatas maka android emulator anda siap untuk digunakan.

Selamat mencoba

Penulis Doni El Rezen

Blackberry Messenger (BBM) Di PC / Laptop

Android komputer

Author : Doni El Rezen 9:52 AM No comments

9:52 AM

Setelah diluncurkannya aplikasi messenger besutan RIM Motion yaitu Blackberry Messenger untuk Android dan iOS beberapa waktu yang lalu membuat aplikasi ini menjadi sangat didambakan para jejaring sosial, mengingat aplikasi messenger ini merupakan yang paling terlaris dan paling banyak penggunanya yang terhubung hanya melalui perangkat Blackberry saja. Saat ini semua pengguna Android dan iOS telah bisa menikmati aplikasi tersebut dengan Gratis. tapi tidak semua OS Android compatible untuk dipasangkan dengan BBM, syaratnya minimal smartphone yang menggunakan Android 4.0 Icecream Sandwich. Nah, bagaimana kalau Smartphone sobat tidak memenuhi persyaratan yg ditentukan? tidak perlu bersedih hati, karena sobat bisa mencicipi BBM tersebut melalui komputer maupun laptop dengan memanfaatkan software virtual. silahkan disimak aja :)

Ada Beberapa cara yang bisa sobat lakukan untuk menggunakan aplikasi BBM menggunakan PC / Laptop yaitu :

CARA PERTAMA MENGGUNAKAN ANDROID SDK

Specifikasi : Acer Intel Core i3, RAM 2GB, VGA Intel HD

Sediakan peralatan yang diperlukan:

1. Laptop / PC | Belii :p

2. Android SDK | Download

3. Java SE Development Kit 7u45 - Windows x86 | Download

4. Blackbery Messenger | Download

5. ID Blackberry | Register here

Langkah - Langkah

Pertama silahkan daftarkan dulu ID blackberry untuk memudahkan proses instalasi aplikasi BBMannya :)

Kemudian donlot peralatan yang dibutuhkan, install Java dulu yah biar bisa jalan. kemudian extrack Android SDK di partisi yg diinginkan,, kalo saya sendiri file diletakkan di partisi E:/

Kemudian buka file SDK Manager, Lalu klik Tools > Manage AVD'> klik New

Setting aja sesuai keinginan, klo ga tau boleh niru punya saya :D Klik OK

Nah, proses pengaturan selesai. kalo ceklis hijau, berarti tidak ada yg salah dalam pengaturan tadi. lalu klik Start

Nah, Androidnya udah bisa jalan :)

Trus bagaimana install BBM.apk nya??? sobat bisa mendownloadya dari Browser Android emulator sobat, download aja dari lik yg ada diblog ini.. kemudian diinstall.

Bisa juga secara secara manual yaitu tinggal copy dan pastekan ke folder platform-tools. kemudian buka terminal dan masuk ke path E:\Android-SDK\sdk\platform-tools, dan masukan perintah : adb.exe install bbm.apk Lihat gambar !!

Tunggu saja proses instalasinya hingga selesai, kalo udah selesai maka BBM akan muncul di menu android. Lihat gambar!!

Nah, udah selesai tinggal dibuka aplikasinya :)

lalu masukkan email sobat yang telah terdaftar di Blackcerry ID

Selanjutnya klik Next aja

Kemudian silahkan Sign in menggunakan akun ID yang terdaftar di Blackberry

Kemudian isi form yg ada sesuai keinginan. lalu klik Submit

Nah, tinggal menunggu proses validasi selesai

Setelesah selesai, maka sobat akan mendapatkan PIN nya.. Jangan lupa Invite saya yah :D

Tambahan :

Karena saya lagi males mo ngapa2in, jadi saya copas aja yg ada digruop Dari Sobat Galih, yaitu Cara mindahin Foto dari Harddisk ke Gallery (Emulator) Khusus Android SDK :

1. Masuk ke folder sdk => \sdk\tools

2. Open monitor.bat

3. Pilih Device

4. File Explorer [Digambar Kebalik]

5. Storenge => sdcard [Digambar Kebalik] (Ingat save di folder sdcard, jangan di folder Picture)

6. Klik nomor enam (Lihat Gambar!)

7. Pilih file dari harddisk yang akan disimpan di sdcard (Satu-satu)

8. Sekarang lihat Gallery di android (emulator) sobat !

CARA KEDUA MENGGUNAKAN GENYMOTION

Sediakan peralatan yang diperlukan:

1. Laptop / PC | Belii :p

2. Genymotion-1.3.0-Vbox | Register & Download

3. Blackbery Messenger | Download

4. ID Blackberry | Register here

Langkah - Langkah

Pertama sobat diharuskan mendaftar di Genymotion, untuk mendownload Installernya. kalo sudah donlot silahkan diinstall sekalian virtualboxnya yg udah satu paket dengan genymotion. kalo sudah selesai semua tinggal dibuka ajaa plikasinya. kemudian Klik ADD lalu masukkan username dan passwor yg udah sobat daftarkan tadi. klik Connect

Lalu pilih Virtual Device sesuai keinginan. saran ane pilih yg specnya yg rendah aja biar ga berat dan yang udah bundle Gapps,. lalu klik Add

Setelah itu klik Next untuk mendownload virtuallnnya. tunggu aja ampe selesai :)

Kalo sudah selesai download, klik aja Play

Lalu untuk install BBMnya bisa sobat download melalui Playstore maupun di Blog IDCA :)

CARA KETIGA MENGGUNAKAN VIRTUALBOX

Specifikasi : Acer Intel Core i3, RAM 2GB, VGA Intel HD

Sediakan bahan-bahan yang diperlukan:

1. Virtualbox v.4.3-x86/amd64 | Download

2. OS Android 4.1 JellyBean | Download

3. ID Blackberry | Register here

4. Blackbery Messenger | Download

Langkah - Langkah

Pertama silahkan daftarkan dulu ID blackberry untuk memudahkan proses instalasi aplikasi BBMannya :)

Kemudian install Androidnya di virtualbox. bagi yang belum tau caranya, silahkan lihat : Cara Install Android Di Virtualbox.

Setelah itu copy BBM.apk melalui flashdisk ke virtual Android yang sudah diinstal tadi. caranya coopy dulu file BBM.apk ke flashdisk, lalu di virtual klik Device > Mass Setorage Device. tunggu proses pembacaan flashdisk hingga selesai.