aktif kullanıcı veri çekme

merhabalar, ten unite bu şekilde verileri aktarmaya çalıştığımda oluyordu başka bir unite de aktif kullanıcı aktarmaya çalışırken loginde hata aldım birim bilinmeyen tanımlayıcı veya değişken tanımlanmamış şeklinde hata veriyor

void LoginBtnClick;

{

  try

  {

    // Veritabanına bağlan

    Clomosy.DBSQLiteConnect(Clomosy.AppFilesPath + 'veritabanininismi.db', '');

    // Kullanıcı kontrolü

    Clomosy.DBSQLiteQuery.SQL.Text =

      'SELECT * FROM Users WHERE Username = ' + QuotedStr(LoginUsernameEdit.Text) +

      ' AND Password = ' + QuotedStr(LoginPasswordEdit.Text);

    Clomosy.DBSQLiteQuery.OpenOrExecute;

    if Clomosy.DBSQLiteQuery.RecordCount > 0 {

      ShowMessage('Giriş başarılı!');

      // GLOBAL kullanıcıyı ata

      UVeriGlobal.AktifKullanici = LoginUsernameEdit.Text;

      // Tabloyu oluştur (eğer yoksa)

      Clomosy.DBSQLiteQuery.SQL.Text =

        'CREATE TABLE IF NOT EXISTS ElektrikVeriTablosu (' +

        'ID INTEGER PRIMARY KEY AUTOINCREMENT, ' +

        'Kategori TEXT, Deger REAL, Renk TEXT, KullaniciAdi TEXT)';

      Clomosy.DBSQLiteQuery.OpenOrExecute;

      // Örnek veri ekle

      Clomosy.DBSQLiteQuery.SQL.Text =

        'INSERT INTO ElektrikVeriTablosu (Kategori, Deger, Renk, KullaniciAdi) VALUES (' +

        QuotedStr('Bugün') + ',' +

        '12.4,' +

        QuotedStr('clBlue') + ',' +

        QuotedStr(UVeriGlobal.AktifKullanici) + ')';

      Clomosy.DBSQLiteQuery.OpenOrExecute;

      // Ana ekrana geç

      LoginForm.Close;

      Clomosy.RunUnit('UAnasayfa');

    }

    else {

      ShowMessage('Kullanıcı adı veya şifre hatalı!');

    }

  }

  except

    ShowMessage('Hata oluştu: ' + LastExceptionMessage);

  }

}

var

  LoginForm: TclStyleForm;

  LoginUsernameEdit, LoginPasswordEdit: TclProEdit;

  LoginBtn, GoToRegisterBtn: TclProButton;

  LoginPanel: TclProPanel;

  KayitTitleLbl: TclProLabel;

uses UVeriGlobal;

void LoginBtnClick;

{

  try

  {

    // Veritabanına bağlan

    Clomosy.DBSQLiteConnect(Clomosy.AppFilesPath + 'veritabanininismi.db', '');

    // Kullanıcı kontrolü

    Clomosy.DBSQLiteQuery.SQL.Text =

      'SELECT * FROM Users WHERE Username = ' + QuotedStr(LoginUsernameEdit.Text) +

      ' AND Password = ' + QuotedStr(LoginPasswordEdit.Text);

    Clomosy.DBSQLiteQuery.OpenOrExecute;

    if Clomosy.DBSQLiteQuery.RecordCount > 0 {

      ShowMessage('Giriş başarılı!');

      // GLOBAL kullanıcıyı ata

      UVeriGlobal.AktifKullanici = LoginUsernameEdit.Text;

      // Tabloyu oluştur (eğer yoksa)

      Clomosy.DBSQLiteQuery.SQL.Text =

        'CREATE TABLE IF NOT EXISTS ElektrikVeriTablosu (' +

        'ID INTEGER PRIMARY KEY AUTOINCREMENT, ' +

        'Kategori TEXT, Deger REAL, Renk TEXT, KullaniciAdi TEXT)';

      Clomosy.DBSQLiteQuery.OpenOrExecute;

      // Örnek veri ekle

      Clomosy.DBSQLiteQuery.SQL.Text =

        'INSERT INTO ElektrikVeriTablosu (Kategori, Deger, Renk, KullaniciAdi) VALUES (' +

        QuotedStr('Bugün') + ',' +

        '12.4,' +

        QuotedStr('clBlue') + ',' +

        QuotedStr(UVeriGlobal.AktifKullanici) + ')';

      Clomosy.DBSQLiteQuery.OpenOrExecute;

      // Ana ekrana geç

      LoginForm.Close;

      Clomosy.RunUnit('UAnasayfa');

    }

    else {

      ShowMessage('Kullanıcı adı veya şifre hatalı!');

    }

  }

  except

    ShowMessage('Hata oluştu: ' + LastExceptionMessage);

  }

}

// Kayıt ekranına geç

void GoToRegisterBtnClick;

{

  LoginForm.Close;

  Clomosy.RunUnit('USignin');

}

// Arayüz kurulumu

{

  LoginForm = TclStyleForm.Create(Self);

  LoginForm.SetFormColor('#dff6f0', '#43c7b1', clGVertical);

  

  LoginPanel = LoginForm.AddNewProPanel(LoginForm, 'LoginPanel');

  LoginPanel.Align = alClient;

  

  KayitTitleLbl = LoginForm.AddNewProLabel(LoginPanel, 'TitleLbl', 'Giriş Yap');

  KayitTitleLbl.Align = alTop;

  KayitTitleLbl.Height = 30;

  KayitTitleLbl.Margins.Top = 30;

  KayitTitleLbl.clProSettings.FontSize = 30;

  KayitTitleLbl.SetclProSettings(KayitTitleLbl.clProSettings);

  

  LoginUsernameEdit = LoginForm.AddNewProEdit(LoginPanel, 'LoginUsernameEdit', 'Kullanıcı Adı');

  LoginUsernameEdit.Align = alTop;

  LoginUsernameEdit.Height = 50;

  LoginUsernameEdit.Margins.Top = 25;

  LoginUsernameEdit.Margins.Left = 60;

  LoginUsernameEdit.Margins.Right = 60;

  LoginUsernameEdit.clProSettings.IsRound = True;

  LoginPasswordEdit = LoginForm.AddNewProEdit(LoginPanel, 'LoginPasswordEdit', 'Şifre');

  LoginPasswordEdit.Align = alTop;

  LoginPasswordEdit.Height = 50;

  LoginPasswordEdit.Margins.Top = 15;

  LoginPasswordEdit.Margins.Left = 60;

  LoginPasswordEdit.Margins.Right = 60;

  LoginPasswordEdit.clProSettings.IsRound = True;

  LoginPasswordEdit.Password = True;

  LoginBtn = LoginForm.AddNewProButton(LoginPanel, 'LoginBtn', 'Giriş Yap');

  LoginBtn.Align = alTop;

  LoginBtn.Margins.Top = 20;

  LoginForm.AddNewEvent(LoginBtn, tbeOnClick, 'LoginBtnClick');

  GoToRegisterBtn = LoginForm.AddNewProButton(LoginPanel, 'GoToRegisterBtn', 'Üye Ol');

  GoToRegisterBtn.Align = alTop;

  GoToRegisterBtn.Margins.Top = 10;

  LoginForm.AddNewEvent(GoToRegisterBtn, tbeOnClick, 'GoToRegisterBtnClick');

  LoginForm.Run;

}