Πώς να κάνω μια φόρμα αναζήτησης για ένα έργο της Visual Basic

Τα περισσότερα προγράμματα υπολογιστή που είναι συνδεδεμένος σε ένα αρχείο βάσης δεδομένων επιτρέπει στους τελικούς χρήστες να δείτε και να χειριστείτε τα δεδομένα χωρίς να χρειάζεται να αλληλεπιδρούν άμεσα με τη βάση δεδομένων . Σε μια εφαρμογή εισαγωγής δεδομένων , μια φόρμα αναζήτησης επιτρέπει στο χρήστη να αναζητήσει συγκεκριμένες εγγραφές σε έναν πίνακα που ταιριάζει με τα κριτήρια που προβλέπονται . Αυτό περιορίζει την ποσότητα των δεδομένων που μεταβιβάζονται από τη βάση δεδομένων και να εμφανίζεται στη φόρμα . Οι πληροφορίες που ανακτώνται μπορούν στη συνέχεια να αναλυθούν , επεξεργασία , διαγραφή ή αποστέλλεται στον εκτυπωτή ώστε να παράγει ένα αντίγραφο σε χαρτί . Για να δημιουργήσετε μια φόρμα αναζήτησης για ένα έργο της Visual Basic , ο προγραμματιστής πρέπει να έχουν βασικές γνώσεις σε Visual Basic σχεδίασης φόρμας και την κωδικοποίηση , καθώς και το ερώτημα της βάσης δεδομένων . Τα πράγματα που θα χρειαστείτε
Visual Basic 6 Κατεβάστε το αρχείο βάσης δεδομένων
Η Εμφάνιση Περισσότερες οδηγίες
Η

1 Τοποθετήστε το περιβάλλον της Visual Basic από τον υπολογιστή σας, κάνοντας κλικ στο " Έναρξη> Προγράμματα > ? Microsoft Visual Studio 6.0 > Microsoft Visual Basic 6.0 " . 2

Επιλέξτε " Standard EXE " από το " " παράθυρο διαλόγου New Project που αναδύεται . Κάντε κλικ στο κουμπί " Άνοιγμα" για να συνεχίσετε.
Εικόνων 3

Drag and drop των ελέγχων από την "Toolbox " στη φόρμα για να σχεδιάσει το interface και να ρυθμίσετε τις επιμέρους ιδιότητες αργότερα κάτω από το παράθυρο "Ιδιότητες" . Μια φόρμα αναζήτησης έχει συνήθως πλαίσια κειμένου όπου οι χρήστες πληκτρολογούν λέξεις για να αναζητήσετε τη βάση δεδομένων , ετικετών , κάποια πλήκτρα εντολών , πλέγμα για να εμφανιστεί το αποτέλεσμα , και τον έλεγχο της βάσης δεδομένων που συνδέει το έντυπο στον πίνακα της βάσης δεδομένων. Συνεχίστε με τη σχεδίαση της φόρμας , όπως προτιμάται .
Η

4 Κάντε κλικ στο " View> Code " από το μενού για να μεταβείτε στο τμήμα κώδικα . Αυτό είναι όπου θα γράψετε τους κωδικούς πηγή για το έργο σας .
5

Πηγαίνετε στο " Form_Load " εκδήλωση κάνοντας κλικ στο κατάλληλο όνομα συμβάντος από τα κουτιά drop-down στο τμήμα κωδικούς . Είσοδος ένα κώδικα παρόμοιο με το παρακάτω . Αυτός ο κωδικός θα ορίσετε τις ιδιότητες σύνδεσης του συστήματος ελέγχου των δεδομένων σας και να συνδέει το δίκτυο στο αρχείο βάσης δεδομένων .

Με Adodc1.ConnectionString = " [ Πληκτρολογήστε τη συμβολοσειρά σύνδεσης σας εδώ ] " . CursorType = adOpenKeyset.CursorLocation = adUseClient.LockType = adLockOptimistic.CommandType = adCmdTable.RecordSource = " [ Πληκτρολογήστε το όνομα ενός πίνακα ή το ερώτημα εδώ ] " . RefreshEnd Με

Με Grid1Set . DataSource = Adodc1.HighLight = flexHighlightWithFocus.ColWidth ( 0 ) = . ColWidth ( 0 ) + 1000 «αυτό είναι δείγμα διάστασης της στήλης ? αλλαγή preferred.ColWidth ( 1 ) = ColWidth ( 1 ) + 1800.ColWidth ( 2 ) = ColWidth ( 2 ) + 1800.ColWidth ( 3 ) = ColWidth ( 3 . . . ) + 2300.Refresh.TabIndex = 0End Με
Η

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

Dim t ως String

Αν Text1.Text <> " " ThenIf Adodc1 . Recordset.RecordCount <> 0 Thent = " * " + + Text1.Text " * " Adodc1.Recordset.Filter = "Επώνυμο σαν " + t + " " End IfElseAdodc1.Recordset.Filter = adFilterNoneEnd Αν
Σελίδα 7

Πατήστε το πλήκτρο "F5 " για να εκτελέσετε το έργο . Δοκιμάστε το πρόγραμμα και ελέγξτε αν τρέχει όπως θα έπρεπε .
8

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

Η