salespay.dfm

this is sample for traders

object SalesPayForm: TSalesPayForm
  Left = 245
  Top = 186
  AutoScroll = False
  BorderIcons = []
  Caption = 'SalesPayForm'
  ClientHeight = 160
  ClientWidth = 447
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Dina'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object JvStaticText2: TJvStaticText
    Left = 7
    Top = 60
    Width = 206
    Height = 23
    Alignment = taRightJustify
    AutoSize = False
    BevelKind = bkFlat
    Caption = 'Kolektor :'
    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 = 0
    TextMargins.X = 5
    TextMargins.Y = 0
    WordWrap = False
  end
  object LKSalesman: TJvDBLookupCombo
    Left = 219
    Top = 60
    Width = 210
    Height = 23
    DisplayAllFields = True
    DataField = 'COLLECTOR'
    DataSource = dsPayEdit
    DisplayEmpty = '== Pilih Kolektor =='
    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 = dsPegawai
    ParentFont = False
    TabOrder = 3
  end
  object JvStaticText5: TJvStaticText
    Left = 8
    Top = 12
    Width = 205
    Height = 23
    Alignment = taRightJustify
    AutoSize = False
    BevelKind = bkFlat
    Caption = 'Tgl Bayar :'
    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 = 3
    TextMargins.Y = 0
    WordWrap = False
  end
  object JvStaticText1: TJvStaticText
    Left = 8
    Top = 36
    Width = 205
    Height = 23
    Alignment = taRightJustify
    AutoSize = False
    BevelKind = bkFlat
    Caption = 'Kwitansi NO :'
    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 = 3
    TextMargins.Y = 0
    WordWrap = False
  end
  object DBEdit1: TDBEdit
    Left = 220
    Top = 36
    Width = 161
    Height = 23
    AutoSize = False
    Color = 16119285
    Ctl3D = True
    DataField = 'KWINO'
    DataSource = dsPayEdit
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -13
    Font.Name = 'Dina'
    Font.Style = []
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 2
  end
  object JvFooter1: TJvFooter
    Left = 0
    Top = 131
    Width = 447
    Height = 29
    Align = alBottom
    AutoSize = True
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    DesignSize = (
      447
      29)
    object btnCancel: TJvFooterBtn
      Left = 122
      Top = 0
      Width = 95
      Height = 29
      Anchors = [akBottom]
      Cancel = True
      Caption = 'Batal'
      ModalResult = 2
      TabOrder = 0
      Alignment = taCenter
      HotTrackFont.Charset = ANSI_CHARSET
      HotTrackFont.Color = clWindowText
      HotTrackFont.Height = -11
      HotTrackFont.Name = 'Tahoma'
      HotTrackFont.Style = []
      Images = ImageList1
      ImageIndex = 0
      ButtonIndex = 0
      SpaceInterval = 6
    end
    object btnOk: TJvFooterBtn
      Left = 223
      Top = 0
      Width = 95
      Height = 29
      Anchors = [akBottom]
      Caption = 'Oke'
      ModalResult = 1
      TabOrder = 1
      OnClick = btnOkClick
      Alignment = taCenter
      HotTrackFont.Charset = ANSI_CHARSET
      HotTrackFont.Color = clWindowText
      HotTrackFont.Height = -11
      HotTrackFont.Name = 'Tahoma'
      HotTrackFont.Style = []
      Images = ImageList1
      ImageIndex = 1
      ButtonIndex = 1
      SpaceInterval = 6
    end
  end
  object SJDateEdit: TJvDBDateEdit
    Left = 220
    Top = 12
    Width = 109
    Height = 23
    BeepOnError = False
    DataField = 'PAYEDDATE'
    DataSource = dsPayEdit
    ClickKey = 112
    DefaultToday = True