firmagozlem.pas

Basic Marketing stock Program

unit firmagozlem;

interface

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

type
  Tfirmag = class(TForm)
    Panel1: TPanel;
    Edit1: TEdit;
    Label1: TLabel;
    DBGrid1: TDBGrid;
    Table1: TTable;
    DataSource1: TDataSource;
    Table1SIRKOD: TStringField;
    Table1FIRKOD: TFloatField;
    Table1FIRMAADI: TStringField;
    Table1UNVAN: TStringField;
    Table1YETKILI: TStringField;
    Table1SATIS: TFloatField;
    Table1ISKONTO: TFloatField;
    Table1ADRES1: TStringField;
    Table1ADRES2: TStringField;
    Table1EMAIL: TStringField;
    Table1WEB: TStringField;
    Table1TELEFON1: TStringField;
    Table1TELEFON2: TStringField;
    Table1FAX: TStringField;
    Table1VDAIRE: TStringField;
    Table1VNO: TStringField;
    Table1BORC: TFloatField;
    Table1ALACAK: TFloatField;
    Label2: TLabel;
    Table1FGRUP: TFloatField;
    DBLookupComboBox1: TDBLookupComboBox;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure DBLookupComboBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  firmag: Tfirmag;

implementation

Uses unit1,unitgenel;

{$R *.DFM}



procedure Tfirmag.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//        table1.close;
end;

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


end;

procedure Tfirmag.Edit1Change(Sender: TObject);
begin
        table1.FindNearest([sb.sirkod,edit1.Text]);
end;

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

procedure Tfirmag.DBLookupComboBox1Click(Sender: TObject);
begin
        if DBLookupComboBox1.Text <> '' then
          Begin
            table1.Close;
            table1.Filtered:=False;
            table1.Filter:='FGRUP=' + dtaksit.fGRUPgrup.Text;
            table1.Filtered:=True;
            table1.Open;
          end;

end;

end.