SqlLite Insert


   
var
  KayitForm: TclForm;
  KayitEmailEdit, KayitParolaEdit,KayitIsimEdit,KayitSoyisimEdit,KayitTelefonEdit : TclProEdit;
  KayitKaydolBtn,KayitHiddenPasswordBtn,KayitNormalPasswordBtn: TClProButton;
  KayitUyeOlLbl : TClProLabel;
  KayitPnl: TclProPanel;
  KayitLogo:TClProImage;
  YasEdit : TClProDateEdit;
  KayitEmailImg,KayitpasswordImg,KayitIsimImg,KayitSoyisimImg,YasEditImg,KayitTelefonEditImg : TClProImage;
  Qry : TClSQLiteQuery;
  gun,ay,yil, dogruTarih: TclString;
  KayitVerticalScrollBox: TclVertScrollBox;
  database, password : String;
  
{
  database = Clomosy.AppFilesPath + 'ClomosyDatabase.db3'     //'D:\SQLite Databases\ClomosyDatabase.db'
  password = '';
  
  try
    Clomosy.DBSQLiteConnect(database, password);
    
    // SQLite için tablo oluşturma
    Clomosy.DBSQLiteQuery.Sql.Text = 'CREATE TABLE IF NOT EXISTS KaydolBilgiOrnek (İsim TEXT NOT NULL, Soyisim TEXT NOT NULL, Telefon TEXT NOT NULL, Eposta TEXT NOT NULL, Parola TEXT NOT NULL, DogumTarihi TEXT NOT NULL)';
    Clomosy.DBSQLiteQuery.OpenOrExecute;
    
    ShowMessage('Veritabanına tablo ekleme işlemi başarılı!');
    //InsertExampleData;
  except
    ShowMessage('Exception Class: '+LastExceptionClassName+' Exception Message: '+LastExceptionMessage);
  }
}

void InsertExampleData;
{
  try
    Clomosy.DBSQLiteQuery.SQL.Text = '
    INSERT INTO KaydolBilgiOrnek (İsim, Soyisim, Telefon, Eposta, Parola, DogumTarihi) VALUES (''Mehmet'', ''Öden'', ''05369937353'', ''[email protected]'', ''12345678'', ''2003-06-28'');
    INSERT INTO KaydolBilgiOrnek (İsim, Soyisim, Telefon, Eposta, Parola, DogumTarihi) VALUES (''Cafer'', ''Kösker'', ''05535423484'', ''[email protected]'', ''admin1234'', ''2003-07-14'');
    INSERT INTO KaydolBilgiOrnek (İsim, Soyisim, Telefon, Eposta, Parola, DogumTarihi) VALUES (''Ali Berkay'', ''Sasi'', ''05068892277'', ''[email protected]'', ''a123123'', ''2001-10-08'');
    INSERT INTO KaydolBilgiOrnek (İsim, Soyisim, Telefon, Eposta, Parola, DogumTarihi) VALUES (''Ertan'', ''Kösker'', ''05359778285'', ''[email protected]'', ''ertan1234'', ''1980-02-28'');
    INSERT INTO KaydolBilgiOrnek (İsim, Soyisim, Telefon, Eposta, Parola, DogumTarihi) VALUES (''Emre'', ''Keser'', ''05453822111'', ''[email protected]'', ''EmreKeser2003'', ''2003-06-06'');
    INSERT INTO KaydolBilgiOrnek (İsim, Soyisim, Telefon, Eposta, Parola, DogumTarihi) VALUES (''Mirkan'', ''Özdemir'', ''05531394067'', ''mirkanö[email protected]'', ''mirkanOz04'', ''2004-05-18'');
    INSERT INTO KaydolBilgiOrnek (İsim, Soyisim, Telefon, Eposta, Parola, DogumTarihi) VALUES (''A'', ''A'', ''05359778584'', ''A'', ''a'', ''2024-07-31'');';
   
    Clomosy.DBSQLiteQuery.OpenOrExecute;
    ShowMessage('Veri ekleme başarılı!');
  except
    ShowMessage('Exception Class: '+LastExceptionClassName+' Exception Message: '+LastExceptionMessage);
  }
}

void InsertDataBase;
{
  gun = clGetStringTo(YasEdit.Date,'.');
  yil = clGetStringAfter(YasEdit.Date, '.');
  ay = clGetStringTo(yil, '.');
  yil = clGetStringAfter(yil, '.');
  
  dogruTarih = yil + '-' + ay + '-' + gun;

  try
    Clomosy.DBSQLiteQuery.SQL.Text =
      'INSERT INTO KaydolBilgiOrnek (İsim, Soyisim, Telefon, Eposta, Parola, DogumTarihi) ' +
      'VALUES (' +
      QuotedStr(KayitIsimEdit.Text) + ',' +
      QuotedStr(KayitSoyisimEdit.Text) + ',' +
      QuotedStr(KayitTelefonEdit.Text) + ',' +
      QuotedStr(KayitEmailEdit.Text) + ',' +
      QuotedStr(KayitParolaEdit.Text) + ',' +
      QuotedStr(dogruTarih) + // Dönüştürülmüş tarih değeri
      ');';
    Clomosy.DBSQLiteQuery.OpenOrExecute;
    ShowMessage('Kullanıcı Ekleme Başarılı');
  except
    ShowMessage('Exception Class : ' + LastExceptionClassName + ' Exception Message : ' + LastExceptionMessage);
  }
}


void KayitHiddenPasswordBtnClick;
{
  if not Assigned(KayitNormalPasswordBtn) 
  {
    KayitNormalPasswordBtn = KayitForm.AddNewProButton(KayitParolaEdit, 'KayitNormalPasswordBtn', '');
    KayitNormalPasswordBtn.Align = alRight;
    KayitNormalPasswordBtn.Margins.Right = 10;
    KayitNormalPasswordBtn.Margins.Top = 5;
    KayitNormalPasswordBtn.Margins.Bottom = 5;
    KayitNormalPasswordBtn.Width = 25;
    KayitForm.SetImage(KayitNormalPasswordBtn, 'https://i.imgur.com/3h7ewO1.png');
    KayitForm.AddNewEvent(KayitNormalPasswordBtn, tbeOnClick, 'KayitNormalPasswordBtnClick');
  }
  else
  {
    KayitNormalPasswordBtn.Visible = True;
  }

  KayitParolaEdit.Password = False;
  KayitHiddenPasswordBtn.Visible = False;
}


void KayitNormalPasswordBtnClick;
{
  try
    if not Assigned(KayitHiddenPasswordBtn) 
    {
      KayitHiddenPasswordBtn = KayitForm.AddNewProButton(KayitParolaEdit, 'KayitHiddenPasswordBtn', '');
      KayitHiddenPasswordBtn.Align = alRight;
      KayitHiddenPasswordBtn.Margins.Right = 10;
      KayitHiddenPasswordBtn.Margins.Top = 5;
      KayitHiddenPasswordBtn.Margins.Bottom = 5;
      KayitHiddenPasswordBtn.Width = 25;
      KayitForm.SetImage(KayitHiddenPasswordBtn, 'https://i.imgur.com/dQ1keru.png');
      KayitForm.AddNewEvent(KayitHiddenPasswordBtn, tbeOnClick, 'KayitHiddenPasswordBtnClick');
    }
    else
    {
      KayitHiddenPasswordBtn.Visible = True;
    }

    KayitParolaEdit.Password = True;
    KayitNormalPasswordBtn.Visible = False;
  except
    ShowMessage('Exception Class: ' + LastExceptionClassName + ' Exception Message: ' + LastExceptionMessage);
  }
}


{
  KayitForm= TclForm.Create(Self);
  
  
  KayitPnl = KayitForm.AddNewProPanel(KayitForm, 'KayitPnl');
  KayitPnl.Align = alCenter;
  KayitPnl.Height = 830;
  KayitPnl.Width = 400;
  KayitPnl.clProSettings.IsTransparent = True;
  KayitPnl.SetclProSettings(KayitPnl.clProSettings);
  
  KayitVerticalScrollBox = KayitForm.AddNewVertScrollBox(KayitPnl,'KayitVerticalScrollBox');
  KayitVerticalScrollBox.Align = alClient;
  KayitVerticalScrollBox.Margins.Top = 20;
  KayitVerticalScrollBox.Margins.Bottom = 10;
  KayitVerticalScrollBox.Margins.Right = 10;
  KayitVerticalScrollBox.Margins.Left = 10;

  
  KayitLogo = KayitForm.AddNewProImage(KayitVerticalScrollBox,'KayitLogo');
  KayitLogo.Align = alMostTop;
  KayitLogo.Height = 220;
  KayitLogo.Margins.Top =10;
  KayitLogo.Margins.Left = 20;
  KayitLogo.Margins.Right = 20;
  KayitLogo.clProSettings.IsTransparent = True;
  KayitLogo.clProSettings.PictureSource = 'https://i.imgur.com/bB7XC76.png';
  KayitLogo.SetclProSettings(KayitLogo.clProSettings);
  
  
  KayitIsimEdit = KayitForm.AddNewProEdit(KayitVerticalScrollBox, 'KayitIsimEdit', 'İsim');
  KayitIsimEdit.Align = alTop;
  KayitIsimEdit.Height = 50;
  KayitIsimEdit.Margins.Top =20;
  KayitIsimEdit.Margins.Left = 20;
  KayitIsimEdit.Margins.Right = 20;
  KayitIsimEdit.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#5AB2FF');
  KayitIsimEdit.clProSettings.IsTransparent = True;
  KayitIsimEdit.clProSettings.IsFill = False;
  KayitIsimEdit.clProSettings.IsRound = True;
  KayitIsimEdit.clProSettings.RoundHeight = 10;
  KayitIsimEdit.clProSettings.RoundWidth = 10;
  KayitIsimEdit.TextSettings.Font.Size = 16;
  KayitIsimEdit.clProSettings.FontColor = clAlphaColor.clHexToColor('#070807');
  KayitIsimEdit.clProSettings.BorderColor = clAlphaColor.clHexToColor('#070807');
  KayitIsimEdit.clProSettings.BorderWidth = 2;
  KayitIsimEdit.SetclProSettings(KayitIsimEdit.clProSettings);
  
  KayitIsimImg = KayitForm.AddNewProImage(KayitIsimEdit,'KayitIsimImg');
  KayitIsimImg.Align = alLeft;
  KayitIsimImg.Margins.Left = 10;
  KayitIsimImg.Margins.Top = 5;
  KayitIsimImg.Margins.Bottom =5;
  KayitIsimImg.Width = 25;
  KayitForm.SetImage(KayitIsimImg,'https://i.imgur.com/Xbs3SUh.png');
  
  
  KayitSoyisimEdit = KayitForm.AddNewProEdit(KayitVerticalScrollBox, 'KayitSoyisimEdit', 'Soyisim');
  KayitSoyisimEdit.Align = alTop;
  KayitSoyisimEdit.Height = 50;
  KayitSoyisimEdit.Margins.Top =20;
  KayitSoyisimEdit.Margins.Left = 20;
  KayitSoyisimEdit.Margins.Right = 20;
  KayitSoyisimEdit.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#80AF81');
  KayitSoyisimEdit.clProSettings.IsTransparent = True;
  KayitSoyisimEdit.clProSettings.IsFill = False;
  KayitSoyisimEdit.clProSettings.IsRound = True;
  KayitSoyisimEdit.clProSettings.RoundHeight = 10;
  KayitSoyisimEdit.clProSettings.RoundWidth = 10;
  KayitSoyisimEdit.TextSettings.Font.Size = 16;
  KayitSoyisimEdit.clProSettings.FontColor = clAlphaColor.clHexToColor('#070807');
  KayitSoyisimEdit.clProSettings.BorderColor = clAlphaColor.clHexToColor('#070807');
  KayitSoyisimEdit.clProSettings.BorderWidth = 2;
  KayitSoyisimEdit.SetclProSettings(KayitSoyisimEdit.clProSettings);
  
  KayitSoyisimImg = KayitForm.AddNewProImage(KayitSoyisimEdit,'KayitSoyisimImg');
  KayitSoyisimImg.Align = alLeft;
  KayitSoyisimImg.Margins.Left = 10;
  KayitSoyisimImg.Margins.Top = 5;
  KayitSoyisimImg.Margins.Bottom =5;
  KayitSoyisimImg.Width = 25;
  KayitForm.SetImage(KayitSoyisimImg,'https://i.imgur.com/elfB1uV.png');
  
  
  KayitTelefonEdit = KayitForm.AddNewProEdit(KayitVerticalScrollBox, 'KayitTelefonEdit', 'Telefon');
  KayitTelefonEdit.Align = alTop;
  KayitTelefonEdit.Height = 50;
  KayitTelefonEdit.Margins.Top =20;
  KayitTelefonEdit.Margins.Left = 20;
  KayitTelefonEdit.Margins.Right = 20;
  KayitTelefonEdit.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#B4B4B8');
  KayitTelefonEdit.clProSettings.IsTransparent = True;
  KayitTelefonEdit.clProSettings.IsFill = False;
  KayitTelefonEdit.clProSettings.IsRound = True;
  KayitTelefonEdit.clProSettings.RoundHeight = 10;
  KayitTelefonEdit.clProSettings.RoundWidth = 10;
  KayitTelefonEdit.TextSettings.Font.Size = 16;
  KayitTelefonEdit.clProSettings.FontColor = clAlphaColor.clHexToColor('#070807');
  KayitTelefonEdit.clProSettings.BorderColor = clAlphaColor.clHexToColor('#070807');
  KayitTelefonEdit.clProSettings.BorderWidth = 2;
  KayitTelefonEdit.SetclProSettings(KayitTelefonEdit.clProSettings);
  
  KayitTelefonEditImg = KayitForm.AddNewProImage(KayitTelefonEdit,'KayitTelefonEditImg');
  KayitTelefonEditImg.Align = alLeft;
  KayitTelefonEditImg.Margins.Left = 10;
  KayitTelefonEditImg.Margins.Top = 5;
  KayitTelefonEditImg.Margins.Bottom =5;
  KayitTelefonEditImg.Width = 25;
  KayitForm.SetImage(KayitTelefonEditImg,'https://i.imgur.com/PrNjEw2.png');
  
  
  // Kullanıcı adı edit ayarları
  KayitEmailEdit = KayitForm.AddNewProEdit(KayitVerticalScrollBox, 'KayitEmailEdit', 'E-posta');
  KayitEmailEdit.Align = alTop;
  KayitEmailEdit.Height = 50;
  KayitEmailEdit.Margins.Top =20;
  KayitEmailEdit.Margins.Left = 20;
  KayitEmailEdit.Margins.Right = 20;
  KayitEmailEdit.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#EE4E4E');
  KayitEmailEdit.clProSettings.IsTransparent = True;
  KayitEmailEdit.clProSettings.IsFill = False;
  KayitEmailEdit.clProSettings.IsRound = True;
  KayitEmailEdit.clProSettings.RoundHeight = 10;
  KayitEmailEdit.clProSettings.RoundWidth = 10;
  KayitEmailEdit.TextSettings.Font.Size = 16;
  KayitEmailEdit.clProSettings.FontColor = clAlphaColor.clHexToColor('#070807');
  KayitEmailEdit.clProSettings.BorderColor = clAlphaColor.clHexToColor('#070807');
  KayitEmailEdit.clProSettings.BorderWidth = 2;
  KayitEmailEdit.SetclProSettings(KayitEmailEdit.clProSettings);
  
  KayitEmailImg = KayitForm.AddNewProImage(KayitEmailEdit,'KayitEmailImg');
  KayitEmailImg.Align = alLeft;
  KayitEmailImg.Margins.Left = 10;
  KayitEmailImg.Margins.Top = 5;
  KayitEmailImg.Margins.Bottom =5;
  KayitEmailImg.Width = 25;
  KayitForm.SetImage(KayitEmailImg,'https://i.imgur.com/g9t6md5.png');
  
  // Şifre edit ayarları
  KayitParolaEdit = KayitForm.AddNewProEdit(KayitVerticalScrollBox, 'KayitParolaEdit', 'Parola');
  KayitParolaEdit.Align = alTop;
  KayitParolaEdit.Height = 50;
  KayitParolaEdit.Margins.Top =20;
  KayitParolaEdit.Margins.Left = 20;
  KayitParolaEdit.Margins.Right = 20;
  KayitParolaEdit.Password = True;
  KayitParolaEdit.TextSettings.Font.Size = 16;
  KayitParolaEdit.clProSettings.FontColor = clAlphaColor.clHexToColor('#151515');
  KayitParolaEdit.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F3F7EC');
  KayitParolaEdit.clProSettings.IsTransparent = True;
  KayitParolaEdit.clProSettings.IsFill = False;
  KayitParolaEdit.clProSettings.IsRound = True;
  KayitParolaEdit.clProSettings.RoundHeight = 10;
  KayitParolaEdit.clProSettings.RoundWidth = 10;
  KayitParolaEdit.clProSettings.BorderColor = clAlphaColor.clHexToColor('#070807');
  KayitParolaEdit.clProSettings.BorderWidth = 2;
  KayitParolaEdit.SetclProSettings(KayitParolaEdit.clProSettings);
  
  KayitHiddenPasswordBtn = KayitForm.AddNewProButton(KayitParolaEdit,'KayitHiddenPasswordBtn', '');
  KayitHiddenPasswordBtn.Align = alRight;
  KayitHiddenPasswordBtn.Margins.Right = 10 ;
  KayitHiddenPasswordBtn.Margins.Top =5 ;
  KayitHiddenPasswordBtn.Margins.Bottom = 5 ;
  KayitHiddenPasswordBtn.Width = 25;
  KayitForm.SetImage(KayitHiddenPasswordBtn,'https://i.imgur.com/dQ1keru.png');
  
  KayitpasswordImg = KayitForm.AddNewProImage(KayitParolaEdit,'KayitpasswordImg');
  KayitpasswordImg.Align = alLeft;
  KayitpasswordImg.Margins.Left = 10;
  KayitpasswordImg.Margins.Top = 5;
  KayitpasswordImg.Margins.Bottom =5;
  KayitpasswordImg.Width = 25;
  KayitForm.SetImage(KayitpasswordImg,'https://i.imgur.com/G2qFyZf.png');
  
  
  YasEdit = KayitForm.AddNewProDateEdit(KayitVerticalScrollBox, 'YasEdit');
  YasEdit.Align = alTop;
  YasEdit.Height = 50;
  YasEdit.Margins.Top =20;
  YasEdit.Margins.Left = 20;
  YasEdit.Margins.Right = 20;
  YasEdit.TextSettings.Font.Size = 40;
  YasEdit.clProSettings.FontVertAlign = palcenter;
  YasEdit.clProSettings.FontHorzAlign = palcenter;
  YasEdit.clProSettings.FontColor = clAlphaColor.clHexToColor('#151515');
  YasEdit.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#AF8260');
  YasEdit.clProSettings.IsTransparent = True;
  YasEdit.clProSettings.IsFill = False;
  YasEdit.clProSettings.IsRound = True;
  YasEdit.clProSettings.RoundHeight = 10;
  YasEdit.clProSettings.RoundWidth = 10;
  YasEdit.clProSettings.FontColor = clAlphaColor.clHexToColor('#070807');
  YasEdit.clProSettings.BorderColor = clAlphaColor.clHexToColor('#070807');
  YasEdit.clProSettings.BorderWidth = 2;
  YasEdit.SetclProSettings(YasEdit.clProSettings);

  YasEditImg = KayitForm.AddNewProImage(YasEdit ,'YasEditImg');
  YasEditImg.Align = alLeft;
  YasEditImg.Margins.Left = 10;
  YasEditImg.Margins.Top = 5;
  YasEditImg.Margins.Bottom =5;
  YasEditImg.Width = 25;
  KayitForm.SetImage(YasEditImg,'https://i.imgur.com/sfIaXkU.png');
  
  
  // Kayıt ol butonu ayarları
  KayitKaydolBtn = KayitForm.AddNewProButton(KayitVerticalScrollBox, 'KayitKaydolBtn', 'Kayıt Ol');
  KayitKaydolBtn.Align = alCenter;
  KayitKaydolBtn.Height = 50;
  KayitKaydolBtn.Width = KayitPnl.Width*40/100;
  KayitKaydolBtn.Margins.Top =50;
  KayitKaydolBtn.Margins.Left = 20;
  KayitKaydolBtn.Margins.Right = 20;
  KayitKaydolBtn.Margins.Bottom = 70;
  KayitKaydolBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#EE4E4E');
  KayitKaydolBtn.clProSettings.RoundHeight = 10;
  KayitKaydolBtn.clProSettings.RoundWidth = 10;
  KayitKaydolBtn.clProSettings.FontColor = clAlphaColor.clHexToColor('#070807');
  KayitKaydolBtn.clProSettings.BorderColor = clAlphaColor.clHexToColor('#070807');
  KayitKaydolBtn.clProSettings.FontSize = 16;
  KayitKaydolBtn.clProSettings.BorderWidth = 2;
  KayitKaydolBtn.SetclProSettings(KayitKaydolBtn.clProSettings);
  
  
  KayitForm.SetFormBGImage('https://i.imgur.com/IKFa7gu.jpeg');
  KayitForm.AddNewEvent(KayitHiddenPasswordBtn,tbeOnClick,'KayitHiddenPasswordBtnClick');
  
  KayitForm.AddNewEvent(KayitKaydolBtn,tbeOnClick,'InsertDataBase');
  
  
  Clomosy.DBSQLiteConnect(Clomosy.AppFilesPath + 'ClomosyDatabase.db3', '');
  
  KayitForm.Run;
}


Tablo başarılı bir şekilde oluşuyor sql bağlanıyor fakat veri insert de sıkıntı çıkıyor galiba