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;

}

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);

  }

}