edpegawai.dfm

this is sample for traders

object edPegawaiForm: TedPegawaiForm
  Left = 194
  Top = 109
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = ' Edit Pegawai '
  ClientHeight = 468
  ClientWidth = 777
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'Dina'
  Font.Style = []
  FormStyle = fsMDIChild
  KeyPreview = True
  OldCreateOrder = False
  Position = poDefaultPosOnly
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 15
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 777
    Height = 417
    Align = alTop
    TabOrder = 0
    object Panel3: TPanel
      Left = 8
      Top = 16
      Width = 269
      Height = 41
      Align = alCustom
      Alignment = taLeftJustify
      BevelInner = bvRaised
      BevelOuter = bvLowered
      Caption = '  N.I.P :'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Dina'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      object btnChange: TButton
        Left = 236
        Top = 9
        Width = 25
        Height = 23
        Caption = '#'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
      end
      object DBEDCODE: TDBEdit
        Left = 80
        Top = 9
        Width = 153
        Height = 24
        Color = clInfoBk
        DataField = 'PEGNIP'
        DataSource = dsActive
        Enabled = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'Dina'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
      end
    end
    object JvStaticText3: TJvStaticText
      Left = 8
      Top = 104
      Width = 157
      Height = 23
      Alignment = taRightJustify
      AutoSize = False
      BevelKind = bkFlat
      Caption = 'Nama :'
      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 = 1
      TextMargins.X = 5
      TextMargins.Y = 0
      WordWrap = False
    end
    object dbedName: TDBEdit
      Left = 172
      Top = 104
      Width = 321
      Height = 23
      CharCase = ecUpperCase
      DataField = 'PEGNAME'
      DataSource = dsActive
      TabOrder = 2
    end
    object JvStaticText1: TJvStaticText
      Left = 340
      Top = 48
      Width = 153
      Height = 23
      Alignment = taRightJustify
      AutoSize = False
      BevelKind = bkFlat
      Caption = 'Jabatan :'
      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 JvStaticText2: TJvStaticText
      Left = 340
      Top = 24
      Width = 153
      Height = 23
      Alignment = taRightJustify
      AutoSize = False
      BevelKind = bkFlat
      Caption = 'Department :'
      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 = 4
      TextMargins.X = 5
      TextMargins.Y = 0
      WordWrap = False
    end
    object JvStaticText4: TJvStaticText
      Left = 8
      Top = 64
      Width = 157
      Height = 23
      Alignment = taRightJustify
      AutoSize = False
      BevelKind = bkFlat
      Caption = 'Tgl-Aktif :'
      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 JvDBLookupCombo1: TJvDBLookupCombo
      Left = 500
      Top = 48
      Width = 153
      Height = 23
      DataField = 'JABATAN'
      DataSource = dsActive
      LookupField = 'JBTID'
      LookupDisplay = 'JABATAN'
      LookupSource = dsJabatan
      TabOrder = 6
    end
    object JvDBLookupCombo2: TJvDBLookupCombo
      Left = 500
      Top = 24
      Width = 153
      Height = 23
      DataField = 'DEPARTMENT'
      DataSource = dsActive
      LookupField = 'DPTID'
      LookupDisplay = 'DPTNAME'
      LookupSource = dsDepartment
      TabOrder = 7
    end
    object JvDBDateEdit2: TJvDBDateEdit
      Left = 172
      Top = 64
      Width = 105
      Height = 23
      BeepOnError = False
      DataField = 'HIREDATE'
      DataSource = dsActive
      ButtonWidth = 23
      PopupColor = 55807
      YearDigits = dyFour
      TabOrder = 8
      ClipboardCommands = []
    end
    object JvStaticText5: TJvStaticText
      Left = 500
      Top = 80
      Width = 85
      Height = 23
      Alignment = taCenter
      AutoSize = False
      BevelKind = bkFlat
      Caption = 'J.Kelamin'
      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 = 9
      TextMargins.X = 5
      TextMargins.Y = 0
      WordWrap = False
    end
    object JvStaticText6: TJvStaticText
      Left = 8
      Top = 136
      Width = 157
      Height = 23
      Alignment = taRightJustify
      AutoSize = False
      BevelKind = bkFlat
      Caption = 'Jenis.Identitas :'
      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 = 10
      TextMargins.X = 5
      TextMargins.Y = 0
      WordWrap = False
    end
    object JvStaticText7: TJvStaticText
      Left = 244
      Top = 136
      Width = 125
      Height = 23
      Alignment = taRightJustify
      AutoSize = False
      BevelKind = bkFlat
      Caption = 'No.Identitas :'
      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 = 11
      TextMargins.X = 5
      TextMargins.Y = 0
      WordWrap = False
    end
    object JvStaticText8: TJvStaticText
      Left = 8
      Top = 168
      Width = 157
      Height = 23
      Alignment = taRightJustify
      AutoSize = False
      BevelKind = bkFlat
      Caption = 'Alamat :'
      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 = 12
      TextMargins.X = 5
      TextMargins.Y = 0
      WordWrap = False
    end
    object JvStaticText9: TJvStaticText
      Left = 8