Senin, 23 Mei 2011

C# Koneksi Database M.Sql Server, Mysql, Access

salam belajar.....

pada kali ini saya akan membahas bagaimana cara mengkoneksikan aplikasi yang kita buat dengan database M. sql server, mysql dn access.

Yups… langsung saja…

  • Mengkoneksikan dengan database M. SQL Server

Walaupun sql server ada beberapa versi namun cara mengkoneksikannya tetap sama semuanya. Bila anda menginstal sql server yang bukan bawaanya VS. atau terpisah dengan M. visual studio yaitu database engine maka cara

Mengkoneksikanya sebagai berikut :

//buatlah sebuah class dan beri nama mydb

class mydb

{

private SqlConnection SQLConnect = new SqlConnection();

public dbkoneksi()

{

try

{

SQLConnect.ConnectionString = "Data Source=myserver;Initial Catalog=dbtest;Integrated Security=True";

//bila sql server anda ada passwordnya maka koneksi rubah seperti ini

//SQLConnect.ConnectionString = "Data Source=myserver;Initial Catalog=dbGawe;Integrated Security=False; User id=sa;Password=passwordanda";

//jika sql server anda yang bawaanya vs atau anda menggunakan database sql server compact edition maka koneksinya seperti ini:

//DataSource=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\dbtest.mdf;Integrated Security=True;Connect //Timeout=30;User Instance=True

SQLConnect.Open();

}

catch (Exception Ex)

{

if (SQLConnect != null)

SQLConnect.Dispose();

// menampilkan pesan error

string ErrorMessage = "koneksi error.";

ErrorMessage += Environment.NewLine;

ErrorMessage += Environment.NewLine;

ErrorMessage += Ex.Message;

// berhenti di sini

return;

}

}



  • Mengkoneksikan dengan database Mysql

Untuk mengkoneksikan dengan db mysql sebelumnya anda harus mendownload connector untuk mysql Karena di VS tidak memasukan connector tersebut.. untuk mendownloadnya silahkan download di sini..

class koneksi

{

public koneksimysql()

{

string connectionSQL = "server=localhost;database=test;uid=root;password=root;";

try

{

MySqlConnection db = new MySqlConnection(connectionSQL);

db.Open();

MessageBox.Show("terkoneksi", "info", MessageBoxButtons.OK, MessageBoxIcon.Information);

}

catch (Exception qw)

{

MessageBox.Show(qw.Message);

MessageBox.Show("database tidak terkoneksi", "info", MessageBoxButtons.OK, MessageBoxIcon.Information);

db.Dispose();

}

}

}


  • Mengkoneksikan dengan database M. Access

{

cnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StartupPath + "\\Book.mdb;";

OleDbConnection dbku= new OleDbConnection(cnstr);

try

{

dbku.Open();

MessageBox.Show("database terkoneksi", "Info", MessageBoxButtons.OK, MessageBoxIcon.Information);

}

catch (Exception ww)

{

MessageBox.Show(ww.Message);

MessageBox.Show("database tidak terkoneksi", "Info", MessageBoxButtons.OK, MessageBoxIcon.Information);

dbku.Dispose();

}

Nah.. sampai di sini dulu pembahasannya ….. mudah-mudahan bisa membanu teman-teman yang membutuhkannya.



::.. Sistem Informasi Penjualan Menggunakan Foxpro..::

salam belajar....

nih.. ada satu lagi Sisfo penjualan, sisfo ini juga saya dapat dari buku yang saya beli kemudian saya tambahi yang masih kurang, sori saya lupa nama pengarang bukunya soalnya udah lama...
saya hanya ingin teman-teman belajar agar supaya kita jangan terlalu berharap di orang lain selama kita bisa kenapa tidak...!!!

aplikasi ini lumayan lengkapp terdiri dari...
1. form login dengan user AKBAR password ADMIN huruf besar
2. form backup dan Restore database
3. Form Penjualan
4. Form barang
5. form pelanggan
6. laporan barang dan penjualan
7. cetak kartu pelanggan
8. cetak faktur penjualan
9. cetak laporan perbulan/ rekapitulasi
10. form daftar user






bila anda sudah download program ini silahkan copy dan simpan di drive C jangan di Drive lain. baru kemudian di jalankan

semoga bisa membantu.. download di sini

:::.. Aplikasi Penjualan HP Menggunakan Foxpro..:::

salam belajar.....

Aplikasi masih sederhana, sebenarnya ini juga tugasnya teman saya.. saya bantu untuk kerjakan sekalian belajar... buat teman-teman yang sekarang mungkin dapat foxpro silahkan download saja dan pelajari...

aplikasi ini terdiri dari beberapa form :
1. daftar Elektrik
2. daftar Foucher
3. daftar Mkios
4. pembelian Foucher
5. Stock Foucher
dan laporan-laporan..
oh.. ya hampir lupa form loginnya user sama passwordnya TUGAS huruf besarya..




untuk source codenya download aja di sini
semoga bisa membantu.. selamat belajar..

Kamis, 19 Mei 2011

:::.Edit Template CSS Menggunakan Asp.net..:::

salam belajar....
nah sekarang tiba saatnya kita untuk belajar mengedit template di Asp.net. Sebelum kita mengedit template tentunya kita harus mendownload template terlebih dahulu. pada contoh ini saya menggunakan template yang saya download dari csstemplatesforfree. kalau sudah anda download ekstrak terlebih dahulu...

sekarang kita masuk di langkah-langkah mengedit template :

1. pastikan anda membuat satu projek kosong baru
2. add item masterpage dan webform dengan cara klik kanan pada project anda kemudian pilih add item.. biarkan namanya seperti itu.
3. klik kanan lagi pada projectnya kemudian piih add asp.net folder dan pilih theme
ganti folder theme yang baru di buat dengan nama default
4. nah.. sekarang copy template yang baru anda download, sebelumnya ekstrak terlebih dahulu.. copy dan paste di folder project anda..
5. kembali ke program dan klik kanan pada project anda pilih refresh folder agar supaya template yang di copy tadi bisa terbaca di program
6. drag folder image dan cssnya ke dalam folder App_themes-default
7. buka file index.html. perhatikan pada Gambar ini copy sampai di footer

















8. langkah selanjutnya buka masterpage paste di bawah body form id form1 runat server div. sorry tidak bisa tanda lebih kecil lebih besar jadi saya ketik langsung aja.. perhatikan saja gambar di samping ini









9. selanjutnya mengcut contenplaceholder
seperti terlihat
pada gambar di samping ini
perhatikan yang terblok itu yang di cut








10. paste di bawah div id page




11. tahap berikutnya cut div id content
seperti terlihat pada gambar berikut ini..

perhatikan yang terblok itu yang di cut












12. buka default.aspx dan paste sebelum /asp:content

13. ini adalah langkah terakhir perhatikan buka file web.config, kalau file ini belum ada anda pilih add item lagi...

sekarang perhatikan di bawah system.web anda tambahkan code berikut ini
pages theme="default" /pages

atau terlihat seperti gambar berikut ini




sekarang tinggal jalankan saja programnya

selamat mencoba... ..


Rabu, 18 Mei 2011

Battery Checker Menggunakan C#

salam belajar.....
apa kabar teman-teman semua mudah-mudahan baik-baik saja semuanya,, kali ini saya akan membahas tentang pembuatan aplikasi battery checker dengan C #(sharp). memang sih.. aplikasi ini pernah saya buat dengan vb 6.0 terus kenapa buat lagi dengan c#? itu mungkin yang jadi pertanyaan bagi teman-teman..!!!

di sini saya ingin menunjukan teknologi .NET FRAMEWORK lewat bahasa pemrograman C#. kalau di Vb 6.0 untuk mendapatkan atau mengambil GetSYstemPowerStatus kita harus mendeklarasikan library kernel system 32, tentunya codenya pun tidak sedikit.. dan itulah yang membuat kita kadang merasa kesulitan di karenakan keterbatasan yang di miliki oleh vb 6.0...
dengan C# kita tidak mendeklarasikan library kernel system 32 seperti di vb 6.0 karena semuanya itu sudah include di .NET FRAMEWORK.... tinggaal kita mengimport masuk ke aplikasi kita.

oh.. ya hampir lupa kontrol radprogressbar saya menggunakan komponen telerik karena rad progressbar bawaanya VS. masih kurang lengkap propertynya.

Using System;

PowerStatus power = SystemInformation.PowerStatus;

Aplikasi ini tidak beda jauh dengan yang saya buat di vb 6.0

desainlah form seperti tampilan berikut ini : kontrol yang digunakan adalah 4 label, picturebox,button

download source codenya di sini

buatlah satu form dan ketikan listingnya seperti ini..

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using System.Diagnostics;

namespace BatteryChecker
{
public partial class Form1 : Form
{
//informasi power status
PowerStatus power = SystemInformation.PowerStatus;
public Form1()
{
InitializeComponent();
float secondsRemaining = power.BatteryLifePercent;
if (secondsRemaining >= 0)
{
mengisi.Text = (secondsRemaining * 100).ToString() + "% available.";

}
else
{
mengisi.Text = string.Empty;
}

}
private void RefreshStatus()
{

int powerPercent = (int)(power.BatteryLifePercent * 100);
if (powerPercent <= 100) indikator.Value1 = powerPercent; else indikator.Value1 = 0; switch (power.PowerLineStatus)
{
// PowerLineStatus.online artinya casnya sedang terpasang
case PowerLineStatus.Online : pictureBox1.ImageLocation = Application.StartupPath + "/putih2.png";

float secondsRemaining = power.BatteryLifePercent; if (secondsRemaining >= 0)
{
mengisi.Text = (secondsRemaining * 100).ToString() + "% available.";

this.indikator.Text = this.mengisi.Text;
}

else

// PowerLineStatus.offline artinya casnya sedang tidak terpasang
{
mengisi.Text = string.Empty;
}
statusbat.Text = power.BatteryChargeStatus.ToString();
break;

case PowerLineStatus.Offline:


pictureBox1.ImageLocation = Application.StartupPath + "/putih2.png";
statusbat.Text = power.BatteryChargeStatus.ToString();
break;

case PowerLineStatus.Unknown:

break;
}


}


private void Form1_Load(object sender, EventArgs e)
{
RefreshStatus();
timer1.Enabled = true;
}

private void timer1_Tick(object sender, EventArgs e)
{
RefreshStatus();
}

private void button1_Click(object sender, EventArgs e)
{
//batterylife percen kalikan dengan 100 supaya di ambil angka bulatnya
int powerPercent = (int)(power.BatteryLifePercent * 100);

if (powerPercent >= 80 && power.PowerLineStatus==PowerLineStatus.Online)
{
indikator.Value1 = powerPercent;
MessageBox.Show("Oppss, Silahkan di Cabut Dulu Casnya..", "ww", MessageBoxButtons.OK, MessageBoxIcon.Information);
return;
}
else
{
this.Close();
}
}


}
}

::: Aplikasi Rental CD Menggunakan Foxpro:::

salam belajar....
ini ada satu lagi aplikasi, sebenarnya aplikasi ini tugasnya temanku saya bantu untuk kerjakan.. sebagian programnya di kerjakan sama dosen tapi program yang belum jadi yang di berikan sama dosen artinya masih banyak terdapat errornya, begitulah cara dosen agar supaya mahasiswanya mengerti. . makanya saya bantu temanku untuk kerjakan..

untuk teman-teman yang membutuhkanya bisa di download di sini tapi ingat ya.. kalu bisa di modifikasi lagi agar supaya lebih bagus lagi..gitu

kayak bigini contoh aplikasinya..
ini hanya form penginputan CD yang saya tampilkan. masih terdapat beberapa form lagi yang lain..







download aja di sini

Perpustakaan Sederhana dengan Foxpro

salam belajar....
biasanya di kampus saya setiap akhir semester atau hampir mendekati final dosen maupun asisten dosen memberikan tugas yang basisnya itu database.
ini tugas saya, saya bagikan saja buat teman-teman mudah-mudahan bisa membantu tugas kuliahnya...

kalau bisa programnya nanti di modifikasi lagi ya.. jangan sampai tidak di edit...program ini kan belum saya bikinkan frm rak bukunya jadi kalau bisa teman-teman tambahkan saja.

Programnya Terdiri Atas Beberapa Form antara lain :
1. form login
2. form utama
3. form anggota
4. form buku
5. form karyawan
6. form peminjaman dan Pengembalian
dan laporan-laporan buku, anggota peminjaman dan pengembalian...

ini gambar programnya :










oh.. ya hampir lupa username : TUGAS
passwordnya : TUGAS
huruf besar ya..
kalau mau download programnya download aja di sini

...::Membuat Angka Terbilang di Foxpro::...

salam belajar......

teman-teman yang mungkin dapat tugas dari dosen tentang membuat angka terbilang di foxpro nih.. saya kasih source codenya mungkin bisa membantu teman-teman yang membutuhkanya..

1. silahkan membuat satu project baru
2. buat satu form
3. dan buat satu code baru

kemudian ketikkan listing berikut di tab code yang baru anda buat tadi...

Function fnterbilang
*-------------------

Lparameter mNumerik
Private MCHASIL,MNLOOP,MCUANG,MNONE,MNTWO,MNTREE
Private MCANGKA0,MCANGKA1,MCANGKA2,MCANGKA3
Private MCANGKA4,MCANGKA5,MCANGKA6,MCANGKA7
Private MCANGKA8,MCANGKA9
Private MCSATU,MCDUA,MCTIGA,MCGABUNG,MCSEN1,MCSEN2

MCHASIL=''
MCUANG=STR(MNUMERIK,15,2)
MNONE=1
MNTWO=2
MNTREE=3
MCANGKA0=''
MCANGKA1="Satu "
MCANGKA2="Dua "
MCANGKA3="Tiga "
MCANGKA4="Empat "
MCANGKA5="Lima "
MCANGKA6="Enam "
MCANGKA7="Tujuh "
MCANGKA8="Delapan "
MCANGKA9="Sembilan "
MCGABUNG=""

FOR MNLOOP = 1 To 4

MCSATU=SUBSTR(MCUANG,MNONE,1)
MCDUA=SUBSTR(MCUANG,MNTWO,1)
MCTIGA=SUBSTR(MCUANG,MNTREE,1)
MCGABUNG=MCSATU+MCDUA+MCTIGA
IF VAL(MCSATU)=1
MCHASIL=MCHASIL+ "Seratus "
ELSE
IF VAl(MCSATU)>1
MCHASIL=MCHASIL+MCANGKA&MCSATU+ "Ratus "
ENDIF
ENDIF
DO CASE
CASE VAL(MCDUA)=1
DO CASE
CASE VAL(MCTIGA)=0
MCHASIL=MCHASIL+"Sepuluh "
CASE VAL(MCTIGA)=1
MCHASIL=MCHASIL+"Sebelas "
OTHER
MCHASIL=MCHASIL+ALLTRIM(MCANGKA&MCTIGA)+;
"belas "
ENDCASE
CASE VAL(MCDUA)>1
MCHASIL=MCHASIL+MCANGKA&MCDUA+"Puluh "+;
MCANGKA&MCTIGA
CASE VAL(MCDUA)=0.AND.VAL(MCTIGA)>0
IF (MNLOOP=3.AND.MCGABUNG="001") .OR. ;
(MNLOOP=3.AND.MCGABUNG=" 1")
MCHASIL=MCHASIL+"Seribu "
ELSE
MCHASIL=MCHASIL+MCANGKA&MCTIGA
ENDIF
ENDCASE

DO CASE
CASE MNLOOP=1.AND.VAL(MCGABUNG)>0
MCHASIL=MCHASIL+"Milyar "
CASE MNLOOP=2.AND.VAL(MCGABUNG)>0
MCHASIL=MCHASIL+"Juta "
CASE MNLOOP=3.AND.VAL(MCGABUNG)>0
IF MCGABUNG="001".OR.MCGABUNG=" 1"
MCHASIL=MCHASIL+""
ELSE
MCHASIL=MCHASIL+"Ribu "
ENDIF
ENDCASE
MNONE=MNONE+3
MNTWO=MNTWO+3
MNTREE=MNTREE+3
NEXT MNLOOP
MCSEN1=SUBSTR(MCUANG,14,1)
MCSEN2=SUBSTR(MCUANG,15,1)
IF LEN(MCHASIL)>1
MCHASIL=MCHASIL+"Rupiah "
ENDIF

DO CASE
CASE VAL(MCSEN1)=0.AND.VAL(MCSEN2)>0
MCHASIL=MCHASIL+MCANGKA&MCSEN2+"Sen"
CASE VAL(MCSEN1)=1
DO CASE
CASE VAL(MCSEN2)=0
MCHASIL=MCHASIL+"Sepuluh Sen"
CASE VAL(MCSEN2)=1
MCHASIL=MCHASIL+"Sebelas Sen"
CASE VAL(MCSEN2)>1
MCHASIL=MCHASIL+ALLTRIM(MCANGKA&MCSEN2)+;
"belas Sen"
ENDCASE
CASE VAL(MCSEN1)>1
MCHASIL=MCHASIL+MCANGKA&MCSEN1+ "Puluh "+;
MCANGKA&MCSEN2 + "Sen "
ENDCASE
RETURN MCHASIL

nah.. sekarang buka formnya dan desain form seperti tampilan berikut ini :




ketikan listing pada object pada form1 procedure init
Set Proc to
SET PROCEDURE TO terbilang ADDITIVE

With Thisform
.text4.value=0
.text4.inputmask='999,999,999,999.99'
.edit1.value=''
.text4.setfocus
Endwith
do case
case dow(date())=1
mhari="Minggu"
case dow(date())=2
mhari="Senin"
case dow(date())=3
mhari="Selasa"
case dow(date())=4
mhari="Rabu"
case dow(date())=5
mhari="Kamis"
case dow(date())=6
mhari="Jumat"
case dow(date())=7
mhari="Sabtu"
endcase
thisform.label3.Caption =mhari

dan object form1 procedure refresh()
a=thisform.text4.value
thisform.edit1.value=fnterbilang(a)

kemudian object jumlah_dana procedure lostfocus
thisform.Refresh()

object terbilang procedure refresh
a=thisform.text4.value
thisform.edit1.value=fnterbilang(a)

terakhir button keluar
thisform.release()

semoga bisa membantu, kalau mau download source codenya di sini

Twitter Delicious Facebook Digg Stumbleupon Favorites More

 
Design by Akbar