Kuidas teha Search vorm Visual Basic Project

Otsi arvestust põhineb kasutaja määratud kriteeriumidele . otsing ikoon pildi rgbspace alates & lt; a href = "http: //www.fotolia.com'> Fotolia.com & lt; / a & gt;

Enamik arvutiprogramme ühendatud andmebaasi faili võimaldavad lõppkasutajale vaadata ja manipuleerida andmeid, ilma et suhelda otse andmebaasi.Ühes andmesisestuse taotluse otsingumootorit võimaldab kasutajal otsida konkreetset arvestust tabelis, mis vastab sätestatud kriteeriumidele.See piirab allalaetud andmeid andmebaasi ja kuvatakse kujul.Teave kätte saab, siis tuleb analüüsida, redigeerida või saata printer toota paberkandjal.Et luua otsing vorm Visual Basic Project, programmeerija peavad olema põhiteadmised Visual Basic vormi disain ja kodeerimine, samuti andmebaasipäring.

, mida te vajate

  • Visual Basic 6 tarkvara
  • Andmebaasifail

juhised

  1. Laadige Visual Basic keskkonnas arvutist klõpsates "Start & gt; Programs & gt; Microsoft Visual Studio 6.0 & gt; Microsoft Visual Basic 6.0".

  2. Select "Standard EXE" alates "New Project" dialoogiboksis hüp

    pab.Vajuta "Open" nuppu.

  3. Lohista kontroll alates "Toolbox" kujule kavandada liides ja seada individuaalsed omadused pärastki all "Properties" aknas.Otsingumootorit tavaliselt teksti kasti kus kasutajad kirjuta sõna otsida vastu andmebaasi, sildid, mõned käsunuppe, grid kuvamiseks tulemus ja andmebaasi kontroll, mis seob kujul tabelisse jooksul andmebaasis.Jätka projekteerimine kujul eelistatud.

  4. Vajuta "View & gt; Code" menüüst minna koodisektsiooni.See on koht, kus sa kirjutad lähtekoodi oma projekti.

  5. Go to "Form_Load" Kui klõpsates vastava sündmuse nime rippmenüüst kastid koodid osa.Sisend koodi sarnane ühega allpool.See kood loob ühenduse omadusi oma andmeid kontrollida ja ühendab võrku andmebaasi faili.

    Mis Adodc1

    .ConnectionString = & amp; quot; [Sisestage seoses string siin] & amp; quot;

    .CursorType = adOpenKeyset

    .CursorLocation = adUseClient

    .LockType = adLockOptimistic

    .CommandType = adCmdTable

    .RecordSource = & amp; quot; [Tippige nimi, tabeli või päringu siin] & amp; quot;

    .refresh

    Lõpetage

    Mis Grid1

    Set .DataSource = Adodc1

    .HighLight = flexHighlightWithFocus

    .ColWidth (0) = .ColWidth (0) + 1000 & amp; # 039; see proov kolonni mõõde;muutunud eelistatud

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

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

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

    .refresh

    .TabIndex = 0

    Lõpetage

  6. topeltklõps tekstikasti, kuhu kasutaja saab sisestada otsingu kriteeriumid.Näiteks kasutaja soovib otsida teatud perekonnanimi andmebaasist ja ta tähed otsinguväljale.Kui leitakse, dokumente kuvatakse võrku.Kui kood paragrahvi minna "Text1_Change ()" korral ja sisend-kood sarnaneb järgmise:

    Dim t String

    Kui Text1.Text & lt; & gt;"" Siis

    Kui Adodc1.Recordset.RecordCount & amp; lt; & gt;0 Siis

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

    Adodc1.Recordset.Filter = & amp; quot; Perekonnanimi meeldib & amp; # 039; & amp; quot;+ T + amp; quot; & amp; # 039; & amp; quot;

    End Kui

    Else

    Adodc1.Recordset.Filter = adFilterNone

    End Kui

  7. vajutage "F5" võti käivitada projekti.Test programmi ja vaadata, kas see töötab nii nagu peab.

  8. Säästa projekti klõpsates "File & gt; Save Project As" menüüst ja pakub kirjeldav failinimi.

820
0
3
Visual Basic Programmeerimine