Προβολή δεδομένων πινακα άνα 20

[γιώργοςΚ]

Φίλοι μου γειά σας,

Έύχομαι κατά αρχάς να σας βρίσκω καλά μέσα στην οδύνη την πανδυμϊας..! Ωστόσο, δυστυχώς έχουμε προσαρμόσει όλοι την προσωπική και επαγγελματική μας ζωή με δεδομένο τον εγκλεισμό στο σπίτι, και για όσους μπορούν την εργασία απο εκει. Ζητώ λοιπόν την βοήθεια των πιο έμπειρων μελών έτσι ώστε να εξυπηρετήσω κάποια ανάγκη ενός νοσοκομείου εδώ στην Κύπρο για κάτι το οποίο σχετίζεται δυστυχώς με την οδυνη του κορονοιού.

Σε κάποιο πρόγραμμα που τους έχω φτιάξει μέσω του οποίου μπορουν να διαχειρίζονται ασθενείς για αιματοληψιες κλπ, υπάρχει ο πίνακας Patients μέσα στον οποίο καταχωρούνται οι ασθενείς. Πέραν αυτού, στα εργαστήρια υπάρχουν κάποιες οθόνες σε συγκεκριμένα ιατρικά μηχανήματα οι οποίες είναι μικρές (αλλα με 8" , 10" και οι πιο μεγάλες 12") και σε αυτες πρέπει να προβάλλονται οι κωδικοί ασθενών [PatientID] σε 4 στήλες των 20 κωδικων (για ταυτοχρονη προβολη 80 κωδικών ασθενών σε μια οθόνη). Εννοείται ότι τωρα προβάλλονται οι κωδικοί σε μορφή φόρμας δεδομένων (Datasheet Form) και όπως καταλαμβαίνετε πρέπει ο ιατρός να κάνει συνεχώς Scroll Up/Down.

Μήπως μπορεί κάποιος να μου δώσει κάποια ιδέα πως μπορώ να φτιάξω μια φόρμα με αυτές τις απαιτήσεις? Πληροφοριακά έχω δοκιμάσει να παίξω με ερωτήματα κλπ, αλλά δεν εχω καταφέρει να φτάσω στο ζητούμενο..Παραθετω και μια φωτογραφια πως πρεπει να ειναι τα δεδομενα στην φόρμα

Πιστεύω οτι μπορεί να επιτευχθει σίγουρα με κωδικα το ζητούμενο αλλά εγώ αδυνατώ..

Ευχαριστω εκ προτέρων

[Tasos]

Καλησπέρα σε όλους!
Γιώργο το ζητούμενο μπορεί να υλοποιηθεί ως εξής:

Σε μια κενή φόρμα προσθέτουμε 80 πλαίσια κειμένου σε σωρευμένη διάταξη.

Τα επιλέγουμε όλα κάνοντας κλικ στο σύμβολο που βρίσκεται πάνω αριστερά στο πλέγμα συγκράτησης των πεδίων και στις ιδιότητες επιλέγουμε:
Οριζόντια και κατακόρυφη αγκύρωση = "Και τα δύο" ώστε το μέγεθος τους να αυξομειώνεται ομοιόμορφα κάθε φορά που αλλάζει το μέγεθος της φόρμας.

Φροντίσουμε τα πλαίσια αυτά να έχουν κοινό πρόθεμα πχ. "txt" ακολουθούμενο από ένα αύξοντα αριθμό (txt1, txt2, txt3....txt80). Η διαδικασία αυτή γίνεται και προγραμματιστικά αλλά δεν είναι το ζητούμενο του θέματος. Μπορείς να τα αντιγράψεις από το παράδειγμα που επισυνάπτω.

Στην πτυσσόμενη λίστα "Αναπλήρωση στοιχείων ελέγχου" επιλέγουμε "Κανένα".

Κατόπιν αλλάζουμε το μέγεθος της γραμματοσειράς με τη τιμή 5 αν το υποστηρίζει η επιλεγμένη γραμματοσειρά.

Οι τιμές των αυτών των πεδίων εισάγονται προγραμματιστικά από τον πίνακα κατά τη φόρτωση της φόρμας.

Μέχρι εδώ καλά. Τι γίνεται όμως με την αλλαγή μεγέθους της γραμματοσειράς η οποία πρέπει να "κοντύνει" για να χωρέσει στο στοιχείο ελέγχου;

Δεν υπάρχει επίσημη μέθοδος που να μας επιτρέπει μετρήσουμε το μήκος μιας γραμματοσειράς ώστε να αυξομειώσουμε ανάλογα το μέγεθος της γραμματοσειράς.

Μπορούμε να χρησιμοποιήσουμε το κρυφό αλλά σε μεγάλο βαθμό λειτουργικό αντικείμενο WizHook. Για να εμφανίσουμε τα κρυφά αντικείμενα ή μεθόδους στον VBE πατάμε F2 και επιλέγουμε και στο παράθυρο που θα εμφανιστεί επιλέγουμε "Show Hidden Members".

To WizHook περιέχει μεταξύ άλλων τη συνάρτηση TwipsFromFont() η οποία επιστρέφει το μήκος και το ύψος μιας συγκεκριμένης συμβολοσειράς αφού δώσουμε κάποιες παραμέτρους όπως την ίδια τη συμβολοσειρά, το όνομα, το στυλ, το μέγεθος, και υπογράμμιση.

Για να κάνεις τις δοκιμές σου σε οθόνες των 10 - 12 ιντσών μπορείς να αλλάξεις το στυλ περιγράμματος της φόρμας σε "Κανένα" και μεγιστοποιήσεις τη φόρμα κατά το άνοιγμά της.

Υπάρχουν και άλλες λεπτομέρειες που μπορεί να δει κανείς στο επισυναπτόμενο παράδειγμα.

Καλή συνέχεια!

Τάσος

[γιώργοςΚ]

Αρχική Δημοσίευση από Tasos

Καλησπέρα σε όλους!
Γιώργο το ζητούμενο μπορεί να υλοποιηθεί ως εξής:

Σε μια κενή φόρμα προσθέτουμε 80 πλαίσια κειμένου σε σωρευμένη διάταξη.

Τα επιλέγουμε όλα κάνοντας κλικ στο σύμβολο που βρίσκεται πάνω αριστερά στο πλέγμα συγκράτησης των πεδίων και στις ιδιότητες επιλέγουμε:
Οριζόντια και κατακόρυφη αγκύρωση = "Και τα δύο" ώστε το μέγεθος τους να αυξομειώνεται ομοιόμορφα κάθε φορά που αλλάζει το μέγεθος της φόρμας.

Φροντίσουμε τα πλαίσια αυτά να έχουν κοινό πρόθεμα πχ. "txt" ακολουθούμενο από ένα αύξοντα αριθμό (txt1, txt2, txt3....txt80). Η διαδικασία αυτή γίνεται και προγραμματιστικά αλλά δεν είναι το ζητούμενο του θέματος. Μπορείς να τα αντιγράψεις από το παράδειγμα που επισυνάπτω.

Στην πτυσσόμενη λίστα "Αναπλήρωση στοιχείων ελέγχου" επιλέγουμε "Κανένα".

Κατόπιν αλλάζουμε το μέγεθος της γραμματοσειράς με τη τιμή 5 αν το υποστηρίζει η επιλεγμένη γραμματοσειρά.

Οι τιμές των αυτών των πεδίων εισάγονται προγραμματιστικά από τον πίνακα κατά τη φόρτωση της φόρμας.

Μέχρι εδώ καλά. Τι γίνεται όμως με την αλλαγή μεγέθους της γραμματοσειράς η οποία πρέπει να "κοντύνει" για να χωρέσει στο στοιχείο ελέγχου;

Δεν υπάρχει επίσημη μέθοδος που να μας επιτρέπει μετρήσουμε το μήκος μιας γραμματοσειράς ώστε να αυξομειώσουμε ανάλογα το μέγεθος της γραμματοσειράς.

Μπορούμε να χρησιμοποιήσουμε το κρυφό αλλά σε μεγάλο βαθμό λειτουργικό αντικείμενο WizHook. Για να εμφανίσουμε τα κρυφά αντικείμενα ή μεθόδους στον VBE πατάμε F2 και επιλέγουμε και στο παράθυρο που θα εμφανιστεί επιλέγουμε "Show Hidden Members".

To WizHook περιέχει μεταξύ άλλων τη συνάρτηση TwipsFromFont() η οποία επιστρέφει το μήκος και το ύψος μιας συγκεκριμένης συμβολοσειράς αφού δώσουμε κάποιες παραμέτρους όπως την ίδια τη συμβολοσειρά, το όνομα, το στυλ, το μέγεθος, και υπογράμμιση.

Για να κάνεις τις δοκιμές σου σε οθόνες των 10 - 12 ιντσών μπορείς να αλλάξεις το στυλ περιγράμματος της φόρμας σε "Κανένα" και μεγιστοποιήσεις τη φόρμα κατά το άνοιγμά της.

Υπάρχουν και άλλες λεπτομέρειες που μπορεί να δει κανείς στο επισυναπτόμενο παράδειγμα.

Καλή συνέχεια!

Τάσος

Γειά σου φιλε Τάσο και χαιρομαι που τα ξανα λέμε μετά απο αρκετά χρόνια (νομίζω ήταν το 2015/6). Σε ευχαριστω πολύ για το παράδειγμα σου και ευχαριστω επίσης και για τον χρόνο που ανάλωσεις έτσι ώστε να το ετοιμάσεις. Το παράδειγμα σου είναι πραγματικά μια έξυπνη και λειτουργική για την περίπτωση ιδέα, θα κάνω τις δοκιμές μου και τα ξανά λέμε.

Πάντως σε ευχαριστω και πάλι και θα ειναι πραγματικά χαρά μου να τα πουμε ξανα οποτε ευκαιρίσεις..Αν θες στεϊλε μου mail (gs.pocketpc@gmail.com) και θα ανταποκριθω άμεσα.

Σε ευχαριστω πάλι

[Tasos]

Να είσαι καλά Γιώργο μου!

Θα επικοινωνήσω μαζί σου.

Με εκτίμηση

Τάσος

[γιώργοςΚ]

Αρχική Δημοσίευση από Tasos

Να είσαι καλά Γιώργο μου!

Θα επικοινωνήσω μαζί σου.

Με εκτίμηση

Τάσος

Τάσο θα το χαρώ πολύ, να προσέχεις εσύ και η οικογένεια σου φίλε