INFORMASI PENGUMUMAN HASIL PENERIMAAN SELEKSI INSAN CENDEKIA BROADING SCHOOL PAYAKUMBUH 2015

http://insancendekia.com/pengumuman-daftar-calon-karyawan-guru-insan-cendekia-boarding-school-payakumbuh/

Read More

CONTOH FORM ENTRI DATA PADA PHP

Berikut adalah contoh sederhana membuat form entri pada php.. barang kali banyak dari rekan-rekan yang telah paham dan telah mahir dengan bahasa pemrograman php, namun tidak ada salahnya mengulang kembali sekilas tentang php dan disini akan dibahas contoh sederhana dari php yakni membuat form entri dengan php.

baiklah langkah pertama yang harus kita lakukan adalah membuat form entrinya terlebih dahulu bisa menggunakan notepad, dreamweaver atau aplikasi lainnya yang mendukung.

sebelum kita memasuki program ada baiknya kita buat dulu sebuah database baru dengan mysql dan kita beri nama  dbpelaminan,  lalu buatlah tabel dengan nama tbpelaminan buat data nya seperti dibawah ini :

-namalengkap
-tempattinggalsekarang
-kebangsaan, agama
-pekerjaanktp
-passport
-keperluan
-berlakudari
-hingga

 type data nya disesuaikan dengan kebutuhan rekan-rekan, nama pada tbpelaminan nantinya harus disesuaikan dengan koding proses.php yang bisa rekan2 lihat dibawah kajian form entri dibawah.

setelah database kita buat maka sebelumnya kita harus membuat koneksi agar database bisa terhubung dengan program, maka kita bikin form pada php dengan nama "koneksi.php", pada form koneksi.php isikan koding dibawah ini:

=========================
mysql_connect("localhost","root","");
mysql_select_db("dbpelaminan");
?>
=========================
pastikan XAMP, WAMP, SQLserver atau konektor mysql nya semua telah terinstal dan diaktifkan , selanjutnya kita rancang form entri data seperti yang akan kita bahas dibawah ini.

pertama-tama rancang lah sebuah form seperti dibawah ini lalu berinama form entri.php.

Untuk koding form entri diatas bisa rekan-rekan download di sini :

http://www.4shared.com/office/TnFViueUce/KODING_FORM_ENTRI.html 

karena akan terlalu panjang apabila diposting.

 ======================================================================== Setelah kita selesai merancang form entri diatas maka selanjutnya kita buat form lalu  kita beri nama proses.php ,  setelah form proses.ph kita buat lalu kita rancang koding program seperti dibawah ini yang fungsinya nanti akan memproses data yang di input dari form yang telah kita buat diatas sebelumnya. untuk lebih jelasnya koding proses.php bisa kita lihat dibawah ini :

Proses.php

=========

$rid=$_POST['nm'];

$red=$_POST['tts'];

$sad=$_POST['kbs'];

$sid=$_POST['agm'];

$sud=$_POST['pkrj'];

$sed=$_POST['ktp'];

$vkep=$_POST['kep'];

$vtgl2=$_POST['tgl2'];

$vbln2=$_POST['bln2'];

$vthn2=$_POST['thn2'];

$vtgl3=$_POST['tgl3'];

$vbln3=$_POST['bln3'];

$vthn3=$_POST['thn3'];

include "koneksi.php";

$query="INSERT INTO tbpelaminan ( namalengkap,  tempattinggalsekarang, kebangsaan, agama, pekerjaan, ktppassport, keperluan , berlakudari, hingga) values ('$rid', '$rud', '$red', '$sad', '$sid', '$sud', '$sed', '$vkep', '$vthn2-$vbln2-$vtgl2', '$vthn3-$vbln3-$vtgl3')";

$result =mysql_query($query) or die (mysql_error());

echo " DATA TELAH MASUK";

echo "";

?>

========================================================================
setelah koding diatas dibuat coba jalankan program, kemudian isi data. apabila ada kesalahan coba cek kembali data yang kita buat apakah sudah sama dengan database dan jangan lupa perhatikan tanda baca pada coding program.
baiklah  pada proses ini pembuatan form entri telah selesai, silahkan rekan-rekan coba dan kreasikan, untuk menampilkan data insya allah pada kesempatan berikutnya akan kita lanjutkan kembali. semoga bermanfaat. :) wasssalam.

Read More

CONTOH KODING UNTUK TEXT BERJALAN PADA FORM VBNET 2010

untuk membuat text bergerak pada form dalam VB NET 2010 caranya cukup mudah,  pada form load ketikkan beberapa baris source coding yang diperlukan.  untuk lebih jelasnya SILAHKAN COPAS Koding dibawah ini kedalam projek teman-teman :


TEXT BERJALAN
========================================================================

DI FORMLOAD
=================

tulisan(0) = "JUDUL"
        tulisan(1) = "JUDUL"
        tulisan(2) = "JUDUL"
        Label1.Text = tulisan(j)
        Timer2.Start()


DI TIMEPICKER
==============

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        If i.Equals(tulisan(j).Length) Then
            Me.Label1.Text = ""
            If j < tulisan.Length - 1 Then
                j = j + 1
            Else
                j = 0
            End If
            i = 0
        End If
        Label1.Text = tulisan(j).Substring(0, i)
        i = i + 1
    End Sub

========================================================================
Semoga Bermanfaat.....   :)  Notice bila ada keterangan kurang jelas silahkan berikan komentar agar bisa kita diskusikan bersama.... trims :)

 By Leo Bahana Batubara, S.Kom

Read More

Koding Laporan Pada CrystalReportViewer VBNET 2010

Ketikkan Koding berikut ini pada button Cetak :

crystalReportViewer1.ReportSource=.Laporan1.rpt
CrystalReportViewer1.SelectionFormula="({})"="Textbox1.text"
CrystalReportViewer1.Refresh
CrystalReportViewer1.Show


Nama Laporan dan Peletakan untuk formula disesuaikan dengan yang anda bikin di form cetak laporan anda.  :)


Semoga membantu   by Leo Bahana Batubara

Read More

CONTOH KODING VB NET 2010 ( DISESUAIKAN DENGAN MILIK ANDA )

modul///
Imports System.Data
Imports System.Data.Odbc
Module Module1
    Public database As Odbc.OdbcConnection
    Public Tb As Odbc.OdbcDataAdapter
    Public Data As DataSet
    Public Rcd As New BindingSource
    Public perintahsql As New Odbc.OdbcCommand
    Public Cari As Odbc.OdbcDataReader
    Public Sub Koneksi()
        Try
            database = New Odbc.OdbcConnection("Dsn=koneksi")
            database.Open()
            MsgBox("berhasil terkoneksi Lanjutkan")
        Catch ex As Exception
            MsgBox(ex.ToString())
        End Try
    End Sub
End Module

//simpan

   Try
                Call Koneksi()
                Dim cmd As New OdbcCommand("insert into tbps values('" & TextBox1.Text & "','" & TextBox2.Text & "')", database)
                cmd.ExecuteNonQuery()
                MsgBox("tersimpan kedatabase")
                tampil()
                KodeOtomatis1()
                'bersih()

            Catch ex As Exception
                MsgBox("ada kesalahan" + ex.Message)
                'bersih()
            End Try

koreksi////
 Call Koneksi()
        Dim ubah As String = "update  tbps set jns_ps = '" & TextBox2.Text & "' where kd_ps= '" & TextBox3.Text & "'"
        perintahsql = New Odbc.OdbcCommand(ubah, database)
        perintahsql.ExecuteNonQuery()
        MsgBox("data telah dubah")
        tampil()


HAPUS////
 Call Koneksi()
        Dim hapus As String = "delete from tbps where kd_ps='" & TextBox3.Text & "'"
        perintahsql = New Odbc.OdbcCommand(hapus, database)
        perintahsql.ExecuteNonQuery()
        MsgBox("data telah dhapus")
        tampil()


TAMPIL////

 Sub tampil()
        Call Koneksi()
        Tb = New OdbcDataAdapter("select * from tbps ", database)
        Data = New DataSet
        Tb.Fill(Data, "tbps")
        dg1.DataSource = Data.Tables("tbps")
        dg1.ReadOnly = True
        dg1.Refresh()
    End Sub


CARI////

 ' TextBox1.Clear()
        'TextBox2.Clear()
        'TextBox3.Clear()
        ' TextBox4.Clear()
        Dim str As String
        str = "select*from tbps where (kd_ps='" & TextBox3.Text & "')"
        Dim cmd As OdbcCommand = New OdbcCommand(str, database)
        Cari = cmd.ExecuteReader
        While Cari.Read
            TextBox3.Text = Cari("kd_ps").ToString
            TextBox2.Text = Cari("jns_ps").ToString
         

        End While
        'database.Close()
    End Sub


////PANGGIL DATA KE KOMBO///

 ' Call Koneksi()
        Dim cmd As New OdbcCommand("select *from tbpaket where kdpaket='" & c2.Text & "'", database)
        Cari = cmd.ExecuteReader()
        ' c1.Items.Clear()
        Do While Cari.Read
            c2.Items.Add(Cari("kdpaket"))
            t2.Text = Cari("nmpaket")
            t3.Text = Cari("hrgpaket")
            t4.Text = Cari("durasi")

        Loop
        TextBox1.Text = Val(t3.Text) * Val(t4.Text) / 60
        t9.Text = Val(TextBox1.Text)


///KODE OTOMATIS///

 Sub KodeOtomatis1()
      Try
            TextBox1.Text = "S001"
            Koneksi()
            perintahsql = New Odbc.OdbcCommand("SELECT CONCAT( 'S' ,LPAD(( RIGHT( MAX(kd_ps),3)+1),3,'0')) as ps FROM tbps", database)
            Cari = perintahsql.ExecuteReader

            If Cari.Read Then
                TextBox1.Text = Cari.Item("ps")
            Else
                TextBox1.Text = "S001"
            End If
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation)
        End Try
    End Sub

Read More