DAL Class Generator ( .Net , Aql Server )

Buat yg biasa menggunakan tehnik DAL (Data Access Layer ) pasti sudah terbiasa dengan class 

n Store procedure,,,,Nah masalahnya setiap kita mengerjakan project baru kita harus membuat 

class and procedure lagi yang hampir sama, yg beda cuma isinya tok,,, 

tentu tidak efisien klo dilihat dari segi waktu,,

nah,,, nie ane dapet tool dari orang bule buat bikin DAL,, dengan tool ini kita bisa buat 

class n store procedure dengan Mudah dan cepat,,,

dan buat yg belum menggunakan tehnik DAL bisa juga buat latihan bikin class n store procedure di Sql server,,,

wkwkwkwkwk Introduction e elek men,,, maklum bukan jurnalis,,,,

OK, KTP aja langsung,,,,, namanya TITAN CLASSES ,,, 

preview :

DOWNLOAD

Drag Form Tanpa Title Bar CODE IN .NET

untuk memindahkan form yang tidak mempunyai title bar diperlukan code tambahan sebagai berikut:

  Dim newPoint As New System.Drawing.Point()

    Dim a As Integer

    Dim b As Integer

    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown

        a = Control.MousePosition.X - Me.Location.X

        b = Control.MousePosition.Y - Me.Location.Y

    End Sub

    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove

        If e.Button = Windows.Forms.MouseButtons.Left Then

            newPoint = Control.MousePosition

            newPoint.X = newPoint.X - (a)

            newPoint.Y = newPoint.Y - (b)

            Me.Location = newPoint

        End If

    End Sub

tinggal paste ae ng form,ok

DOWNLOAD PROJECT

CARA MEMASUKAN KARAKTER ( ' ) KE DALAM SQL SERVER (Entering the CHARACTER (') INTO THE SQL SERVER) CODE IN .NET

PREVIEW:

Ketika kita ingin memasukan karakter ( ' ) dalam queri string, dalam pengeksekusiannya pasti terjadi error,,,,karena  karakter ( ' ) akan dibaca sebagai perintah Query...

Banyak para Programer menggunakan escape,tapi terlalu rumit....ada juga yang menggunakan fungsi replace sebagai handle...tapi semua tidak menyelesaikan masalah seperti yang  harapkan...

Berikut ini saya coba kasih hendle buat ngatasi masalah itu,,,, yaitu dengan mengganti karakter ( ' ) dengan karakter yang mirip karakter tersebut, yaitu karakter ( ` )...

Untuk mengatasi hal seperti ini saya lebih suka menghandle lewat inputan, bukan lewat querynya,,,karena Query nanti akan berisi gabungan string buat perintah dan string inputan dari textbox...

Dan yang akan saya handle adalah textbox nya, yaitu ketika user mmemilih Karakter ( ' ), Maka akan saya alihkan ke karakter ( ` )....

CODE HANDLE :

Private Sub EnterKeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) _

    Handles TextBox1.KeyPress, TextBox2.KeyPress, TextBox3.KeyPress, TextBox4.KeyPress

        Try

            e.KeyChar = UCase(e.KeyChar)

            If e.KeyChar = "'" Then

                e.KeyChar = "`"

            End If

            

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

    End Sub

DOWNLOAD PROJECT :

DOWNLOAD PROJECT

UNTUK MENCOBA QUERY STRINGNYA,SILAHKAN COPY N JALANKAN DI QUERY ANALIZER....

ATAU SILAHKAN ANDA BUAT CODE UNTUK MENGEKSEKUSI QUERY TERSEBUT...

OK, SEMOGA BERMANFAAT...

(Insert) TextBox / Variable into Crystal Report Parameter (Code in .Net)

1) Add/ Tambahkan Crystal  Report dan CrystalReportViewer ke dalam Form project Anda
2) pada Crystal  Report tambahkan field parameter, contoh kita beri nama "Nomor" Field.

3) Lalu Masukan field parameter "nomor" tadi kedalam crystalreport
4) Nanti dalam crystal report  akan terlihat - "?nomor"
5) Tuliskan syntax berikut dalam form dimana anda meletakan CrystalReportViewer 
    
  CODE :

private sub print()

Dim pvCollection As New CrystalDecisions.Shared.ParameterValues()

Dim pdvFrom As New CrystalDecisions.Shared.ParameterDiscreteValue()

Dim ObjectRpt As New CryStalreport1

Dim CryData As New CrystalReportViewer1

pdvFrom.Value = textbox1.text       ' value parameter field
      
 pvCollection.Add(pdvFrom)           ' add value
ObjectRpt.DataDefinition.ParameterFields("nomor").ApplyCurrentValues(pvCollection)

CryData.ReportSource = ObjectRpt
 CryData.Refresh()

End Sub

..::S E L A M A T  M E N C O B A::..

Memberi Warna pada Section Detail (Record) Crytal report

Memberi warna pada section detail (record) kadang sangat diperlukan untuk mempermudah user membaca laporan,,

PREVIEW :

Ok. berikut caranya :
1.  Klik Kanan pada section(details), Pilih section expert

 2. pilih "details" pada kolom section, pilih color pada kolom sebelah kanan lalu centang background color

 3. Buat formula baru,setelah Masuk formula Editor, pada kolom sebelah kiri pilih "Formating Formula=>Details", lalu klik kanan,terus pilih "New Formating Formula=>background color" klik use editor
4. Dalam code editor ketik formula serti ini :

if RecordNumber mod 2=0 then crSilver else crNoColor

5. Simpan dan tutup Editor
6. Kemudian jalankan report

Selamat mencoba.

Fungsi ISNULL Dalam Ms SQL

Fungsi   dari IS NULL  itu sendiri adalah Menggantikan NULL dengan nilai pengganti yang ditentukan..
  
SYNTAX :

ISNULL ( EKSPRESI ,NILAI PENGGANTI ) 

KETERANGAN :
EKSPRESI : Ekspresi berisi nilai/field yang akan di cek, Bila Nilai/Field is null maka nilai/field akan diganti
                     dengan PENGGANTI.


CONTOH:

SELECT     NOPINJAM, KODE_NASABAH, TGLANGSUR, TGLPINJAM,
 ISNULL(DATEDIFF(DAY, TGLANGSUR, GETDATE()), DATEDIFF(DAY, TGLPINJAM, GETDATE())) AS [JATUH TEMPO], SISAANGSUR, ROUND(JMLPINJAM * BUNGA / 100 * 12 / 360 * ISNULL(DATEDIFF(DAY, TGLANGSUR, GETDATE()), DATEDIFF(DAY,
                      TGLPINJAM, GETDATE())) + 450, - 3) AS BUNGA
FROM         VIEWPINJAM
WHERE     (LUNAS = 0) AND (JENISBIAYA = N'MENURUN') AND (ISNULL(DATEDIFF(DAY, TGLANGSUR, GETDATE()), DATEDIFF(DAY, TGLPINJAM, GETDATE())) > 0)

 HASIL:

Perhatikan Syntax yg diblok biru, Maksud dari syntax tersebut adalah menghitung jumlah hari keterlambatan(jatuh Tempo) dengan parameter fungsi Is Null "TGLANGSUR", Bila "TGLANGSUR" Is Null maka parameter penghitungan hari diambil dari "TGLPINJAM" dan apa bila "TGLANGSUR" Is Not Null maka parameter penghitungan hari diambil dari "TGLANGSUR"..

OK, Untuk lebih jelas nya Perhatikan Blok warna dalam syntax diatas:
=> Blok HIJAU : * adalah fungsi menghitung hari dengan parameter "TGLANGSUR"
                            * bila "TGLANGSUR" Is Null Maka otomatis fungsi datediff ga jalan
                            * dan hasilnya field alias "JATUH TEMPO" = Is Null
                            * dan apabila "TGLANGSUR" Is Not Null maka penghitungan hari (fungsi gatediff) 
                               diambil dari "TGLANGSUR"
=> Setelah Pengecekan diatas maka diketahui Parameternya Is Null atau Is Not Null, Jika Is Not Null Maka Blok HIJAU yg akan dibaca, dan Jika Is Null Maka yg akan dibaca adalah fungsi getediff yg kedua (Blok HITAM), dengan parameter "TGLPINJAM"...


Wes ah penjelasane, Kesel,ngeleh,,,,,
Paham KarepMU ora paham Yo Matamu....jenenge ae ngoding sak karepe deweeeeeeeeee

hehehehe... Guyon Um,,, Pastilah anda lebih paham daripada saya... 
OK, Semoga Bermanfaat....!!!!!
 

MEMASUKAN GAMBAR SECARA DINAMIS DALAM CRYSTAL REPORT (CODE IN .NET)

PREVIEW :

PROGRAM INI UNTUK MENAMPILKAN GAMBAR SECARA DINAMIS KE DALAM CRYSTAL REPORT

DOWNLOAD PROJECT