Clomosy | Forum : SQL ekleme

Clomosy | Forum : SQL ekleme https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Mon, 04 May 2026 14:37:31 +0000 Wed, 16 Jul 2025 09:27:35 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=1085 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[SQL ekleme : Merhaba,Öncelikle eğer SqlServer...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1085&PID=2203#2203 Yazar: haletr
Konu: 1085
Gönderim Zamanı: 16 Temmuz 2025 Saat 09:27

Merhaba,

Öncelikle eğer SqlServer kullanıyorsan bağlantı bu şekilde:

Clomosy.DBSQLServerConnect('SQL Server', '[pc adi]', 'sa', '[şifren]', '[database adı]', 1433);

SQLite kullanıyorsan ise bağlantı:

Clomosy.DBSQLiteConnect(Clomosy.appfilespath + 'ClomosyDatabase.db', '');

basitçe bu şekilde kuruluyor.

Daha iyi anlayabilmek için aşağıdaki videoları ve doc sayfasını incelemeni tavsiye ederim:

https://www.youtube.com/watch?v=ML6o3tQSM0o

https://www.youtube.com/watch?v=6qRKE_iL5L8&t=1s

https://www.docs.clomosy.com/index.php?title=SQL_Server_Queries

https://www.docs.clomosy.com/Clomosy_Class#Database_Connectivity

https://www.docs.clomosy.com/Database_Commands

İyi çalışmalar.

]]> Wed, 16 Jul 2025 09:27:35 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1085&PID=2203#2203 <![CDATA[SQL ekleme : Merhaba, ana ekran giriş ve kayıt...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1085&PID=2196#2196 Yazar: dilarayaprak
Konu: 1085
Gönderim Zamanı: 14 Temmuz 2025 Saat 19:43

Merhaba, ana ekran giriş ve kayıt ol sayfalarının tasarımını yaptım ancak veri tabanına bağlayacak SQL kodunu yazamadım, yardım eder misiniz

ana kod

------------------------------------------------------------------------------------------------

var

myForm: TclForm;

EmailEdit, ParolaEdit: TclProEdit;

GirisBtn, UyeOlBtn, HiddenPasswordBtn, NormalPasswordBtn: TC1ProButton;

UyeolLbl, OrLabel: TC1ProLabel;

MainPnl, SocialPnl: TclProPanel;

TclLogo: TCIProImage;

EmailImg, passwordImg: TC1ProImage;

LinkedInBtn, FacebookBtn, GoogleBtn: TC1ProButton;

void GoToKayitolUnit;

{

Clomosy.RunUnit('UnitRegister');

}

void GoToLoginUnit;

{

Clomosy.RunUnit('Login');

}

{

myForm=TclForm.Create(Self);

MainPnl=myForm.AddNewProPanel(myForm, 'MainPnl');

MainPnl.Align =alcenter;

MainPnl.Height =600;

MainPnl.Width=400;

MainPnl.Margins.Top =30;

MainPnl.Margins.Bottom = 40;

MainPnl.clProSettings.RoundHeight=40;

MainPnl.clProSettings.Roundwidth=40;

MainPnl.clProSettings.IsTransparent =False;

MainPnl.SetclProSettings(MainPnl.clProSettings);

TclLogo=myForm.AddNewProImage(MainPnl,'TclLogo');

TclLogo.Align=alMostTop;

TclLogo.Height= 220;

TclLogo.Margins.Top =60;

TclLogo.Margins.Left = 30;

TclLogo.Margins.Right = 30;

TclLogo.clProSettings.IsTransparent=True;

Tcllogo.ClProSettings.PictureSource ='https://i.imgur.com/G64OrSr.png';

TclLogo.SetclProSettings (TclLogo.ClProSettings);

GirisBtn=myForm.AddNewProButton(MainPnl, 'GirisBtn', 'Sign in');

GirisBtn.Align=alCenter;

GirisBtn.Height=50;

GirisBtn.Width=MainPnl.Width*70/100;

GirisBtn.Margins.Top=30;

GirisBtn.Margins.Left=20;

GirisBtn.Margins.Right=20;

GirisBtn.Margins.Bottom=85;

GirisBtn.ClProSettings.BackgroundColor=clAlphaColor.clHexToColor('#11212d');

GirisBtn.ClProSettings.RoundHeight=20;

GirisBtn.ClProSettings.Roundwidth=20;

GirisBtn.ClProSettings.FontColor= clAlphaColor.clHexToColor('#C4BAB3');

GirisBtn.ClProSettings.FontSize=19;

GirisBtn.ClProSettings.Borderwidth=2;

GirisBtn.SetclProSettings (GirisBtn.ClProSettings);

UyeolBtn=myForm.AddNewProButton(MainPnl, 'UyeOlBtn', 'Sign up');

UyeolBtn.Align =alCenter;

UyeolBtn.Height=50;

UyeolBtn.Width=MainPnl.Width*70/100;

UyeolBtn.Margins.Top=200;

UyeolBtn.Margins.Left=20;

UyeolBtn.Margins.Right=20;

UyeolBtn.Margins.Bottom=85;

UyeolBtn.ClProSettings.BackgroundColor=clAlphaColor.clHexToColor('#11212d');

UyeOlBtn.ClProSettings.Roundwidth=20;

UyeolBtn.ClProSettings.RoundHeight=20;

UyeOlBtn.ClProSettings.BorderColor=clAlphaColor.clHexToColor('#000000');

UyeOlBtn.ClProSettings.FontColor= clAlphaColor.clHexToColor('#C4BAB3');

// sanırım yine çerceve rengi

UyeolBtn.ClProSettings.FontSize=19;

UyeolBtn.ClProSettings.Borderwidth=2;

UyeolBtn.SetclProSettings (UyeolBtn.ClProSettings);

myForm.AddNewEvent(GirisBtn, tbeOnClick, 'GoToLoginUnit');

myForm.AddNewEvent(UyeolBtn, tbeOnClick, 'GoToKayitolUnit');

myForm.SetFormBGImage('https://i.imgur.com/7hlCQkt.jpeg');

myForm.Run;

}

kayıt ol kısmı --------------------------------------------------------------------------------------

var

UnitReForm:TCLForm;

EmailEdit,ParolaEdit,AdressEdit:TCLProEdit;

LoginUyeOlBtn,HiddenPasswordBtn,NormalPasswordBtn:TClProButton;

MainPnl:TCLProPanel;

TCLLogo, UserImg:TCLProImage;

EmailImg,PasswordImg:TCLProImage;

MyLabel1:TClProLabel;

void HiddenPasswordBtnClick

{

if not Assigned(NormalPasswordBtn)

{

NormalPasswordBtn=UnitReForm.AddNewProButton(ParolaEdit,'NormalPasswordBtn','');

NormalPasswordBtn.Align=alRight;

NormalPasswordBtn.Margins.Right=10;

NormalPasswordBtn.Margins.Top=5;

NormalPasswordBtn.Margins.Bottom=5;

NormalPasswordBtn.Width=25;

UnitReForm.SetImage(NormalPasswordBtn,'https://i.imgur.com/6xrqP8j.png');

UnitReForm.AddNewEvent(NormalPasswordBtn,tbeOnClick,'NormalPasswordBtnClick');

}

else

{

NormalPasswordBtn.Visible=True;

}

ParolaEdit.Password=False;

HiddenPasswordBtn.Visible=False;

}

void NormalPasswordBtnClick

{

try

if not Assigned(HiddenPasswordBtn)

{

HiddenPasswordBtn=UnitReForm.AddNewProButton(ParolaEdit,'NormalPasswordBtn','');

HiddenPasswordBtn.Align=alRight;

HiddenPasswordBtn.Margins.Right=10;

HiddenPasswordBtn.Margins.Top=5;

HiddenPasswordBtn.Margins.Bottom=5;

HiddenPasswordBtn.Width=25;

UnitReForm.SetImage(NormalPasswordBtn,'https://i.imgur.com/qVm2XpB.png');

UnitReForm.AddNewEvent(HiddenPasswordBtn,tbeOnClick,'HiddenPasswordBtnClick');

}

else

{

HiddenPasswordBtn.visible=true;

}

ParolaEdit.Password=true;

NormalPasswordBtn.visible=False;

except

ShowMessage('Exception Class: '+ LastExceptionClassName + 'Exceptin name: '+ LastExceptionMessage);

}

void LabelTiklandi;

{

Clomosy.RunUnit('Login');

}

{

UnitReForm=TCLForm.Create(self);

MainPnl=UnitReForm.AddNewProPanel(UnitReForm,'MainPnl');

MainPnl.Align=alCenter;

MainPnl.Height=630;

MainPnl.Width=400;

MainPnl.clProSettings.RoundHeight=40;

MainPnl.clProSettings.Roundwidth=40;

MainPnl.clProSettings.IsTransparent =False;

MainPnl.SetclProSettings(MainPnl.clProSettings);

TclLogo=UnitReForm.AddNewProImage(MainPnl,'TclLogo');

TclLogo.Align=alMostTop;

TclLogo.Height=220;

TclLogo.Margins.Top=60;

TclLogo.Margins.Left=20;

TclLogo.Margins.Right=20;

Tcllogo.clProSettings.PictureSource =('https://i.imgur.com/G64OrSr.png');

TclLogo.SetclProSettings(TclLogo.clProSettings);

EmailEdit=UnitReForm.AddNewProEdit(MainPnl, 'EmailEdit', 'Username');

EmailEdit.Align=alTop;

EmailEdit.Height=50;

EmailEdit.Margins.Top=30;

EmailEdit.Margins.Left=20;

EmailEdit.Margins.Right=20;

EmailEdit.clProSettings.BackGroundColor=clAlphaColor.clHextoColor('#11212d');

EmailEdit.clProSettings.IsTransparent=True;

EmailEdit.clProSettings.IsFill=False;

EmailEdit.clProSettings.IsRound=True;

EmailEdit.clProSettings.RoundHeight=20;

EmailEdit.clProSettings.Roundwidth=20;

EmailEdit.clProSettings.FontSize=16;//1

EmailEdit.clProSettings.FontColor= clAlphaColor.clHexToColor('#ffffff');

EmailEdit.clProSettings.BorderColor=clAlphaColor.clHexToColor('#11212d');

EmailEdit.clProSettings.Borderwidth=1;

EmailEdit.SetclProSettings(EmailEdit.clProSettings);

AdressEdit=UnitReForm.AddNewProEdit(MainPnl, 'AdressEdit', 'Email');

AdressEdit.Align=alTop;

AdressEdit.Height=50;

AdressEdit.Margins.Top=30;

AdressEdit.Margins.Left=20;

AdressEdit.Margins.Right=20;

AdressEdit.clProSettings.BackGroundColor=clAlphaColor.clHextoColor('#11212d');

AdressEdit.clProSettings.IsTransparent=True;

AdressEdit.clProSettings.IsFill=False;

AdressEdit.clProSettings.IsRound=True;

AdressEdit.clProSettings.RoundHeight=20;

AdressEdit.clProSettings.Roundwidth=20;

AdressEdit.clProSettings.FontSize=16;//1

AdressEdit.clProSettings.FontColor= clAlphaColor.clHexToColor('#ffffff');

AdressEdit.clProSettings.BorderColor=clAlphaColor.clHexToColor('#11212d');

AdressEdit.clProSettings.Borderwidth=1;

AdressEdit.SetclProSettings(EmailEdit.clProSettings);

UserImg=UnitReForm.AddNewProImage(EmailEdit,'UserImg');

UserImg.Align=alLeft;

UserImg.Margins.Left=10;

UserImg.Margins.Top=5;

UserImg.Margins.Bottom=5;

UserImg.Width=25;

UnitReForm.SetImage(UserImg,'https://i.imgur.com/YHrbLVA.png');

EmailImg=UnitReForm.AddNewProImage(EmailEdit,'EmailImg');

EmailImg.Align=alLeft;

EmailImg.Margins.Left=10;

EmailImg.Margins.Top=5;

EmailImg.Margins.Bottom=5;

EmailImg.Width=25;

UnitReForm.SetImage(EmailEdit,'https://i.imgur.com/O0TuHrh.png');

ParolaEdit=UnitReForm.AddNewProEdit(MainPnl, 'ParolaEdit', 'Password');

ParolaEdit.Align=alTop;

ParolaEdit.Height=50;

ParolaEdit.Margins.Top=30;

ParolaEdit.Margins.Left=20;

ParolaEdit.Margins.Right=20;

ParolaEdit.clProSettings.BackGroundColor=clAlphaColor.clHextoColor('#11212d');

ParolaEdit.clProSettings.IsTransparent=True;

ParolaEdit.clProSettings.IsFill=False;

ParolaEdit.clProSettings.IsRound=True;

ParolaEdit.clProSettings.RoundHeight=20;

ParolaEdit.clProSettings.Roundwidth=20;

ParolaEdit.clProSettings.FontSize=16;

ParolaEdit.clProSettings.FontColor= clAlphaColor.clHexToColor('#ffffff');

ParolaEdit.clProSettings.BorderColor=clAlphaColor.clHexToColor('#11212d');

ParolaEdit.clProSettings.Borderwidth=1;

ParolaEdit.SetclProSettings(ParolaEdit.clProSettings);

HiddenPasswordBtn=UnitReForm.AddNewProButton(ParolaEdit, 'HiddenPasswordBtn', '');

HiddenPasswordBtn.Align=alRight;

HiddenPasswordBtn.Margins.Right=10;

HiddenPasswordBtn.Margins.Top=5;

HiddenPasswordBtn.Margins.Bottom=5;

HiddenPasswordBtn.Width=25;

UnitReForm.SetImage(HiddenPasswordBtn,'https://i.imgur.com/qVm2XpB.png');

MyLabel1=UnitReForm.AddNewProLabel(MainPnl,'MyLabel1', ' Already a member? Sign in');

MyLabel1.Align = alTop;

MyLabel1.Margins.Top = 10;

MyLabel1.Margins.Left=20;

MyLabel1.clProSettings.FontSize = 19;

MyLabel1.clProSettings.FontColor = clAlphaColor.clHexToColor('#11212d');

MyLabel1.SetclProSettings(MyLabel1.clProSettings);

UnitReForm.AddNewEvent(MyLabel1, tbeOnClick, 'LabelTiklandi');

LoginUyeOlBtn=UnitReForm.AddNewProButton(MainPnl,'LoginUyeOlBtn','Sign Up ');

LoginUyeOlBtn.Align=alCenter;

LoginUyeOlBtn.Height=50;

LoginUyeOlBtn.Width=MainPnl.Width*35/100;

LoginUyeOlBtn.Margins.Top=40;

LoginUyeOlBtn.Margins.Left=20;

LoginUyeOlBtn.Margins.Right=20;

LoginUyeOlBtn.Margins.Bottom=70;

LoginUyeOlBtn.clProSettings.BackGroundColor=clAlphaColor.clHextoColor('#11212d');

LoginUyeOlBtn.clProSettings.RoundHeight=20;

LoginUyeOlBtn.clProSettings.Roundwidth=20;

LoginUyeOlBtn.clProSettings.FontColor= clAlphaColor.clHexToColor('#ffffff');

LoginUyeOlBtn.clProSettings.BorderColor=clAlphaColor.clHexToColor('#11212d');

LoginUyeOlBtn.clProSettings.FontSize=16;

LoginUyeOlBtn.clProSettings.Borderwidth=1;

LoginUyeOlBtn.SetclProSettings(LoginUyeOlBtn.clProSettings);

UnitReForm.SetFormBGImage('https://i.imgur.com/7hlCQkt.jpeg');

UnitReForm.AddNewEvent(HiddenPasswordBtn,tbeOnClick,'HiddenPasswordBtnClick');

UnitReForm.run;

}

]]> Mon, 14 Jul 2025 19:43:01 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1085&PID=2196#2196