vcekgozlemi.pas

Basic Marketing stock Program

unit vcekgozlemi;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Grids, DBGrids;

type
  Tvcekgozlem = class(TForm)
    Panel1: TPanel;
    sec: TRadioGroup;
    DBGrid1: TDBGrid;
    procedure secClick(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  vcekgozlem: Tvcekgozlem;

implementation

Uses Unit1,Unitgenel;

{$R *.DFM}

procedure Tvcekgozlem.secClick(Sender: TObject);
Var
secenek:string;
begin
        secenek:='';
   case sec.ItemIndex of
        0: Begin
            dtaksit.CEKBT.Close;
            dtaksit.CEKBT.Filtered:=False;
            secenek:='SIRKOD=' + sb.sirkod + ' AND TIP=''' + 'B' + '''';
            dtaksit.CEKBT.Filter:=Secenek;
            dtaksit.CEKBT.open;
            dtaksit.CEKBT.Filtered:=True;
           end;
        1: begin
            dtaksit.CEKBT.Close;
            dtaksit.CEKBT.Filtered:=False;
            secenek:='SIRKOD=' + sb.sirkod + ' AND TIP=''' + 'T' + '''';
            dtaksit.CEKBT.Filter:=Secenek;
            dtaksit.CEKBT.open;
            dtaksit.CEKBT.Filtered:=True;
           end;
   end;

end;

procedure Tvcekgozlem.DBGrid1DblClick(Sender: TObject);
begin
        CLOSE;
end;

end.