BAB 19

BAB XIX. FILTER

unit UnitBab19;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, DB, DBTables;
type
  TForm1 = class(TForm)
    TBTRANSB: TTable;
    Dstransb: TDataSource;
    Dbgtransb: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;
    EDNOFAKL: TEdit;
    EDNOFAKH: TEdit;
    CTAMPIL: TButton;
    CSELESAI: TButton;
    procedure CSELESAIClick(Sender: TObject);
    procedure CTAMPILClick(Sender: TObject);
    procedure EDNOFAKLChange(Sender: TObject);
    procedure EDNOFAKHChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.CSELESAIClick(Sender: TObject);
begin
application.terminate;
end;
procedure TForm1.CTAMPILClick(Sender: TObject);
begin
TBTRANSB.INDEXNAME:='SNOTA';
TBTRANSB.SETRANGE([EDNOFAKL.text], [EDNOFAKH.Text]);
end;
procedure TForm1.EDNOFAKLChange(Sender: TObject);
begin
BTAMPIL.DEFAULT:=TRUE;
end;
procedure TForm1.EDNOFAKHChange(Sender: TObject);
begin
BTAMPIL.DEFAULT:=TRUE;
end;
end.

HASIL PROGRAM: