IE Software

Assalamu alaikum Wr….Wb………….

huh…!!! dah ngantuk mash juga mo ngetik. dsini saya ingin kasi tips sedikit bagi Para Programer Visual Basic!! Programmer kacangan maksudnya. karena saya juga termasuk programer kacangan..!! sebelum saya mulai lebih baik saya akhiri..[ (:)) ) ) ] !! sory………..( ) saya mau jelasin dulu apa manfaat dari  Aplikasi yang satu ini. guna form koneksi ini nantinya untuk memudahkan kita dalam mengkoneksikan Database SQL Server kita, saya juga kurang paham jelasinnya. tapi mudah-mudahan anda paham. kita mulai aja dah…!! saya juga malas basa basi. ga bisa…!! nanti hasilnya seperti ini

Kalo dah liat gambarnya wes mudengkan…. nah…………. sekarang tugas kita adalah………:

• Buka Aplikasi Visual Basic Anda
• kemudian Tambahkan Satu Form di Projek anda
• kemudian Tambahkan juga  Satu Modules di Projek anda
• Tambahkan Pada Form Objek-objek seperti diatas. 4 Label, 4 TextBox, 3 CummondButton
• terus Desain objek tersebut atau yang anda tambahkan tadi ke Form Koneksi. contohnya seperti gambar diatas, terserah mo gimana…..!! kalo mo cantik, ya buat acem gitulah ( )
• kalo dah selesai…. okeh…!!! Buka Modules yang sudah ditambahkan dan kemudian ketikkan koding dibawah ini.

Source Kode Program dibuat di module

Public MyDB As New ADODB.Connection
Public KONEKSI As String
Public StrUser As String
Public StrPwd As String
Public StrDB As String
Public Strsrv As String
Public File_Con As String, SQL As String, pesan As String

Private Sub Main()
If Dir(App.Path & “\Konektor.txt”) = “Konektor.txt” Then
GO_MENU
Else
FrmNew.Show
End If
End Sub

‘ ini gunanya untuk membuat file notepad…..!!! yar koneksinya kita ga sering-sering gitu loh

Sub Create_Con()
Dim kondisi As String
File_Con = App.Path & “\Konektor.txt”
Open File_Con For Output As #1   ‘Buka file text
Strsrv = FrmNew.txtserver.Text
StrPwd = FrmNew.txtpass.Text
StrUser = FrmNew.txtuser.Text
StrDB = FrmNew.txtdb.Text
Print #1, Strsrv ‘Modify; Baris; Pertama
Print #1, StrUser ‘Modify; Baris; Ketiga
Print #1, StrPwd ‘Modify; Baris; Keempat
Print #1, StrDB ‘Modify; Baris; Kedua
Print #1, kondisi
Close #1
End Sub

Sub Load_Con()
File_Con = App.Path & “\Konektor.txt”
Open File_Con For Input As #1
Line Input #1, Strsrv
Line Input #1, StrUser
Line Input #1, StrPwd
Line Input #1, StrDB
Close #1
End Sub

Sub GO_MENU()
On Error GoTo pesan
Load_Con ‘ ini memanggil fungsi load_con
With MyDB
KONEKSI = “Provider=SQLOLEDB.1;” & _
“Password=” & StrPwd & “;” & _
“User ID=” & StrUser & “;” & _
“Initial Catalog =” & StrDB & “;” & _
“Data Source=” & Strsrv & “”
.CursorLocation = 3
.Open KONEKSI
If .State = adStateOpen Then
‘Menu.Show
FrmLogin.Show
Else
MsgBox “CONECTION VIEW ERROR”, vbCritical + vbOKOnly, “ERROR”
End If
End With
Exit Sub
pesan:
MsgBox Err.Description, vbOKOnly + vbCritical, “ERROR”
FrmNew.Show
End Sub

Setelah itu Masukkan Kode Program ini di Form Koneksi

Private Sub Cmdconek_Click()
On Error GoTo eror
StrPwd = txtpass.Text
StrUser = txtuser.Text
StrDB = txtdb.Text
Strsrv = txtserver.Text
If txtpass.Text = “” Or txtuser.Text = “” Or txtdb.Text = “” Or txtserver.Text = “” Then
MsgBox “Empty Connecting server “, vbInformation + vbOKOnly, “Connection”
txtserver.SetFocus
Exit Sub
End If
Create_Con
Screen.MousePointer = vbHourglass
With MyDB
KONEKSI = “Provider=SQLOLEDB.1;” & _
“Password=” & StrPwd & “;” & _
“User ID=” & StrUser & “;” & _
“Initial Catalog =” & StrDB & “;” & _
“Data Source=” & Strsrv & “”
.CursorLocation = 3
.Open KONEKSI
If .State = adStateOpen Then
FrmLogin.Show
Unload Me
Else
MsgBox “CONECTION VIEW ERROR”, vbCritical + vbOKOnly, “ERROR”
End If
End With
Screen.MousePointer = vbDefault
Exit Sub
eror:
MsgBox Err.Description, vbInformation + vbOKOnly, “Connection”
bersih
FrmNew.Show
Screen.MousePointer = vbDefault
End Sub

Private Sub cmdexit_Click()
End
End Sub

Sub bersih() ‘ ini fungsi memberihkan text… ini variable kita buat ndiri…. tapi diingat ya…..
Dim OBJEK As Variant
For Each OBJEK In Me
If TypeOf OBJEK Is TextBox Then
OBJEK.Text = “”
End If
Next

End Sub

Private Sub Picture2_Click()
Call bersih: txtserver.SetFocus
End Sub

Selesai sudah…!! cuman itu doang kog..!!! Cara Kerja Program diatas gini… pada saat program dijalankan… startupnya ada dimodule, pada Private Sub Main Kemudian Akan Langsung membaca File notepad yang dipadukan sebagai tempat koneksi database. jika file didalam file notepad itu tidak sesuai dengan nama server, user id , password dan nama database yang ada di SQL server maka aplikasi akan menampilkan pesan bahwa koneksi kedatabase error. dan kemudian akan dilanjutkan ke form Koneksi untuk membuat koneksi baru..!! kemudian isikan field-Field yang ada di Form Koneksi..dan kemudian Klik Konek,

Mungkin sampai dsini aja dulu artikel ini, berhubung karena saya sudah ngantuk dan capek… jadi jikalaw, seandainyam, andaikata, apabila. ( hahaha…. ) saya ada salah ketik dan salah omong saya mohon maaf sebesar-besarnya. sekian dari saya dan terimakasih banyak

Hasil Tampilan Laporan :

Dua Minggu lalu aku lagi banti teman yang lagi nyelesaiin Tugas Akhir, dial lagi buat sistem aplikasi persediaan Stock obat, tapi dia bingung mo nampilin laporannya. Masalahnya Laporannya Pertanggal dan No Faktur. Katanya dia koding kodingnya agak reda-reda lupa …!! J J  (katanya…!!!

Terus dia dating kerumah maksudnya kost, dia nanya Gima cara menampilkan Laporan di Crystal Report Berdasarkan Tanggal. Kebetulan aku juga agak reda-reda lupa…!! Ta’ cari-cari dinternet…!!banyak banget…!! tapi ga taw mo pilih cara yang mana. Bingung!!!. Cari kesana-kesini, minjem buku dari perpus. Tanya teman juga ga ngerti. Mo browsing kebetulan Dompet Kosong TOTAL (WADUH,,,!!!) Berhubung karena kodingnya agak reda-reda lupa, dang dompet….!!!!!Akhirnya coba-coba aja….!!! Alhamdulillah dapet juga!!! So…jadi saya posting aja deh…!! Sapa taw ada yang lupa seperti saya dan bermaanfaat bagi kita semua.

OK . let start it  now…!!!!!

• Pertama-tama siapkan satu tabel transaksi yang anda buat. Disini saya menampilkan laporan Transaksi Masuk dan keluarnya Obat.

• Kemudian desain satu Laporan Transaksi tersebut dengan menggunakan Cystal Report 8.5. ataw versi diatas juga lebih bagus..!!! Example

• setelah anda selesai menesain Laporan Tersebut Buka Software Visual Basic anda. Disini saya mengunakan Versi 6.0 . siapkan satu Form untuk seting tanggal yang ingin ditampilkan. Contohnya seperti dibawah ini:

• Berikut Objek yang ditambah dalam form tersebut

Toolbox	Properties	Value
1 Form	Width	7980
	Height	3375
	Name	FrmLaporan
1 Picture Box	Width	2805
	Height	2805
	Name	PicLatar
2 Label	Label1.Caption	Cetak Laporan Obat Keluar/ Masuk dari tanggal S/D
	Label2.caption
2 DTPicker	Name	Dt.Awal (seting Nilai Properties)
	Name	DtAkhir
2 CummonButton	Name	CmdPreview
	Name	CmdCancel
`1 CrViewer	Width	2805
	Height	2805
	Name	CrViewer1
	Visible	False
1 Modules	Name	ModConnection
Nb : jika Objek DTPicker tidak ada di Toolbox, anda harus menginstall terlebih dahulu dengan cara Menu Project èComponentsè cari objek yang ingin ditambahkan.

• OK!! Sekar ang anda tinggal masukkan senjata ampuhnya….alias listing Programannya!! .. silahkan  ketik koding dibawah in

v Ketikkan Koding ini di modKonnection

Public KONEKSI As String

Public MyDB As New ADODB.Connection

Private Sub Main()

On Error GoTo PESAN

With MyDB

KONEKSI = “Provider=SQLOLEDB.1;” & _

“Password=” & sambungpassword & “;” & _

“User ID=” & sambungUserID & “;” & _

“Initial Catalog =” & sambungDB & “;” & _

“Data Source=” & sambungoperator & “”

.CursorLocation = 3

.Open KONEKSI

If .State = adStateOpen Then

‘FrmLogin.Show

Menu.Show

Else

MsgBox “CONNECTION VIEW ERROR”, vbOKOnly + vbInformation, “KONEKSI BARU”

End If

End With

Exit Sub

PESAN:

MsgBox “ERROR 010 :” & vbTab & Err.Description & vbCrLf & ” BUAT KONEKSI BARU “, vbCritical + vbOKOnly, “ERROR”

End Sub

v Setelah itu ketikkan koding di Form (FrmLaporan)

Private Sub cmdprint_Click()

Dim RptKeluar As New LapTanggalMasuk

Dim RsKeluar As New ADODB.Recordset

If dtawal.Value > dtakhir.Value Then

MsgBox “Tanggal Mulai tidak boleh lebih kecil dari tanggal akhir”,   vbInformation, “PRINT”

dtawal.SetFocus

Exit Sub

End If

Screen.MousePointer = vbHourglass

StrSQL = “SELECT * FROM OBAT_MASUK where(Tanggal between ‘” & (Format(dtawal.Value, “mm/dd/yyyy”)) & “‘ and ‘” & ((Format(dtakhir.Value, “mm/dd/yyyy”))) & “‘)”

RsKeluar.Open StrSQL, MyDB, adOpenKeyset, adLockOptimistic

RptKeluar.ReportTitle = “LAPORAN OBAT MASUK/KELUAR DARI TANGGAL” &  vbCrLf & Format(dtawal.Value, “DD-MM-YYYY”) & space(3) & “S/D” & space(3) & Format(dtakhir.Value, “DD-MM-YYYY”)

RptKeluar.Database.SetDataSource RsKeluar

CRViewer1.Visible = True

CRViewer1.ReportSource = RptKeluar

CRViewer1.DisplayGroupTree = False

CRViewer1.DisplayToolbar = True

CRViewer1.ViewReport

CRViewer1.Zoom 100

Screen.MousePointer = vbDefault

pictgl.Visible = False

picobt.Visible = False

Me.WindowState = 2

End Sub

v Yang terakhir ketikkan koding ini di Cmd Batal

Private Sub Command2_Click()

Unload Me

End Sub

• Setelah selesai coba anda jalankan program yang telah kita buat….!! Jika berhasil.. hasilnya seperti dibawah ini:

• Setting Tanggal yang ingin di cetak dan kemudian click tombol PREVIEW maka hasilnya akan seperti gambar dibawah ini :

• 

Semoga Berhasil !!!!!

salam  { Erwinsyah Mth }