var

  LoginForm, RegisterForm : TclForm;

  lblBaslik, lblRegTitle : TclLabel;

  edtKullanici, edtSifre : TclEdit;

  edtRegName, edtRegEmail, edtRegPass : TclEdit;

  btnGiris, btnGoRegister, btnRegSave, btnRegBack : TclButton;

  image : TCLImage;

  clQuery : TclSqlQuery;

 

// geçişler

void KayitEkraninaGec;

{

  RegisterForm.Run; 

}

void GirisEkraninaDon;

{

  RegisterForm.Close; 

}

// giriş 

void GirisYap;

{

  if( (edtKullanici.Text == '') || (edtSifre.Text == '') )

  {

    ShowMessage('Lütfen alanları doldurun.');

  }

  else

  {

    clQuery.Connection = Clomosy.DBSQLServerConnection ; 

    clQuery.SQL.Text = 'SELECT * FROM Kullanicilar WHERE kullanici_adi = ''' + edtKullanici.Text + ''' AND sifre = ''' + edtSifre.Text + '''';

    clQuery.Execute('','');

    if (clQuery.RecordCount > 0)

    {

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

    }

    else

    {

      ShowMessage('Hatalı Bilgi!');

    }

  }

}

// kayit ol

void KaydiTamamla;

{

  if ((edtRegName.Text == '') || (edtRegEmail.Text == '') || (edtRegPass.Text == ''))

  {

    ShowMessage('Tüm alanları doldurun.');

  }

  else

  {

    clQuery.Connection = Clomosy.DBSQLServerConnection;

    clQuery.SQL.Text = 'INSERT INTO Kullanicilar (kullanici_adi, ad_soyad, email, sifre) VALUES (''' + edtRegEmail.Text + ''', ''' + edtRegName.Text + ''', ''' + edtRegEmail.Text + ''', ''' + edtRegPass.Text + ''')';

    

    clQuery.Execute('', ''); 

    ShowMessage('Kayıt Başarılı!');

    RegisterForm.Close;

  }

}

{

  clQuery = TclSqlQuery.Create(Self);

  // giriş ekrani

  LoginForm = TclForm.Create(Self);

  LoginForm.SetFormColor('#ebc2d0', '#f7f6ca', clGVertical);

  

  

  image = LoginForm.AddNewImage(LoginForm, 'image');

  LoginForm.SetImage(image, ' https://marketplace.canva.com/mUZOo/MAFRRlmUZOo/1/tl/canva-MAFRRlmUZOo.png" rel="nofollow - https://marketplace.canva.com/mUZOo/MAFRRlmUZOo/1/tl/canva-MAFRRlmUZOo.png ');

  image.Height = 400;

  image.Width = 140; 

  

  lblBaslik = LoginForm.AddNewLabel(LoginForm, 'lblBaslik', 'KULLANICI GİRİŞİ');

  lblBaslik.Align = alTop;

  lblBaslik.Height = 25;

  lblBaslik.Margins.Top = 50;

  lblBaslik.Margins.Left = 125;

  

  edtKullanici = LoginForm.AddNewEdit(LoginForm, 'edtKullanici', 'Kullanıcı Adı');

  edtKullanici.Align = alTop;

  edtKullanici.Height = 45;

  edtKullanici.Margins.Top = 80;

  edtKullanici.Margins.Left = 40;

  edtKullanici.Margins.Right = 40;

  

  edtSifre = LoginForm.AddNewEdit(LoginForm, 'edtSifre', 'Şifre');

  edtSifre.Align = alTop;

  edtSifre.Height = 45;

  edtSifre.Margins.Top = 15;

  edtSifre.Margins.Left = 40;

  edtSifre.Margins.Right = 40;

  

  btnGiris = LoginForm.AddNewButton(LoginForm, 'btnGiris', 'GİRİŞ YAP');

  btnGiris.Align = alTop;

  btnGiris.Height = 50;

  btnGiris.Margins.Top = 30;

  btnGiris.Margins.Left = 40;

  btnGiris.Margins.Right = 40;

  LoginForm.AddNewEvent(btnGiris, tbeOnClick, 'GirisYap');

  

  btnGoRegister = LoginForm.AddNewButton(LoginForm, 'btnGoRegister', 'Hesabınız yok mu? Kayıt Ol');

  btnGoRegister.Align = alTop;

  btnGoRegister.Height = 50;

  btnGoRegister.Margins.Top = 25; 

  btnGoRegister.Margins.Left = 30;

  btnGoRegister.Margins.Right = 30;

  LoginForm.AddNewEvent(btnGoRegister, tbeOnClick, 'KayitEkraninaGec');

  // kayit ekranı

  RegisterForm = TclForm.Create(Self);

  RegisterForm.SetFormColor('#ebc2d0', '#f7f6ca', clGVertical); 

  lblRegTitle = RegisterForm.AddNewLabel(RegisterForm, 'lblRegTitle', 'YENİ HESAP OLUŞTUR');

  lblRegTitle.Align = alTop; 

  lblRegTitle.Height = 40; 

  lblRegTitle.Margins.Top = 60;

  lblRegTitle.TextSettings.HorzAlign = taCenter;

  edtRegName = RegisterForm.AddNewEdit(RegisterForm, 'edtRegName', 'Adınız Soyadınız');

  edtRegName.Align = alTop; 

  edtRegName.Height = 45; 

  edtRegName.Margins.Top = 30; 

  edtRegName.Margins.Left = 40; 

  edtRegName.Margins.Right = 40;

  edtRegEmail = RegisterForm.AddNewEdit(RegisterForm, 'edtRegEmail', 'E-posta Adresi');

  edtRegEmail.Align = alTop; 

  edtRegEmail.Height = 45; 

  edtRegEmail.Margins.Top = 15; 

  edtRegEmail.Margins.Left = 40; 

  edtRegEmail.Margins.Right = 40;

  edtRegPass = RegisterForm.AddNewEdit(RegisterForm, 'edtRegPass', 'Şifre');

  edtRegPass.Align = alTop; 

  edtRegPass.Height = 45; 

  edtRegPass.Margins.Top = 15; 

  edtRegPass.Margins.Left = 40; 

  edtRegPass.Margins.Right = 40;

  

  btnRegSave = RegisterForm.AddNewButton(RegisterForm, 'btnRegSave', 'KAYIT İŞLEMİNİ TAMAMLA');

  btnRegSave.Align = alTop; 

  btnRegSave.Height = 50; 

  btnRegSave.Margins.Top = 30; 

  btnRegSave.Margins.Left = 40; 

  btnRegSave.Margins.Right = 40;

  RegisterForm.AddNewEvent(btnRegSave, tbeOnClick, 'KaydiTamamla');

  btnRegBack = RegisterForm.AddNewButton(RegisterForm, 'btnRegBack', 'Geri Dön');

  btnRegBack.Align = alTop; 

  btnRegBack.Height = 40; 

  btnRegBack.Margins.Top = 15; 

  btnRegBack.Margins.Left = 40; 

  btnRegBack.Margins.Right = 40;

  RegisterForm.AddNewEvent(btnRegBack, tbeOnClick, 'GirisEkraninaDon');

  

  try

  {

    // Kendi SQL Server IP, Kullanıcı Adı, Şifre ve DB Adını aşağıya yazmalısın:

    if (Clomosy.DBSQLServerConnect('SQLOLEDB', '127.0.0.1', 'sa', 'Va123456', 'Kullanicilar', 1433))

    {

      ShowMessage('Veritabanına Başarıyla Bağlanıldı!');

      clQuery = TclSqlQuery.Create(Self); // Bağlantı varsa Query nesnesini oluştur

    }

    else

    {

      ShowMessage('Bağlantı Kurulamadı! Bilgilerinizi kontrol edin.');

    }

  }

  except

  {

    ShowMessage('Kritik Hata: Veritabanı bağlantı işlemi sırasında program çöktü!');

  }

LoginForm.Run;

}

  try

    if (Clomosy.DBSQLServerConnect('SQLOLEDB', '127.0.0.1', 'sa', 'Va123456', 'Kullanicilar', 1433))

    {

      ShowMessage('Veritabanına Başarıyla Bağlanıldı!');

      clQuery = TclSqlQuery.Create(Self);

    }

    else

    {

      ShowMessage('Bağlantı Kurulamadı! Bilgilerinizi kontrol edin.');

    }

  except

    ShowMessage('Kritik Hata: Veritabanı bağlantı işlemi sırasında program çöktü!');

  }

LoginForm.Run;

}