De meeste computerprogramma's verbonden met een database- bestand te kunnen eindgebruikers gegevens bekijken en bewerken zonder dat u rechtstreeks met de database . In een data-entry applicatie , een zoekformulier kan de gebruiker zoeken naar specifieke records in een tabel die overeenkomt met de criteria . Dit beperkt de hoeveelheid gedownloade uit de database en weergegeven op de formuliergegevens . De opgehaalde informatie kan vervolgens worden geanalyseerd , bewerkt , verwijderd of verzonden naar de printer om een hard copy te produceren . Om een zoekformulier voor een Visual Basic -project wilt maken, moet de programmeur basiskennis hebben in Visual Basic vorm ontwerp en codering , evenals database query . Wat je nodig hebt
Visual Basic 6-software
Databasebestand
Toon Meer Aanwijzingen
1 Laad de Visual Basic -omgeving van uw computer door te klikken op "Start > Programma's > , Microsoft Visual Studio 6.0 > Microsoft Visual Basic 6.0 Standard EXE " uit de" New Project " dialoogvenster dat verschijnt ' kopen van 2 kiezen . " . Klik op de knop " Open" om .
Drag en drop controls 3 gaan uit van de " Toolbox " in het formulier aan de interface te ontwerpen en stel de individuele eigenschappen daarna onder het venster "Eigenschappen " . Een zoekformulier heeft meestal tekstvakken waar gebruikers soort woorden te zoeken in de database , etiketten , sommige opdrachtknoppen , raster om het resultaat weer te geven , en de database- controle die de vorm verbindt in de tabel in de database . Ga verder met het ontwerpen van het formulier als preferred .
4 Klik op " Weergave> Code " van het menu om naar de sectie code . Dit is waar je de broncodes voor uw project zal schrijven .
5 Ga naar " Form_Load " evenement door te klikken op de juiste event naam uit het drop- down menu in de sectie codes . Voer een code vergelijkbaar met het hieronder . Deze code zal de eigenschappen van uw gegevens controle -verbinding en verbindt het raster om het databasebestand .
Met Adodc1.ConnectionString = " [ Typ uw verbinding string hier ] " . CursorType = adOpenKeyset.CursorLocation = adUseClient.LockType = adLockOptimistic.CommandType = adCmdTable.RecordSource = " [ Typ de naam van een tabel of query hier ] " . RefreshEnd Met
Met Grid1Set . DataSource = Adodc1.HighLight = flexHighlightWithFocus.ColWidth ( 0 ) = . ColWidth ( 0 ) + 1000 ' is dit monster kolomdimensie ; verandering als preferred.ColWidth ( 1 ) = ColWidth ( 1 ) + 1800.ColWidth ( 2 ) = ColWidth ( 2 ) + 1800.ColWidth ( 3 ) = ColWidth ( 3 . . . ) + 2300.Refresh.TabIndex = 0End Met
6 Dubbelklik op het tekstvak waarin de gebruiker de zoekcriteria zal treden . Bijvoorbeeld , de gebruiker wil om bepaalde achternaam zoeken uit de database en zal hij de letters te typen in het zoekvak . Wanneer overeenkomsten worden gevonden , zullen de records worden weergegeven op de grid . In de sectie code , ga naar " Text1_Change ( ) " event en het invoeren van een code zoals de volgende : Dim t
als String
Als Text1.Text < > " " thenif Adodc1 . Recordset.RecordCount < > 0 Thent = " * " + Text1.Text + " * " Adodc1.Recordset.Filter = " Achternaam zoals ' " + t + " ' " End IfElseAdodc1.Recordset.Filter = adFilterNoneEnd Als
de sleutel
Press 7 " F5 " om het project uit te voeren . Test het programma en controleer of het draait zoals het hoort .
8 Sla het project door te klikken op " Bestand > Project opslaan als ' uit het menu en het verstrekken van een beschrijvende bestandsnaam .
< br >
|
