stokmalcik.pas

Basic Marketing stock Program

unit stokmalcik;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  BDE, ClrPanel, Buttons, ToolEdit, CurrEdit, StdCtrls, Mneyedit, DBTables,
  Db, Grids, DBGrids, Mask, DBCtrls, ColorBtns, ExtCtrls;

type
  Tstokmcik = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Color95Button1: TColor95Button;
    DBText1: TDBText;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    Edit1: TEdit;
    DBGrid1: TDBGrid;
    stkfist: TTable;
    stkfistSIRKOD: TStringField;
    stkfistFISTUR: TFloatField;
    stkfistFISNO: TFloatField;
    stkfistFISTAR: TDateField;
    stkfistFIRKOD: TFloatField;
    stkfistKDVTUT: TFloatField;
    stkfistISKTUT: TFloatField;
    stkfistFISTUT: TFloatField;
    stkfistGENTUT: TFloatField;
    stkfistLFIRADI: TStringField;
    stkfisd: TDataSource;
    stkdett: TTable;
    stkdettSIRKOD: TStringField;
    stkdettFISTUR: TFloatField;
    stkdettFISNO: TFloatField;
    stkdettSIRA: TFloatField;
    stkdettFISTAR: TDateField;
    stkdettFIRKOD: TFloatField;
    stkdettMALKODU: TStringField;
    stkdettMALADI: TStringField;
    stkdettBIRIMI: TStringField;
    stkdettKDV: TFloatField;
    stkdettMIKTAR: TFloatField;
    stkdettFIYATI: TFloatField;
    stkdettTUTAR: TFloatField;
    stkdettKAYIT: TFloatField;
    stkdetd: TDataSource;
    fisbulq: TQuery;
    fisbulqSONFISNO: TFloatField;
    sirabulq: TQuery;
    sirabulqDSIRA: TFloatField;
    firmat: TTable;
    stokq: TQuery;
    stokqSIRKOD: TStringField;
    stokqKODU: TStringField;
    stokqADI: TStringField;
    stokqBIRIM: TStringField;
    stokqGRUPKODU: TFloatField;
    stokqKDV: TFloatField;
    stokqISKONTO: TFloatField;
    stokqDOVKOD: TStringField;
    stokqALISFIYAT: TFloatField;
    stokqSFIYAT1: TFloatField;
    stokqSFIYAT2: TFloatField;
    stokqSFIYAT3: TFloatField;
    stokqKRITIKSTOK: TFloatField;
    stokqGIRMIK: TFloatField;
    stokqCIKMIK: TFloatField;
    stokqMEVCUT: TFloatField;
    stkfisbul: TQuery;
    stkfisbulSIRKOD: TStringField;
    stkfisbulFISTUR: TFloatField;
    stkfisbulFISNO: TFloatField;
    stkfisbulFISTAR: TDateField;
    stkfisbulFIRKOD: TFloatField;
    stkfisbulKDVTUT: TFloatField;
    stkfisbulISKTUT: TFloatField;
    stkfisbulFISTUT: TFloatField;
    stkfisbulGENTUT: TFloatField;
    Panel3: TPanel;
    Label4: TLabel;
    MoneyEdit2: TMoneyEdit;
    Moneyedit1: TCurrencyEdit;
    Panel2: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    satalgozlem: TColorPanel;
    ColorPanel2: TColorPanel;
    Label5: TLabel;
    SpeedButton13: TSpeedButton;
    DBGrid2: TDBGrid;
    stkfistUSER: TStringField;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure Color95Button1Click(Sender: TObject);
    procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit3Exit(Sender: TObject);
    procedure DBGrid1ColExit(Sender: TObject);
    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
    procedure stkfistAfterPost(DataSet: TDataSet);
    procedure stkfistBeforePost(DataSet: TDataSet);
    procedure stkdettAfterPost(DataSet: TDataSet);
    procedure stkdettBeforePost(DataSet: TDataSet);
    procedure stkdettNewRecord(DataSet: TDataSet);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure DBGrid1EditButtonClick(Sender: TObject);
    procedure DBGrid2CellClick(Column: TColumn);
    procedure DBGrid2DblClick(Sender: TObject);
    procedure SpeedButton13Click(Sender: TObject);
    procedure DBGrid1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  stokmcik: Tstokmcik;
  tutar,miktar,firkod:Currency;
  satis,sira,fisno,sw,sx:Integer;
  stokmik,kdv,kdvtut,fistut,gentut:Currency;

implementation

uses unit1,unitgenel,firmagozlem, stoklistesi, Unitanaform;

{$R *.DFM}

procedure Tstokmcik.FormClose(Sender: TObject; var Action: TCloseAction);
begin
        action:=cafree;
end;

procedure Tstokmcik.FormShow(Sender: TObject);
begin
        Stkfist.Append;
        satalgozlem.Visible:=False;
        Edit1.Text:='';
        Edit1.ReadOnly:=false;
        DbEdit2.ReadOnly:=false;
        DbEdit3.ReadOnly:=false;
        DbEdit2.Field.AsDateTime:=Date;
        Edit1.SetFocus;

end;

procedure Tstokmcik.Edit1KeyPress(Sender: TObject; var Key: Char);
Var
fisno:Integer;
begin
        if key= #13 then
          Begin
             sx:=0;
             if Edit1.Text <> '' then
                Begin
                  fisno:=StrToInt(Edit1.Text);
                  stkfisbul.close;
                  stkfisbul.ParamByName('XSIRKOD').Value:=sb.sirkod;
                  stkfisbul.ParamByName('XFISNO').Value:=fisno;
                  stkfisbul.Prepare;
                  stkfisbul.open;
                  if stkfisbul.IsEmpty then
                    Begin
                      Showmessage('Fi