Aplikasi Monitoring Keuangan

Sahabat semua, dalam kesempatan kali ini saya mencoba membuat aplikasi untuk memonitoring/mengontrol pengeluaran keuangan standar bidang pemerintahan berbasis dekstop dan web. Aplikasi ini sudah saya implemetasikan pada OS windows XP & windows 8 enterprise.

sebelum anda melakukan instalasi terlebih dahulu anda haruang menginstall software pendukungnya yaitu XAMPP dan MySQL ODBC Driver 5.1 untuk aplikasinya anda bisa download di link di bawah ini

1. XAMPP
2. ODBC Driver
3. Database
4. ePayment Web V2.0
5. ePayment Dekstop V 1.0.15
6. Manual Installasi
7. Manual Operasional

Version 2 :

• Target Serapan
• Progres Pengeluaran perbulan, perkegiatan
• Perbadingan Target/Serapan
• Penambahan menu Planing & Perbadingan

Warning: Aplikasi ini boleh anda perbanyak, cetak, edit, print & modifikasi selama tetap mencantumkan URL dan Development Pertama dan Ke dua.

Conection VB My SQL Server with file externel (.ini)

Basic code:

Buat file external :

Open (App.Path & "\Conection.ini") For Output As #1

        Print #1, data yang disimpan

    Close #1

  ' format Conection.ini, format(.ini) bisa anda ganti sesuka anda misalkan "Conection.rhm" atau "Conection.db" dan lain-lain

   'jika anda merubah format filenya jangan lupa menyamkan format x pada sub "ReadKoneksi"

 

Sub ReadKoneksi()

'MEMBACA FILE CONFIG CONEKSI DATABASE

On Error GoTo err

        Open (App.Path & "\Conection.ini") For Input As #1

            While Not EOF(1)

            Input #1, judul

                Data file = Mid(judul, a + 1, Len(judul) - a)

            Wend

        Close #1

    Exit Sub

err:

End Sub

Data file adalah variable penampung daya yang dibaca dari file external

   

 Langkan pertama pilih add form pilih jenis form ODBC log in

Tambahkan 1 form lagi dan sisipkan Adodc dan Datagrid

Pada form 1 even  form load ketikkan kode

 

Private Sub Form_Load()

ReadKoneksi

KonekDatabase

'utuk window 7 tuliskan

Adodc1.ConnectionString = ConnString

'untuk window XP bias juga  di tulis

'Adodc1.ConnectionString = Conn.ConnectionString

Adodc1.RecordSource = "Nama_Tabel"

Set DataGrid1.DataSource = Adodc1

End Sub

kenudian buat module

=====================

||      Buat module

======================= 

Public Conn As New ADODB.Connection

Public ConnString As String

Sub KonekDatabase()

On Error GoTo err

With Conn

    .ConnectionString = ConnString

    .Open

End With

On Error GoTo 0

Exit Sub

err:

    MsgBox "Ada kesalahan dengan server, periksa apakah server sudah berjalan !", vbInformation, "Cek Server"

End Sub

Public Sub CloseDB()

 If Conn.State = adStateOpen Or ConnSIAK.State = adStateConnecting Then

   Conn.Close

   Set Conn = Nothing

End If

End Sub

Sub ReadKoneksi()

'MEMBACA FILE CONFIG CONEKSI DATABASE

On Error GoTo err

        Open (App.Path & "\Conection.ini") For Input As #1

            While Not EOF(1)

            Input #1, judul

                ConnString = Mid(judul, a + 1, Len(judul) - a)

            Wend

        Close #1

    Exit Sub

err:

End Sub

 

 

untuk lebik jelasnya download Project dan artikel nya:
Setting koneksi Vb My SQL Server dengan file external.pdf

Project Conection Vb My SQL Server

Conection Visual Basic 6.0 My SQL 3.2.0.1

Langkah Pertama Buat database di SQL
create database latvb6csr;
= Table structure for table pendaftar

|------
|Field|Type|Null|Default
|------
|NO|int(11)|Yes|NULL
|NIK|varchar(16)|Yes|NULL
|NAMA|varchar(45)|Yes|NULL
|ALAMAT|varchar(50)|Yes|NULL
|RT|varchar(3)|Yes|NULL
|TTD|varchar(255)|Yes|NULL
|KETERANGAN|varchar(255)|Yes|NULL
|KELURAHAN|varchar(25)|Yes|NULL
|TANGGAL|datetime|Yes|NULL
|PETUGAS|varchar(25)|Yes|NULL
== Dumping data for table pendaftar


Buat Project baru dan disain form sebagai berikut

Buat Module isikan kode berikut
Public Conn As New ADODB.Connection
________________________________________
Private Sub buat_koneksi()
Dim ConnString As String
Dim db_name As String
Dim db_server As String
Dim db_port As String
Dim db_user As String
Dim db_pass As String
'//error traping
On Error GoTo buat_koneksi_Error
'/isi variable
db_name = FrmConection.TxtDbName 'nama database
db_server = FrmConection.TxtServer 'ganti jika server anda ada di komputer lain
db_port = FrmConection.TxtPort 'default port is 3306
db_user = FrmConection.TxtUser 'sebaiknya pakai username lain.
db_pass = FrmConection.TxtPassword 'password_anda
'/buat connection string
ConnString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=" & db_server & ";DATABASE=" & db_name & ";UID=" & db_user & ";PWD=" & db_pass & ";PORT=" & db_port & ";OPTION=3"
'/buka koneksi
With Conn
.ConnectionString = ConnString
.Open
End With


'___________________________________________________________
On Error GoTo 0
Exit Sub

buat_koneksi_Error:
MsgBox "Ada kesalahan dengan server, periksa apakah server sudah berjalan !", vbInformation, "Cek Server"
FrmConection.Show
End Sub
________________________________________
Sub Conect()
buat_koneksi
End Sub

Form Conection
Private Sub Command1_Click()
Timer1.Interval = 0
Unload FrmReport
Me.Hide
FrmReport.Show
End Sub
________________________________________
Private Sub Command2_Click()
Me.Hide
End Sub
________________________________________
Private Sub Form_Load()
Timer1.Interval = 100
End Sub
________________________________________
Private Sub Timer1_Timer()
Me.Show
End Sub
________________________________________
Form 2
Option Explicit
Dim rsPendaftar As ADODB.Recordset
________________________________________
Private Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
Adodc1.Caption = "Index = " & Adodc1.Recordset.AbsolutePosition & " Count = " & Adodc1.Recordset.RecordCount & " Source : " & Adodc1.Recordset.Source
End Sub
________________________________________
Private Sub Command1_Click()
End
End Sub
________________________________________


Private Sub DataGrid1_Click()
Adodc1.Caption = "Index = " & Adodc1.Recordset.AbsolutePosition & " Count = " & Adodc1.Recordset.RecordCount & " Source : " & Adodc1.Recordset.Source
End Sub
________________________________________
Private Sub DataGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
Adodc1.Caption = "Index = " & Adodc1.Recordset.AbsolutePosition & " Count = " & Adodc1.Recordset.RecordCount & " Source : " & Adodc1.Recordset.Source
End Sub
________________________________________
Private Sub DataGrid1_KeyUp(KeyCode As Integer, Shift As Integer)
Adodc1.Caption = "Index = " & Adodc1.Recordset.AbsolutePosition & " Count = " & Adodc1.Recordset.RecordCount & " Source : " & Adodc1.Recordset.Source
End Sub
________________________________________
Private Sub Form_Load()
Conect
Adodc1.ConnectionString = Conn
Adodc1.RecordSource = "Pendaftar"
Set DataGrid1.DataSource = Adodc1
'Adodc1.Caption = "Index = " & Adodc1.Recordset.CursorLocation & " Count = " & Adodc1.Recordset.RecordCount & " Source : " & Adodc1.Recordset.Source
End Sub
________________________________________
Private Sub Form_Resize()
On Error Resume Next
DataGrid1.Width = Me.Width - 500
DataGrid1.Height = Me.Height - 2545
Adodc1.Top = Me.Height - 900
Adodc1.Width = Me.Width - 500
End Sub
________________________________________
Private Sub Form_Unload(Cancel As Integer)
If Conn.State = adStateOpen Or Conn.State = adStateConnecting Then
Conn.Close
Set Conn = Nothing
End If
End Sub


Conectio SQL.rar