stokzamyap.pas

Basic Marketing stock Program

unit stokzamyap;

interface

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

type
  Tstokzam = class(TForm)
    DBText1: TDBText;
    DBText2: TDBText;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Panel1: TPanel;
    SpeedButton2: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    Label4: TLabel;
    Label5: TLabel;
    Z1: TCurrencyEdit;
    Z2: TCurrencyEdit;
    zamq: TQuery;
    zam2q: TQuery;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  stokzam: Tstokzam;

implementation

uses unit1,unitgenel, gruplistesi;

{$R *.DFM}

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

procedure Tstokzam.SpeedButton5Click(Sender: TObject);
begin
        close;
end;

procedure Tstokzam.SpeedButton4Click(Sender: TObject);
begin
        grupl.showmodal;
end;

procedure Tstokzam.SpeedButton2Click(Sender: TObject);
Var
msg:Word;
zam:Currency;
begin
         if (z1.value > 0) and (z2.value > 0) then
           Begin
             ShowMessage('L黷fen Sadece Y鼁de veya Fiyat K齭m齨