Sayfayı Yazdır | Pencereyi Kapat

Kaydet butonu çalışmıyor

Nereden Yazdırıldığı: Clomosy | Forum
Kategori: Genel Programlama
Forum Adı: Genel İşlemler
Forum Tanımlaması: TRObject dili ile programlama yaparken karşılaşılan genel işlemler
URL: https://forum.clomosy.com.tr/forum_posts.asp?TID=1044
Tarih: 06 Eylül 2025 Saat 06:56
Program Versiyonu: Web Wiz Forums 12.07 - https://www.webwizforums.com


Konu: Kaydet butonu çalışmıyor
Mesajı Yazan: Sudesigirci
Konu: Kaydet butonu çalışmıyor
Mesaj Tarihi: 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


Cevaplar:
Mesajı Yazan: Emr.Erkmn
Mesaj Tarihi: 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.


Sayfayı Yazdır | Pencereyi Kapat

Forum Software by Web Wiz Forums® version 12.07 - https://www.webwizforums.com
Copyright ©2001-2024 Web Wiz Ltd. - https://www.webwiz.net