unit uFMain;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls, Buttons;
type
  TFMain = class(TForm)
    ADOConnection1: TADOConnection;
    QTrans: TADOQuery;
    QTransID: TAutoIncField;
    QTransno_faktur: TWideStringField;
    QTranskd_brg: TWideStringField;
    QTransjml_jual: TSmallintField;
    QTranshrg_brg: TFloatField;
    dsTrans: TDataSource;
    DBGrid1: TDBGrid;
    QLookup: TADOQuery;
    QLookupkd_brg: TWideStringField;
    QLookupnm_brg: TWideStringField;
    QLookupsatuan: TWideStringField;
    dsLookup: TDataSource;
    QTransloNmBrg: TStringField;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    procedure DBGrid1EditButtonClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  FMain: TFMain;
implementation
uses uFBantu;
{$R .dfm}
procedure TFMain.DBGrid1EditButtonClick(Sender: TObject);
begin
  if DBGrid1.SelectedField.FieldName = 'kd_brg' then begin
    FBantu := TFBantu.Create(Self);
    with FBantu do begin
      QBantu.Open;
      ShowModal;                                         
      if ModalResult = mrOk then begin
        if QTrans.State in [dsBrowse] then QTrans.Edit;
        QTrans['kd_brg'] := QBantu['kd_brg'];
        QTrans['loNmBrg'] := QBantu['nm_brg'];
        Self.DBGrid1.Fields[2].FocusControl;
      end;
      QBantu.Close;
      Free;
    end;
  end;
end;
procedure TFMain.FormShow(Sender: TObject);
begin
  with QTrans do begin
    CursorType := ctStatic;
    LockType := ltBatchOptimistic;
    Open;
  end;
end;
procedure TFMain.BitBtn1Click(Sender: TObject);
begin
  with QTrans do begin
    UpdateBatch();
  end;
end;
procedure TFMain.BitBtn2Click(Sender: TObject);
begin
  if MessageDlg('Anda Yakin Ingin Menghapus Data ?',
    mtWarning,[mbYes, mbNo],0) = mrYes then begin
    QTrans.Delete;
    QTrans.UpdateBatch();
  end;
end;
end.

unit uFBantu;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Grids, DBGrids, DB, ADODB;
type
  TFBantu = class(TForm)
    QBantu: TADOQuery;
    dsBantu: TDataSource;
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    QBantukd_brg: TWideStringField;
    QBantunm_brg: TWideStringField;
    QBantusatuan: TWideStringField;
    procedure DBGrid1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  FBantu: TFBantu;
implementation
uses uFMain;
{$R  .dfm}
procedure TFBantu.DBGrid1DblClick(Sender: TObject);
begin
  ModalResult := mrOK;
end;
end.