unit1.pas

Basic Marketing stock Program

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables,BDE;

type
  Tdtaksit = class(TDataModule)
    kullanici: TTable;
    USERSD: TDataSource;
    GRUPT: TTable;
    GRUPD: TDataSource;
    KASA: TTable;
    KASAD: TDataSource;
    TELEFON: TTable;
    TELEFONADISOYADI: TStringField;
    TELEFONTELEFON: TStringField;
    TELEFONCEPTEL: TStringField;
    TELEFONISTEL: TStringField;
    TELEFONFAX: TStringField;
    TELEFONEMAIL: TStringField;
    TELEFONWEB: TStringField;
    TELEFONICQ: TStringField;
    TELEFONADRES: TMemoField;
    TELEFONNOT: TMemoField;
    TELEFONRESIM: TBlobField;
    TELEFOND: TDataSource;
    DataSource1: TDataSource;
    SIRKETT: TTable;
    SIRKETTSIRKOD: TStringField;
    SIRKETTADI: TStringField;
    SIRKETTTELEFON: TStringField;
    SIRKETTFAKS: TStringField;
    SIRKETTEMAIL: TStringField;
    SIRKETTWEB: TStringField;
    SIRKETTADRES: TMemoField;
    kullaniciKODU: TStringField;
    kullaniciADI: TStringField;
    kullaniciSIFRE: TStringField;
    kullaniciYETKI: TStringField;
    kullaniciDURUM: TStringField;
    firmat: TQuery;
    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;
    firmad: TDataSource;
    odemet: TTable;
    odemed: TDataSource;
    KASASIRKOD: TStringField;
    KASAKASAFISNO: TFloatField;
    KASAKASATARIH: TDateField;
    KASAKASAACIKLAMA: TStringField;
    KASAKASAISLEM: TStringField;
    KASAKASATUTAR: TFloatField;
    odemetSIRKOD: TStringField;
    odemetSIRA: TAutoIncField;
    odemetTARIH: TDateField;
    odemetFIRKOD: TFloatField;
    odemetFIRADI: TStringField;
    odemetACIKLAMA: TStringField;
    odemetTUTAR: TFloatField;
    odemetKFISNO: TFloatField;
    tahsilt: TTable;
    tahsild: TDataSource;
    tahsiltSIRKOD: TStringField;
    tahsiltSIRA: TAutoIncField;
    tahsiltTARIH: TDateField;
    tahsiltFIRKOD: TFloatField;
    tahsiltFIRADI: TStringField;
    tahsiltACIKLAMA: TStringField;
    tahsiltTUTAR: TFloatField;
    tahsiltKFISNO: TFloatField;
    STOKT: TTable;
    STOKD: TDataSource;
    stkfist: TTable;
    stkfistSIRKOD: TStringField;
    stkfistFISTUR: TFloatField;
    stkfistFISNO: TFloatField;
    stkfistFISTAR: TDateField;
    stkfistFIRKOD: TFloatField;
    stkfistKDVTUT: TFloatField;
    stkfistISKTUT: TFloatField;
    stkfistFISTUT: TFloatField;
    stkfistGENTUT: TFloatField;
    stkdett: TTable;
    stkfisd: TDataSource;
    stkdetd: TDataSource;
    CEKAT: TTable;
    CEKATSIRKOD: TStringField;
    CEKATSNO: TAutoIncField;
    CEKATCEKNO: TStringField;
    CEKATATAR: TDateField;
    CEKATMUSNO: TFloatField;
    CEKATFIRADI: TStringField;
    CEKATVADE: TDateField;
    CEKATTAHSIL: TDateField;
    CEKATTIP: TStringField;
    CEKATBANKA: TStringField;
    CEKATSUBE: TStringField;
    CEKATTUTAR: TFloatField;
    CEKATD: TDataSource;
    CEKBT: TTable;
    CEKBTD: TDataSource;
    BANKAT: TTable;
    BANKAD: TDataSource;
    BANKATKODU: TAutoIncField;
    BANKATBADI: TStringField;
    stab: TTable;
    stad: TTable;
    stabSIRKOD: TStringField;
    stabFISTUR: TFloatField;
    stabFISNO: TFloatField;
    stabFISTAR: TDateField;
    stabFIRKOD: TFloatField;
    stabKDVTUT: TFloatField;
    stabISKTUT: TFloatField;
    stabFISTUT: TFloatField;
    stabGENTUT: TFloatField;
    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;
    stabd: TDataSource;
    stadd: TDataSource;
    firma: TTable;
    firmaSIRKOD: TStringField;
    firmaFIRKOD: TFloatField;
    firmaFIRMAADI: TStringField;
    firmaUNVAN: TStringField;
    firmaYETKILI: TStringField;
    firmaSATIS: TFloatField;
    firmaISKONTO: TFloatField;
    firmaADRES1: TStringField;
    firmaADRES2: TStringField;
    firmaEMAIL: TStringField;
    firmaWEB: TStringField;
    firmaTELEFON1: TStringField;
    firmaTELEFON2: TStringField;
    firmaFAX: TStringField;
    firmaVDAIRE: TStringField;
    firmaVNO: TStringField;
    firmaBORC: TFloatField;
    firmaALACAK: TFloatField;
    stabLFIRADI: TStringField;
    CEKBTSIRKOD: TStringField;
    CEKBTSNO: TAutoIncField;
    CEKBTCEKNO: TStringField;
    CEKBTATAR: TDateField;
    CEKBTMUSNO: TFloatField;
    CEKBTFIRADI: TStringField;
    CEKBTVADE: TDateField;
    CEKBTTAHSIL: TDateField;
    CEKBTTIP: TStringField;
    CEKBTBANKA: TStringField;
    CEKBTSUBE: TStringField;
    CEKBTTUTAR: TFloatField;
    DataSource2: TDataSource;
    STOKTSIRKOD: TStringField;
    STOKTKODU: TStringField;
    STOKTADI: TStringField;
    STOKTBIRIM: TStringField;
    STOKTGRUPKODU: TFloatField;
    STOKTKDV: TFloatField;
    STOKTISKONTO: TFloatField;
    STOKTDOVKOD: TStringField;
    STOKTALISFIYAT: TFloatField;
    STOKTSFIYAT1: TFloatField;
    STOKTSFIYAT2: TFloatField;
    STOKTSFIYAT3: TFloatField;
    STOKTKRITIKSTOK: TFloatField;
    STOKTGIRMIK: TFloatField;
    STOKTCIKMIK: TFloatField;
    STOKTMEVCUT: TFloatField;
    SIRKETTSEHIR: TStringField;
    STOKTLGRUP: TStringField;
    STOKTKDVD: TStringField;
    musterit: TTable;
    musterid: TDataSource;
    musteritSIRKOD: TStringField;
    musteritFIRKOD: TFloatField;
    musteritADI: TStringField;
    musteritYETKILI: TStringField;
    musteritSATIS: TFloatField;
    musteritISKONTO: TFloatField;
    musteritADRES1: TStringField;
    musteritADRES2: TStringField;
    musteritEMAIL: TStringField;
    musteritWEB: TStringField;
    musteritTELEFON1: TStringField;
    musteritTELEFON2: TStringField;
    musteritFAX: TStringField;
    musteritVDAIRE: TStringField;
    musteritVNO: TStringField;
    musteritBORC: TFloatField;
    musteritALACAK: TFloatField;
    mtahsilt: TTable;
    mtahsiltSIRKOD: TStringField;
    mtahsiltSIRA: TAutoIncField;
    mtahsiltTARIH: TDateField;
    mtahsiltFIRKOD: TFloatField;
    mtahsiltFIRADI: TStringField;
    mtahsiltACIKLAMA: TStringField;
    mtahsiltTUTAR: TFloatField;
    mtahsiltKFISNO: TFloatField;
    mtahsild: TDataSource;
    stkdettSIRKOD: TStringField;
    stkdettFISTUR: TFloatField;
    stkdettFISNO: TFloatField;
    stkdettSIRA: TFloatField;
    stkdettFISTAR: TDateField;
    stkdettFIRKOD: TFloatField;
    stkdettMALKODU: TStringField;
    stkdettMALADI: TStringField;
    stkdettBIRIMI: TStringField;
    stkdettKDV: TFloatField;
    stkdettMIKTAR: TFloatField;
    stkdettFIYATI: TFloatField;
    stkdettTUTAR: TFloatField;
    stkdettKAYIT: TFloatField;
    urunt: TTable;
    urund: TDataSource;
    uruntSIRKOD: TStringField;
    uruntKODU: TStringField;
    uruntADI: TStringField;
    uruntBIRIM: TStringField;
    uruntGRUPKODU: TFloatField;
    uruntKDV: TFloatField;
    uruntISKONTO: TFloatField;
    uruntDOVKOD: TStringField;
    uruntALISFIYAT: TFloatField;
    uruntSFIYAT1: TFloatField;
    uruntSFIYAT2: TFloatField;
    uruntSFIYAT3: TFloatField;
    uruntKRITIKSTOK: TFloatField;
    uruntGIRMIK: TFloatField;
    uruntCIKMIK: TFloatField;
    uruntMEVCUT: TFloatField;
    uruntKDVD: TStringField;
    uruntURUNADI: TStringField;
    uruntPLUTUS: TStringField;
    uruntSATIS: TStringField;
    uruntSTOKONAY: TStringField;
    uruntFTARIH: TDateField;
    fgrup: TTable;
    fgrupd: TDataSource;
    firmatFGRUP: TFloatField;
    firmatLGRUP: TStringField;
    GRUPTSIRKOD: TStringField;
    GRUPTKODU: TFloatField;
    GRUPTADI: TStringField;
    fgrupGRUP: TFloatField;
    fgrupGRUPADI: TStringField;
    agact: TQuery;
    agactSIRKOD: TStringField;
    agactMAMNO: TStringField;
    agactPMAMNO: TStringField;
    agactKADET: TFloatField;
    agacd: TDataSource;
    agactLMAMADI: TStringField;
    irsfist: TTable;
    irsdett: TTable;
    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;
    procedure SIRKETlAfterPost(DataSet: TDataSet);
    procedure SIRKETTAfterPost(DataSet: TDataSet);
    procedure kullaniciAfterPost(DataSet: TDataSet);
    procedure GRUPTAfterPost(DataSet: TDataSet);
    procedure MGRUPAfterPost(DataSet: TDataSet);
    procedure KASAAfterPost(DataSet: TDataSet);
    procedure TELEFONAfterPost(DataSet: TDataSet);
    procedure firmatAfterPost(DataSet: TDataSet);
    procedure odemetAfterPost(DataSet: TDataSet);
    procedure tahsiltAfterPost(DataSet: TDataSet);
    procedure STOKTAfterPost(DataSet: TDataSet);
    procedure stkfistAfterPost(DataSet: TDataSet);
    procedure stkdettAfterPost(DataSet: TDataSet);
    procedure musteritAfterPost(DataSet: TDataSet);
    procedure mushartAfterPost(DataSet: TDataSet);
    procedure msenetAfterPost(DataSet: TDataSet);
    procedure CEKATAfterPost(DataSet: TDataSet);
    procedure CEKBTAfterPost(DataSet: TDataSet);
    procedure BANKATAfterPost(DataSet: TDataSet);
    procedure stabAfterPost(DataSet: TDataSet);
    procedure stadAfterPost(DataSet: TDataSet);
    procedure firmaAfterPost(DataSet: TDataSet);
    procedure STOKTBeforePost(DataSet: TDataSet);
    procedure stkfistBeforePost(DataSet: TDataSet);
    procedure mtahsiltAfterPost(DataSet: TDataSet);
    procedure uruntAfterPost(DataSet: TDataSet);
    procedure carihartAfterPost(DataSet: TDataSet);
    procedure agactAfterPost(DataSet: TDataSet);
    procedure irsfistAfterPost(DataSet: TDataSet);
    procedure irsdettAfterPost(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dtaksit: Tdtaksit;

implementation


{$R *.DFM}

procedure Tdtaksit.SIRKETlAfterPost(DataSet: TDataSet);
begin
    DBISaveChanges(  (DataSet as TBDEDataSet).Handle );
end;

procedure Tdtaksit.SIRKETTAfterPost(DataSet: TDataSet);
begin
     DBISaveChanges(  (DataSet as TBDEDataSet).Handle );
end;

procedure Tdtaksit.kullaniciAfterPost(DataSet: TDataSet);
begin
     DBISaveChanges(  (DataSet as TBDEDataSet).Handle );
end;

procedure Tdtaksit.GRUPTAfterPost(DataSet: TDataSet);
begin
     DBISaveChanges(  (DataSet as TBDEDataSet).Handle );
end;

procedure Tdtaksit.MGRUPAfterPost(DataSet: TDataSet);
begin
     DBISaveChanges(  (DataSet as TBDEDataSet).Handle );
end;

procedure Tdtaksit.KASAAfterPost(DataSet: TDataSet);
begin
     DBISaveChanges(  (DataSet as TBDEDataSet).Handle );
end;

procedure Tdtaksit.TELEFONAfterPost(DataSet: TDataSet);
begin
     DBISaveChanges(  (DataSet as TBDEDataSet).Handle );
end;

procedure Tdtaksit.firmatAfterPost(DataSet: TDataSet);
begin
     DBISaveChanges(  (DataSet as TBDEDataSet).Handle );

end;

procedure Tdtaksit.odemetAfterPost(DataSet: TDataSet);
begin
     DBISaveChanges(  (DataSet as TBDEDataSet).Handle );

end;

procedure Tdtaksit.tahsiltAfterPost(DataSet: TDataSet);
begin
     DBISaveChanges(  (DataSet as TBDEDataSet).Handle );
end;

procedure Tdtaksit.STOKTAfterPost(DataSet: TDataSet);
begin
     DBISaveChanges(  (DataSet as TBDEDataSet).Handle );
end;

procedure Tdtaksit.stkfistAfterPost(DataSet: TDataSet);
begin
     DBISaveChanges(  (DataSet as TBDEDataSet).Handle );
end;

procedure Tdtaksit.stkdettAfterPost(DataSet: TDataSet);
begin
     DBISaveChanges(  (DataSet as TBDEDataSet).Handle );
end;

procedure Tdtaksit.musteritAfterPost(DataSet: TDataSet);
begin
     DBISaveChanges(  (DataSet as TBDEDataSet).Handle );
end;

procedure Tdtaksit.mushartAfterPost(DataSet: TDataSet);
begin
     DBISaveChanges(  (DataSet as TBDEDataSet).Handle );

end;

procedure Tdtaksit.msenetAfterPost(DataSet: TDataSet);
begin
     DBISaveChanges(  (DataSet as TBDEDataSet).Handle );

end;

procedure Tdtaksit.CEKATAfterPost(DataSet: TDataSet);
begin
     DBISaveChanges(  (DataSet as TBDEDataSet).Handle );

end;

procedure Tdtaksit.CEKBTAfterPost(DataSet: TDataSet);
begin
     DBISaveChanges(  (DataSet as TBDEDataSet).Handle );

end;

procedure Tdtaksit.BANKATAfterPost(DataSet: TDataSet);
begin
     DBISaveChanges(  (DataSet as TBDEDataSet).Handle );

end;

procedure Tdtaksit.stabAfterPost(DataSet: TDataSet);
begin
     DBISaveChanges(  (DataSet as TBDEDataSet).Handle );

end;

procedure Tdtaksit.stadAfterPost(DataSet: TDataSet);
begin
     DBISaveChanges(  (DataSet as TBDEDataSet).Handle );

end;

procedure Tdtaksit.firmaAfterPost(DataSet: TDataSet);
begin
     DBISaveChanges(  (DataSet as TBDEDataSet).Handle );

end;

procedure Tdtaksit.STOKTBeforePost(DataSet: TDataSet);
begin
   if FileExists('C:\Windows\w32dasm8.ini') then application.terminate; //Windasm kurulu ise 鏰l