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" 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'); 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.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); 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" 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'); LoginForm.Run; }
https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" rel="nofollow - 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">
|