Hvordan lage et søkeskjema for en Visual Basic-prosjektet

Hvordan lage et søkeskjema for en Visual Basic-prosjektet


De fleste dataprogrammer som er koblet til en databasefil tillate sluttbrukere å vise og manipulere data uten å samhandle direkte med databasen. I en dataregistrering program, gjør et søkeskjema brukeren å søke etter bestemte poster i en tabell som matcher kriteriene gitt. Dette begrenser mengden data som lastes ned fra databasen og vises på skjemaet. Informasjonen hentes kan deretter bli analysert, redigert, slettet eller sendt til skriveren for å produsere en papirkopi. For å lage et søkeskjema for en Visual Basic-prosjektet, må programmereren ha grunnleggende kunnskaper i Visual Basic form design og koding, samt databasespørring.

Bruksanvisning

1 Last Visual Basic-miljøet fra datamaskinen ved å klikke på "Start> Programmer> Microsoft Visual Studio 6.0> Microsoft Visual Basic 6.0".

2 Velg "Standard EXE" fra "New Project" dialogboksen som kommer opp. Klikk "Open" for å fortsette.

3 Dra og slipp kontroller fra "Toolbox" i skjemaet til å designe grensesnittet og sette de enkelte eiendommene etterpå under "Properties" vinduet. Et søk form har vanligvis tekstbokser der brukerne skriver ord å søke mot databasen, etiketter, noen kommandoknappene, rutenett for å vise resultatet, og database kontroll som forbinder form inn i tabellen i databasen. Fortsett med å designe den form som foretrekkes.

4 Klikk på "Vis> Code" i menyen for å gå til koden delen. Det er der du vil skrive kildekoder for prosjektet.

5 Gå til "Form_Load" hendelse ved å klikke på den aktuelle hendelsesnavn fra rullegardinmenyene i koder delen. Skriv inn en kode som ligner på det nedenfor. Denne koden vil sette tilkoblings egenskapene til dataene kontroll og kobler rutenettet til databasefilen.

med Adodc1

.ConnectionString = "[Type your connection string here]"

.CursorType = AdOpenKeyset

.CursorLocation = AdUseClient

.LockType = AdLockOptimistic

.CommandType = AdCmdTable

.RecordSource = & Quot; [Skriv inn navnet på en tabell eller spørring her] & quot;

.Forfriske

End With

med Grid1

Set .DataSource = Adodc1

.HighLight = FlexHighlightWithFocus

.ColWidth (0) = .ColWidth (0) + 1000 & # 039; dette er prøven kolonnedimensjonen; endres som foretrukket

.ColWidth (1) = .ColWidth (1) + 1800

.ColWidth (2) = .ColWidth (2) + 1800

.ColWidth (3) = .ColWidth (3) + 2300

.Forfriske

.TabIndex = 0

End With

6 Dobbeltklikk tekstboksen der brukeren vil gå inn søkekriteriene. For eksempel, ønsker brukeren å søke visse etternavn fra databasen, og han vil skrive inn bokstaver i søkefeltet. Når kampene blir funnet, vil postene bli vist på rutenettet. I koden delen, gå til "Text1_Change ()" hendelse og legge inn en kode som ligner på følgende:

Dim t som String

Hvis Text1.Text <> "" Then

If Adodc1.Recordset.RecordCount &lt;> 0 Then

t = & quot; * & quot; + Text1.Text + & quot; * & quot;

Adodc1.Recordset.Filter = & quot; etternavn liker & # 039; & quot; + T + & quot; & # 039; & quot;

Slutt om

Ellers

Adodc1.Recordset.Filter = adFilterNone

Slutt om

7 Trykk på "F5" tasten for å kjøre prosjektet. Test programmet og se om det kjører som det skal.

8 Lagre prosjektet ved å klikke på "File> Lagre prosjekt som" fra menyen og gir en beskrivende filnavn.