acilisfisi.pas

Basic Marketing stock Program

unit acilisfisi;

interface

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

type
  Tacilisfis = class(TForm)
    stkfist: TTable;
    stkfistSIRKOD: TStringField;
    stkfistFISTUR: TFloatField;
    stkfistFISNO: TFloatField;
    stkfistFISTAR: TDateField;
    stkfistFIRKOD: TFloatField;
    stkfistKDVTUT: TFloatField;
    stkfistISKTUT: TFloatField;
    stkfistFISTUT: TFloatField;
    stkfistGENTUT: TFloatField;
    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;
    fisbulq: TQuery;
    fisbulqSONFISNO: TFloatField;
    stkfisbul: TQuery;
    stkfisbulSIRKOD: TStringField;
    stkfisbulFISTUR: TFloatField;
    stkfisbulFISNO: TFloatField;
    stkfisbulFISTAR: TDateField;
    stkfisbulFIRKOD: TFloatField;
    stkfisbulKDVTUT: TFloatField;
    stkfisbulISKTUT: TFloatField;
    stkfisbulFISTUT: TFloatField;
    stkfisbulGENTUT: TFloatField;
    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;
    sirabulq: TQuery;
    sirabulqDSIRA: TFloatField;
    stkdetd: TDataSource;
    stkfisd: TDataSource;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Edit1: TEdit;
    Panel2: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    DBGrid1: TDBGrid;
    satalgozlem: TColorPanel;
    ColorPanel2: TColorPanel;
    Label5: TLabel;
    SpeedButton13: TSpeedButton;
    DBGrid2: TDBGrid;
    Panel3: TPanel;
    Label4: TLabel;
    MoneyEdit2: TMoneyEdit;
    Moneyedit1: TCurrencyEdit;
    stkfistUSER: TStringField;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure stkfistAfterPost(DataSet: TDataSet);
    procedure stkfistBeforePost(DataSet: TDataSet);
    procedure stkdettAfterPost(DataSet: TDataSet);
    procedure stkdettBeforePost(DataSet: TDataSet);
    procedure stkdettNewRecord(DataSet: TDataSet);
    procedure DBGrid1EditButtonClick(Sender: TObject);
    procedure DBGrid1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton4Click(Sender: TObject);
    procedure DBGrid2CellClick(Column: TColumn);
    procedure DBGrid2DblClick(Sender: TObject);
    procedure SpeedButton13Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

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

implementation

uses unit1,unitgenel,firmagozlem, stoklistesi;

{$R *.DFM}

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

end;

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

procedure Tacilisfis.SpeedButton1Click(Sender: TObject);
begin
        Stkfist.Append;
        Edit1.Text:='';
        Edit1.ReadOnly:=false;
        DbEdit2.ReadOnly:=false;
        DbEdit2.Field.AsDateTime:=Date;
        satalgozlem.Visible:=False;
        MoneyEdit1.value:=0;
        Edit1.SetFocus;

end;

procedure Tacilisfis.SpeedButton6Click(Sender: TObject);
Var
msg:Word;
begin

     if sb.yetki <> 'S' then
       Begin
           ShowMessage('Silme Yetkiniz Yok ! ');
           Edit1.SetFocus;
           Exit;
        end;

        msg:=Application.MessageBox('Sat齬