itemsellprice.~dfm

this is sample for traders

object item_priceform: Titem_priceform
  Left = 291
  Top = 190
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = ' Edit Harga ...'
  ClientHeight = 345
  ClientWidth = 377
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox2: TGroupBox
    Left = 8
    Top = 144
    Width = 361
    Height = 153
    Caption = ' HARGA.JUAL '
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Dina'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object SellpriceGrid: TJvDBUltimGrid
      Left = 8
      Top = 16
      Width = 345
      Height = 129
      Color = 16119285
      DataSource = dsItemprice
      FixedColor = 14408667
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Dina'
      Font.Style = []
      Options = [dgEditing, dgTitles, dgIndicator, dgColLines, dgRowLines, dgCancelOnExit]
      ParentFont = False
      PopupMenu = PopupMenu1
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = 'Dina'
      TitleFont.Style = []
      OnDrawColumnCell = SellpriceGridDrawColumnCell
      OnKeyDown = SellpriceGridKeyDown
      AutoAppend = False
      PostOnEnterKey = True
      TitleArrow = True
      SelectColumnsDialogStrings.Caption = 'Select columns'
      SelectColumnsDialogStrings.RealNamesOption = '[With the real field name]'
      SelectColumnsDialogStrings.OK = '&OK'
      SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
      CanDelete = False
      EditControls = <
        item
          ControlName = 'dbneSellprice'
          FieldName = 'SELLPRICE'
          FitCell = fcCellSize
          LeaveOnEnterKey = True
          LeaveOnUpDownKey = True
        end>
      RowsHeight = 17
      TitleRowHeight = 20
      SortWith = swFields
      Columns = <
        item
          Expanded = False
          FieldName = 'MIN'
          Title.Alignment = taCenter
          Width = 45
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'MAX'
          Title.Alignment = taCenter
          Width = 45
          Visible = True
        end
        item
          Alignment = taRightJustify
          Expanded = False
          FieldName = 'CURR'
          PickList.Strings = (
            'RP'
            'USD'
            'SGD')
          Title.Alignment = taCenter
          Title.Caption = '$'
          Title.Font.Charset = ANSI_CHARSET
          Title.Font.Color = clBlack
          Title.Font.Height = -13
          Title.Font.Name = 'Arial'
          Title.Font.Style = [fsBold]
          Width = 55
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'SELLPRICE'
          Title.Alignment = taRightJustify
          Title.Caption = '@ HRG.JUAL'
          Width = 85
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'SAT'
          Title.Alignment = taCenter
          Width = 50
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'DEFAU'
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = 'D'
          Width = 20
          Visible = True
        end>
    end
    object dbneSellprice: TDBNumEdit
      Left = 184
      Top = 64
      Width = 73
      Height = 23
      AutoSize = False
      Color = clInfoBk
      Decimal = True
      DisplayFormat = '#,###.##'
      DataField = 'SELLPRICE'
      DataSource = dsItemprice
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Dina'
      Font.Style = []
      MaxLength = 20
      ParentFont = False
      TabOrder = 1
      Visible = False
      OnExit = dbneSellpriceExit
    end
    object JvDBLookupCombo3: TJvDBLookupCombo
      Left = 120
      Top = 64
      Width = 49
      Height = 23
      DataField = 'CURR'
      DataSource = dsItemprice
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Courier New'
      Font.Style = []
      LookupField = 'CURR'
      LookupDisplay = 'CURR'
      ParentFont = False
      TabOrder = 2
      Visible = False
    end
    object dbneMin: TDBNumEdit
      Left = 24
      Top = 66
      Width = 41
      Height = 23
      AutoSize = False
      Color = clInfoBk
      DisplayFormat = '#,###'
      DataField = 'MIN'
      DataSource = dsItemprice
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Courier New'
      Font.Style = []
      MaxLength = 20
      ParentFont = False
      TabOrder = 3
      Visible = False
    end
    object dbneMax: TDBNumEdit
      Left = 72
      Top = 66
      Width = 41
      Height = 23
      AutoSize = False
      Color = clInfoBk
      DisplayFormat = '#,###'
      DataField = 'MAX'
      DataSource = dsItemprice
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Courier New'
      Font.Style = []
      MaxLength = 20
      ParentFont = False
      TabOrder = 4
      Visible = False
    end
  end
  object Panel1: TPanel
    Left = 8
    Top = 4
    Width = 361
    Height = 65
    Color = 14408667
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Dina'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object ST1: TJvStaticText
      Left = 8
      Top = 8
      Width = 345
      Height = 23
      Alignment = taCenter
      AutoSize = False
      BevelKind = bkFlat
      Caption = 'Kode Item'
      Color = 16119285
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = 'Dina'
      Font.Style = [fsBold]
      HotTrackFont.Charset = ANSI_CHARSET
      HotTrackFont.Color = clWindowText
      HotTrackFont.Height = -13
      HotTrackFont.Name = 'Dina'
      HotTrackFont.Style = []
      Layout = tlCenter
      ParentColor = False
      ParentFont = False
      TabOrder = 0
      TextMargins.X = 5
      TextMargins.Y = 0
      WordWrap = False
    end
    object ST2: TJvStaticText
      Left = 8
      Top = 32
      Width = 345
      Height = 23
      Alignment = taCenter
      AutoSize = False
      BevelKind = bkFlat
      Caption = 'Nama Item - Ukuran'
      Color = 16119285
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = 'Dina'
      Font.Style = []
      HotTrackFont.Charset = ANSI_CHARSET
      HotTrackFont.Color = clWindowText
      HotTrackFont.Height = -13
      HotTrackFont.Name = 'Dina'
      HotTrackFont.Style = []
      Layout = tlCenter
      ParentColor = False
      ParentFont = False
      TabOrder = 1
      TextMargins.X = 5
      TextMargins.Y = 0
      WordWrap = False
    end
  end
  object Panel2: TPanel
    Left = 8
    Top = 76
    Width = 361
    Height = 65
    Enabled = False
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Dina'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    object AddBtn: TSpeedButton
      Left = 328
      Top = 10
      Width = 25
      Height = 49
      Enabled = False
      Glyph.Data = {
        E6000000424DE60000000000000076000000280000000F0000000E0000000100
        04000000000070000000130B0000130B00001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
        8880888888888888888088888888888888808888880008888880888888070888
        8880888888070888888088800007000088808880777777708880888000070000
        8880888888070888888088888807088888808888880008888880888888888888
        88808888888888888880}
      OnClick = AddBtnClick
    end
    object JvStaticText4: TJvStaticText
      Left = 8
      Top = 10
      Width = 97
      Height = 23
      Alignment = taCenter
      AutoSize = False
      BevelKind = bkFlat
      Caption = 'Satuan'
      Color = clBtnFace
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      HotTrackFont.Charset = ANSI_CHARSET
      HotTrackFont.Color = clWindowText
      HotTrackFont.Height = -11
      HotTrackFont.Name = 'Tahoma'
      HotTrackFont.Style = []
      Layout = tlCenter
      ParentColor = False
      ParentFont = False
      TabOrder = 0
      TextMargins.X = 5
      TextMargins.Y = 0
      WordWrap = False
    end
    object JvDBLookupCombo1: TJvDBLookupCombo
      Left = 200
      Top = 34
      Width = 49
      Height = 23
      DataField = 'CURR'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12