Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Genel İşlemler
  Aktif Konular Aktif Konular RSS - Kaydet butonu çalışmıyor
  SSS SSS  Forumu Ara   Etkinlikler   Kayıt Ol Kayıt Ol  Giriş Giriş

Clomosy Resmi Forum Sitesidir. Amacımız kullanıcılarımıza, iş ortaklarımıza, danışmanlara, yazılımcılara programlarımız hakkında destek ve bilgi vermektir.

Kaydet butonu çalışmıyor
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
Sudesigirci Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 24 Haziran 2025
Konum: KONYA
Durum: Aktif Değil
Puanlar: 2 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Sudesigirci Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: Kaydet butonu çalışmıyor
    Gönderim Zamanı: 10 Saat 30 Dakika Önce 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
Yukarı Dön
Emr.Erkmn Açılır Kutu İzle
Moderatör
Moderatör


Kayıt Tarihi: 28 Şubat 2025
Durum: Aktif Değil
Puanlar: 93 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Emr.Erkmn Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Gönderim Zamanı: 9 Saat 42 Dakika Önce 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.
Yukarı Dön
 Yanıt Yaz Yanıt Yaz

Forum Atla Forum İzinleri Açılır Kutu İzle

Forum Software by Web Wiz Forums® version 12.07
Copyright ©2001-2024 Web Wiz Ltd.

Bu Sayfa 0,031 Saniyede Yüklendi.