|
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" rel="nofollow - 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" rel="nofollow - 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" rel="nofollow - 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" rel="nofollow - 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" rel="nofollow - 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" rel="nofollow - 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" rel="nofollow - 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" rel="nofollow - 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" rel="nofollow - 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" rel="nofollow - 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" rel="nofollow - 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
|