Stack Owerflow Restart Delphi6
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
-
- Üye
- Mesajlar: 151
- Kayıt: 30 Oca 2004 09:16
- Konum: Manisa
Stack Owerflow Restart Delphi6
Ben Bu konu hakkında sürekli yeni başlık açmak istemiyorum ama ben anlatmak istediğimi tam anlaıyla anlatmış değilim Meğenin bana gösterdiği yol sorunumu çözmedi Projemde Data Modul Var Projeme birşey Oldu ve Şimdi Datamodulu açmak istediğim zaman stack owerflow restart for delphi diyor ve delphi tamamen kapanıyor forumda bu hatayla ilgili arkadaşlar bu hatanın kısır döngü olduğunu söylüyor ben kodlarımı inceledim ve herhangi hata yok yalnız F7 ile projeyi kontrol ediyorum. Projemde hiç kullanmama rağmen Abvare sıkıştırma compenentinin dosyaları açılıyor. Bu konuda Gerçekten Çok mağdurum Dünden Beri hiç Uyumadan Kodları inceliyorum ama herhangi bir yalnış yok İyi Çalışmalar
-
- Üye
- Mesajlar: 151
- Kayıt: 30 Oca 2004 09:16
- Konum: Manisa
-
- Üye
- Mesajlar: 151
- Kayıt: 30 Oca 2004 09:16
- Konum: Manisa
Mustafa abi halen aynı sorun devam F8 ile bir formada takılıyo gkimitri abinin dediğinide yaptım ama fayda yok datamodulein içeri şöyle ama halen yukarıdaki hatayı veriyor
Kod: Tümünü seç
unit datamodule;
interface
uses
SysUtils, Classes, DB, DBTables;
type
TDataModule2 = class(TDataModule)
musteri: TQuery;
DataSource1: TDataSource;
musteritel: TQuery;
DataSource2: TDataSource;
musteritelTEL: TStringField;
musteritelMUSNO: TIntegerField;
Hobi: TQuery;
DataSource3: TDataSource;
gorusme: TQuery;
DataSource4: TDataSource;
gormus: TQuery;
DataSource5: TDataSource;
gormusMUSNO: TIntegerField;
gormusAD: TStringField;
gormusSOYAD: TStringField;
gormusFIRMAUNVAN: TStringField;
gormusEVADRES: TStringField;
gormusEVADRES2: TStringField;
gormusISADRES: TStringField;
gormusISADRES2: TStringField;
gormusSEMT: TStringField;
gormusSEHIR: TStringField;
gormusEV_TEL: TStringField;
gormusIS_TEL: TStringField;
gormusGSM_TEL: TStringField;
gormusFAX_TEL: TStringField;
gormusFIRMA_GSM_TEL: TStringField;
gormusWEB_ADRES: TStringField;
gormusE_MAIL: TStringField;
gormusMESLEK: TStringField;
gormusEVTAR: TDateField;
gormusDOGUM_TAR: TDateField;
gormusKTARIH: TDateField;
gormusKSAAT: TTimeField;
gormusKKULLANCI: TStringField;
gormusTAKIM: TStringField;
gormusUYEODAKURULUS: TStringField;
santiye: TQuery;
DataSource6: TDataSource;
santiyeMUSNO: TIntegerField;
santiyeSNTNO: TIntegerField;
santiyeSANTIYEAD: TStringField;
santiyeYETADSOYAD: TStringField;
santiyeADRES: TStringField;
santiyeEVTEL: TStringField;
santiyeISTEL: TStringField;
santiyeGSMTEL: TStringField;
santiyeFAXTEL: TStringField;
santiyeVERGIDAIRE: TStringField;
santiyeVERGINO: TFloatField;
santiyemus: TQuery;
DataSource7: TDataSource;
santiyemusMUSNO: TIntegerField;
santiyemusAD: TStringField;
santiyemusSOYAD: TStringField;
santiyemusFIRMAUNVAN: TStringField;
santiyemusEVADRES: TStringField;
santiyemusEVADRES2: TStringField;
santiyemusISADRES: TStringField;
santiyemusISADRES2: TStringField;
santiyemusSEMT: TStringField;
santiyemusSEHIR: TStringField;
santiyemusEV_TEL: TStringField;
santiyemusIS_TEL: TStringField;
santiyemusGSM_TEL: TStringField;
santiyemusFAX_TEL: TStringField;
santiyemusFIRMA_GSM_TEL: TStringField;
santiyemusWEB_ADRES: TStringField;
santiyemusE_MAIL: TStringField;
santiyemusMESLEK: TStringField;
santiyemusEVTAR: TDateField;
santiyemusDOGUM_TAR: TDateField;
santiyemusKTARIH: TDateField;
santiyemusKSAAT: TTimeField;
santiyemusKKULLANCI: TStringField;
santiyemusTAKIM: TStringField;
santiyemusUYEODAKURULUS: TStringField;
sansoz: TQuery;
DataSource8: TDataSource;
sansozSNTNO: TIntegerField;
sansozYAPISNO: TIntegerField;
sansozYAPIS: TStringField;
sansozMETRAJ: TFloatField;
sansozISVERENVERECEK: TStringField;
sansozISBASTAR: TDateField;
sansozISSURE: TStringField;
sansozBRIMFIYAT: TFloatField;
sansozISTOPUCRET: TFloatField;
sansozOZKOSUL: TStringField;
sozmal: TQuery;
DataSource9: TDataSource;
sozmalYAPISNO: TIntegerField;
sozmalSTOKKOD: TStringField;
sozmalSTOKAD: TStringField;
sozmalSTOKBRIM: TStringField;
sozmalSTOKMIKTAR: TFloatField;
stok: TQuery;
DataSource10: TDataSource;
sntodeme: TQuery;
DataSource11: TDataSource;
tahsilat: TQuery;
DataSource12: TDataSource;
tahsilatmus: TQuery;
DataSource13: TDataSource;
tahsilatmusMUSNO: TIntegerField;
tahsilatmusAD: TStringField;
tahsilatmusSOYAD: TStringField;
tahsilatmusFIRMAUNVAN: TStringField;
tahsilatmusEVADRES: TStringField;
tahsilatmusEVADRES2: TStringField;
tahsilatmusISADRES: TStringField;
tahsilatmusISADRES2: TStringField;
tahsilatmusSEMT: TStringField;
tahsilatmusSEHIR: TStringField;
tahsilatmusEV_TEL: TStringField;
tahsilatmusIS_TEL: TStringField;
tahsilatmusGSM_TEL: TStringField;
tahsilatmusFAX_TEL: TStringField;
tahsilatmusFIRMA_GSM_TEL: TStringField;
tahsilatmusWEB_ADRES: TStringField;
tahsilatmusE_MAIL: TStringField;
tahsilatmusMESLEK: TStringField;
tahsilatmusEVTAR: TDateField;
tahsilatmusDOGUM_TAR: TDateField;
tahsilatmusKTARIH: TDateField;
tahsilatmusKSAAT: TTimeField;
tahsilatmusKKULLANCI: TStringField;
tahsilatmusTAKIM: TStringField;
tahsilatmusUYEODAKURULUS: TStringField;
tahsilatMUSNO: TIntegerField;
tahsilatTAHMIKTAR: TFloatField;
tahsilatTAHVADE: TFloatField;
tahsilatTAHTUR: TStringField;
tahsilatTAHBELNO: TFloatField;
tahsilatGORUSME_NOT: TStringField;
tahsilatKTARIH: TDateField;
tahsilatKSAAT: TTimeField;
arac: TQuery;
DataSource14: TDataSource;
perplan: TQuery;
DataSource16: TDataSource;
perplanMUSNO: TIntegerField;
perplanPERSONEL: TStringField;
perplanNEREDE: TStringField;
perplanKIMINLE: TStringField;
perplanNEZAMAN: TStringField;
perplanNEISYAPACAK: TStringField;
perplanONEMI: TStringField;
perplanSONUC: TStringField;
perplanKTARIH: TDateField;
aracSNTNO: TIntegerField;
aracBITISKM: TFloatField;
aracBASLANGICKM: TFloatField;
aracTOPLAMKM: TFloatField;
aracSEHIRDISIYER: TStringField;
aracMAZOT: TFloatField;
aracBAKIM_TAMIR: TFloatField;
aracARAC_MARKA: TStringField;
sntodemeSNTNO: TIntegerField;
sntodemeTAHTAR: TDateField;
sntodemeBORC: TFloatField;
sntodemeALACAK: TFloatField;
sntodemeTAHSILTAR: TDateField;
sntodemeTAHSILTUR: TStringField;
telefon: TQuery;
DataSource15: TDataSource;
telefonSira: TIntegerField;
telefonG_zaman: TDateTimeField;
telefonZ_Kayit: TDateTimeField;
telefonAranan_tel: TStringField;
telefonDahili: TStringField;
telefonTrans: TStringField;
telefonHarici: TStringField;
telefonTur: TStringField;
telefonAranan_isim: TStringField;
telefonAlan: TStringField;
telefonYil: TSmallintField;
telefonAy: TSmallintField;
telefonGun: TSmallintField;
telefonZaman: TTimeField;
telefonSaat: TSmallintField;
telefonDak: TSmallintField;
telefonSure: TTimeField;
telefonS_Saat: TSmallintField;
telefonS_dak: TSmallintField;
telefonS_sn: TSmallintField;
telefonKontur: TSmallintField;
telefonUcret: TFloatField;
telefonSanal: TStringField;
telefonTatil: TSmallintField;
telefonHgun: TStringField;
telefonTarih: TDateField;
telefonGrup: TStringField;
telefonIsletme: TStringField;
telefonDepartman: TStringField;
telefonGiz_knt: TIntegerField;
ozelgun: TQuery;
DataSource17: TDataSource;
ozelgunMUSNO: TAutoIncField;
ozelgunAD: TStringField;
ozelgunSOYAD: TStringField;
ozelgunFIRMAUNVAN: TStringField;
ozelgunEVADRES: TStringField;
ozelgunEVADRES2: TStringField;
ozelgunISADRES: TStringField;
ozelgunISADRES2: TStringField;
ozelgunSEMT: TStringField;
ozelgunSEHIR: TStringField;
ozelgunEV_TEL: TStringField;
ozelgunIS_TEL: TStringField;
ozelgunGSM_TEL: TStringField;
ozelgunFAX_TEL: TStringField;
ozelgunFIRMA_GSM_TEL: TStringField;
ozelgunWEB_ADRES: TStringField;
ozelgunE_MAIL: TStringField;
ozelgunMESLEK: TStringField;
ozelgunEVTAR: TDateField;
ozelgunDOGUM_TAR: TDateField;
ozelgunKTARIH: TDateField;
ozelgunKSAAT: TTimeField;
ozelgunKKULLANCI: TStringField;
ozelgunTAKIM: TStringField;
ozelgunUYEODAKURULUS: TStringField;
personel: TQuery;
DataSource18: TDataSource;
sntplan: TQuery;
plansantiye: TQuery;
DataSource19: TDataSource;
DataSource20: TDataSource;
plansantiyeMUSNO: TIntegerField;
plansantiyeSNTNO: TAutoIncField;
plansantiyeSANTIYEAD: TStringField;
plansantiyeYETADSOYAD: TStringField;
plansantiyeADRES: TStringField;
plansantiyeEVTEL: TStringField;
plansantiyeISTEL: TStringField;
plansantiyeGSMTEL: TStringField;
plansantiyeFAXTEL: TStringField;
plansantiyeVERGIDAIRE: TStringField;
plansantiyeVERGINO: TFloatField;
sntplanSNTNO: TIntegerField;
sntplanISCI: TStringField;
sntplanSABAHYAPILAN: TStringField;
sntplanSABAHMETRAJ: TFloatField;
sntplanOGLENYAPILAN: TStringField;
sntplanOGLENMETRAJ: TFloatField;
sntplanKALANIS: TStringField;
sntplanPLANNO: TAutoIncField;
sntplanPSABAH: TStringField;
sntplanPOGLEN: TStringField;
sntplanPFAZLAMESAI: TStringField;
sntplanPEKSAAT: TStringField;
personelPER_NO: TAutoIncField;
personelADSOYAD: TStringField;
personelADRES1: TStringField;
personelADRES2: TStringField;
personelEV_TEL: TStringField;
personelGSM_TEL: TStringField;
personelE_MAIL: TStringField;
personelSEHIR: TStringField;
personelGOREVKOD: TIntegerField;
stokSTOKKOD: TStringField;
stokSTOKAD: TStringField;
stokBELGENO: TFloatField;
stokDEPOKOD: TStringField;
stokBRIM: TStringField;
sntodemeTAHTUR: TStringField;
sntplanTARIH: TDateField;
musteriMUSNO: TAutoIncField;
musteriAD: TStringField;
musteriSOYAD: TStringField;
musteriFIRMAUNVAN: TStringField;
musteriEVADRES: TStringField;
musteriEVADRES2: TStringField;
musteriISADRES: TStringField;
musteriISADRES2: TStringField;
musteriSEMT: TStringField;
musteriSEHIR: TStringField;
musteriEV_TEL: TStringField;
musteriIS_TEL: TStringField;
musteriGSM_TEL: TStringField;
musteriFAX_TEL: TStringField;
musteriFIRMA_GSM_TEL: TStringField;
musteriWEB_ADRES: TStringField;
musteriE_MAIL: TStringField;
musteriMESLEK: TStringField;
musteriEVTAR: TDateField;
musteriDOGUM_TAR: TDateField;
musteriKTARIH: TDateField;
musteriKSAAT: TTimeField;
musteriKKULLANCI: TStringField;
musteriTAKIM: TStringField;
musteriUYEODAKURULUS: TStringField;
sipmus: TQuery;
DataSource21: TDataSource;
sipmusMUSNO: TAutoIncField;
sipmusAD: TStringField;
sipmusSOYAD: TStringField;
sipmusFIRMAUNVAN: TStringField;
sipmusEVADRES: TStringField;
sipmusEVADRES2: TStringField;
sipmusISADRES: TStringField;
sipmusISADRES2: TStringField;
sipmusSEMT: TStringField;
sipmusSEHIR: TStringField;
sipmusEV_TEL: TStringField;
sipmusIS_TEL: TStringField;
sipmusGSM_TEL: TStringField;
sipmusFAX_TEL: TStringField;
sipmusFIRMA_GSM_TEL: TStringField;
sipmusWEB_ADRES: TStringField;
sipmusE_MAIL: TStringField;
sipmusMESLEK: TStringField;
sipmusEVTAR: TDateField;
sipmusDOGUM_TAR: TDateField;
sipmusKTARIH: TDateField;
sipmusKSAAT: TTimeField;
sipmusKKULLANCI: TStringField;
sipmusTAKIM: TStringField;
sipmusUYEODAKURULUS: TStringField;
sipbilgi: TQuery;
DataSource22: TDataSource;
sipparemetre: TTable;
DataSource23: TDataSource;
sipparemetreSEVKSEKIL: TStringField;
sipparemetreSATISTUR: TStringField;
sipparemetreSIPARISTUR: TStringField;
sipirs: TQuery;
DataSource24: TDataSource;
sipbilgiMUSNO: TIntegerField;
sipbilgiSIPNO: TAutoIncField;
sipbilgiKTARIH: TDateField;
sipbilgiKSAAT: TTimeField;
sipbilgiSIPTUR: TStringField;
sipbilgiSEVKYER: TStringField;
sipbilgiSEVKSEKIL: TStringField;
sipbilgiSATISTUR: TStringField;
sipbilgiSANTIYEAD: TStringField;
sipbilgiSEVKTARIH: TDateField;
sipbilgiNAKLIYEFIRMA: TStringField;
sipbilgiNAKFIRTEL: TStringField;
sipbilgiTESLIMALAN: TStringField;
sipurun: TQuery;
DataSource25: TDataSource;
sipurunSIPNO: TIntegerField;
sipurunSTOKKOD: TStringField;
sipurunCINSI: TStringField;
sipurunMIKTAR: TFloatField;
sipurunBRIM: TStringField;
sipurunEN: TFloatField;
sipurunBOY: TFloatField;
sipurunKALINLIK: TFloatField;
sipurunLISTEFIYAT: TFloatField;
sipurunISKONTO: TFloatField;
sipurunVADE: TFloatField;
sipurunBRIMFIYAT: TFloatField;
sipurunTOPTUTAR: TFloatField;
sipirsSIPNO: TIntegerField;
sipirsSTOKKOD: TStringField;
sipirsCINSI: TStringField;
sipirsMIKTAR: TFloatField;
sipirsBRIM: TStringField;
sipirsEN: TFloatField;
sipirsBOY: TFloatField;
sipirsKALINLIK: TFloatField;
sipirsLISTEFIYAT: TFloatField;
sipirsISKONTO: TFloatField;
sipirsVADE: TFloatField;
sipirsBRIMFIYAT: TFloatField;
sipirsTOPTUTAR: TFloatField;
sipirsIRSALIYENO: TFloatField;
sipirsGELENMIKTAR: TFloatField;
sipirsTESLIMTAR: TDateField;
sipirsKALANMIKTAR: TFloatField;
pass: TTable;
DataSource26: TDataSource;
passKULLANICI_AD: TStringField;
passPASSWORD: TStringField;
gorusmeMUSNO: TIntegerField;
gorusmeSANTNO: TAutoIncField;
gorusmeARAMASEBEB: TStringField;
gorusmePERSONEL: TStringField;
gorusmeGORUSMENOT: TStringField;
gorusmeRSAAT: TTimeField;
gorusmeRTARIH: TDateField;
gorusmeGORUSMETUR: TStringField;
gorusmeSONUC: TStringField;
gorusmeSOZUMUZ: TStringField;
gorusmeKTARIH: TDateField;
gorusmeKSAAT: TTimeField;
procedure musteritelBeforePost(DataSet: TDataSet);
procedure HobiBeforePost(DataSet: TDataSet);
procedure gorusmeBeforePost(DataSet: TDataSet);
procedure santiyeBeforePost(DataSet: TDataSet);
procedure sansozBeforePost(DataSet: TDataSet);
procedure sozmalBeforePost(DataSet: TDataSet);
procedure sntodemeBeforePost(DataSet: TDataSet);
procedure tahsilatBeforePost(DataSet: TDataSet);
procedure sntplanBeforePost(DataSet: TDataSet);
procedure sipbilgiBeforePost(DataSet: TDataSet);
private
{ Private declarations }
public
{ Public declarations }
end;
var
DataModule2: TDataModule2;
implementation
{$R *.dfm}
procedure TDataModule2.musteritelBeforePost(DataSet: TDataSet);
begin
// with musteritel do
// FieldByName('MUSNO').AsInteger := Params[0].AsInteger;
end;
procedure TDataModule2.HobiBeforePost(DataSet: TDataSet);
begin
// with Hobi do
// FieldByName('MUSNO').AsInteger := Params[0].AsInteger;
end;
procedure TDataModule2.gorusmeBeforePost(DataSet: TDataSet);
begin
with gorusme do
FieldByName('MUSNO').AsInteger := Params[0].AsInteger;
end;
procedure TDataModule2.santiyeBeforePost(DataSet: TDataSet);
begin
//with santiye do
// FieldByName('MUSNO').AsInteger := Params[0].AsInteger;
end;
procedure TDataModule2.sansozBeforePost(DataSet: TDataSet);
begin
//with sansoz do
// FieldByName('SNTNO').AsInteger := Params[0].AsInteger;
end;
procedure TDataModule2.sozmalBeforePost(DataSet: TDataSet);
begin
//with sozmal do
// FieldByName('YAPISNO').AsInteger := Params[0].AsInteger;
end;
procedure TDataModule2.sntodemeBeforePost(DataSet: TDataSet);
begin
//with sntodeme do
// FieldByName('SNTNO').AsInteger := Params[0].AsInteger;
end;
procedure TDataModule2.tahsilatBeforePost(DataSet: TDataSet);
begin
//with tahsilat do
// FieldByName('MUSNO').AsInteger := Params[0].AsInteger;
end;
procedure TDataModule2.sntplanBeforePost(DataSet: TDataSet);
begin
// with sntplan do
//FieldByName('SNTNO').AsInteger := Params[0].AsInteger;
end;
procedure TDataModule2.sipbilgiBeforePost(DataSet: TDataSet);
begin
//with sipbilgi do
// FieldByName('MUSNO').AsInteger := Params[0].AsInteger;
end;
end.
yerineKod: Tümünü seç
procedure TDataModule2.musteritelBeforePost(DataSet: TDataSet); begin // with musteritel do // FieldByName('MUSNO').AsInteger := Params[0].AsInteger; end;
Kod: Tümünü seç
DataSet.FieldByName('MUSNO').AsInteger := Params[0].AsInteger;
diğer kitlenme içinse. projeyi F9 yada run yerine direk F8 ile çalıştır.Birde Datamodül 2 yazıyor? bu datamodülde olmıyabilir eğer başka kullanıyorsan.
ZAGOR TENAY TÜRK'tür... TÜRK kalacak...
Zoru başarırım, İmkansız zaman alır
FreeMan 35.5
Soru sormaya üşenmiyorsan, sorunun çözümünü yazmaya da üşenme !!!
Zoru başarırım, İmkansız zaman alır
FreeMan 35.5
Soru sormaya üşenmiyorsan, sorunun çözümünü yazmaya da üşenme !!!
-
- Üye
- Mesajlar: 151
- Kayıt: 30 Oca 2004 09:16
- Konum: Manisa
Ben Sorunu bi bölüme kadar çözdüm ama tam olarak ne olduğunu anlayamıyorum son ilişkili olan TQuerylerimden Datamodule kaldırdım. Promram kitlenmeden düzgün bir şekilde açıldı ama Kaldırdığım TQueryleri yeniden Koyup Active Hale Getirdiğimde Yine Stack Owerflow Restart Delphi Hatası yeniden Çıkıyor.Tabloları bağlamak için Kullandığım kodu yukarıda yazmıştım ve bunları Beforepost Olayına yazıyorum. Acaba Bu kodu Herilişkili tabloda kullanıdığım için Bu hatayı çıkarıyor olabilirmi? İyi Çalışmalar?
-
- Üye
- Mesajlar: 151
- Kayıt: 30 Oca 2004 09:16
- Konum: Manisa