De flesta dataprogram kopplat till en databas fil tillåta slutanvändare att visa och manipulera data utan att behöva interagera direkt med databasen . I en datainmatning ansökan ger ett sökformulär för användaren att söka efter specifika poster i en tabell som matchar kriterierna . Detta begränsar mängden data som laddas ner från databasen och visas i formuläret . Den information som hämtas kan sedan analyseras , redigeras , raderas eller skickas till skrivaren för att producera en papperskopia . För att skapa ett sökformulär för en Visual Basic-projekt , måste programmeraren ha grundläggande kunskaper i Visual Basic form design och kodning samt databasfrågan .
Du behöver :
Visual Basic 6 programvara
. Databasfil .
1 .
Ladda Visual Basic miljön från datorn genom att klicka på " Start> Program > Microsoft Visual Studio 6. 0 > Microsoft Visual Basic 6. 0 " .
2 .
Välj " Standard EXE "från " New Project " dialogrutan som dyker upp . Klicka på " Öppna " knappen för att fortsätta .
3 .
Dra och släpp kontroller från "Toolbox " i formuläret för att utforma gränssnittet och ställa de enskilda fastigheterna efteråt under " Properties "-fönstret . Ett sökformulär vanligtvis har textrutor där användarna skriver ord att söka mot databasen , etiketter , något kommando knappar , till nätet visa resultatet , och databas kontroll som länkar formen i tabellen i databasen . Fortsätt med att utforma den form som föredras .
4 .
Klicka på " Visa > Kod " från menyn för att gå till kodavsnitt . Det är där du kommer att skriva källkoder för ditt projekt .
5 .
Gå till " Form_Load " händelse genom att klicka på händelsen namn från listrutorna enligt nummer avsnitt . Mata in en kod som liknar den nedan . Denna kod kommer att ställa in anslutningen egenskaper för din data -kontroll och ansluter gallret till databasfilen .
Med Adodc1
. ConnectionString=" [ Skriv din anslutningssträng här ] "
. CursorType=adOpenKeyset
. CursorLocation=adUseClient
. LockType=adLockOptimistic
. CommandType=adCmdTable
. Recordsource=" [ Ange namnet på en tabell eller fråga här ] "
. Uppdatera
End With
Med Grid1 Set
. . . DataSource=Adodc1
HighLight=flexHighlightWithFocus
ColWidth (0)=ColWidth (0 ) + 1000 "Detta är provet kolumnen dimension . förändring som föredras
ColWidth (1)=ColWidth . ( 1 ) + 1800
. ColWidth (2)=. ColWidth ( 2 ) + 1800
. ColWidth (3)=. ColWidth ( 3 ) + 2300
. Refresh
. TabIndex=0
End With
6 .
Dubbelklicka på textrutan där användaren kommer in i sökkriterier . Till exempel vill att användaren kan söka vissa efternamn från databasen och han kommer att skriva bokstäver i sökrutan . När matchningar hittas , kommer de poster visas på nätet. I avsnittet Kod , gå till " Text1_Change () " händelse och mata in en kod som liknar följande :
Dim t som String
Om Text1. Text <> " " Då
Om Adodc1. Recordset. RecordCount <> 0 Then
t=" * " + Text1. Text + " * "
Adodc1. Recordset. Filter=" Efternamn som " " + T + "' "
End If Else
Adodc1. Recordset. Filter=adFilterNone
End If
7 .
Tryck på " F5 " för att driva projektet . Testa programmet och kontrollera om det är igång som det borde .
8 .
Spara projektet genom att klicka på " Arkiv> Spara projekt som "från menyn och ge ett beskrivande filnamn .