sales.dfm

this is sample for traders

      Width = 45
      Height = 23
      Alignment = taCenter
      AutoSize = False
      BevelKind = bkFlat
      Caption = 'KALI'
      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 = 9
      TextMargins.X = 5
      TextMargins.Y = 0
      WordWrap = False
    end
  end
  object GroupBox3: TGroupBox
    Left = 8
    Top = 108
    Width = 761
    Height = 197
    Color = 12961221
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Dina'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
    TabOrder = 2
    object LineGrid: TJvDBUltimGrid
      Left = 2
      Top = 18
      Width = 757
      Height = 177
      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 = fcCellSize
          LeaveOnEnterKey = True
          LeaveOnUpDownKey = True
        end
        item
          ControlName = 'dbneD2'
          FieldName = 'DISC_2'
          FitCell = fcCellSize
          LeaveOnEnterKey = True
          LeaveOnUpDownKey = True
        end
        item
          ControlName = 'dbneQTY'
          FieldName = 'QTY'
          FitCell = fcCellSize
          LeaveOnEnterKey = True
          LeaveOnUpDownKey = True
        end
        item
          ControlName = 'LkSat'
          FieldName = 'SAT'
          FitCell = fcCellSize
        end>
      AutoSizeRows = False
      RowsHeight = 20
      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 = 'PRICE'
          ReadOnly = True
          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 = 'QTY'
          Title.Alignment = taRightJustify
          Width = 45
          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 = '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 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 = 2
      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 = 3
      Visible = False
      OnChange = LkSatChange
    end
  end
  object btnSave: TBitBtn
    Left = 112
    Top = 432
    Width = 93
    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 = 8
    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 JvStaticText3: TJvStaticText
    Left = 396
    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 JvDBGrid1: TJvDBGrid
    Left = 8
    Top = 308
    Width = 397
    Height = 37
    BorderStyle = bsNone
    Color = clBtnFace
    Ctl3D = False
    DataSource = dsItemBySales
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    Options = [dgTitles, dgIndicator, dgColumnResize, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
    ParentCtl3D = False
    ParentFont = False
    ReadOnly = True
    TabOrder = 7
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -13
    TitleFont.Name = 'Dina'
    TitleFont.Style = [fsBold]
    SelectColumnsDialogStrings.Caption = 'Select columns'
    SelectColumnsDialogStrings.OK = '&OK'
    SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!'
    CanDelete = False
    EditControls = <>
    RowsHeight = 17
    TitleRowHeight = 20
    Columns = <
      item
        Expanded = False
        FieldName = 'ITEMNAME'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ONHAND'
        Width = 64
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'HITSALDO'
        Width = 75
        Visible = True
      end>
  end
  object LineSource: TDataSource
    DataSet = DM1.qSalesline
    Left = 144
    Top = 180
  end
  object SjLgnSource: TDataSource
    DataSet = DM1.lgnBySales
    OnDataChange = SjLgnSourceDataChange
    Left = 172
    Top = 180
  end
  object dsSales: TDataSource
    DataSet = DM1.qSales
    OnDataChange = dsSalesDataChange
    Left = 116
    Top = 180
  end
  object dsSalesman: TDataSource
    DataSet = DM1.qPegawai
    Left = 200
    Top = 180
  end
  object dsSatItem: TDataSource
    DataSet = DM1.tbSat
    Left = 256
    Top = 180
  end
  object dsItemBySales: TDataSource
    DataSet = DM1.ItemBySales
    Left = 228
    Top = 180
  end
  object frxReport1: TfrxReport
    Version = '3.18'
    DotMatrixReport = True
    EngineOptions.PrintIfEmpty = False
    EngineOptions.SilentMode = True
    EngineOptions.NewSilentMode = simSilent
    IniFile = '\Software\Fast Reports'
    PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator]
    PreviewOptions.Zoom = 1.000000000000000000
    PrintOptions.Printer = 'Default'
    ReportOptions.CreateDate = 39030.724286446800000000
    ReportOptions.LastChange = 39462.876832314820000000
    ScriptLanguage = 'PascalScript'
    ScriptText.Strings = (
      'begin'
      ''
      'end.')
    ShowProgress = False
    StoreInDFM = False
    OnGetValue = frxReport1GetValue
    Left = 144
    Top = 208
    Datasets = <
      item
      end
      item
      end
      item
      end
      item
      end
      item
      end>
    Variables = <>
    Style = <>
  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 = 172
    Top = 208
  end
end