Clomosy | Forum : Kaydet butonu çalışmıyor

Clomosy | Forum : Kaydet butonu çalışmıyor https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Mon, 04 May 2026 14:55:52 +0000 Mon, 30 Jun 2025 16:10:40 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=1044 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[Kaydet butonu çalışmıyor : Merhaba Sude,URegister biriminde,...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1044&PID=2085#2085 Yazar: Emr.Erkmn
Konu: 1044
Gönderim Zamanı: 30 Haziran 2025 Saat 16:10

Merhaba Sude,

URegister biriminde, except bloğunda bir } parantezi eksik görünüyor.

Ayrıca, 61. ve 62. satırlarda clProSettings kullanman gerekiyordu.

Bu düzeltmeleri yaptıktan sonra tekrar deneyelim.

]]> Mon, 30 Jun 2025 16:10:40 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1044&PID=2085#2085 <![CDATA[Kaydet butonu çalışmıyor : kaydet ekranı için bir unit yazdım...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1044&PID=2084#2084 Yazar: Sudesigirci
Konu: 1044
Gönderim Zamanı: 30 Haziran 2025 Saat 15:22

kaydet ekranı için bir unit yazdım kodumda hata vermiyor ama kaydet butonu çalışmıyor

//ANA KOD

var

Loginform:TclStyleForm;

LoginTitle,LoginSave:TCLLabel;

User,Password:TCLProEdit;

LoginButton:TClProButton;

InsertQuery:TclSqlQuery;

UnitRegister:TclUnit;

void GoToRegister

{

UnitRegister.UnitName='URegister';

UnitRegister.CallerForm=Loginform;

UnitRegister.Run;

}

void InsertTable;

{

try

Clomosy.DBSQLiteQuery.SQL.Text =

'INSERT INTO users (username, userpassword) VALUES (''' +

User.Text + ''',''' + // username

Password.Text + ''')'; // Password

Clomosy.DBSQLServerQuery.ExecSql;

ShowMessage('You have signed up successfully.');

except

ShowMessage('Exception class: ' + LastExceptionClassName + ' Exception Message: ' + LastExceptionMessage);

}

void SignIn;

{

try

Clomosy.DBSQLServerQuery.SQL.Text=

'SELECT COUNT(*) AS number FROM users WHERE username = ' + QuotedStr(User.Text) + 'AND userpassword = ' + QuotedStr(Password.Text);

Clomosy.DBSQLServerQuery.ExecSql;

if (Clomosy.DBSQLiteQuery.FieldByName('number').AsString == '1')

{

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

}

else

{

ShowMessage('Giriş Başarısız.Kullanıcı Adı veya Şifre Hatalı😣');

}

except

ShowMessage('Exception class: ' + LastExceptionClassName + ' Exception Message: ' + LastExceptionMessage);

}

{

Loginform=TclStyleForm.Create(self);

Loginform.SetFormColor('#2e6417', '', clGNone);

LoginTitle=Loginform.AddNewLabel(Loginform,'LoginTitle','SANAL BİTKİ YETİŞTİRME SİMÜLASYONU');

LoginTitle.Align=alTop;

LoginTitle.Margins.Left=50;

LoginTitle.TextSettings.Font.Size=50;

LoginTitle.TextSettings.Font.Style=[fsBold];

LoginTitle.TextSettings.FontColor=clAlphaColor.clHexToColor('#bef28a');

LoginTitle.Margins.Top=20;

User=Loginform.AddNewProEdit(Loginform,'User', 'Kullanıcı Adı');

User.Align=alTop;

User.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#bef28a');

User.Margins.Top=80;

User.Margins.Right=40;

User.Margins.Left=40;

User.clProSettings.RoundHeight=8;

User.clProSettings.RoundWidth=8;

User.TextSettings.Font.Size=10;

User.TextSettings.FontColor=clAlphaColor.clHexToColor('#000000');

User.SetclProSettings(User.clProSettings);

Password=Loginform.AddNewProEdit(Loginform,'Password', 'Şifre');

Password.Align=alTop;

Password.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#bef28a');

Password.Password=True;

Password.Margins.Top=30;

Password.Margins.Right=40;

Password.Margins.Left=40;

Password.clProSettings.RoundHeight=8;

Password.clProSettings.RoundWidth=8;

Password.TextSettings.Font.Size=10;

Password.TextSettings.FontColor=clAlphaColor.clHexToColor('#000000');

Password.SetclProSettings(Password.clProSettings);

LoginSave=Loginform.AddNewLabel(Loginform,'LoginSave','Hesabın yok mu ? KAYDOL');

LoginSave.Align=alBottom;

LoginSave.TextSettings.Font.Size=20;

LoginSave.TextSettings.FontColor=clAlphaColor.clHexToColor('#457a00');

LoginSave.TextSettings.Font.Style=[fsBold,fsitalic];

LoginSave.Margins.Bottom=20;

LoginSave.Margins.Left=20;

LoginButton=Loginform.AddNewProButton(Loginform, 'LoginButton', 'GİRİŞ YAP');

LoginButton.Align=alCenter;

LoginButton.clProSettings.BackgroundColor=clAlphaColor.clHexToColor('#bef28a');

LoginButton.clProSettings.TextSettings.Font.Size=20;

LoginButton.clProSettings.TextSettings.FontColor=clAlphaColor.clHexToColor('#457a00');

LoginButton.Height=30;

LoginButton.Width=80;

LoginButton.Margins.Bottom=100;

LoginButton.clProSettings.RoundHeight=8;

LoginButton.clProSettings.RoundWidth=8;

LoginButton.clProSettings.IsFill=True;

LoginButton.clProSettings.FontVertAlign = palcenter;

LoginButton.clProSettings.FontHorzAlign = palCenter;

LoginButton.SetclProSettings(LoginButton.clProSettings);

Loginform.AddNewEvent(LoginButton,tbeOnClick,'SignIn');

InsertQuery=TclSqlQuery.Create(nil);

Clomosy.DBSQLServerConnect('SQL Server', '192.168.0.175,50000', 'sa', '1', 'ClomosyBitki', 1433);

InsertQuery.Connection = Clomosy.DBSQLServerConnection;

UnitRegister=TclUnit.Create;

Loginform.AddNewEvent(LoginSave,tbeOnClick,'GoToRegister');

Loginform.Run;

}

//KAYDET EKRANI İÇİN UNİT KODU

var

RegisterForm:TclStyleForm;

lblRegisterTitle:TCLLabel;

usernameedit,userpasswordedit:TclProEdit;

RegisterButton:TClProButton;

InsertQuery:TclsqlQuery;

void SaveandBack

{

try

InsertQuery.Sql.Text=

'INSERT INTO users(username,userpassword) VALUES('+

QuotedStr(usernameedit.Text)+','+

QuotedStr(userpasswordedit.Text)+')';

InsertQuery.ExecSql;

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

Clomosy.RunUnit('MainCode');

except

ShowMessage('Kayıt sırasında hata oluştu: ' + LastExceptionMessage);

}

{

RegisterForm=TclStyleForm.Create(Self);

RegisterForm.SetFormColor('#0a571f', '', clGNone);

lblRegisterTitle=RegisterForm.AddNewLabel(RegisterForm,'lblRegisterTitle','Kayıt Ol');

lblRegisterTitle.Align=alTop;

lblRegisterTitle.TextSettings.Font.Size=30;

lblRegisterTitle.TextSettings.Font.Style=[fsBold];

lblRegisterTitle.TextSettings.FontColor=clAlphaColor.clHexToColor('#76de92');

lblRegisterTitle.Margins.Top=20;

usernameedit=RegisterForm.AddNewProEdit(RegisterForm,'usernameedit', 'Kullanıcı Adı: ');

usernameedit.Align=alTop;

usernameedit.clProSettings.BackGroundColor=clAlphaColor.clHexToColor('#76de92');

usernameedit.clProSettings.RoundHeight=8;

usernameedit.clProSettings.RoundWidth=8;

usernameedit.Margins.Top=30;

usernameedit.Margins.Left=40;

usernameedit.Margins.Right=40;

usernameedit.SetclProSettings(usernameedit.clProSettings);

userpasswordedit=RegisterForm.AddNewProEdit(RegisterForm,'userpassworedit', 'Kullanıcı Adı: ');

userpasswordedit.Align=alTop;

userpasswordedit.clProSettings.BackGroundColor=clAlphaColor.clHexToColor('#76de92');

userpasswordedit.clProSettings.RoundHeight=8;

userpasswordedit.clProSettings.RoundWidth=8;

userpasswordedit.Password=True;

userpasswordedit.Margins.Top=20;

userpasswordedit.Margins.Left=40;

userpasswordedit.Margins.Right=40;

userpasswordedit.SetclProSettings(userpasswordedit.clProSettings);

RegisterButton=RegisterForm.AddNewProButton(RegisterForm, 'RegisterButton', 'KAYIT OL');

RegisterButton.Align=alTop;

RegisterButton.clProSettings.BackGroundColor=clAlphaColor.clHexToColor('#76de92');

RegisterButton.TextSettings.FontColor=clAlphaColor.clHexToColor('#070808');

RegisterButton.TextSettings.Font.Size=20;

RegisterButton.clProSettings.RoundHeight=8;

RegisterButton.clProSettings.RoundWidth=8;

RegisterButton.Margins.Top=30;

RegisterButton.Height=35;

RegisterButton.Width=100;

RegisterButton.clProSettings.IsFill=True;

RegisterButton.clProSettings.FontHorzAlign=palCenter;

RegisterButton.clProSettings.FontVertAlign=palCenter;

RegisterButton.SetclProSettings(RegisterButton.clProSettings);

InsertQuery=TclsqlQuery.Create(nil);

RegisterForm.AddNewEvent(RegisterButton,tbeOnClick,'SaveandBack');

InsertQuery.Connection=Clomosy.DBSQLServerConnection;

RegisterForm.Run;

}

Bu şekilde çıktı alıyorum

]]> Mon, 30 Jun 2025 15:22:26 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1044&PID=2084#2084