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.SetFormBGImage('https://resmim.net/cdn/2025/10/17/j7YS9i.webp')

  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.