Var   

  userForm:TclForm;

  lstView : TClProListView;

  testDesignerPanel : TClListViewDesignerPanel;

  userQuery : TclSqlQuery;

void LoadIlanlarFromDatabase;

{

  try 

  

    userQuery.Connection = Clomosy.DBSQLServerConnection;

    userQuery.SQL.Text = 'SELECT BookType as MAIN_TEXT, Usernam1 as MAIN_TEXT FROM BooksDataBase';

    

    userQuery.Open;

    if (userQuery.Found)

    {

      lstView.ClLoadProListViewDataFromDataset(userQuery);

    }

    else

    {

      ShowMessage('Kayıt Bulunamadı!');

    } 

  finally

    userQuery.Free;

  }

}

 

{

  lstView = userQuery.AddNewListView(userQuery,'lstView');

  lstview.Align = alClient;

  

  userQuery = TclSqlQuery.Create(nil);

  Clomosy.DBSQLServerConnect('SQL Server', '172.16.222.33', 'SA', 'reallyStrongPwd123', 'ClomosyDataBase', 1433);

  userQuery.Connection = Clomosy.DBSQLServerConnection;

  

  userForm = TclForm.Create(Self);

  LoadIlanlarFromDatabase;

  

  userForm.Run;

}