unit uFMain;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls, DBCtrls, Mask, Buttons, ExtCtrls;
type
  TFMain = class(TForm)
    adoCon: TADOConnection;
    qItem: TADOQuery;
    qItemID: TAutoIncField;
    qItemnm_barang: TWideStringField;
    qItemharga: TFloatField;
    qItemsKet: TWideStringField;
    dsItem: TDataSource;
    DBLookupComboBox1: TDBLookupComboBox;
    Label1: TLabel;
    Label2: TLabel;
    DBEdit1: TDBEdit;
    Edit1: TEdit;
    Edit2: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    BitBtn1: TBitBtn;
    Bevel1: TBevel;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  FMain: TFMain;
implementation
{$R .dfm}
procedure TFMain.FormCreate(Sender: TObject);
begin
  qItem.Open;
end;
procedure TFMain.BitBtn1Click(Sender: TObject);
begin
  Edit2.Text := FormatFloat('0.##',StrToFloat(Edit1.Text)  
    qItem.FieldByName('harga').AsFloat);
end;
end.

object FMain: TFMain
  Left = 192
  Top = 109
  Width = 321
  Height = 206
  Caption = 'Pricing by cyber_hecker'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = 
  OldCreateOrder = False
  Position = poScreenCenter
  ShowHint = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 16
    Top = 16
    Width = 75
    Height = 13
    Caption = 'Daftar Barang :'
  end
  object Label2: TLabel
    Left = 55
    Top = 40
    Width = 36
    Height = 13
    Caption = 'Harga :'
    FocusControl = DBEdit1
  end
  object Label3: TLabel
    Left = 51
    Top = 80
    Width = 40
    Height = 13
    Caption = 'Jumlah :'
  end
  object Label4: TLabel
    Left = 60
    Top = 104
    Width = 31
    Height = 13
    Caption = 'Total :'
  end
  object Bevel1: TBevel
    Left = 8
    Top = 8
    Width = 297
    Height = 129
  end
  object DBLookupComboBox1: TDBLookupComboBox
    Left = 104
    Top = 16
    Width = 193
    Height = 19
    Ctl3D = False
    KeyField = 'ID'
    ListField = 'sKet'
    ListSource = dsItem
    ParentCtl3D = False
    TabOrder = 0
  end
  object DBEdit1: TDBEdit
    Left = 104
    Top = 40
    Width = 134
    Height = 19
    TabStop = False
    Color = clInfoBk
    Ctl3D = False
    DataField = 'harga'
    DataSource = dsItem
    ParentCtl3D = False
    ReadOnly = True
    TabOrder = 1
  end
  object Edit1: TEdit
    Left = 104
    Top = 80
    Width = 121
    Height = 19
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 2
    Text = '0'
  end
  object Edit2: TEdit
    Left = 104
    Top = 104
    Width = 121
    Height = 19
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 3
    Text = '0'
  end
  object BitBtn1: TBitBtn
    Left = 224
    Top = 144
    Width = 75
    Height = 25
    Caption = 'Hitung'
    TabOrder = 4
    OnClick = BitBtn1Click
  end
  object adoCon: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=dbCyber.mdb;Persist' +
      ' Security Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 16
    Top = 128
  end
  object qItem: TADOQuery
    Connection = adoCon
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'SELECT tbBarang.ID, tbBarang.nm_barang, tbBarang.harga, [tbBaran' +
        'g]![ID] & '' - '' & [tbBarang]![nm_barang] AS sKet'
      'FROM tbBarang;')
    Left = 56
    Top = 128
    object qItemID: TAutoIncField
      FieldName = 'ID'
      ReadOnly = True
    end
    object qItemnm_barang: TWideStringField
      FieldName = 'nm_barang'
      Size = 50
    end
    object qItemharga: TFloatField
      FieldName = 'harga'
    end
    object qItemsKet: TWideStringField
      FieldName = 'sKet'
      ReadOnly = True
      Size = 255
    end
  end
  object dsItem: TDataSource
    DataSet = qItem
    Left = 72
    Top = 144
  end
end

DBLookupComboBox1.KeyValue := 3;