stokduzenle.pas

Basic Marketing stock Program

unit stokduzenle;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, Grids, DBGrids, Db, DBTables, ComCtrls,BDE;

type
  Tstokduz = class(TForm)
    Label1: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    StatusBar1: TStatusBar;
    Query1: TQuery;
    stokt: TTable;
    DataSource1: TDataSource;
    Query1SIRKOD: TStringField;
    Query1FISTUR: TFloatField;
    Query1MALKODU: TStringField;
    Query1SMIKTAR: TFloatField;
    stoktSIRKOD: TStringField;
    stoktKODU: TStringField;
    stoktADI: TStringField;
    stoktBIRIM: TStringField;
    stoktGRUPKODU: TFloatField;
    stoktKDV: TFloatField;
    stoktISKONTO: TFloatField;
    stoktDOVKOD: TStringField;
    stoktALISFIYAT: TFloatField;
    stoktSFIYAT1: TFloatField;
    stoktSFIYAT2: TFloatField;
    stoktSFIYAT3: TFloatField;
    stoktKRITIKSTOK: TFloatField;
    stoktGIRMIK: TFloatField;
    stoktCIKMIK: TFloatField;
    stoktMEVCUT: TFloatField;
    stoktKDVD: TStringField;
    stoksil: TQuery;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure stoktAfterPost(DataSet: TDataSet);
    procedure stoksilAfterPost(DataSet: TDataSet);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  stokduz: Tstokduz;

implementation

uses unit1,unitgenel;

{$R *.DFM}

procedure Tstokduz.BitBtn2Click(Sender: TObject);
begin
        close;
end;

procedure Tstokduz.BitBtn1Click(Sender: TObject);
begin
        Query1.close;
        query1.ParamByName('XSIRKOD').value:=sb.sirkod;
        query1.Prepare;
        query1.open;
        Statusbar1.Panels[0].Text:='Fi