formdataentry.frm

create a chart graph using vb 6.0

VERSION 5.00
Begin VB.Form formDataEntry 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Data Entry"
   ClientHeight    =   3600
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5790
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   3600
   ScaleWidth      =   5790
   ShowInTaskbar   =   0   'False
   Begin VB.TextBox txtEditData 
      Height          =   285
      Left            =   2400
      TabIndex        =   4
      Top             =   120
      Width           =   1095
   End
   Begin VB.TextBox txtNewData 
      Height          =   285
      Left            =   600
      TabIndex        =   1
      Top             =   120
      Width           =   1095
   End
   Begin VB.ListBox lstData 
      Columns         =   6
      Height          =   2985
      Left            =   120
      TabIndex        =   0
      Top             =   480
      Width           =   5535
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "Edit :"
      Height          =   195
      Left            =   1920
      TabIndex        =   3
      Top             =   120
      Width           =   360
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "New :"
      Height          =   195
      Left            =   120
      TabIndex        =   2
      Top             =   120
      Width           =   420
   End
End
Attribute VB_Name = "formDataEntry"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Form_Load()
    prtCPk.mnuDataEntry.Enabled = False
    RefreshList
End Sub

Private Sub Form_Unload(Cancel As Integer)
    prtCPk.mnuDataEntry.Enabled = True
End Sub

Private Sub lstData_Click()
    Dim tmp As String
    Dim pos As Integer
    
    tmp = lstData.Text
    pos = InStr(1, tmp, ")")
    tmp = Right(tmp, Len(tmp) - pos)
    txtEditData.Text = tmp
End Sub

Private Sub lstData_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode <> 46 Then Exit Sub
    'Jika tombol Delete ditekan maka data di-delete
    Dim ListIdx As Integer
    ListIdx = lstData.ListIndex
    If ListIdx < 0 Then Exit Sub
    CPkDataBank.DelItem ListIdx
    txtEditData.Text = ""
    RefreshList
End Sub

Private Sub txtEditData_GotFocus()
    txtEditData.SelStart = 0
    txtEditData.SelLength = Len(txtEditData.Text)
End Sub

Private Sub txtEditData_KeyPress(KeyAscii As Integer)
    Dim ListStr As String, ListIdx As Integer, tmp As String
    
    If KeyAscii <> 13 Then Exit Sub
    tmp = txtEditData.Text
    If Not IsNumeric(tmp) Then
        MsgBox "Harus diisi bilangan"
        Exit Sub
    End If
    ListIdx = lstData.ListIndex + 1
    If ListIdx = 0 Then Exit Sub
    ListStr = ListIdx & ")" & tmp
    lstData.List(lstData.ListIndex) = ListStr
    CPkDataBank.Edit ListIdx - 1, CDbl(tmp)
    txtEditData_GotFocus
End Sub

Private Sub txtNewData_GotFocus()
    txtNewData.SelStart = 0
    txtNewData.SelLength = Len(txtNewData.Text)
End Sub

Private Sub txtNewData_KeyPress(KeyAscii As Integer)
    Dim DataStr As String, ListIndex As Integer
    
    If KeyAscii <> 13 Then Exit Sub
    DataStr = txtNewData.Text
    If Not IsNumeric(DataStr) Then
        MsgBox "Harus isi dengan bilangan"
    Else
        CPkDataBank.AppendData CDbl(DataStr)
        ListIndex = lstData.ListCount + 1
        DataStr = ListIndex & ")" & CDbl(DataStr)
        lstData.AddItem DataStr
    End If
    txtNewData_GotFocus
End Sub
Private Sub RefreshList()
    Dim Idx As Integer
    Dim ListIndex As Integer
    Dim DataValue As Double
    
    lstData.Clear
    With CPkDataBank
        For Idx = 0 To .DataCount - 1 Step 1
            ListIndex = Idx + 1
            DataValue = .DataItem(Idx)
            lstData.AddItem ListIndex & ")" & DataValue
        Next Idx
    End With
End Sub