Clomosy | Forum Ana Sayfa
Forum Anasayfa Forum Anasayfa > Genel Programlama > Clomosy ile değişken kullanımı
  Aktif Konular Aktif Konular RSS - TCL UNİT
  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.

TCL UNİT
 Yanıt Yaz Yanıt Yaz
Yazar
Mesaj
  Konu Arama Konu Arama  Topic Seçenekleri Topic Seçenekleri
Gökçe ulusoy Açılır Kutu İzle
Yeni Üye
Yeni Üye


Kayıt Tarihi: 17 Eylül 2025
Konum: KONYA
Durum: Aktif Değil
Puanlar: 10 		Mesaj Seçenekleri Mesaj Seçenekleri   Teşekkürler (0) Teşekkürler(0)   Alıntı Gökçe ulusoy Alıntı  Yanıt YazCevapla Mesajın Direkt Linki Konu: TCL UNİT
    Gönderim Zamanı: 21 Ekim 2025 Saat 09:09
var
  Form1 :TclForm;
  PnlMain, PnlEntry : TclProPanel;
  BtnLogin,BtnSignUp :TCLProButton;
  EdtUName, EdtUPassword : TclProEdit;
  Unit1:TCLUnit;

void GoToMainPage;
{
  Unit1.UnitName='Mainpage'
  Unit1.CallerForm=Form1;
  Unit1.Run;
}


void GetUserLogin(AUserName,AUserPassword);
{
  try
    
    Clomosy.DBSQLServerQuery.SQL.Text =
      'SELECT * FROM Users WHERE UserName = :UserName AND UserPassword = :UserPassword';
    
    Clomosy.DBSQLServerQuery.ParamByName('UserName').Value= AUserName;
    Clomosy.DBSQLServerQuery.ParamByName('UserPassword').Value= AUserPassword;
    Clomosy.DBSQLServerQuery.ExecSQL;
    Clomosy.DBSQLServerQuery.Connection.Commit;
    
    if (not Clomosy.DBSQLServerQuery.Eof)
        {
          ShowMessage('Login successful.');
          GoToMainPage;
        }
        else
          ShowMessage(' Login failed.');
          
  except
    ShowMessage('004: Exception Class: '+LastExceptionClassName+' Exception Message: '+LastExceptionMessage);
  }
}

void GetUserRegistration(AUserName,AUserPassword);
{
  try
    Clomosy.DBSQLServerQuery.Sql.Text = '
    INSERT INTO Users (UserName, UserPassword) VALUES ('+QuotedStr(AUserName)+', '+QuotedStr(AUserPassword)+')';
    Clomosy.DBSQLServerQuery.Open;
    ShowMessage('User registered.');
  
  except
    ShowMessage('003: Exception Class: '+LastExceptionClassName+' Exception Message: '+LastExceptionMessage);
  }
}

void GetUserControl;
 var
   clickedBtn:TClProButton;
{
  clickedBtn = TClProButton(Form1.Clsender); 

  if((EdtUName.Text <>'' ) && (EdtUPassword.Text <>'' ))
  {
    if(clickedBtn.clTagStr == 'SignUp')
      GetUserRegistration(EdtUName.Text,EdtUPassword.Text);
    else if (clickedBtn.clTagStr == 'Login')
      GetUserLogin(EdtUName.Text,EdtUPassword.Text);
  
  EdtUName.Text = '';
  EdtUPassword.Text = '';
    
  }
  else ShowMessage('Do not leave username and password blank.');
}
  
  void SqlserverConnectionCreateTable;
  var
    TableExists: Boolean;
  {
    try
      Clomosy.DBSQLServerConnect('SQL Server', 'DESKTOP-2AGN5H8\ATIKER', 'sa', '1', 'Gökyar',1433);
 
      // Check if the table exists
      Clomosy.DBSQLServerQuery.Sql.Text='SELECT * FROM sys.tables WHERE name = ''Users''';

      Clomosy.DBSQLServerQuery.Open;
      
      // Check the results
      TableExists = not Clomosy.DBSQLServerQuery.Eof;
      
      // Create the table if it does not exist
      if not (TableExists)
      {
        Clomosy.DBSQLServerQuery.Sql.Text = 'CREATE TABLE Users(
        userID INTEGER PRIMARY KEY AUTOINCREMENT,
        UserName TEXT ,
        UserPassword TEXT )';
        Clomosy.DBSQLServerQuery.Open;
        
        ShowMessage('Table successfully added to the database!');
        
        try
          Clomosy.DBSQLServerQuery.Sql.Text = '
          INSERT INTO Users (UserName, UserPassword) VALUES (''ömer'', ''123456'');
          INSERT INTO Users (UserName, UserPassword) VALUES (''leyla'', ''456789'');';
          Clomosy.DBSQLServerQuery.Open;
          ShowMessage('Adding data to the table was successful!');
        
        except
          ShowMessage('001: Exception Class: '+LastExceptionClassName+' Exception Message: '+LastExceptionMessage);
        }
        ShowMessage('Data was added to the existing Users table.');
      }

    except
     ShowMessage('002: Exception Class: '+LastExceptionClassName+' Exception Message: '+LastExceptionMessage);
    }
  }


{
  Form1 = TclForm.Create(Self);
  Unit1 = TclUnit.Create;
  
  Form1.clsetCaption('Login Page');
  SqLServerConnectionCreateTable;
  PnlMain = Form1.AddNewProPanel(Form1,'PnlMain');
  PnlMain.ALign = AlCenter;
  PnlMain.Height = Form1.clHeight / 3;
  PnlMain.Width = Form1.clWidth - 20;
  PnlMain.clProSettings.BackgroundColor = nil;
  PnlMain.SetclProSettings(PnlMain.clProSettings);
  
  EdtUName = Form1.AddNewProEdit(PnlMain,'EdtUName', 'User Name');
  EdtUName.Align=alMostTop;
  EdtUName.Height = PnlMain.Height / 4; 
  EdtUName.Margins.Top= 5;
  EdtUName.Margins.Left= 10;
  EdtUName.Margins.Left= 10;
  EdtUName.clProSettings.BorderColor = clAlphaColor.clHexToColor('#c838e5');
  EdtUName.clProSettings.BorderWidth = 1;
  EdtUName.clProSettings.RoundHeight = 20;
  EdtUName.clProSettings.RoundWidth = 20;
  EdtUName.clProSettings.IsRound = True;
  EdtUName.SetclProSettings(EdtUName.clProSettings);
  
  EdtUPassword = Form1.AddNewProEdit(PnlMain,'EdtUPassword', 'User Password');
  EdtUPassword.Align=alMostTop;
  EdtUPassword.Height = PnlMain.Height / 4;
  EdtUPassword.Margins.Top= 5;
  EdtUPassword.Margins.Left= 10;
  EdtUPassword.Margins.Left= 10;
  EdtUPassword.SetclProSettings(EdtUName.clProSettings);
  
  
  PnlEntry = Form1.AddNewProPanel(PnlMain,'PnlEntry');
  PnlEntry.ALign = AlBottom;
  PnlEntry.Height = PnlMain.Height / 4;
  PnlEntry.Margins.Top= 5;
  PnlEntry.Margins.Left= 10;
  PnlEntry.Margins.Left= 10;
  PnlEntry.SetclProSettings(PnlMain.clProSettings);
  
  BtnLogin = Form1.AddNewProButton(PnlEntry,'BtnLogin','Login'); 
  BtnLogin.Align=alLeft;
  BtnLogin.Width = PnlEntry.Width / 2;
  BtnLogin.clTagStr = 'Login';
  BtnLogin.clProSettings.TextSettings.Font.Style = [fsBold];
  BtnLogin.clProSettings.BorderColor = clAlphaColor.clHexToColor('#c838e5');
  BtnLogin.clProSettings.BorderWidth = 2;
  BtnLogin.clProSettings.RoundHeight = 20;
  BtnLogin.clProSettings.RoundWidth = 20;
  BtnLogin.clProSettings.IsRound = True;
  BtnLogin.SetclProSettings(BtnLogin.clProSettings);
  Form1.AddNewEvent(BtnLogin,tbeOnClick,'GoToMainPage');
  //Form1.AddNewEvent(BtnLogin,tbeOnClick,'GetUserControl');
  
  BtnSignUp = Form1.AddNewProButton(PnlEntry,'BtnSignUp','Sign Up'); 
  BtnSignUp.Align=alRight;
  BtnSignUp.Width = PnlEntry.Width / 2;
  BtnSignUp.clTagStr = 'SignUp';
  BtnSignUp.SetclProSettings(BtnLogin.clProSettings);
  Form1.AddNewEvent(BtnSignUp,tbeOnClick,'GetUserControl');
  
  Form1.Run;
}Mainpage sayfası çalışmıyor.
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: 342 		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ı: 21 Ekim 2025 Saat 09:29
Merhaba Gökçe,
Birim adını kontrol eder misin?
Kodda herhangi bir hata yok.
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,025 Saniyede Yüklendi.