edlgnaddr.dfm

this is sample for traders

object LgnAddrForm: TLgnAddrForm
  Left = 232
  Top = 197
  Align = alCustom
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = ' Edit Alamat'
  ClientHeight = 248
  ClientWidth = 394
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = [fsBold]
  KeyPreview = True
  OldCreateOrder = False
  Position = poMainFormCenter
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 8
    Top = 4
    Width = 377
    Height = 209
    Caption = ' Alamat Details '
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Dina'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object JvStaticText1: TJvStaticText
      Left = 8
      Top = 28
      Width = 97
      Height = 23
      AutoSize = False
      BevelKind = bkFlat
      Caption = ' Nama Jalan : '
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Dina'
      Font.Style = []
      HotTrackFont.Charset = ANSI_CHARSET
      HotTrackFont.Color = clWindowText
      HotTrackFont.Height = -12
      HotTrackFont.Name = 'Dina'
      HotTrackFont.Style = []
      Layout = tlCenter
      ParentFont = False
      TabOrder = 0
      TextMargins.X = 0
      TextMargins.Y = 0
      WordWrap = False
    end
    object JvStaticText2: TJvStaticText
      Left = 8
      Top = 116
      Width = 97
      Height = 23
      AutoSize = False
      BevelKind = bkFlat
      Caption = ' Kota : '
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Dina'
      Font.Style = []
      HotTrackFont.Charset = ANSI_CHARSET
      HotTrackFont.Color = clWindowText
      HotTrackFont.Height = -12
      HotTrackFont.Name = 'Dina'
      HotTrackFont.Style = []
      Layout = tlCenter
      ParentFont = False
      TabOrder = 1
      TextMargins.X = 0
      TextMargins.Y = 0
      WordWrap = False
    end
    object JvStaticText3: TJvStaticText
      Left = 8
      Top = 144
      Width = 97
      Height = 23
      AutoSize = False
      BevelKind = bkFlat
      Caption = ' Kode Pos : '
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Dina'
      Font.Style = []
      HotTrackFont.Charset = ANSI_CHARSET
      HotTrackFont.Color = clWindowText
      HotTrackFont.Height = -12
      HotTrackFont.Name = 'Dina'
      HotTrackFont.Style = []
      Layout = tlCenter
      ParentFont = False
      TabOrder = 2
      TextMargins.X = 0
      TextMargins.Y = 0
      WordWrap = False
    end
    object JvStaticText4: TJvStaticText
      Left = 8
      Top = 172
      Width = 97
      Height = 23
      AutoSize = False
      BevelKind = bkFlat
      Caption = ' Negara : '
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Dina'
      Font.Style = []
      HotTrackFont.Charset = ANSI_CHARSET
      HotTrackFont.Color = clWindowText
      HotTrackFont.Height = -12
      HotTrackFont.Name = 'Dina'
      HotTrackFont.Style = []
      Layout = tlCenter
      ParentFont = False
      TabOrder = 3
      TextMargins.X = 0
      TextMargins.Y = 0
      WordWrap = False
    end
    object DBMemo1: TDBMemo
      Left = 112
      Top = 28
      Width = 249
      Height = 81
      DataField = 'ADDRESS'
      DataSource = dsAddr
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Dina'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
    end
    object DBEdit1: TDBEdit
      Left = 112
      Top = 116
      Width = 249
      Height = 23
      CharCase = ecUpperCase
      DataField = 'CITY'
      DataSource = dsAddr
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Dina'
      Font.Style = []
      ParentFont = False
      TabOrder = 5
    end
    object DBEdit2: TDBEdit
      Left = 112
      Top = 144
      Width = 249
      Height = 23
      CharCase = ecUpperCase
      DataField = 'POSCODE'
      DataSource = dsAddr
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Dina'
      Font.Style = []
      ParentFont = False
      TabOrder = 6
    end
    object DBEdit3: TDBEdit
      Left = 112
      Top = 172
      Width = 249
      Height = 23
      CharCase = ecUpperCase
      DataField = 'COUNTRY'
      DataSource = dsAddr
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Dina'
      Font.Style = []
      ParentFont = False
      TabOrder = 7
    end
  end
  object OkBtn: TBitBtn
    Left = 280
    Top = 216
    Width = 105
    Height = 25
    Caption = '&Ok'
    ModalResult = 1
    TabOrder = 1
    OnClick = OkBtnClick
  end
  object CancelBtn: TBitBtn
    Left = 160
    Top = 216
    Width = 105
    Height = 25
    Caption = '&Batal'
    ModalResult = 2
    TabOrder = 2
    OnClick = CancelBtnClick
  end
  object dsAddr: TDataSource
    DataSet = DM1.qEdLgn
    Left = 248
    Top = 72
  end
end