Contoh Program Dengan C#(C-Sharp) Banking Account

Hello para dotNetters.. Pada kesempatan kali ini saya akan posting program yang dibangun dengan IDE Visual studio dengan bahasa c# (C-Sharp). Visual Studio yang saya gunakan Vs2008.Nama program ini Banking Account.Program ini udah menerapkan konsep OOP (Objek Oriented Programing). Langsung Saja Buka Visual Studionya.Create New Projek.Pilih Visual C# dan templete Windows Application disebelah kanan. Atur lokasi penyimpanan projek dan OK. Kita akan menggunakan 5 form.
1.Menu

2.Form Cek Saldo

 3.Form Penyetoran

 4.Form Penarikan

5.Form Add New Account

Untuk Download Program Lengakapnya dibawah ini Download Program full

Ilmu yang bernilai ibadah jika diamalkan

Profile Penulis

 Namaat Lengkap         : Satu Kojiro Yuga
Alamat                          : Jl.Dr.Djunjuinan No.156 bandung
Tempat Tanggal Lahir  : Banyumas, 7 Agustus 1991
Pekerjaan                     : Mahasiswa Jurusan Managemen                                                Informatika Semester 3                                           Universitas Nasional Pasim
Motto Hidup               : Menjadi Orang yang bermanfaat                                               bagi sesama dimanapun  dengan                                                  siapapun aku berada

Read More

Insert gambar Database dengan VB.net

Insert Imagae dalama database??? loh…?? kok..? Wuih..gimana tuh (sok..keren) .. | ihh..apaan sih norak ..!!! , berat..kalee databasenya nanti.. -___-..
yupz..itu secuplik kutipan ketika Saya pertama kali belajar bagaimana cara mengisert data ke dalam database.. lebih tepatnya ketika berpikir.. Ihh gimana sih kok aplikasi itu kalo..di klik idnya..tiba” fotonya muncul?? (Gumaam orang bingung sepeerti saya) ..Ahaa.. I have Idea..hmm ini sih pasti id itu udah ada gambarnya tuh dalam database … | SALAH…..  hahaha..yupz memang sebagain besar ada bebrapa cara untuk penyimpanan data gambar dalam database..dalam hal ini Saya mencoba bercerita (Dongeng kalii  ) tentaang bagaimana caranya Meninsertkan file Gambar (Image) ke dalam database.. lohh..nanti berat Tau databasenya..Yupz.. betul tekhnik ini bukanlah tekhnik yg tepat jika anda menggunakan file image yg cukup besar.., tetapi ada baiknya kita mengetahui sedikit cerita bagaimana sih cara meninsertkan gambar pada database?? ( khusus untuk aplikasi yg menampung image kecil <=20 kb anjuran ), oke daripada banyak cerita..langsung kita ke TKP 
Pertama” buatlah form dan desaign seperti tampak dibawah ini 

dan buatlah satu buat database acces dengan nama nostrad.mdb dan buat tabel tb_user dengan attribut id(autonumber),nama(text),gambar(ole object).
dan tambahkan satu buah OpenFileDialog , kemudian berikan nama OFD.
Selanjutnya tambahakan satu buah module dengan nama module “mdelkonek”
dan ketikan script dibawah ini






*******************Script Module mdelkonek****************************


Imports System.Data.OleDb ‘Library oldb untuk koneksi ke ms.access
Module mdlkonek
Public con As OleDbConnection = Nothing
Public cmdac As OleDbCommand
Sub konekdbac()
Try
Dim constring As String = “Provider=Microsoft.JET.OLEDB.4.0;Data Source=nostrad.mdb”
con = New OleDbConnection(constring)
con.Open()
con.Close()
MsgBox(“Connection Open”)
Catch
MsgBox(“Not Connect”)
End Try
End Sub
” procedure untuk mengecek koneksi , apakah terbuka atau tertutup
Sub checkconecction()
If con.State = ConnectionState.Connecting Or con.State = ConnectionState.Open Then
con.Close()
ElseIf con.State = ConnectionState.Closed Or con.State = ConnectionState.Broken Then
con.Open()
End If
End Sub
End Module


**************************Akhir Script Module mdelkonek**********************************************


Selanjutnya anda mulai mengontrol desaign dari form yg sudah dibuat
Imports System.IO ” library untuk input-output data (Files stream operational)
Imports System.Data.OleDb
Public Class Image_Process
Private Sub KryptonButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KryptonButton1.Click
Try
OFD.Title = “Browse Image”
OFD.FileName = “Pilih Gambar”
OFD.Filter = “Type(*.jpg, *.jpeg, *.bmp, *.gif, *.png)|*.jpg; *.jpeg; *.bmp; *gif; *.png”
OFD.ShowDialog()
txt_addres.Text = OFD.FileName
txt_addres.SelectionStart = txt_addres.Text.Length
img.Image = Image.FromFile(txt_addres.Text)
Catch ex As Exception
MsgBox(“Query Error”)
End Try
End Sub
Private Sub bt_save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_save.Click
Dim fs As New FileStream(OFD.FileName, FileMode.OpenOrCreate, FileAccess.Read)
Dim gambar(fs.Length) As Byte
checkconecction()
Try
fs.Read(gambar, 0, CInt(fs.Length))
fs.Close()
Dim cmdString As String = “insert into tb_user(nama,gambar) values(‘” & txt_nama.Text & “‘,@foto)”
cmdac = New OleDbCommand(cmdString, con)
cmdac.Parameters.AddWithValue(“@foto”, gambar)
cmdac.ExecuteNonQuery()
MessageBox.Show(“Data has Beeen Stored”)
Catch ex As Exception
MsgBox(“Data Failed to Store”)
Finally
con.Close()
End Try
End Sub
Private Sub Image_Process_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
konekdbac()
End Sub
Private Sub bt_exit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_exit.Click
checkconecction()
Me.Close()
End Sub
Sub resetall()
txt_nama.Clear()
txt_addres.Clear()
img.Image = Nothing
txt_nama.Focus()
End Sub
Private Sub bt_reset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_reset.Click
resetall()
End Sub
End Class
Sekian Dongeng ini semoga bermanfaat

Read More