[Βάσεις Δεδομένων] Να επιλέξω το μάθημα;

[Thmmy.gr portal]

  Thmmy.gr portal
   Forum
   Downloads
   Ενεργ. Λογαριασμού
   Επικοινωνία
  
  Χρήσιμα links
   Σελίδα τμήματος
   Βιβλιοθήκη Τμήματος
   Elearning
   Φοιτητικά fora
   Πρόγραμμα Λέσχης
   Πρακτική Άσκηση
   Ηλεκτρονική Εξυπηρέτηση Φοιτητών
   Διανομή Συγγραμμάτων
   Ψηφιακό Καταθετήριο Διπλωματικών
   Πληροφορίες Καθηγητών
   Instagram @thmmy.gr
   mTHMMY
  
  Φοιτητικές Ομάδες
   ACM
   Aristurtle
   ART
   ASAT
   BEAM
   BEST Thessaloniki
   EESTEC LC Thessaloniki
   EΜΒ Auth
   IAESTE Thessaloniki
   IEEE φοιτητικό παράρτημα ΑΠΘ
   SpaceDot
   VROOM
   Panther
  

THMMY.gr Web

Helios_MultiScribbles2SMF Default ThemeSMFone_Blue

[Ανεβάζετε τα θέματα των εξετάσεων στον τομέα Downloads]

Είσαι πρωτοετής;... Καλώς ήρθες! Μπορείς να βρεις πληροφορίες εδώ. Βοήθεια για τους καινούργιους μέσω χάρτη.

Κατεβάστε εδώ το Android Application για εύκολη πρόσβαση στο forum.

Ανεβάζετε τα θέματα των εξετάσεων στον τομέα Downloads με προσοχή στα ονόματα των αρχείων!

Για ανανέωση (ή προσθήκη νέου) avatar, πρέπει η μεγαλύτερη διάσταση της εικόνας να είναι 110 pixels.

[legen___dary]

Ωραίο αντικείμενο, ωραίες εργασίες, τίμια εξέταση, άψογος διδάσκων. Για οποιονδήποτε ασχολείται κάπως σοβαρά με τη σχολή είναι must μάθημα. Ο Θέμης το έχει οργανώσει πολύ καλά, και είναι ξηγημενος σε κάθε φάση του μαθήματος (εργασίες, εξέταση κτλ). Αν κάνεις εργασίες, το οποίο προτείνω ανεπιφύλακτα, είναι σχεδόν σίγουρο οτι θα πάρεις έναν αρκετά καλό βαθμό και θα πάρεις μια καλή ιδέα για τις MySQL βάσεις δεδομένων .

sent from mTHMMY  

[προφιτερόλ]

Συμφωνώ οτι το μαθημα είναι μια μαστ επιλογη για το 9ο εξαμηνο. Και μαλιστα για ολους τους τομεις αν σε ενδιαφερει το αντικειμενο και οχι μονο για της ηλεκτρονικης. ΟΙ εργασιες εχουν καλη καθοδηγηση και βγαινουν χωρις να πελαωσεις η να μην βγαζεις ακρη. Αξιζει

[Prison Mike]

Ωραίο αντικείμενο, ωραίες εργασίες, τίμια εξέταση, άψογος διδάσκων. Για οποιονδήποτε ασχολείται κάπως σοβαρά με τη σχολή είναι must μάθημα. Ο Θέμης το έχει οργανώσει πολύ καλά, και είναι ξηγημενος σε κάθε φάση του μαθήματος (εργασίες, εξέταση κτλ). Αν κάνεις εργασίες, το οποίο προτείνω ανεπιφύλακτα, είναι σχεδόν σίγουρο οτι θα πάρεις έναν αρκετά καλό βαθμό και θα πάρεις μια καλή ιδέα για τις MySQL βάσεις δεδομένων .

sent from mTHMMY  

+1 σε αυτά που είπε ο legendary

[Judas Priest saved me]

Πραγματικά το μόνο μάθημα που είναι must στον τομέα της ηλεκτρονικής. Αν είσαι ηλεκτρονική πάρτο χωρίς καν να το σκεφτείς.

Από που να αρχίσω. Οι διαλέξεις είναι άριστες. Όχι μόνο έχει φουλ πλάκα ο Θέμαρος, αλλά τα εξηγεί και τέλεια. Η εργασίες είναι κομπλέ. Θέλουν πιο πολύ χρόνο από όσο φαίνεται με μια ματιά, αλλά όχι κάτι τρελό. Το αντικείμενο προφανώς είναι πολυ σημαντικό. Επίσης, για τις εξετάσεις μας είπε ο Θέμης πόσες φορές ότι ο χρόνος θα είναι ζόρικα για να προετοιμαστούμε, ενώ τελικά ήταν τίγκα ίζι και από δυσκολία και από χρόνο.

Από ηλεκτρονική πάρτε το 100% και ίσως είναι καλή επιλογή και για ορισμένους τηλεπ.

[Phalanx]

Αξίζει για ενεργειακό το μάθημα; Να σημειώσω πως δεν εχω ιδέα από βάσεις, ή οτιδηποτε άλλο προαπαιτούμενο.

[τόνγκα]

Να προσθέσω ότι είναι από τα λίγα μαθήματα της σχολής που αν διαβάσεις αυτά που πρέπει, και καταλάβεις 5 βασικά πράγματα που θέλει να σου περάσει ο Θέμαρος, ΘΑ ΓΡΑΨΕΙΣ ΚΑΙ ΚΑΛΑ ΣΤΙΣ ΕΞΕΤΑΣΕΙΣ.
Δεν υπάρχει περίπτωση ο κόπος σου να πάει χαμένος όπως συμβαίνει με άλλα μαθήματα, ονόματα δε λέμε, "Ε τάτι ?"  .

[Mandalorian]

Αξίζει για ενεργειακό το μάθημα; Να σημειώσω πως δεν εχω ιδέα από βάσεις, ή οτιδηποτε άλλο προαπαιτούμενο.

Δεν χρειάζεται να ξέρεις κάτι από πριν. Το μάθημα, κατά τη γνώμη μου, είναι τόσο καλά στημένο που αν παρακολουθείς, είναι σίγουρο ότι δε θα ταλαιπωρηθείς στις εξετάσεις, καθώς επίσης θα σου μείνουν και 2 πράγματα παραπάνω. Είναι από τα λίγα μαθήματα του τομέα Ηλεκτρονικής που θα συνιστούσα σε κάποιον να πάρει σαν επιλογής.

[Phalanx]

Δεν χρειάζεται να ξέρεις κάτι από πριν. Το μάθημα, κατά τη γνώμη μου, είναι τόσο καλά στημένο που αν παρακολουθείς, είναι σίγουρο ότι δε θα ταλαιπωρηθείς στις εξετάσεις, καθώς επίσης θα σου μείνουν και 2 πράγματα παραπάνω. Είναι από τα λίγα μαθήματα του τομέα Ηλεκτρονικής που θα συνιστούσα σε κάποιον να πάρει σαν επιλογής.

Οκ τέλεια, αξίζει ακόμα και χωρίς Θέμη (αν δεν το έχει);

[tigriss]

ξέρουμε ποιός θα το έχει φετος?

[angeli]

Η εργασία είναι δύσκολη;; είναι μόνο μια και τέλος ή είναι σε τμήματα κάθε εβδομάδα άλλη παράδοση;

[Xplicit]

Η εργασία είναι δύσκολη;; είναι μόνο μια και τέλος ή είναι σε τμήματα κάθε εβδομάδα άλλη παράδοση;

Από όσο θυμάμαι χωρίζεται σε δύο υποχρεωτικά κομμάτια. Έχει δουλίτσα αλλα δεν θα έλεγα ότι είναι πολύ δύσκολη. Είναι σημαντική για να αποκτήσεις εμπειρία σχετικά με σχεσιακές βάσεις δεδομένων. Βοηθάει πολύ και στην προετοιμασία για τις τελικές εξετάσεις. Υπάρχει και τρίτο προεραιτικό κομμάτι που έχει να κάνει με τη δημιουργία μιας γραφικής διεπαφής της εφαρμογής που έχει δημιουργηθεί απο τα προηγούμενα δύο παραδοτέα.

Τουλάχιστον αυτά ίσχυαν όταν το δίδαξε ο Θέμης σε εμάς το 19-20.

[panos98]

η εργασια θεωρειται απο τις πιο ευκολες του τομεα και ειδικοτερα των μαθηματων της issel. Ειναι δυο παραδοτεα το πρωτο σχεδιαση συμφωνα με οσα θα σας πει στη θεωρια και το δευτερο ειναι να γραψετε καποια ερωτηματα σε sql. Ολα διδασκονται στο μαθημα και ολα μπορουν να εφαρμοσθουν σε οποιοδηποτε θεμα εργασιας επιλεξετε. Οι προθεσμιες ειναι πολυ ανετες. Το τριτο προεραιτικο παραδοτεο ειναι να φτιαξετε το web application της βασης front end + back end. Αλλα εδω η προθεσμια ζοριζει αν δεν ξερετε  fullstack development . Αλλα μπορειτε να μαθετε απο δωρεαν tutorial στο YouTube μεχρι το χειμωνα ανετα

sent from mTHMMY  

[Arcade]

Ναι. Απλά ναι σε όλα. Τελεία, παράγραφος.

[The Audacious AI]

Το μάθημα το έκανε ο Θέμης και φέτος. Διαλέξεις λιγάκι βαρετές αλλά αρκετά διδακτικές. Για την εξέταση (που είναι με όλα ανοιχτά) είναι αρκετά σημαντικό αν τις έχεις περάσεις ΟΛΕΣ και να θυμάσαι το τι είναι που.

Οι δύο υποχρεωτικές εργασίες που είναι κομμάτι του βαθμού είναι βατές αλλά θέλουν κάποια ενασχόληση. Στην πρώτη θα έχεις να κάνει με σχεσιακά σχήματα και το θεωρητικό στήσιμο της βάσης που είναι αρκετά εύκολο. Στην δεύτερη θα έχεις να γράψεις λίγο κώδικα σε mySQL που καλύπτεσαι από τα εργαστήρια (προαιρετικά). Η τρίτη και προαιρετική (παρ' ότι δεν δίνει αρκετό bonus για τον όγκο δουλειάς) έχει αρκετό ενδιαφέρον καθώς υλοποιείς την βάση σου. Θέλει γνώσεις εκτός μαθήματος (όχι κάτι ακραίο).

Η εξέταση νορμάλ, με αρκετά καλούς βαθμούς. Το πήρανε και φίλοι μου από άλλους τομείς και δεν το μετάνιωσαν.

[Katarameno]

Για μένα η είδηση είναι οτι το μάθημα είναι επιλογής! Εμάς ήταν βασικό στο 1ο ή 2ο έτος, δε θυμάμαι ακριβώς. Είχαμε τον κ. Πάγκαλο όμως. Δε καταλαβαίναμε χριστό στις παραδόσεις του, γιατί απλά ούτε οι μισοί δεν είχαμε υπολογιστή τότε  , τι βάσεις δεδομένων να καταλάβουμε...   Όταν μετά από χρόνια δούλεψα ως προγραμματιστής και έφτιαξα τις πρώτες μου βάσεις δεδομένων άρχισα να θυμάμαι αχνά κάποιες ατάκες από τις παραδόσεις του, αλλά όχι πολλά. Αν το παρακολουθούσα μετά βέβαια θα πάθαινα μάλλον πλάκα.
Σοβαρά τώρα? Δεν είναι βασικό μάθημα, ειδικά έστω στον τομέα Ηλεκτρονικής/Υπολογιστών? Δε νοείται να θες να γράψεις κάποια σοβαρή εφαρμογή και να μην αποθηκεύει σε βάση δεδομένων τα δεδομένα.
Που θα τα αποθηκεύει? Σε ένα αρχείο *.ini πχ? Aυτά είναι για μικρές εφαρμογές.
Δλδ πχ το φόρουμ ως εφαρμογή αν δεν είχε πίσω του μια βάση δεδομένων, που θα τα έσωζε όλα μας τα ποστ, τα προφίλ, και την ίδια τη δομή του, με τα boards και τα τόπικ και τα downloads? Σε κανένα αρχείο που θα λεγόταν forum.tmp?  

Ως μέθοδο πάντως θα απέφευγα να γράφω τα query σε stored procedures...   Kαλύτερα (νομίζω) είναι να τα γράφεις μέσα στον κώδικα, στο εργαλείο προγραμματισμού που χρησιμοποιείς.
Τις μισούσα τις "stored procedures". Απ την άλλη μου φαινόταν απείρως πιο βολικό να βάζω ένα object "Query" από το toolbox στη φόρμα και να το ελέγχω από εκεί. Προτιμήσεις βέβαια είναι αυτές.

Μια μικρή περιγραφή για το τι κάνει ο παρακάτω κώδικας σε Delphi (Obj Pascal) : η φόρμα της web εφαρμογής παρακαλώ (2003) είχε πάνω 6 listboxes από τα οποία ο χρήστης επέλεγε όσες "ιδιότητες" ήθελε από το καθένα από τα εξής: κατηγορίες στοιχήματος / παιχνίδι / διοργάνωση / είδος στοιχήματος / κανάλι στοιχηματισμού / είδος πληρωμής / διοργάνωση και ανάλογα με τις επιλογές του του επέστρεφε μια λίστα με τα αποτελέσματα αναζήτησής του με τα στοιχεία του κάθε site (τίτλο / link κτλ))
Πραγματικός κώδικας που τρέχει ακόμα στον ... ΟΠΑΠ, (αφού τα exe που "έφτυνε" το εργαλείο των εργαλείων (το Borland Delphi Architect Edition σπασμένο φυσικά και κατεβασμένο με torrent από την αφεντομουτσουνάρα μου), "έπαιζαν" (έτρεχαν) τότε σε Windows 2000 Server / 2000 Professional / Windows XP και μετά κοιμόμουν ύσηχος αφού ήμουν σίγουρος οτι θα έπαιζε και σε Windows 7, 8, 10 και μάλλον και για 11 / Windows Server 2008 / 2012 κτλ. Διότι ο καλός προγραμματιστής προγραμματίζει με το βλέμμα στο μέλλον με μοναδικό σκοπό να μην τον ξαναενοχλήσουν ποτέ για κάποιο παλιό κώδικα και του χαλάσουν τον ύπνο, ή τίποτα άλλο)  

Με το που τα έβαζες πάνω στη φόρμα έγραφε το θηρίο μόνο του αυτά περίπου (έχω βγάλει ανούσιες λεπτομέρειες όπως η θέση του object πάνω στη φόρμα)

  object QCategD: TQuery
    DatabaseName = 'SportLinksDB'
    SQL.Strings = (
      'select * from categories order by categ_name')
    object QCategDcateg_id: TIntegerField
      FieldName = 'categ_id'
      Origin = 'SPORTLINKSDB.categories.categ_id'
    end
    object QCategDcateg_name: TStringField
      FieldName = 'categ_name'
      Origin = 'SPORTLINKSDB.categories.categ_name'
      Size = 50
    end
  end
  object QGamesD: TQuery
    DatabaseName = 'SportLinksDB'
    SQL.Strings = (
      'select * from games order by game_name')
  end
  object QLeaguesD: TQuery
    DatabaseName = 'SportLinksDB'
    SQL.Strings = (
      'select * from leagues order by lg_name')

  end
  object QEidosD: TQuery
    DatabaseName = 'SportLinksDB'
    SQL.Strings = (
      'select * from Eidos order by eidos_name')
  end
  object QYpiresiesD: TQuery
    DatabaseName = 'SportLinksDB'
    SQL.Strings = (
      'select * from Ypiresies order by ypir_name')
  end
  object QGlossesD: TQuery
    DatabaseName = 'SportLinksDB'
    SQL.Strings = (
      'select * from Glosses order by gl_name')
  end
  object QCommentsD: TQuery
    DatabaseName = 'SportLinksDB'
    SQL.Strings = (
      'select * from Comments order by comment_date')
  end
  object QChannelsD: TQuery
    DatabaseName = 'SportLinksDB'
    SQL.Strings = (
      'select * from Channels order by Channel_name')
  end
  object QBillingsD: TQuery
    DatabaseName = 'SportLinksDB'
    SQL.Strings = (
      'select * from Billing order by billing_name')
  end
  object QSoftwareD: TQuery
    DatabaseName = 'SportLinksDB'
    SQL.Strings = (
      'select * from SoftwareType order by softwtype_name')
  end
  object QCateg: TADOQuery
    Connection = SitesDataModule.SitesDb
    Parameters = <>
    SQL.Strings = (
      'Select * from Categories order by Categ_Name;')
    object QCategcateg_id: TAutoIncField
      FieldName = 'categ_id'
      ReadOnly = True
    end
    object QCategcateg_name: TStringField
      FieldName = 'categ_name'
      Size = 50
    end
  end
  object QGames: TADOQuery
    Connection = SitesDataModule.SitesDb
    Parameters = <>
    SQL.Strings = (
      'Select * from Games order by Game_Name;')
    object QGamesgame_id: TAutoIncField
      FieldName = 'game_id'
      ReadOnly = True
    end
    object QGamesgame_name: TStringField
      FieldName = 'game_name'
      Size = 50
    end
  end
  object QLeagues: TADOQuery
    Connection = SitesDataModule.SitesDb
    Parameters = <>
    SQL.Strings = (
      'Select * from Leagues order by Lg_Name;')
    object QLeagueslg_id: TAutoIncField
      FieldName = 'lg_id'
      ReadOnly = True
    end
    object QLeagueslg_name: TStringField
      FieldName = 'lg_name'
      Size = 50
    end
  end
  object QEidos: TADOQuery
    Connection = SitesDataModule.SitesDb
    Parameters = <>
    SQL.Strings = (
      'Select * from Eidos order by Eidos_Name;')
    object QEidoseidos_id: TAutoIncField
      FieldName = 'eidos_id'
      ReadOnly = True
    end
    object QEidoseidos_name: TStringField
      FieldName = 'eidos_name'
      Size = 50
    end
  end
  object QYpiresies: TADOQuery
    Connection = SitesDataModule.SitesDb
    Parameters = <>
    SQL.Strings = (
      'Select * from Ypiresies order by Ypir_Name;')
    object QYpiresiesypir_id: TAutoIncField
      FieldName = 'ypir_id'
      ReadOnly = True
    end
    object QYpiresiesypir_name: TStringField
      FieldName = 'ypir_name'
      Size = 50
    end
  end
  object QGlosses: TADOQuery
    Connection = SitesDataModule.SitesDb
    Parameters = <>
    SQL.Strings = (
      'Select * from Glosses order by Gl_Name;')
    object QGlossesgl_id: TAutoIncField
      FieldName = 'gl_id'
      ReadOnly = True
    end
    object QGlossesgl_name: TStringField
      FieldName = 'gl_name'
      Size = 50
    end
  end
  object QComments: TADOQuery
    Connection = SitesDataModule.SitesDb
    Parameters = <>
    SQL.Strings = (
      'Select * from Comments order by Comment_Date;')
    object QCommentscomment_id: TAutoIncField
      FieldName = 'comment_id'
      ReadOnly = True
    end
    object QCommentscomment: TStringField
      FieldName = 'comment'
      Size = 1000
    end
    object QCommentscomment_date: TDateTimeField
      FieldName = 'comment_date'
    end
    object QCommentscomment_byUser: TStringField
      FieldName = 'comment_byUser'
      Size = 30
    end
    object QCommentss_id: TIntegerField
      FieldName = 's_id'
    end
  end
  object QChannels: TADOQuery
    Connection = SitesDataModule.SitesDb
    Parameters = <>
    SQL.Strings = (
      'Select * from Channels order by Channel_Name;')
    object QChannelschannel_id: TAutoIncField
      FieldName = 'channel_id'
      ReadOnly = True
    end
    object QChannelschannel_name: TStringField
      FieldName = 'channel_name'
      Size = 100
    end
  end
  object QBillings: TADOQuery
    Connection = SitesDataModule.SitesDb
    Parameters = <>
    SQL.Strings = (
      'Select * from Billing order by Billing_Name;')
    object QBillingsbilling_id: TAutoIncField
      FieldName = 'billing_id'
      ReadOnly = True
    end
    object QBillingsbilling_name: TStringField
      FieldName = 'billing_name'
      Size = 100
    end
  end
  object QSoftware: TADOQuery
    Connection = SitesDataModule.SitesDb
    Parameters = <>
    SQL.Strings = (
      'Select * from SoftwareType order by Softwtype_Name;')
    object QSoftwaresoftwtype_id: TAutoIncField
      FieldName = 'softwtype_id'
      ReadOnly = True
    end
    object QSoftwaresoftwtype_name: TStringField
      FieldName = 'softwtype_name'
      Size = 100
    end
  end
  object DSSearchResults: TDataSource
    DataSet = QSearchResults
  end
  object QSearchResults: TADOQuery
    Connection = SitesDataModule.SitesDb
    BeforePost = QSearchResultsBeforePost
    Parameters = <>
    SQL.Strings = (
        'Select sid,s_name,s_address,s_country,s_company,s_importedby,s_l' +
        'astmodified from Sites;')
    object QSearchResultssid: TAutoIncField
      FieldName = 'sid'
      ReadOnly = True
    end
    object QSearchResultss_name: TStringField
      FieldName = 's_name'
      ReadOnly = True
      Size = 150
    end
    object QSearchResultss_address: TStringField
      FieldName = 's_address'
      ReadOnly = True
      Size = 150
    end
    object QSearchResultss_country: TStringField
      FieldName = 's_country'
      ReadOnly = True
      Size = 70
    end
    object QSearchResultss_company: TStringField
      FieldName = 's_company'
      ReadOnly = True
      Size = 70
    end
    object QSearchResultss_importedby: TStringField
      FieldName = 's_importedby'
      ReadOnly = True
      Size = 50
    end
    object QSearchResultss_lastmodified: TDateTimeField
      FieldName = 's_lastmodified'
      ReadOnly = True
    end
  end

έγραφες δηλαδή μισή σειρά select query, πανεύκολο πχ αυτό μόνο : "Select * from SoftwareType order by Softwtype_Name;"
του όριζες τη βάση δεδομένων που χτυπάει
και στον κώδικα στην πιο εξτρίμ περίπτωση έγραψα αυτά:

procedure TSearchSitesForm.SpBtnSearchClick(Sender: TObject);
var
  SqlString   : TStrings ;
  i, Count_Found : Integer ;
  Katigoria_id, Paixnidi_id, League_id,
  EidosStoiximatos_id, Ypiresia_id, Glossa_id,
  Kanali_id, Pleromi_id, Logismiko_id : Integer ;
  Katigoria_Name, Paixnidi_Name, League_Name,
  EidosStoiximatos_Name, Ypiresia_Name, Glossa_Name,
  Kanali_Name, Pleromi_Name, Logismiko_Name : String ;

begin
  try
    // {*************************************************************************}
    SqlString := TStringList.Create;  // <-- String List που θα Έχει το Παραγόμενο SQL
    // SqlString := 'Select * from Sites Order By s_name'  // Διόρθωση : 21/1/2003
    SqlString.Clear ;
    SqlString.Add('Select sid,s_name,s_address,s_country,s_company,s_importedby,s_lastmodified from Sites  where ');
    // Η 1η Γραμμή του SQL Query

    // {*************************************************************************}
    // Categories ********* Κατηγορίες
    if ListCateg.SelCount > 0 then
    begin  // Αρχή του if
      SqlString.Add('(') ;  // Ανοίγουμε Παρένθεση γιατί μπορεί να έχει OR
      Count_Found := 0 ;
      for i := 0 to ListCateg.Items.Count - 1 do
      if ListCateg.Selected then
      begin
        Katigoria_id := ListCateg.ItemIndex ;
        // {************************
        Katigoria_Name := ListCateg.Items ;
        with QCateg do
        begin
          First ;
          while not Eof do
          begin
            if (Katigoria_Name = QCateg.FieldByName('categ_name').AsString) then
              Katigoria_id := QCateg.FieldByName('categ_id').AsInteger ;
            Next ;
          end; // Τέλος του while not Eof do
        end; // Τέλος του with QCateg do
        // {************************
        Inc(Count_Found) ;
        if Count_Found = 1 then  // Στο Πρώτο Επιλεγμένο Δέν Βάζουμε OR
          SqlString.Add('    sid in (select s_id from SitesCategories where categ_id=' + IntToStr(Katigoria_id)+' ) ')
        else
          SqlString.Add(' OR sid in (select s_id from SitesCategories where categ_id=' + IntToStr(Katigoria_id)+' ) ');
      end;
      SqlString.Add(')');  // Κλείνουμε Παρένθεση
    end; // Τέλος των Κατηγοριών *****************
    // {*************************************************************************}

    // {*************************************************************************}
    // Games ********* Παιχνίδια-Αθλήματα
    if ListGames.SelCount > 0 then
    begin  // Αρχή του if
      if SqlString.Count > 1 then SqlString.Add(' AND ');   // Προσθέτουμε το AND εάν το SQLString έχει πάνω από 1 Σειρές
      SqlString.Add('(') ;  // Ανοίγουμε Παρένθεση γιατί μπορεί να έχει OR
      Count_Found := 0 ;
      for i := 0 to ListGames.Items.Count - 1 do
      if ListGames.Selected then
      begin
        Paixnidi_id := ListGames.ItemIndex ;
        // {************************
        Paixnidi_Name := ListGames.Items ;
        with QGames do
        begin
          First ;
          while not Eof do
          begin
            if (Paixnidi_Name = QGames.FieldByName('game_name').AsString) then
              Paixnidi_id := QGames.FieldByName('game_id').AsInteger ;
            Next ;
          end; // Τέλος του while not Eof do
        end; // Τέλος του with QGames do
        // {************************
        Inc(Count_Found) ;
        if Count_Found = 1 then  // Στο Πρώτο Επιλεγμένο Δέν Βάζουμε OR
          SqlString.Add('    sid in (select s_id from SitesGames where game_id=' + IntToStr(Paixnidi_id)+' ) ')
        else
          SqlString.Add(' OR sid in (select s_id from SitesGames where game_id=' + IntToStr(Paixnidi_id)+' ) ');
      end;
      SqlString.Add(')');  // Κλείνουμε Παρένθεση
    end; // Τέλος των Παιχνιδιών
    // {*************************************************************************}

    // {*************************************************************************}
    // Leagues ********* Διοργανώσεις
    if ListLeagues.SelCount > 0 then
    begin  // Αρχή του if
      if SqlString.Count > 1 then SqlString.Add(' AND ');   // Προσθέτουμε το AND εάν το SQLString έχει πάνω από 1 Σειρές
      SqlString.Add('(') ;  // Ανοίγουμε Παρένθεση γιατί μπορεί να έχει OR
      Count_Found := 0 ;

      for i := 0 to ListLeagues.Items.Count - 1 do
      if ListLeagues.Selected then
      begin
        League_id := ListLeagues.ItemIndex ;
        // {************************
        League_Name := ListLeagues.Items ;
        with QLeagues do
        begin
          First ;
          while not Eof do
          begin
            if (League_Name = QLeagues.FieldByName('lg_name').AsString) then
              League_id := QLeagues.FieldByName('lg_id').AsInteger ;
            Next ;
          end; // Τέλος του while not Eof do
        end; // Τέλος του with QGames do
        // {************************
        Inc(Count_Found) ;
        if Count_Found = 1 then  // Στο Πρώτο Επιλεγμένο Δέν Βάζουμε OR
          SqlString.Add('    sid in (select s_id from SitesLeagues where lg_id=' + IntToStr(League_id)+' ) ')
        else
          SqlString.Add(' OR sid in (select s_id from SitesLeagues where lg_id=' + IntToStr(League_id)+' ) ');
      end;
      SqlString.Add(')');  // Κλείνουμε Παρένθεση
    end; // Τέλος των Διοργανώσεων
    // {*************************************************************************}

    // {*************************************************************************}
    // EidosStoiximatos ********* Είδος Στοιχήματος
    if ListEidos.SelCount > 0 then
    begin  // Αρχή του if
      if SqlString.Count > 1 then SqlString.Add(' AND ');   // Προσθέτουμε το AND εάν το SQLString έχει πάνω από 1 Σειρές
      SqlString.Add('(') ;  // Ανοίγουμε Παρένθεση γιατί μπορεί να έχει OR
      Count_Found := 0 ;
      for i := 0 to ListEidos.Items.Count - 1 do
      if ListEidos.Selected then
      begin
        EidosStoiximatos_id := ListEidos.ItemIndex ;
        // {************************
        EidosStoiximatos_Name := ListEidos.Items ;
        with QEidos do
        begin
          First ;
          while not Eof do
          begin
            if (EidosStoiximatos_Name = QEidos.FieldByName('eidos_name').AsString) then
              EidosStoiximatos_id := QEidos.FieldByName('eidos_id').AsInteger ;
            Next ;
          end; // Τέλος του while not Eof do
        end; // Τέλος του with QGames do
        // {************************
        Inc(Count_Found) ;
        if Count_Found = 1 then  // Στο Πρώτο Επιλεγμένο Δέν Βάζουμε OR
          SqlString.Add('    sid in (select s_id from SitesEidi where eidos_id=' + IntToStr(EidosStoiximatos_id)+' ) ')
        else
          SqlString.Add(' OR sid in (select s_id from SitesEidi where eidos_id=' + IntToStr(EidosStoiximatos_id)+' ) ');
      end;
      SqlString.Add(')');  // Κλείνουμε Παρένθεση
    end; // Τέλος των Ειδών Στοιχήματος
    // {*************************************************************************}

    // {*************************************************************************}
    // Ypiresies ********** Υπηρεσίες
    if ListYpiresies.SelCount > 0 then
    begin  // Αρχή του if
      if SqlString.Count > 1 then SqlString.Add(' AND ');   // Προσθέτουμε το AND εάν το SQLString έχει πάνω από 1 Σειρές
      SqlString.Add('(') ;  // Ανοίγουμε Παρένθεση γιατί μπορεί να έχει OR
      Count_Found := 0 ;
      for i := 0 to ListYpiresies.Items.Count - 1 do
      if ListYpiresies.Selected then
      begin
        Ypiresia_id := ListYpiresies.ItemIndex ;
        // {************************
        Ypiresia_Name := ListYpiresies.Items ;
        with QYpiresies do
        begin
          First ;
          while not Eof do
          begin
            if (Ypiresia_Name = QYpiresies.FieldByName('ypir_name').AsString) then
              Ypiresia_id := QYpiresies.FieldByName('ypir_id').AsInteger ;
            Next ;
          end; // Τέλος του while not Eof do
        end; // Τέλος του with QGames do
        // {************************
        Inc(Count_Found) ;
        if Count_Found = 1 then  // Στο Πρώτο Επιλεγμένο Δέν Βάζουμε OR
          SqlString.Add('    sid in (select s_id from SitesYpiresies where ypir_id=' + IntToStr(Ypiresia_id)+' ) ')
        else
          SqlString.Add(' OR sid in (select s_id from SitesYpiresies where ypir_id=' + IntToStr(Ypiresia_id)+' ) ');
      end;
      SqlString.Add(')');  // Κλείνουμε Παρένθεση
    end; // Τέλος των Υπηρεσιών
    // {*************************************************************************}

    // {*************************************************************************}
    // Glosses ********** Γλώσσες
    if ListGlosses.SelCount > 0 then
    begin  // Αρχή του if
      if SqlString.Count > 1 then SqlString.Add(' AND ');   // Προσθέτουμε το AND εάν το SQLString έχει πάνω από 1 Σειρές
      SqlString.Add('(') ;  // Ανοίγουμε Παρένθεση γιατί μπορεί να έχει OR
      Count_Found := 0 ;
      for i := 0 to ListGlosses.Items.Count - 1 do
      if ListGlosses.Selected then
      begin
        Glossa_id := ListGlosses.ItemIndex ;
        // {************************
        Glossa_Name := ListGlosses.Items ;
        with QGlosses do
        begin
          First ;
          while not Eof do
          begin
            if (Glossa_Name = QGlosses.FieldByName('gl_name').AsString) then
              Glossa_id := QGlosses.FieldByName('gl_id').AsInteger ;
            Next ;
          end; // Τέλος του while not Eof do
        end; // Τέλος του with QGames do
        // {************************
        Inc(Count_Found) ;
        if Count_Found = 1 then  // Στο Πρώτο Επιλεγμένο Δέν Βάζουμε OR
          SqlString.Add('    sid in (select s_id from SitesGlosses where gl_id=' + IntToStr(Glossa_id)+' ) ')
        else
          SqlString.Add(' OR sid in (select s_id from SitesGlosses where gl_id=' + IntToStr(Glossa_id)+' ) ');
      end;
      SqlString.Add(')');  // Κλείνουμε Παρένθεση
    end; // Τέλος των Γλωσσών
    // {*************************************************************************}

    // {*************************************************************************}
    // Channels ********** Κανάλια
    if ListChannels.SelCount > 0 then
    begin  // Αρχή του if
      if SqlString.Count > 1 then SqlString.Add(' AND ');   // Προσθέτουμε το AND εάν το SQLString έχει πάνω από 1 Σειρές
      SqlString.Add('(') ;  // Ανοίγουμε Παρένθεση γιατί μπορεί να έχει OR
      Count_Found := 0 ;
      for i := 0 to ListChannels.Items.Count - 1 do
      if ListChannels.Selected then
      begin
        Kanali_id := ListChannels.ItemIndex ;
        // {************************
        Glossa_Name := ListChannels.Items ;
        with QGlosses do
        begin
          First ;
          while not Eof do
          begin
            if (Kanali_Name = QChannels.FieldByName('channel_name').AsString) then
              Kanali_id := QChannels.FieldByName('channel_id').AsInteger ;
            Next ;
          end; // Τέλος του while not Eof do
        end; // Τέλος του with QGames do
        // {************************
        Inc(Count_Found) ;
        if Count_Found = 1 then  // Στο Πρώτο Επιλεγμένο Δέν Βάζουμε OR
          SqlString.Add('    sid in (select s_id from SitesChannels where channel_id=' + IntToStr(Kanali_id)+' ) ')
        else
          SqlString.Add(' OR sid in (select s_id from SitesChannels where channel_id=' + IntToStr(Kanali_id)+' ) ');
      end;
      SqlString.Add(')');  // Κλείνουμε Παρένθεση
    end; // Τέλος των Καναλιών
    // {*************************************************************************}

    // {*************************************************************************}
    // Billings ********** Τρόποι Πληρωμής
    if ListBillings.SelCount > 0 then
    begin  // Αρχή του if
      if SqlString.Count > 1 then SqlString.Add(' AND ');   // Προσθέτουμε το AND εάν το SQLString έχει πάνω από 1 Σειρές
      SqlString.Add('(') ;  // Ανοίγουμε Παρένθεση γιατί μπορεί να έχει OR
      Count_Found := 0 ;
      for i := 0 to ListBillings.Items.Count - 1 do
      if ListBillings.Selected then
      begin
        Pleromi_id := ListBillings.ItemIndex ;
        // {************************
        Pleromi_Name := ListBillings.Items ;
        with QBillings do
        begin
          First ;
          while not Eof do
          begin
            if (Pleromi_Name = QBillings.FieldByName('billing_name').AsString) then
              Pleromi_id := QBillings.FieldByName('billing_id').AsInteger ;
            Next ;
          end; // Τέλος του while not Eof do
        end; // Τέλος του with QGames do
        // {************************
        Inc(Count_Found) ;
        if Count_Found = 1 then  // Στο Πρώτο Επιλεγμένο Δέν Βάζουμε OR
          SqlString.Add('    sid in (select s_id from SitesBilling where billing_id=' + IntToStr(Pleromi_id)+' ) ')
        else
          SqlString.Add(' OR sid in (select s_id from SitesBilling where billing_id=' + IntToStr(Pleromi_id)+' ) ');
      end;
      SqlString.Add(')');  // Κλείνουμε Παρένθεση
    end; // Τέλος των Τρόπων Πληρωμής
    // {*************************************************************************}

    // {*************************************************************************}
    // Software Type ********** Είδη Λογισμικού
    if ListSoftware.SelCount > 0 then
    begin  // Αρχή του if
      if SqlString.Count > 1 then SqlString.Add(' AND ');   // Προσθέτουμε το AND εάν το SQLString έχει πάνω από 1 Σειρές
      SqlString.Add('(') ;  // Ανοίγουμε Παρένθεση γιατί μπορεί να έχει OR
      Count_Found := 0 ;
      for i := 0 to ListSoftware.Items.Count - 1 do
      if ListSoftware.Selected then
      begin
        Logismiko_id := ListSoftware.ItemIndex ;
        // {************************
        Logismiko_Name := ListSoftware.Items ;
        with QSoftware do
        begin
          First ;
          while not Eof do
          begin
            if (Logismiko_Name = QSoftware.FieldByName('softwtype_name').AsString) then
              Logismiko_id := QSoftware.FieldByName('softwtype_id').AsInteger ;
            Next ;
          end; // Τέλος του while not Eof do
        end; // Τέλος του with QGames do
        // {************************
        Inc(Count_Found) ;
        if Count_Found = 1 then  // Στο Πρώτο Επιλεγμένο Δέν Βάζουμε OR
          SqlString.Add('    sid in (select s_id from SitesSoftwareType where softwtype_id=' + IntToStr(Logismiko_id)+' ) ')
        else
          SqlString.Add(' OR sid in (select s_id from SitesSoftwareType where softwtype_id=' + IntToStr(Logismiko_id)+' ) ');
      end;
      SqlString.Add(')');  // Κλείνουμε Παρένθεση
    end; // Τέλος των Ειδών Λογισμικού
    // {*************************************************************************}

    // Finalisation
    // {*************************************************************************}
    MemoSQLDebug.Lines.Assign(SqlString); // Για να βλέπουμε το SQL Query που παράγεται ανάλογα με τις επιλογές του χρήστη στο memo - Είναι για debug μόνο - θα φύγει μετά (απλά hidden)
    if SqlString.Count = 1 then         // Αν δεν έχει επιλέξει τίποτα - αν θέλουμε τα δείχνουμε
    begin                               // όλα τα Sites αλλά πρέπει να βγάλουμε το where από το αρχικό SQL Query
      SqlString.Clear ;
      SqlString.Add('Select sid,s_name,s_address,s_country,s_company,s_importedby,s_lastmodified from Sites order by s_name');
      // Για να Δείχνει Όλες τις Ιστοσελίδες
    end;

    MemoSQLDebug.Lines.Add('// {*************************************************************************');
    for i := 0 to SqlString.Count - 1 do
    begin
      MemoSQLDebug.Lines.Add(SqlString.Strings) ;
    end;  // Τέλος του for i := 0 to SqlString.Count - 1 do  
    MemoSQLDebug.Lines.Add('// {*************************************************************************');

    // {*************************************************************************}
    if CheckBoxDebugMode.Checked then
      DxPageControlSearchBy.ActivePage := DxTabSheetMemoSQLDebug
      // Αν είναι Τσεκαρισμένη η Επιλογή DebugMode μεταφερόμαστε στο Tab DxTabSheetMemoSQLDebug
    else
      DxPageControlSearchBy.ActivePage := DxTabSheetSearchResults ;
      // Αν δέν είναι Τσεκαρισμένη η Επιλογή DebugMode μεταφερόμαστε στο Tab DxTabSheetSearchResults
    // {*************************************************************************}
    if SqlString.Count > 1 then
    begin
      i := 0 ;
      QSearchResults.SQL.Clear ;
      for i := 0 to SqlString.Count - 1 do
      begin
        QSearchResults.SQL.Add(SqlString.Strings) ;
      end; // Τέλος του for i := 0 to SqlString.Count - 1 do
    end; // Τέλος του if SqlString.Count > 1 then
    if CheckBoxDebugMode.Checked then
      ShowMessage(QSearchResults.SQL.Text);
      // Αν είναι Τσεκαρισμένη η Επιλογή DebugMode μεταφερόμαστε στο Tab DxTabSheetMemoSQLDebug

    QSearchResults.Active := True ;    // Ανοίγουμε το Query QSearchResults
    // {*************************************************************************}
    SqlString.Free ;
    // {*************************************************************************}

  except on e: Exception do
    begin
      ShowMessage('Παρουσιάστηκε Σφάλμα στην Διαδικασία Δημιουργίας του Query της Φόρμας Αναζήτησης Ιστοσελίδων Αθλητικού '
                  + 'Περιεχομένου Ανά Όνομα / Ιδιότητα (SearchSitesForm.SpBtnSearchClick) με μύνημα: ' + e.Message ) ;
      WriteLog('Παρουσιάστηκε Σφάλμα στην Διαδικασία Δημιουργίας του Query της Φόρμας Αναζήτησης Ιστοσελίδων Αθλητικού '
               + 'Περιεχομένου Ανά Όνομα / Ιδιότητα (SearchSitesForm.SpBtnSearchClick) με μύνημα: ' + e.Message ) ;
    end;  // Τέλος του on e: Exception do
  end;  // Τέλος του try/except
end;  // Τέλος της Διαδικασίας
// {*************************************************************************}

Ούτε το Google δεν είχε να ψάχνεις επιλέγοντας με κλικ από λίστες ιδιοτήτων. Eat my dust google search.