editem.~dfm

this is sample for traders

object edItemForm: TedItemForm
  Left = 192
  Top = 107
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = 'Edit Item'
  ClientHeight = 281
  ClientWidth = 618
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Dina'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poMainFormCenter
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 618
    Height = 232
    Align = alClient
    Color = clBtnFace
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 0
    object Panel3: TPanel
      Left = 8
      Top = 24
      Width = 245
      Height = 41
      Align = alCustom
      Alignment = taLeftJustify
      BevelInner = bvRaised
      BevelOuter = bvLowered
      Caption = ' Kode :'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Dina'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      object btnChange: TButton
        Left = 208
        Top = 10
        Width = 25
        Height = 23
        Caption = '#'
        Enabled = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
      end
      object dbedCode: TDBEdit
        Left = 48
        Top = 10
        Width = 153
        Height = 23
        CharCase = ecUpperCase
        Color = clInfoBk
        DataField = 'ITEMCODE'
        DataSource = dsActive
        Enabled = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clRed
        Font.Height = -12
        Font.Name = 'Dina'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 0
      end
    end
    object JvStaticText1: TJvStaticText
      Left = 256
      Top = 24
      Width = 173
      Height = 23
      Alignment = taRightJustify
      AutoSize = False
      BevelKind = bkFlat
      Caption = 'Grup :'
      Color = clBtnFace
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      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 = 7
      TextMargins.X = 5
      TextMargins.Y = 0
      WordWrap = False
    end
    object JvStaticText2: TJvStaticText
      Left = 256
      Top = 48
      Width = 173
      Height = 23
      Alignment = taRightJustify
      AutoSize = False
      BevelKind = bkFlat
      Caption = 'Brand/Merek/Pabrik :'
      Color = clBtnFace
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      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 = 8
      TextMargins.X = 5
      TextMargins.Y = 0
      WordWrap = False
    end
    object ChkSerialBox: TDBCheckBox
      Left = 112
      Top = 80
      Width = 69
      Height = 17
      Caption = 'Serial'
      DataField = 'SERIAL'
      DataSource = dsActive
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Dina'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = False
      TabOrder = 3
      ValueChecked = '1'
      ValueUnchecked = '0'
    end
    object JvStaticText3: TJvStaticText
      Left = 8
      Top = 104
      Width = 109
      Height = 23
      Alignment = taRightJustify
      AutoSize = False
      BevelKind = bkFlat
      Caption = 'Nama item :'
      Color = clBtnFace
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      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 = 9
      TextMargins.X = 5
      TextMargins.Y = 0
      WordWrap = False
    end
    object dbedFoto: TJvDBImage
      Left = 432
      Top = 80
      Width = 177
      Height = 145
      Hint = 'Klik Kanan Untuk Menu Foto !'
      DataField = 'FOTO'
      DataSource = dsActive
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 6
      Proportional = True
    end
    object JvStaticText4: TJvStaticText
      Left = 8
      Top = 128
      Width = 109
      Height = 23
      Alignment = taRightJustify
      AutoSize = False
      BevelKind = bkFlat
      Caption = 'Ukuran :'
      Color = clBtnFace
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      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 = 10
      TextMargins.X = 5
      TextMargins.Y = 0
      WordWrap = False
    end
    object JvStaticText5: TJvStaticText
      Left = 8
      Top = 152
      Width = 109
      Height = 23
      Alignment = taRightJustify
      AutoSize = False
      BevelKind = bkFlat
      Caption = 'Sat :'
      Color = clBtnFace
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      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 = 11
      TextMargins.X = 5
      TextMargins.Y = 0
      WordWrap = False
    end
    object dbedName: TDBEdit
      Left = 120
      Top = 104
      Width = 257
      Height = 23
      CharCase = ecUpperCase
      DataField = 'ITEMNAME'
      DataSource = dsActive
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Dina'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
    end
    object dbedSize: TDBEdit
      Left = 120
      Top = 128
      Width = 145
      Height = 23
      CharCase = ecUpperCase
      DataField = 'SIZENAME'
      DataSource = dsActive
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Dina'
      Font.Style = []
      ParentFont = False
      TabOrder = 5
    end
    object JvDBLookupCombo1: TJvDBLookupCombo
      Left = 432
      Top = 24
      Width = 177
      Height = 23
      DataField = 'GRUPCODE'
      DataSource = dsActive
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Dina'
      Font.Style = []
      LookupField = 'GRUPCODE'
      LookupDisplay = 'GRUPNAME'
      LookupSource = dsGrup
      ParentFont = False
      TabOrder = 1
    end
    object JvDBLookupCombo2: TJvDBLookupCombo
      Left = 432
      Top = 48
      Width = 177
      Height = 23
      DataField = 'BRANDCODE'
      DataSource = dsActive
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Dina'
      Font.Style = []
      LookupField = 'BRANDCODE'
      LookupDisplay = 'BRANDNAME'
      LookupSource = dsBrand
      ParentFont = False
      TabOrder = 2
    end
    object JvDBLookupCombo3: TJvDBLookupCombo