Kuinka tehdä Etsi LomakeVisual Basic Project

LEVYHAKU perustuu käyttäjän määriteltyjä vaatimuksia. hakukuvaketta kuvaa rgbspace päässä & lt; a href = 'http: //www.fotolia.com'> Fotolia.com & lt; / a & gt;

Useimmat tietokoneohjelmat liitetty tietokantaan tiedoston avulla loppukäyttäjät voivat tarkastella ja käsitellä tietoa ilman suorassa vuorovaikutuksessa tietokannan.Vuonna tietojen syöttö sovellus, hakulomaketta avulla käyttäjä voi etsiä tiettyjä kirjaa taulukko, joka vastaa säädettyjä perusteita.Tämä rajoittaa tietojen määrä ladata tietokantaan ja näytetään muodossa.Haetut tiedot voidaan sitten analysoida, muokata, poistaa tai lähetetään tulostimeen tuottaa paperituloste.Voit luoda hakulomakkeella varten Visual Basic Project, ohjelmoija on oltava perustiedot Visual Basic lomakkeen suunnittelu ja koodaus sekä tietokantakyselyn.

mitä tarvitset

  • Visual Basic 6 Ohjelmisto
  • Tietokantatiedosto

Ohjeet

  1. Lataa Visual Basic ympäristön tietokoneesta napsauttamalla "Käynnistä & gt; ohjelmat & gt; Microsoft Visual Studio 6.0 & gt; Microsoft Visual Basic 6.0"

    .

  2. Valitse "normaali EXE" alkaen "New Project" -valintaikkuna avautuvassa.Napsauta "Avaa" -painiketta jatkaaksesi.

  3. Vedä ja pudota säätimet "Toolbox" muotoon suunnitella käyttöliittymä ja asettaa yksittäisten kiinteistöjen jälkeenpäin alla "Properties" -ikkuna.Hakulomake on yleensä tekstiruutuja, joissa käyttäjät kirjoittaa sanoja etsiä vastaan ​​tietokantaan, tarrat, jotkut komentopainikkeita, ruudukko näyttää tulos, ja tietokanta ohjaus, joka yhdistää muodossa taulukkoon tietokannassa.Jatka suunnittelussa muodossa parempana.

  4. Klikkaa "Näytä & gt; Koodi" valikosta mennä -osion.Tämä on, jos kirjoittaa lähdekoodien projektin.

  5. Mene "Form_Load" tapahtuma napsauttamalla asianmukaista tapahtuman nimi avattavasta laatikot koodit osassa.Tulo koodi samanlainen kuin alla.Tämä koodi asettaa yhteyden ominaisuudet tietosi ohjaus ja yhdistää verkkoon tietokantaan tiedoston.

    Kanssa Adodc1

    .ConnectionString = & amp; quot; [Kirjoita yhteysmerkkijono tässä] & amp; quot;

    .CursorType = adOpenKeyset

    .CursorLocation = adUseClient

    .LockType = adLockOptimistic

    .CommandType = adCmdTable

    .RecordSource = & amp; quot; [Kirjoita nimi taulukon tai kyselyn tästä] & amp; quot;

    .Refresh

    End With

    kanssa Grid1

    sarja .DataSource = Adodc1

    .HighLight = flexHighlightWithFocus

    .ColWidth (0) = .ColWidth (0) + 1000 & amp; # 039, tämä on esimerkki sarake ulottuvuus;muutos edullisina

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

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

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

    .Refresh

    .TabIndex = 0

    End With

  6. Kaksoisnapsauta tekstikenttään, jossa käyttäjä syöttää hakuehdot.Esimerkiksi käyttäjä haluaa etsiä tiettyjä sukunimi tietokannasta ja hän kirjoita kirjaimet hakukenttään.Kun ottelut löytyy, Records näkyy verkkoon.Koodiluettelossa, mene "Text1_Change ()" tapahtuma ja syöttää koodin seuraavankaltainen:

    Dim t kuin String

    Jos Text1.Text & lt; & gt;"" Sitten

    Jos Adodc1.Recordset.RecordCount & amp; lt; & gt;0 Sitten

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

    Adodc1.Recordset.Filter = & amp; quot; Sukunimi Pidän & amp; # 039; & amp; quot;+ T + & amp; quot; & amp; # 039; & amp; quot;

    End Jos

    Else

    Adodc1.Recordset.Filter = adFilterNone

    End Jos

  7. Paina "F5" -näppäintä Suorita projekti.Testaa ohjelman ja tarkistaa, jos se on käynnissä niin kuin sen pitäisi.

  8. Tallenna projekti klikkaamalla "Tiedostojen & gt; Tallenna projekti nimellä" valikosta ja tarjoamalla kuvaava tiedostonimi.

953
0
3
Visual Basic Ohjelmointi