irsaliyegiris.pas

Basic Marketing stock Program

unit irsaliyegiris;

interface

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

type
  Tirsgirf = class(TForm)
    irsfist: TTable;
    irsfisd: TDataSource;
    irsdetd: TDataSource;
    irsdett: TTable;
    fisbulq: TQuery;
    fisbulqSONFISNO: TFloatField;
    sirabulq: TQuery;
    sirabulqDSIRA: 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;
    firmat: TTable;
    stkfisbul: TQuery;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Color95Button1: TColor95Button;
    DBText1: TDBText;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    Edit1: TEdit;
    Panel2: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    Panel3: TPanel;
    Label4: TLabel;
    MoneyEdit2: TMoneyEdit;
    Moneyedit1: TCurrencyEdit;
    DBGrid1: TDBGrid;
    irsfistLFIRADI: TStringField;
    irsfistSIRKOD: TStringField;
    irsfistSERI: TFloatField;
    irsfistIRSNO: TFloatField;
    irsfistIRSTAR: TDateField;
    irsfistMUSNO: TFloatField;
    irsfistISKONTO: TFloatField;
    irsfistFATNO: TFloatField;
    irsfistFATTAR: TDateField;
    irsdettSIRKOD: TStringField;
    irsdettSERI: TFloatField;
    irsdettIRSNO: TFloatField;
    irsdettSIRA: TFloatField;
    irsdettIRSTAR: TDateField;
    irsdettMUSNO: TFloatField;
    irsdettSTOK: TStringField;
    irsdettSTOKADI: TStringField;
    irsdettBRIM: TStringField;
    irsdettKDVYUZ: TFloatField;
    irsdettMIKTAR: TFloatField;
    irsdettFIYAT: TFloatField;
    irsdettTUTAR: TFloatField;
    stkfisbulSIRKOD: TStringField;
    stkfisbulSERI: TFloatField;
    stkfisbulIRSNO: TFloatField;
    stkfisbulIRSTAR: TDateField;
    stkfisbulMUSNO: TFloatField;
    stkfisbulISKONTO: TFloatField;
    stkfisbulFATNO: TFloatField;
    stkfisbulFATTAR: TDateField;
    Label5: TLabel;
    Label6: TLabel;
    DBEdit1: TDBEdit;
    Label7: TLabel;
    Label8: TLabel;
    DBText2: TDBText;
    DBText3: TDBText;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure irsfistAfterPost(DataSet: TDataSet);
    procedure irsfistBeforePost(DataSet: TDataSet);
    procedure irsdettAfterPost(DataSet: TDataSet);
    procedure irsdettBeforePost(DataSet: TDataSet);
    procedure irsdettNewRecord(DataSet: TDataSet);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton5Click(Sender: TObject);
    procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit3KeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit3Exit(Sender: TObject);
    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
    procedure DBGrid1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBGrid1EditButtonClick(Sender: TObject);
    procedure DBGrid1ColExit(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Color95Button1Click(Sender: TObject);
    procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  irsgirf: Tirsgirf;
  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 Tirsgirf.FormClose(Sender: TObject; var Action: TCloseAction);
begin
        action:=cafree;
end;

procedure Tirsgirf.irsfistAfterPost(DataSet: TDataSet);
begin
     DBISaveChanges(  (DataSet as TBDEDataSet).Handle );

end;

procedure Tirsgirf.irsfistBeforePost(DataSet: TDataSet);
begin
        irsfistSIRKOD.Value:=Sb.sirkod;
        irsfistSERI.Value:=20;

end;

procedure Tirsgirf.irsdettAfterPost(DataSet: TDataSet);
begin
     DBISaveChanges(  (DataSet as TBDEDataSet).Handle );

end;

procedure Tirsgirf.irsdettBeforePost(DataSet: TDataSet);
begin
        irsdettSIRKOD.Value:=Sb.sirkod;
        irsdettSERI.Value:=20;

end;

procedure Tirsgirf.irsdettNewRecord(DataSet: TDataSet);
begin
       sira:=sira + 1;
       irsdettSIRA.AsInteger:=sira;
       irsdettMUSNO.Value:=irsfistMUSNO.Value;
       irsdettIRSTAR.Value:=irsfistIRSTAR.Value;

end;

procedure Tirsgirf.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