Data Modulun de applicatin çalışmıyor

[Selcuk]

Merhabalar, application datamodulu formunda çalışmıyor .Database:Firebird Uygulama geliştirme Delphi7

Kod: Tümünü seç

soru:=Application.MessageBox('Alış silinecek devam edilsin mi?','Soru',MB_YESNO or MB_ICONWARNING ) ;
if soru=mrno then Exit;
Modul.Alis.Delete;

Hata Detayı:
[Error] U_Modul.pas(615): Undeclared identifier: 'Application'
[Error] U_Modul.pas(615): Missing operator or semicolon
[Error] U_Modul.pas(615): Undeclared identifier: 'MB_YESNO'
[Error] U_Modul.pas(615): Undeclared identifier: 'MB_ICONWARNING'
[Warning] U_Modul.pas(615): Combining signed and unsigned types - widened both operands
[Error] U_Modul.pas(616): Undeclared identifier: 'mrno'
[Fatal Error] Create_Muhasebe.dpr(22): Could not compile used unit 'U_Modul.pas'

[brs]

Kod: Tümünü seç

var
  Cevap: Word;

Kod: Tümünü seç

procedure TSDForm.FormCloseQuery(Sender: TObject; var CanClose: boolean);
begin
  Cevap := Application.MessageBox
    ('Programı kapatmak istediğinizden emin misiniz?', 'Onay!',
    MB_YesNo or MB_ICONQUESTION);
  begin
    if Cevap = MrYes then
    begin
      Application.Terminate; // Close
    end
    else
    begin
      if Cevap = MrNo then
      begin
        CanClose := False;
      end;
    end;
  end;

[Selcuk]

merhabalar,

Kod: Tümünü seç

var
 soru: Word;

global var da tanımlı

[ertank]

Merhabalar, application datamodulu formunda çalışmıyor .Database:Firebird Uygulama geliştirme Delphi7

Kod: Tümünü seç

soru:=Application.MessageBox('Alış silinecek devam edilsin mi?','Soru',MB_YESNO or MB_ICONWARNING ) ;
if soru=mrno then Exit;
Modul.Alis.Delete;

Hata Detayı:
[Error] U_Modul.pas(615): Undeclared identifier: 'Application'
[Error] U_Modul.pas(615): Missing operator or semicolon
[Error] U_Modul.pas(615): Undeclared identifier: 'MB_YESNO'
[Error] U_Modul.pas(615): Undeclared identifier: 'MB_ICONWARNING'
[Warning] U_Modul.pas(615): Combining signed and unsigned types - widened both operands
[Error] U_Modul.pas(616): Undeclared identifier: 'mrno'
[Fatal Error] Create_Muhasebe.dpr(22): Could not compile used unit 'U_Modul.pas'

Merhaba,

Sorunu çözmeye ilk hata mesajından başlamanızda fayda var. İlk hata mesajı bize "Application" nedir bilmediğini söylüyor. TDataModule standartta TForm ile kıyaslandığında farklı uses kısmına sahiptir. Dolayısıyla "Forms" normalde uses kısmında olmaz.

Application ise Forms içinde tanımlanmıştır. Eğer ilgili datamodule uses kısmına eklerseniz sorununuzun çözülmesi gerekir diye düşünüyorum.

Kod: Tümünü seç

uses
  Forms;

[Selcuk]

Evet sorun çözüldü. Teşekkürler.