sales.~dfm

this is sample for traders

object SalesForm: TSalesForm
  Left = 192
  Top = 110
  Align = alCustom
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = ' Surat Pesanan (SP) '
  ClientHeight = 468
  ClientWidth = 777
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Dina'
  Font.Style = [fsBold]
  FormStyle = fsMDIChild
  KeyPreview = True
  OldCreateOrder = False
  Position = poDefaultPosOnly
  ScreenSnap = True
  Visible = True
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox4: TGroupBox
    Left = 504
    Top = 304
    Width = 265
    Height = 161
    TabOrder = 3
    object Bevel1: TBevel
      Left = 8
      Top = 100
      Width = 249
      Height = 2
    end
    object JvStaticText1: TJvStaticText
      Left = 8
      Top = 16
      Width = 113
      Height = 23
      Alignment = taRightJustify
      AutoSize = False
      BevelKind = bkFlat
      Caption = 'T O T A L :'
      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
      ParentFont = False
      TabOrder = 0
      TextMargins.X = 5
      TextMargins.Y = 0
      WordWrap = False
    end
    object DBEdit1: TDBEdit
      Left = 128
      Top = 16
      Width = 129
      Height = 23
      TabStop = False
      AutoSize = False
      Color = 16119285
      Ctl3D = True
      DataField = 'TRTOTAL'
      DataSource = dsSales
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = 'Dina'
      Font.Style = []
      ParentCtl3D = False
      ParentFont = False
      ReadOnly = True
      TabOrder = 1
    end
    object JvStaticText5: TJvStaticText
      Left = 8
      Top = 72
      Width = 113
      Height = 23
      Alignment = taRightJustify
      AutoSize = False
      BevelKind = bkFlat
      Caption = 'S I S A :'
      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
      ParentFont = False
      TabOrder = 2
      TextMargins.X = 5
      TextMargins.Y = 0
      WordWrap = False
    end
    object DBEdit2: TDBEdit
      Left = 128
      Top = 72
      Width = 129
      Height = 23
      TabStop = False
      AutoSize = False
      Color = 16119285
      Ctl3D = True
      DataField = 'CSISA'
      DataSource = dsSales
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = 'Dina'
      Font.Style = []
      ParentCtl3D = False
      ParentFont = False
      ReadOnly = True
      TabOrder = 3
    end
    object JvStaticText4: TJvStaticText
      Left = 8
      Top = 44
      Width = 113
      Height = 23
      Alignment = taRightJustify
      AutoSize = False
      BevelKind = bkFlat
      Caption = 'U.MUKA :'
      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
      ParentFont = False
      TabOrder = 4
      TextMargins.X = 5
      TextMargins.Y = 0
      WordWrap = False
    end
    object JvStaticText9: TJvStaticText
      Left = 8
      Top = 132
      Width = 113
      Height = 23
      Alignment = taRightJustify
      AutoSize = False
      BevelKind = bkFlat
      Caption = 'J.ANGSURAN :'
      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
      ParentFont = False
      TabOrder = 5
      TextMargins.X = 5
      TextMargins.Y = 0
      WordWrap = False
    end
    object DBEdit3: TDBEdit
      Left = 128
      Top = 132
      Width = 129
      Height = 23
      TabStop = False
      AutoSize = False
      Color = 16119285
      Ctl3D = True
      DataField = 'CJANG'
      DataSource = dsSales
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -13
      Font.Name = 'Dina'
      Font.Style = []
      ParentCtl3D = False
      ParentFont = False
      ReadOnly = True
      TabOrder = 6
    end
    object dbneDP: TDBNumEditAlt
      Left = 128
      Top = 44
      Width = 129
      Height = 23
      AutoSize = False
      Color = clInfoBk
      Decimal = True
      DisplayFormat = '#,###.##'
      DataField = 'TRDP'
      DataSource = dsSales
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Dina'
      Font.Style = []
      MaxLength = 20
      ParentFont = False
      TabOrder = 7
    end
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 0
    Width = 313
    Height = 105
    Caption = ' Konsumen '
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Dina'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    object LgnEdit: TJvDBComboEdit
      Left = 8
      Top = 20
      Width = 65
      Height = 23
      BeepOnError = False
      CharCase = ecUpperCase
      ClickKey = 112
      DataField = 'LGNCODE'
      DataSource = dsSales
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Dina'
      Font.Style = []
      ImageKind = ikEllipsis
      ParentFont = False
      ParentShowHint = False
      ShowHint = False
      TabOrder = 0
      OnButtonClick = PickLgnNo
      ClipboardCommands = []
    end
    object Memo1: TMemo
      Left = 76
      Top = 20
      Width = 229
      Height = 77
      TabStop = False
      Color = clBtnFace
      Ctl3D = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentCtl3D = False
      ParentFont = False
      ReadOnly = True
      ScrollBars = ssVertical
      TabOrder = 1
    end
  end
  object GB2: TGroupBox
    Left = 328
    Top = 0
    Width = 441
    Height = 105
    Caption = ' SP '
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Dina'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    object SPNOEDIT: TDBEdit
      Left = 212
      Top = 12
      Width = 113
      Height = 23
      TabStop = False
      AutoSize = False
      BevelInner = bvLowered
      BevelKind = bkFlat
      CharCase = ecUpperCase
      Color = clBtnFace
      Ctl3D = True
      DataField = 'TRNO'
      DataSource = dsSales
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'Dina'
      Font.Style = [fsBold]
      ParentCtl3D = False
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
    end
    object SJDateEdit: TJvDBDateEdit
      Left = 332
      Top = 12
      Width = 101
      Height = 23
      TabStop = False
      BeepOnError = False
      DataField = 'TRDATE'
      DataSource = dsSales
      ClickKey = 112
      DefaultToday = True
      DialogTitle = 'Tgl Nota'
      BiDiMode = bdRightToLeft
      ParentBiDiMode = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Dina'
      Font.Style = []
      ParentFont = False
      PopupColor = 55807
      YearDigits = dyFour
      TabOrder = 1
      ClipboardCommands = []
    end
    object JvStaticText2: TJvStaticText
      Left = 68
      Top = 42
      Width = 89
      Height = 23
      Alignment = taRightJustify
      AutoSize = False
      BevelKind = bkFlat
      Caption = 'J.Tempo :'
      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
      ParentFont = False
      TabOrder = 2
      TextMargins.X = 5
      TextMargins.Y = 0
      WordWrap = False
    end
    object JvStaticText7: TJvStaticText
      Left = 68
      Top = 12
      Width = 141
      Height = 23
      Alignment = taRightJustify
      AutoSize = False
      BevelKind = bkFlat
      Caption = 'SP-NO :'
      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 = 3
      TextMargins.X = 5
      TextMargins.Y = 0
      WordWrap = False
    end
    object LkJtempo: TJvDBLookupCombo
      Left = 160
      Top = 42
      Width = 95
      Height = 23
      DisplayAllFields = True
      DataField = 'JTEMPO'
      DataSource = dsSales
      DisplayEmpty = '= J.Tempo='
      EmptyValue = '0'
      EmptyItemColor = 16119285
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Dina'
      Font.Style = []
      LookupField = 'J_TEMPO'
      LookupDisplay = 'J_TEMPO'
      LookupSource = DM1.dsJtempo
      ParentFont = False
      TabOrder = 4
    end
    object JvStaticText6: TJvStaticText
      Left = 8
      Top = 74
      Width = 81
      Height = 23
      AutoSize = False
      BevelKind = bkFlat
      Caption = 'Dealer :'
      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 = 5
      TextMargins.X = 5
      TextMargins.Y = 0
      WordWrap = False
    end
    object LKSalesman: TJvDBLookupCombo
      Left = 92
      Top = 74
      Width = 341
      Height = 23
      DisplayAllFields = True
      DataField = 'PEGNIP'
      DataSource = dsSales
      DisplayEmpty = '== Pilih Dealer =='
      EmptyValue = '0'
      EmptyItemColor = 16119285
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Dina'
      Font.Style = []
      LookupField = 'PEGNIP'
      LookupDisplay = 'PEGNIP;PEGNAME'
      LookupSource = dsSalesman
      ParentFont = False
      TabOrder = 6
    end
    object JvStaticText8: TJvStaticText
      Left = 260
      Top = 42
      Width = 89
      Height = 23
      Alignment = taRightJustify
      AutoSize = False
      BevelKind = bkFlat
      Caption = 'ANGSURAN :'
      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
      ParentFont = False
      TabOrder = 7
      TextMargins.X = 5
      TextMargins.Y = 0
      WordWrap = False
    end
    object JCCEdit: TDBNumEdit
      Left = 352
      Top = 42
      Width = 33
      Height = 23
      AutoSize = False
      Color = 16119285
      DisplayFormat = '###'
      DataField = 'ANGSURAN'
      DataSource = dsSales
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Dina'
      Font.Style = []
      MaxLength = 3
      ParentFont = False
      TabOrder = 8
    end
    object JvStaticText10: TJvStaticText
      Left = 388
      Top = 42