stoklistesi.pas

Basic Marketing stock Program

unit stoklistesi;

interface

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

type
  Tstoklist = class(TForm)
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    Edit1: TEdit;
    Label1: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    Label2: TLabel;
    procedure Edit1Change(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure DBLookupComboBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  stoklist: Tstoklist;

implementation

Uses unit1,unitgenel;

{$R *.DFM}

procedure Tstoklist.Edit1Change(Sender: TObject);
begin
        dtaksit.STOKT.FindNearest([Sb.sirkod,Edit1.Text]);
end;

procedure Tstoklist.FormShow(Sender: TObject);
begin
       dtaksit.stokt.close;
       dtaksit.stokt.Filtered:=False;
       dtaksit.stokt.Filter:='SIRKOD=' + sb.sirkod;
       dtaksit.stokt.Filtered:=True;
       dtaksit.stokt.Open;

end;

procedure Tstoklist.DBGrid1DblClick(Sender: TObject);
begin
        modalresult:=mrok;
end;

procedure Tstoklist.DBLookupComboBox1Click(Sender: TObject);
begin
        if DBLookupComboBox1.Text <> '' then
          Begin
            dtaksit.stokt.Close;
            dtaksit.stokt.Filtered:=False;
            Dtaksit.stokt.Filter:='GRUPKODU=' + dtaksit.GRUPTKODU.Text;
            dtaksit.stokt.Filtered:=True;
            dtaksit.stokt.Open;
          end;

end;

end.