lssales.dfm

this is sample for traders

object lsSalesForm: TlsSalesForm
  Left = 192
  Top = 107
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = ' Data Penjualan'
  ClientHeight = 463
  ClientWidth = 777
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  FormStyle = fsMDIChild
  KeyPreview = True
  OldCreateOrder = False
  Position = poDefaultPosOnly
  Visible = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox3: TGroupBox
    Left = 0
    Top = 0
    Width = 777
    Height = 441
    TabOrder = 0
    object ItemGrid: TJvDBUltimGrid
      Left = 8
      Top = 64
      Width = 761
      Height = 373
      Color = 16119285
      Ctl3D = True
      DataSource = dsActive
      FixedColor = 14408667
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Dina'
      Font.Style = []
      Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect, dgCancelOnExit]
      ParentCtl3D = False
      ParentFont = False
      PopupMenu = PopupMenu1
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = 'Dina'
      TitleFont.Style = [fsBold]
      OnDrawColumnCell = ItemGridDrawColumnCell
      OnKeyDown = ItemGridKeyDown
      AutoAppend = False
      TitleButtons = 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 = 'JvDBLookupCombo3'
          FieldName = 'SELLPRICE'
          FitCell = fcCellSize
        end>
      AutoSizeRows = False
      RowsHeight = 17
      TitleRowHeight = 20
      WordWrap = True
      SortWith = swFields
      Columns = <
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'TRDATE'
          Title.Alignment = taCenter
          Title.Caption = 'TANGGAL'
          Width = 75
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'TRNO'
          Title.Alignment = taCenter
          Title.Caption = 'NO-SP'
          Width = 90
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'LGNCODE'
          Title.Alignment = taCenter
          Title.Caption = 'LGN'
          Width = 35
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'NAMALGN'
          Width = 125
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'TRTOTAL'
          Title.Alignment = taRightJustify
          Title.Caption = 'SUB-TOTAL'
          Width = 90
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'TRDP'
          Title.Alignment = taRightJustify
          Title.Caption = 'U.MUKA'
          Width = 90
          Visible = True
        end
        item
          Color = clMoneyGreen
          Expanded = False
          FieldName = 'TRSISA'
          Title.Alignment = taRightJustify
          Title.Caption = 'J.KREDIT'
          Width = 90
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'PEGNAME'
          Title.Caption = 'DEALER'
          Width = 125
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'STATUS'
          Title.Alignment = taCenter
          Title.Caption = 'ST'
          Width = 30
          Visible = True
        end>
    end
    object JvStaticText5: TJvStaticText
      Left = 8
      Top = 12
      Width = 101
      Height = 23
      Alignment = taRightJustify
      AutoSize = False
      BevelKind = bkFlat
      Caption = 'Tgl Awal :'
      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 = 1
      TextMargins.X = 3
      TextMargins.Y = 0
      WordWrap = False
    end
    object JvStaticText1: TJvStaticText
      Left = 8
      Top = 36
      Width = 101
      Height = 23
      Alignment = taRightJustify
      AutoSize = False
      BevelKind = bkFlat
      Caption = 'Tgl Akhir :'
      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 = 3
      TextMargins.Y = 0
      WordWrap = False
    end
    object DTPicker1: TJvDateEdit
      Left = 112
      Top = 12
      Width = 104
      Height = 23
      ClickKey = 112
      DefaultToday = True
      DialogTitle = 'Tanggal'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Dina'
      Font.Style = []
      ParentFont = False
      PopupColor = 55807
      YearDigits = dyFour
      TabOrder = 3
      OnChange = DTPicker1Change
      ClipboardCommands = []
    end
    object DTPicker2: TJvDateEdit
      Left = 112
      Top = 36
      Width = 105
      Height = 23
      ClickKey = 112
      DefaultToday = True
      DialogTitle = 'Tanggal'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Dina'
      Font.Style = []
      ParentFont = False
      PopupColor = 55807
      YearDigits = dyFour
      TabOrder = 4
      OnChange = DTPicker2Change
      ClipboardCommands = []
    end
    object edFind: TEdit
      Left = 368
      Top = 36
      Width = 145
      Height = 23
      TabStop = False
      AutoSize = False
      CharCase = ecUpperCase
      Color = clInfoBk
      Ctl3D = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Dina'
      Font.Style = []
      MaxLength = 14
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 5
      OnChange = edFindChange
      OnKeyDown = edFindKeyDown
    end
    object JvStaticText6: TJvStaticText
      Left = 368
      Top = 12
      Width = 145
      Height = 23
      AutoSize = False
      BevelKind = bkFlat
      Caption = 'Cari : '
      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 = 6
      TextMargins.X = 3
      TextMargins.Y = 0
      WordWrap = False
    end
    object JvStaticText2: TJvStaticText
      Left = 520
      Top = 12
      Width = 249
      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 = 7
      TextMargins.X = 5