purc.dfm

this is sample for traders

    Top = 100
    Width = 761
    Height = 273
    Color = 12961221
    ParentColor = False
    TabOrder = 2
    object LineGrid: TJvDBUltimGrid
      Left = 2
      Top = 15
      Width = 757
      Height = 256
      Align = alClient
      BorderStyle = bsNone
      Color = 16119285
      Ctl3D = False
      DataSource = LineSource
      FixedColor = 14408667
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Dina'
      Font.Style = []
      Options = [dgEditing, dgTitles, dgIndicator, dgRowLines, dgCancelOnExit]
      ParentCtl3D = False
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -13
      TitleFont.Name = 'Dina'
      TitleFont.Style = [fsBold]
      OnEditButtonClick = PickPartNo
      OnKeyDown = LineGridKeyDown
      OnKeyPress = LineGridKeyPress
      AutoAppend = False
      AutoSort = False
      FixedCols = 1
      TitleButtons = True
      PostOnEnterKey = True
      TitleArrow = True
      ShowCellHint = True
      SelectColumnsDialogStrings.Caption = 'Select columns'
      SelectColumnsDialogStrings.RealNamesOption = '[With the real field name]'
      SelectColumnsDialogStrings.OK = '&OK'
      SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
      EditControls = <
        item
          ControlName = 'dbneD1'
          FieldName = 'DISC_1'
          FitCell = fcBiggest
        end
        item
          ControlName = 'dbneD2'
          FieldName = 'DISC_2'
          FitCell = fcBiggest
        end
        item
          ControlName = 'dbneQTY'
          FieldName = 'QTY'
          FitCell = fcBiggest
        end
        item
          ControlName = 'LkSat'
          FieldName = 'SAT'
          FitCell = fcCellSize
        end
        item
          ControlName = 'dbnePrice'
          FieldName = 'PRICE'
          FitCell = fcBiggest
          LeaveOnEnterKey = True
          LeaveOnUpDownKey = True
        end>
      RowsHeight = 17
      TitleRowHeight = 20
      SortWith = swFields
      Columns = <
        item
          Expanded = False
          FieldName = 'LINENO'
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = 'NO'
          Width = 25
          Visible = True
        end
        item
          ButtonStyle = cbsEllipsis
          Expanded = False
          FieldName = 'ITEMCODE'
          Title.Alignment = taCenter
          Title.Caption = 'KODE-ITEM'
          Width = 135
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ITEMNAME'
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = 'NAMA-ITEM'
          Width = 200
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'SAT'
          Title.Alignment = taCenter
          Width = 50
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'QTY'
          Title.Alignment = taRightJustify
          Width = 45
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'PRICE'
          Title.Alignment = taRightJustify
          Title.Caption = '@ HRG.BELI'
          Width = 85
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'DISC_1'
          Title.Alignment = taRightJustify
          Title.Caption = 'D%1'
          Width = 45
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'DISC_2'
          Title.Alignment = taRightJustify
          Title.Caption = 'D%2'
          Width = 45
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CSUBTOTAL'
          ReadOnly = True
          Title.Alignment = taRightJustify
          Title.Caption = 'JUMLAH'
          Width = 95
          Visible = True
        end>
    end
    object dbneD1: TDBNumEdit
      Left = 552
      Top = 56
      Width = 41
      Height = 20
      AutoSize = False
      Color = clCream
      Decimal = True
      DisplayFormat = '##.##'
      DataField = 'DISC_1'
      DataSource = LineSource
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Dina'
      Font.Style = []
      MaxLength = 20
      ParentFont = False
      TabOrder = 1
      Visible = False
      OnExit = dbneD1Exit
    end
    object dbneD2: TDBNumEdit
      Left = 600
      Top = 56
      Width = 41
      Height = 20
      AutoSize = False
      Color = clCream
      Decimal = True
      DisplayFormat = '##.##'
      DataField = 'DISC_2'
      DataSource = LineSource
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Dina'
      Font.Style = []
      MaxLength = 20
      ParentFont = False
      TabOrder = 2
      Visible = False
      OnExit = dbneD2Exit
    end
    object dbneQTY: TDBNumEdit
      Left = 504
      Top = 56
      Width = 41
      Height = 20
      AutoSize = False
      Color = clCream
      Decimal = True
      DisplayFormat = '###.##'
      DataField = 'QTY'
      DataSource = LineSource
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Dina'
      Font.Style = []
      MaxLength = 20
      ParentFont = False
      TabOrder = 3
      Visible = False
      OnExit = dbneQTYExit
      OnKeyPress = dbneQTYKeyPress
    end
    object LkSat: TJvDBLookupCombo
      Left = 448
      Top = 56
      Width = 49
      Height = 23
      DataField = 'SAT'
      DataSource = LineSource
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Dina'
      Font.Style = []
      LookupField = 'UNITNAME'
      LookupDisplay = 'UNITNAME'
      LookupSource = dsSatItem
      ParentFont = False
      TabOrder = 4
      Visible = False
      OnChange = LkSatChange
    end
    object dbnePrice: TDBNumEdit
      Left = 408
      Top = 88
      Width = 89
      Height = 20
      AutoSize = False
      Color = clCream
      Decimal = True
      DisplayFormat = '#,###.##'
      DataField = 'PRICE'
      DataSource = LineSource
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Dina'
      Font.Style = []
      MaxLength = 20
      ParentFont = False
      TabOrder = 5
      Visible = False
      OnExit = dbneQTYExit
      OnKeyPress = dbneQTYKeyPress
    end
  end
  object btnSave: TBitBtn
    Left = 108
    Top = 432
    Width = 91
    Height = 33
    Caption = '&Oke'
    Enabled = False
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ModalResult = 1
    ParentFont = False
    TabOrder = 4
    OnClick = btnSaveClick
    Glyph.Data = {
      26050000424D260500000000000036040000280000000F0000000F0000000100
      080000000000F00000000000000000000000000100000001000000000000FFFF
      FF009BDEFF00D5F1FF00BEE9FF00CAEDFF0090DAFF007CD3FF00F2FBFF00E0F5
      FF00B3E5FF0085D6FF008FDAFF00E9F8FF00B2E5FF0085D7FF00A7E2FF009BDD
      FF00A6E2FF00FAFDFF00BEEAFF00A7E1FF00BFE9FF00EAF8FF00B2E6FF0073D1
      FF00D6F1FF007BD3FF00A6E1FF006CCEFF0073D0FF00E0F4FF00CBEDFF00F9FD
      FF006BCEFF00B3E6FF009ADDFF0090D9FF008FD9FF00DFF5FF00CBEEFF00F9FE
      FF0066CCFF00CAEEFF00F3FAFF00000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000010000000000
      0000000000000000010000010100132C0D000000000001010000000101000817
      2700000000000101000000012900171F03000000000021010000001308000000
      0000000000000813000000080D091A051618040503090D080000000D09032B14
      0E1C0A1605030917000000090305040E1511100A04201A1F0000000320040E12
      020C02101814050300000028040A1002060F0C24150A0405000000140E1C110C
      0B1B0F0602150A16000000231202060F1B1E070B0602121800000010020C0B07
      191D19070F06111200000011260B0719222A1D1E070B25020000010000000000
      00000000000000000100}
  end
  object btnCancel: TBitBtn
    Left = 4
    Top = 432
    Width = 97
    Height = 33
    Caption = '&Cancel'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ModalResult = 2
    ParentFont = False
    TabOrder = 5
    OnClick = btnCancelClick
    Glyph.Data = {
      DE000000424DDE0000000000000076000000280000000D0000000D0000000100
      04000000000068000000000000000000000010000000100000000000B800FFFF
      FF00FFFFFF000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000200000000000
      2000000000000000000000000000000000000001100011000000000011011000
      0000000001110000000000000010000000000000011100000000000011011000
      0000000110001100000000000000000000000000000000000000200000000000
      2000}
  end
  object JvStaticText7: TJvStaticText
    Left = 280
    Top = 432
    Width = 105
    Height = 33
    Alignment = taCenter
    AutoSize = False
    BevelKind = bkFlat
    Caption = 'F1 - Cari'
    Color = 830714
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    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 = 6
    TextMargins.X = 5
    TextMargins.Y = 0
    WordWrap = False
  end
  object JvStaticText3: TJvStaticText
    Left = 392
    Top = 432
    Width = 105
    Height = 33
    Alignment = taCenter
    AutoSize = False
    BevelKind = bkFlat
    Caption = 'F5 - Bonus Item'
    Color = 830714
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    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 = 7
    TextMargins.X = 5
    TextMargins.Y = 0
    WordWrap = False
  end
  object LineSource: TDataSource
    DataSet = DM1.qPurcLine
    Left = 288
    Top = 168
  end
  object PurcSplSource: TDataSource
    DataSet = DM1.SplByPurc
    OnDataChange = PurcSplSourceDataChange
    Left = 288
    Top = 200
  end
  object dsPurc: TDataSource
    DataSet = DM1.qPurc
    OnDataChange = dsPurcDataChange
    Left = 256
    Top = 168
  end
  object dsSatItem: TDataSource
    DataSet = DM1.qSatItem
    Left = 288
    Top = 232
  end
  object spDynamicSkinForm1: TspDynamicSkinForm
    ShowIcon = False
    MaximizeOnFullScreen = False
    ShowObjectHint = False
    UseSkinCursors = False
    DefCaptionFont.Charset = ANSI_CHARSET
    DefCaptionFont.Color = clPurple
    DefCaptionFont.Height = -13
    DefCaptionFont.Name = 'Tahoma'
    DefCaptionFont.Style = [fsBold]
    DefInActiveCaptionFont.Charset = ANSI_CHARSET
    DefInActiveCaptionFont.Color = clBtnShadow
    DefInActiveCaptionFont.Height = -13
    DefInActiveCaptionFont.Name = 'Tahoma'
    DefInActiveCaptionFont.Style = [fsBold]
    DefMenuItemHeight = 20
    DefMenuItemFont.Charset = ANSI_CHARSET
    DefMenuItemFont.Color = clWindowText
    DefMenuItemFont.Height = -13
    DefMenuItemFont.Name = 'Tahoma'
    DefMenuItemFont.Style = []
    UseDefaultSysMenu = True
    SupportNCArea = True
    AlphaBlendAnimation = False
    AlphaBlendValue = 200
    AlphaBlend = False
    MenusAlphaBlend = False
    MenusAlphaBlendAnimation = False
    MenusAlphaBlendValue = 200
    MinHeight = 0
    MinWidth = 0
    Sizeable = False
    DraggAble = False
    Magnetic = True
    MagneticSize = 10
    BorderIcons = []
    Left = 316
    Top = 232
  end
end