vermizduzenle.pas

Basic Marketing stock Program

unit vermizduzenle;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, Db, DBTables, StdCtrls, Buttons,bde;

type
  Tvermizanduz = class(TForm)
    Label1: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    borcbulq: TQuery;
    DataSource1: TDataSource;
    alacakq: TQuery;
    StatusBar1: TStatusBar;
    musterita: TTable;
    musteritaSIRKOD: TStringField;
    musteritaFIRKOD: TFloatField;
    musteritaADI: TStringField;
    musteritaYETKILI: TStringField;
    musteritaSATIS: TFloatField;
    musteritaISKONTO: TFloatField;
    musteritaADRES1: TStringField;
    musteritaADRES2: TStringField;
    musteritaEMAIL: TStringField;
    musteritaWEB: TStringField;
    musteritaTELEFON1: TStringField;
    musteritaTELEFON2: TStringField;
    musteritaFAX: TStringField;
    musteritaVDAIRE: TStringField;
    musteritaVNO: TStringField;
    musteritaBORC: TFloatField;
    musteritaALACAK: TFloatField;
    borcbulqSIRKOD: TStringField;
    borcbulqFISTUR: TFloatField;
    borcbulqFIRKOD: TFloatField;
    borcbulqSTUTAR: TFloatField;
    alacakqSIRKOD: TStringField;
    alacakqFIRKOD: TFloatField;
    alacakqATUTAR: TFloatField;
    procedure musteritaAfterPost(DataSet: TDataSet);
    procedure BitBtn1Click(Sender: TObject);
    procedure alacakbul;
    procedure borcbul;
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  vermizanduz: Tvermizanduz;
  musno,borc,alacak,bakiye:Currency;
implementation

uses unit1,unitgenel;

{$R *.DFM}


procedure Tvermizanduz.musteritaAfterPost(DataSet: TDataSet);
begin
     DBISaveChanges(  (DataSet as TBDEDataSet).Handle );
end;

procedure Tvermizanduz.BitBtn1Click(Sender: TObject);
begin
        musterita.First;
        while not musterita.Eof do
          begin
              if musteritaSIRKOD.value <> sb.sirkod then
                musterita.next;
              musno:=musteritaFIRKOD.Value;
              borcbul;
              alacakbul;
              musterita.edit;
              musteritaBORC.value:=borc;
              musteritaalacak.value:=alacak;
              musterita.post;
              musterita.next;
          end;
          showmessage('蔺lem Tamamland