Clomosy | Forum : SQL https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Mon, 04 May 2026 16:31:28 +0000 Fri, 19 Jul 2024 16:02:27 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 360 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=702 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[SQL : Merhaba Hacer,Kodları kontrol...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=702&PID=1082#1082 Yazar: Developer
Konu: 702
Gönderim Zamanı: 19 Temmuz 2024 Saat 16:02

Merhaba Hacer,
Kodları kontrol eder misin?
var
  anaForm: TclStyleForm;
  testImg: TClProImage;
  LocalQ: TClSqlQuery;
  quoteList: TclArrayString;
  randomIndex: Integer;

void ShowRandomQuote;
{
  if (quoteList.count > 0)
  {
    randomIndex = clMath.GenerateRandom(0,quoteList.count);
    ShowMessage(quoteList.GetItem(randomIndex));
  }
  else
  {
    ShowMessage('No quotes available.');
  }
}




void SetImage;
{
  testImg = anaForm.AddNewProImage(anaForm, 'testImg');
  
  clComponent.SetupComponent(testImg,
  '{
  "MarginBottom":50,
  "Width":50, 
  "Height":50,
  "BorderColor":"#ff94c8",
  "BorderWidth":3,
  "ImgUrl":"https://i.pinimg.com/550x/2d/1b/36/2d1b36a0f02dd5f0c663a8f58207ca01.jpg", 
  "ImgFit":"yes"}');

  anaForm.AddNewEvent(testImg, tbeOnClick, 'ShowRandomQuote');
}



{
   try
      Clomosy.DBSQLServerConnect('SQL Server', '192.168.5.11', 'sa', 'axoft', 'PRATIK24', 1433);
   except
     ShowMessage('Exception Class: '+LastExceptionClassName+' Exception Message: '+LastExceptionMessage);
   }
 

  anaForm = TclStyleForm.Create(Self);
  LocalQ = TClSqlQuery.Create(nil);
  quoteList = TclArrayString.Create;

  try
  
    LocalQ = Clomosy.DBSQLServerQueryWith('select kisi_adi as MAIN_TEXT from vardiyaa');
    LocalQ.Open;

    LocalQ.First;
  
    while (NOT LocalQ.EOF)
    {
      quoteList.Add(LocalQ.FieldByName('MAIN_TEXT').AsString);
      LocalQ.Next;
    }
  
  except
    ShowMessage('Exception Class: '+LastExceptionClassName+' Exception Message: '+LastExceptionMessage);
  }
  LocalQ.Free;

  anaForm.SetFormColor('#ffe5fa', '#e6ffe5', clGVertical);
  SetImage;
  anaForm.Run;
}
]]> Fri, 19 Jul 2024 16:02:27 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=702&PID=1082#1082 <![CDATA[SQL : var anaForm: TclStyleForm; testImg:...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=702&PID=1080#1080 Yazar: Hacer
Konu: 702
Gönderim Zamanı: 19 Temmuz 2024 Saat 11:37

var
  anaForm: TclStyleForm;
  testImg: TClProImage;
  LocalQ: TClSqlQuery;
  quoteList: array of String;
  randomIndex: Integer;

void SetImage;
{
  testImg = anaForm.AddNewProImage(anaForm, 'testImg');
  
  clComponent.SetupComponent(testImg,
  '{
  "MarginBottom":50,
  "Width":50, 
  "Height":50,
  "BorderColor":"#ff94c8",
  "BorderWidth":3,
  "ImgUrl":"https://i.pinimg.com/550x/2d/1b/36/2d1b36a0f02dd5f0c663a8f58207ca01.jpg", 
  "ImgFit":"yes"}');

  anaForm.AddNewEvent(testImg, tbeOnClick, 'ShowRandomQuote');
}

void ShowRandomQuote;
{
  if (Length(quoteList) > 0)
  {
    randomIndex = Random(Length(quoteList));
    ShowMessage(quoteList[randomIndex]);
  }
  else
  {
    ShowMessage('No quotes available.');
  }
}

{
  Clomosy.DBSQLServerConnect('SQL Server', '172.16.222.147', 'hacer', '123456789', 'RepliklerDB', 50000);

  anaForm = TclStyleForm.Create(Self);
  LocalQ = TClSqlQuery.Create(nil);
  quoteList = [];

  try
  
    LocalQ.Connection = Clomosy.DBSQLServerConnection;
    LocalQ.SQL.Text = 'SELECT replik AS MAIN_TEXT FROM Replikler';
    LocalQ.Open;

    LocalQ.First;
  
    while (NOT LocalQ.EOF)
    {
      quoteList.Add(LocalQ.FieldByName('MAIN_TEXT').AsString);
      LocalQ.Next;
    }
  
  except
  
    ShowMessage('hata');
  }
  LocalQ.Free;

  anaForm.SetFormColor('#ffe5fa', '#e6ffe5', clGVertical);
  SetImage;
  anaForm.Run;
}
"SQL'e bağlanmıyor."
]]> Fri, 19 Jul 2024 11:37:53 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=702&PID=1080#1080