unit uFCariDenda;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Grids, DBGrids, DB, ADODB;
type
  TFCariDenda = class(TForm)
    adoCon: TADOConnection;
    qDebet: TADOQuery;
    qDebetID: TAutoIncField;
    qDebetStudentID: TWideStringField;
    qDebetCategory: TWideStringField;
    qDebetAmount: TFloatField;
    dsDebet: TDataSource;
    DBGrid1: TDBGrid;
    edStudentID: TEdit;
    edCategory: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    btnFilter: TBitBtn;
    btnAll: TBitBtn;
    btnClose: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure btnFilterClick(Sender: TObject);
    procedure btnAllClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
const
  strQuery = 'SELECT  FROM tbDebet';
  
var
  FCariDenda: TFCariDenda;
implementation
{$R  .dfm}
procedure TFCariDenda.FormShow(Sender: TObject);
begin
  ( buka query secara keseluruhan  )
  with qDebet do begin
    SQL.Text := strQuery;
    Open;
  end;
  ( kosongkan edit box untuk pencarian  )
  edStudentID.Clear;
  edCategory.Clear;
end;
procedure TFCariDenda.btnFilterClick(Sender: TObject);
begin
  ( filter query berdasarkan kriteria yang diisi pada editbox  )
  with qDebet do begin
    Close;
    SQL.Text := strQuery;
    SQL.Append('WHERE Amount > 0');
    if edStudentID.Text <> '' then
      SQL.Append('AND StudentID = '+QuotedStr(edStudentID.Text));
    if edCategory.Text <> '' then
      SQL.Append('AND Category = '+QuotedStr(edCategory.Text));
    Open;
    if RecordCount < 1 then begin
      MessageDlg('Maaf Data Yang Dicari Tidak Ada !',mtWarning,[mbOK],0);
    end;
  end;
end;
procedure TFCariDenda.btnAllClick(Sender: TObject);
begin
  ( tampilkan semua data  )
  with qDebet do begin
    Close;
    SQL.Text := strQuery;
    Open;
  end;
end;
end.