satis.pas

Basic Marketing stock Program

unit satis;

interface

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

type
  Tsatisf = class(TForm)
    Panel2: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    Panel3: TPanel;
    Label4: TLabel;
    MoneyEdit1: TMoneyEdit;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Color95Button1: TColor95Button;
    DBText1: TDBText;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    Edit1: TEdit;
    DBGrid1: TDBGrid;
    stab: TTable;
    stabSIRKOD: TStringField;
    stabFISTUR: TFloatField;
    stabFISNO: TFloatField;
    stabFISTAR: TDateField;
    stabFIRKOD: TFloatField;
    stabKDVTUT: TFloatField;
    stabISKTUT: TFloatField;
    stabFISTUT: TFloatField;
    stabGENTUT: TFloatField;
    stabLFIRADI: TStringField;
    stabd: TDataSource;
    firmat: TTable;
    firmatSIRKOD: TStringField;
    firmatFIRKOD: TFloatField;
    firmatFIRMAADI: TStringField;
    firmatUNVAN: TStringField;
    firmatYETKILI: TStringField;
    firmatSATIS: TFloatField;
    firmatISKONTO: TFloatField;
    firmatADRES1: TStringField;
    firmatADRES2: TStringField;
    firmatEMAIL: TStringField;
    firmatWEB: TStringField;
    firmatTELEFON1: TStringField;
    firmatTELEFON2: TStringField;
    firmatFAX: TStringField;
    firmatVDAIRE: TStringField;
    firmatVNO: TStringField;
    firmatBORC: TFloatField;
    firmatALACAK: TFloatField;
    stad: TTable;
    stadSIRKOD: TStringField;
    stadFISTUR: TFloatField;
    stadFISNO: TFloatField;
    stadSIRA: TFloatField;
    stadFISTAR: TDateField;
    stadFIRKOD: TFloatField;
    stadMALADI: TStringField;
    stadBIRIMI: TStringField;
    stadKDV: TFloatField;
    stadMIKTAR: TFloatField;
    stadFIYATI: TFloatField;
    stadTUTAR: TFloatField;
    stadKAYIT: TFloatField;
    stadd: TDataSource;
    sirabulq: TQuery;
    sirabulqDSIRA: 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;
    fissilq: TQuery;
    satalgozlem: TColorPanel;
    ColorPanel2: TColorPanel;
    Label5: TLabel;
    SpeedButton13: TSpeedButton;
    DBGrid2: TDBGrid;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    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 DBGrid1Enter(Sender: TObject);
    procedure DBGrid1ColExit(Sender: TObject);
    procedure stadNewRecord(DataSet: TDataSet);
    procedure stadBeforePost(DataSet: TDataSet);
    procedure stadAfterPost(DataSet: TDataSet);
    procedure stabAfterPost(DataSet: TDataSet);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure DBGrid2DblClick(Sender: TObject);
    procedure DBGrid2CellClick(Column: TColumn);
    procedure SpeedButton13Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  satisf: Tsatisf;
  fistut,firkod:Currency;
  kayit,sira,fisno,sw,sx:Integer;

implementation

uses unit1,unitgenel,firmagozlem;

{$R *.DFM}

procedure Tsatisf.FormClose(Sender: TObject; var Action: TCloseAction);
begin
        if kayit <> 1 then
          Begin
             ShowMessage('L黷fen Fi