transaction.frm

This application i made for handle simple finance this project using VB 6.0, SQL Server 2000 wit

VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomct2.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{D18BBD1F-82BB-4385-BED3-E9D31A3E361E}#1.0#0"; "KewlButtonz.ocx"
Begin VB.Form frmTransaction 
   BackColor       =   &H00FBF7F4&
   Caption         =   "Transaction"
   ClientHeight    =   6300
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   10575
   BeginProperty Font 
      Name            =   "Verdana"
      Size            =   8.25
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "Transaction.frx":0000
   MDIChild        =   -1  'True
   ScaleHeight     =   420
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   705
   WindowState     =   2  'Maximized
   Begin KewlButtonz.KewlButtons btnView 
      Height          =   315
      Left            =   2325
      TabIndex        =   2
      Top             =   135
      Width           =   1290
      _ExtentX        =   2275
      _ExtentY        =   556
      BTYPE           =   3
      TX              =   "Vie&w"
      ENAB            =   -1  'True
      BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      COLTYPE         =   1
      FOCUSR          =   -1  'True
      BCOL            =   15002603
      BCOLO           =   15002603
      FCOL            =   0
      FCOLO           =   0
      MCOL            =   12632256
      MPTR            =   1
      MICON           =   "Transaction.frx":0EBA
      UMCOL           =   -1  'True
      SOFT            =   0   'False
      PICPOS          =   0
      NGREY           =   0   'False
      FX              =   0
      HAND            =   0   'False
      CHECK           =   0   'False
      VALUE           =   0   'False
   End
   Begin MSComctlLib.ImageList imgList 
      Left            =   9750
      Top             =   5475
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   16
      ImageHeight     =   14
      MaskColor       =   14480885
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   1
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "Transaction.frx":0ED6
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.ListView lvTransaction 
      Height          =   5565
      Left            =   120
      TabIndex        =   3
      Top             =   600
      Width           =   10290
      _ExtentX        =   18150
      _ExtentY        =   9816
      View            =   3
      LabelEdit       =   1
      LabelWrap       =   -1  'True
      HideSelection   =   0   'False
      FullRowSelect   =   -1  'True
      GridLines       =   -1  'True
      _Version        =   393217
      SmallIcons      =   "imgList"
      ForeColor       =   -2147483640
      BackColor       =   -2147483643
      BorderStyle     =   1
      Appearance      =   0
      NumItems        =   0
   End
   Begin MSComCtl2.DTPicker dtPeriode 
      Height          =   315
      Left            =   1050
      TabIndex        =   1
      Top             =   150
      Width           =   1140
      _ExtentX        =   2011
      _ExtentY        =   556
      _Version        =   393216
      CustomFormat    =   "yyyy-MM"
      Format          =   20643843
      CurrentDate     =   38982
   End
   Begin VB.Label lblForm 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "&Periode:"
      Height          =   195
      Index           =   0
      Left            =   150
      TabIndex        =   0
      Top             =   195
      Width           =   720
   End
End
Attribute VB_Name = "frmTransaction"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private lx As MSComctlLib.ListItem
Public sMenu As SelectedSubMenu

Private Sub btnView_Click()

  btnView.Enabled = False

  Call FillTransaction(CInt(dtPeriode.Year), CInt(dtPeriode.Month))
  Call ResetMenu

  btnView.Enabled = True

End Sub

Private Sub Form_Activate()

  lastColumnIndex = 0
  mdiDefault.ihdDefault.Text = Me.Caption

End Sub

Private Sub Form_Load()

  dtPeriode.Value = Now

  sMenu = SelectedSubMenu.None
  Call SetHeader

  Call btnView_Click

End Sub

Private Sub Form_Unload(Cancel As Integer)

  mdiDefault.tmrClose.Enabled = True

End Sub

Private Sub Form_Resize()
On Error Resume Next

  lvTransaction.Width = Me.ScaleWidth - 20
  lvTransaction.Height = Me.ScaleHeight - 50

End Sub

Private Sub SetHeader()

  With lvTransaction.ColumnHeaders
    Call .Add(, , "No Bukti", 120)
    Call .Add(, , "Tanggal", 90, ListColumnAlignmentConstants.lvwColumnCenter)
    Call .Add(, , "Dibayarkan", 150)
    Call .Add(, , "Sistem Bayar")
  End With

End Sub

Private Sub lvTransaction_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)

  Call SortColumn(lvTransaction, ColumnHeader.Index)

End Sub

Private Sub lvTransaction_KeyDown(KeyCode As Integer, Shift As Integer)

  If ((KeyCode = 93) Or ((Shift = 1) And (KeyCode = 121))) Then

    sMenu = SelectedSubMenu.None

    Call PopupMenu(mdiDefault.mnTransaction, , lvTransaction.Left + 5, lvTransaction.Top + 10)
    Call ShowSelectedForm

  End If

End Sub

Private Sub ResetMenu()

  If (lvTransaction.ListItems.Count = 0) Then
    mdiDefault.mnSubTransaction(1).Enabled = False
    mdiDefault.mnSubTransaction(2).Enabled = False
    mdiDefault.mnSubTransaction(4).Enabled = False
  Else
    mdiDefault.mnSubTransaction(1).Enabled = True
    mdiDefault.mnSubTransaction(2).Enabled = True
    mdiDefault.mnSubTransaction(4).Enabled = True
  End If

End Sub

Private Sub FillTransaction(ByVal cYear As Integer, ByVal cMonth As Integer)
On Error GoTo NoAccout

  Call lvTransaction.ListItems.Clear

  comm.CommandText = "select * from TransactionView where (year(TanggalEntry) = " & cYear & ") and (month(TanggalEntry) = " & cMonth & ");"
  comm.CommandType = CommandTypeEnum.adCmdText

  Call conn.Open
  comm.ActiveConnection = conn

    Set rs = comm.Execute()

    Do While (Not (rs.EOF()))
      Set lx = lvTransaction.ListItems.Add(, , CStr(rs("NoBukti")), , 1)
        Call lx.ListSubItems.Add(, , CStr(Format(rs("TanggalEntry"), DATEFORMAT)))
        Call lx.ListSubItems.Add(, , CStr(rs("Dibayarkan")))
        Call lx.ListSubItems.Add(, , CStr(rs("SistemBayar")))

      lx.Tag = CStr(rs("NamaBank")) & "