Clomosy | Forum : Database bağlantı Hatası

Clomosy | Forum : Database bağlantı Hatası https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Wed, 01 Jul 2026 20:53:32 +0000 Wed, 01 Jul 2026 17:47:41 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 30 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=1577 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[Database bağlantı Hatası : var LoginForm, RegisterForm: TclForm;...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1577&PID=3646#3646 Yazar: Emr.Erkmn
Konu: 1577
Gönderim Zamanı: 01 Temmuz 2026 Saat 17:47

var

LoginForm, RegisterForm: TclForm;

lblBaslik, lblRegTitle: TclLabel;

edtKullanici, edtSifre: TclEdit;

edtRegName, edtRegEmail, edtRegPass: TclEdit;

btnGiris, btnGoRegister, btnRegSave, btnRegBack: TclButton;

image: TCLImage;

clQuery: TclSqlQuery;

void KayitEkraninaGec;

{

RegisterForm.Run;

}

void GirisEkraninaDon;

{

RegisterForm.Close;

}

void GirisYap;

{

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

{

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

}

else

{

try

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

clQuery.Open;

if (clQuery.RecordCount > 0)

{

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

}

else

{

ShowMessage('Hatalı Bilgi!');

}

except

ShowMessage('Sorgu Hatası: ' + LastExceptionMessage);

}

void KaydiTamamla;

{

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

{

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

}

else

{

try

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

clQuery.Execute('', '');

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

RegisterForm.Close;

except

ShowMessage('Kayıt Hatası: ' + LastExceptionMessage);

}

{

LoginForm = TclForm.Create(Self);

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

clQuery = TclSqlQuery.Create(Self);

try

Clomosy.DBSQLServerConnect('SQL Server', 'localhost', 'sa', 'Va123456', 'Kullanicilar', 1433);

clQuery.Connection = Clomosy.DBSQLServerConnection;

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

except

ShowMessage('Bağlantı Kurulamadı! Detay: ' + LastExceptionMessage);

}

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

LoginForm.SetImage(image, '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 = 25;

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

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

LoginForm.FormWaiting.Visible = False;

LoginForm.BtnFormMenu.Visible = False;

LoginForm.BtnGoBack.Visible = False;

LoginForm.Run;

}

https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">]]> Wed, 01 Jul 2026 17:47:41 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1577&PID=3646#3646 <![CDATA[Database bağlantı Hatası : Merhaba Vesile,Sql bağlantısı...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1577&PID=3643#3643 Yazar: Emr.Erkmn
Konu: 1577
Gönderim Zamanı: 01 Temmuz 2026 Saat 17:00

Merhaba Vesile,

Sql bağlantısı yaparken koşul içerisinde kullanmamanı isteyeceğim. Sadece try-except yapısına bırakmalısın.

SQL parametrelerini yazarken de hatan mevcut SQLNCL!! yerine SQL Server yazman gerekli

TCP/IP protokolünü aktif eder misin?

Ayrıca sql sorgularında eri çekerken execute yerine OpenOrExecute kullanmanı istiyorum bu yapı daha sağlıklı

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

{

try

clQuery.Connection = Clomosy.DBSQLServerConnection ;

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

clQuery.OpenOrExecute;

if (clQuery.RecordCount > 0)

{

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

}

else

{

ShowMessage('Hatalı Bilgi!');

}

except

ShowMessage('Sorgu Hatası: ' + LastExceptionMessage);

}

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

}

{

LoginForm = TclForm.Create(Self);

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

clQuery = TclSqlQuery.Create(Self);

try

Clomosy.DBSQLServerConnect('SQL Server', 'localhost', 'sa', 'Va123456', 'Kullanicilar', 1433);

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

except

ShowMessage('Bağlantı Kurulamadı! Detay: ' + LastExceptionMessage);

}

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

LoginForm.SetImage(image, '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');

LoginForm.Run;

} 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.Execute('', '');

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

RegisterForm.Close;

}

{

clQuery = TclSqlQuery.Create(Self);

// giriş ekrani

LoginForm = TclForm.Create(Self);

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

try

if (Clomosy.DBSQLServerConnect('SQLNCLI11', 'localhost', '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ü!');

}

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

LoginForm.SetImage(image, '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');

LoginForm.Run;

}

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.Execute('', '');

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

RegisterForm.Close;

}

{

clQuery = TclSqlQuery.Create(Self);

// giriş ekrani

LoginForm = TclForm.Create(Self);

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

try

if (Clomosy.DBSQLServerConnect('SQLNCLI11', 'localhost', '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ü!');

}

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

LoginForm.SetImage(image, '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');

LoginForm.Run;

}