kdvdegistir.pas

Basic Marketing stock Program

unit kdvdegistir;

interface

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

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

var
  kdvdeg: Tkdvdeg;

implementation

uses Unit1,unitgenel, gruplistesi;

{$R *.DFM}

procedure Tkdvdeg.SpeedButton1Click(Sender: TObject);
Var
msg:Word;
zam:Currency;
begin
         if z1.value=0 then
           Begin
             ShowMessage('L黷fen Yeni Kdv Y鼁desini Yaz齨齴');
             z1.SetFocus;
             Abort;
           end;
         zam:=0;
         msg:=Application.MessageBox('Kdv Oran