8. ČUVANJE I ČITANJE INFORMACIJA
Kako nakon završetka programa svi podaci kreirani u memoriji ne bi bili izgubljeni, morate biti u mogućnosti pohraniti informacije na svoj tvrdi disk. U suprotnom, sve informacije će nestati bez traga. Možete spremati i čitati podatke na različite načine. Za rad s informacijama različitih veličina i formata, možete koristiti binarne i tekstualne datoteke. Možete koristiti Windows registar za skladištenje malih količina informacija. A za najsloženije zadatke ima smisla koristiti baze podataka.
8.1. Otvaranje datoteka pomoću operatora "otvori "
Datoteka je imenovana oblast bilo kojeg vanjskog uređaja za pohranu. Podaci "žive" u memoriji računara, a datoteke - na tvrdom disku. Program ne radi direktno sa fajlovima, već koristi operativni sistem kao posrednika.
Postoje dvije vrste imena datoteka: puna - osim naziva datoteke, naznačena je i lokacija datoteke na vanjskom mediju (na primjer, "C: \ Program Files \ Microsoft Visual Studio \ VB98 \ VB 6.EXE" ) i kratki - samo naziv datoteke (VB 6.EXE). Ako lokacija datoteke nije navedena, tada će se tražiti u trenutnom folderu, po defaultu - folderu u kojem se nalazi vaša aplikacija. Direktno ime datoteke sastoji se od dva dijela: stvarnog jedinstvenog imena datoteke i njegove ekstenzije. Samo ime identifikuje datoteku, a ekstenzija obično označava format datoteke ili program koji je kreirao.
Prije nego počnete raditi sa datotekom, morate pitati operativni sistem pokazivač (deskriptor) fajl... Da biste ga dobili, koristite funkciju "FreeFile". Zatim, koristeći naredbu "Open", ovaj pokazivač je povezan sa potrebnom datotekom. Tek nakon toga program će moći raditi s njim. Sintaksa za otvaranje datoteke je sljedeća:
'Nabavite besplatni pokazivač datoteke i dodijelite ga varijabli
FileHandle% = FreeFile
'Otvorite datoteku
Otvori FilePath _
Kao [#] FileHandle%
... (rad sa fajlom)
Zatvori [#] FileHandle
· FileHandle% - varijabla koja pohranjuje pokazivač datoteke;
· FreeFile - naziv funkcije koja vraća pokazivač datoteke;
· Otvori - ime operatera;
· FilePath je puno ime datoteke;
· Za - ključna riječ praćena opisom načina pristupa datoteci;
· Mode - način pristupa datoteci (vidi tabelu 15);
Tabela 15
Načini pristupa fajlovima
|
Načini pristupa |
Opis |
|
Dodati |
Dodajte podatke na kraj postojeće tekstualne datoteke. Ako datoteka ne postoji, bit će kreirana |
|
Binarno |
Otvaranje fajla u binarnom režimu, tj. kao skup bajtova. Ako datoteka ne postoji, ali će biti kreirana |
|
Unos |
Otvaranje datoteke za čitanje u tekstualnom formatu |
|
Izlaz |
Otvaranje datoteke za pisanje tekstualne datoteke. U tom slučaju, sve stare informacije će biti izbrisane. Ako datoteka ne postoji, ali će biti kreirana |
|
Slučajno |
Otvaranje datoteke u načinu nasumičnog pristupa. Ovaj način se koristi za rad s jednostavnim zapisima. Ako datoteka ne postoji, ali će biti kreirana |
· Pristup je opciona ključna reč praćena opisom tipa pristupa;
· AccessType - opis tipa pristupa:
· Čitanje - čitanje;
· Pisati - pisati;
· Read Write - čitajte i pišite.
|
Bilješka |
Za režime pristupa dodavanju i izlazu dostupan je samo tip pristupa za pisanje, za ulaz samo čitanje, a za binarni i slučajni pristup dostupna su sva tri tipa pristupa. |
· LockType je opcioni parametar koji određuje da li drugi programi mogu koristiti ovu datoteku dok vaš program radi na njoj. Obično se povezuje sa umrežavanjem (vidi tabelu 16).
Tabela 16
Moguće vrijednosti za parametar LockType
|
Značenje |
Opis |
|
Shared |
Svi korisnici sa potrebnim pravima imat će pun pristup datoteci. |
|
Lock Read |
Čitanje datoteke je blokirano, ali je pisanje dozvoljeno |
|
Zaključaj pisanje |
Pisanje u datoteku je blokirano, ali je čitanje dozvoljeno |
|
Zaključaj Čitanje i pisanje |
Zabranjeno je i čitanje i pisanje. |
· Kao što je ključna riječ praćena pokazivačem datoteke.
· # Je znak koji označava da je vrijednost koja slijedi nakon njega pokazivač datoteke.
· Len je opciona ključna reč praćena parametrom koji specificira dužinu zapisa.
· CharInBuffer% - dužina zapisa za fajl otvoren u režimu slučajnog pristupa (Random).
· Close je naredba koja zatvara datoteku povezanu sa navedenim ručkom.
Važno je zatvoriti datoteku nakon što završite rad s njom. Naredba "Close" oslobađa pokazivač datoteke i pripadajuću memorijsku oblast.
Prilikom rada s datotekom, odnosno čitanja iz nje, vrlo je važno odrediti kraj datoteke. Može se odrediti pomoću funkcije EOF (End Of File):
EOF (FileHandle)
· EOF - naziv funkcije;
· FileHandle je ručka datoteke za navođenje kraja.
Funkcija vraća True ako je dostignut kraj datoteke, u suprotnom vraća False.
8.2. Čitanje i pisanje u tekstualnu datoteku
Tekstualni fajl se otvara u režimu pristupa "Input", "Output" ili "Append" (vidi tabelu 15). Posebnost ovog načina rada je u tome što radi samo sa određenim znakovima za ispis. Beskorisno je raditi sa servisnim simbolima.
Za pisanje informacija koristite dva operatora "Print" i "Write", čija je sintaksa sljedeća:
Ispis # FileHandle%, VarBuffer [;]
Write # FileHandle%, VarBuffer [;]
· Print / Write - ključne riječi operatera.
· #FileHandle% - pokazivač na datoteku u koju će biti smještene informacije.
· VarBuffer je vrijednost koja će biti upisana u datoteku.
· ; - opcioni parametar koji se koristi prilikom pisanja u tekstualnu datoteku znači da će sljedeća vrijednost biti upisana u isti red, a ako je nema, u sljedeći.
Za čitanje informacija iz datoteke koristite operatore "Input" i "Line Input". Sintaksa je slična jedna drugoj:
Unos linije # FileHandle%, VarBuffer
Unos # FileHandle%, VarBuffer
· Linijski ulaz / unos - ključne riječi operatera.
· #FileHandle% - pokazivač datoteke iz koje će se čitati informacije.
· VarBuffer je varijabla u koju će se čitati informacije.
Razlika između operatora "Line Input" i "Input" je u tome što je prvi namijenjen samo za tekstualne datoteke, a drugi - za bilo koje. U slučaju tekstualnih datoteka, “Input” čita podatke u jednom redu do prvog separatora (za tekstualne podatke, separator je “,” (zarez), a za numeričke podatke, “” (razmak) i “,” ), i „Line Input »Čita cijeli red odjednom, zanemarujući bilo kakve graničnike.
|
Bilješka |
V Visual basic ne postoje kontrole formata za prethodno kreirane datoteke. Dakle, znak "2" može se čitati kao odgovarajući broj i obrnuto. |
8.3. Rad sa binarnim fajlovima
Fajlovi se otvaraju u binarni format pomoću "Open" operatora u "Binary" modu. Posebnost ovog načina rada je da je rad s datotekom fokusiran isključivo na određene bajtove. Budući da se Visual Basic može direktno odnositi na željenu lokaciju u datoteci, ovaj način se također naziva - način direktnog pristupa... Još jedna karakteristika ovog načina je mogućnost istovremenog pisanja i čitanja informacija u različitim dijelovima datoteke bez ponovnog otvaranja. Pisanje u datoteku otvorenu u binarnom modu se vrši korištenjem sljedeće sintakse:
Stavite # FileHandle%,, NameVar
· Put - ime operatera za snimanje informacija.
· RecNumber - broj bajta datoteke u koju će biti zapisane informacije (opciono).
· NameVar je varijabla čiji će sadržaj biti upisan u datoteku.
Čitanje informacija iz datoteke u binarnom načinu se izvodi pomoću sljedećeg operatora:
Dobiti # FileHandle%,, NameVar
· Get - ime operatera za snimanje informacija.
· FileHandle% - pokazivač datoteke.
· RecNumber - broj bajta datoteke iz kojeg će se čitati informacije (opciono).
· NameVar - ime varijable u koju će biti smeštene pročitane informacije.
Budući da je binarni način fokusiran na bajtove informacija, pri čitanju iz datoteke, varijabla bafera mora imati strogo definiran tip: ili "Byte", tada će se pročitati numerička vrijednost bajta, ili vrijednost znakova fiksne dužine u jednom znaku, tada će se bajt čitati kao znak, ANSI, čiji kod odgovara veličini bajta. Ovaj znak može biti čak i kontrolni, što se ne može postići u slučaju tekstualnih datoteka.
|
Bilješka |
Ako parametar "RecNumber" nedostaje, informacije će biti upisane ili pročitane u sljedećem bajtu datoteke nakon onog s kojim su ranije radili.
8.4. Grafička manipulacija
Grafičke slike se također mogu sačuvati i preuzeti iz datoteka. Da biste preuzeli ikonu iz bitmape ili datoteke i dodijelili je svojstvu Picture kontrole PictureBox i Image, koristite funkciju LoadPicture () sa sljedećom sintaksom:
ImageCtrl.Picture = LoadPicture (FilePath)
· ImageCtrl - naziv kontrole prozora slike, kontrole slike ili forme;
· LoadPicture je naziv funkcije;
· FilePath je potpuno kvalificirano ime datoteke.
SavePicture ImageCtrl .Picture, FilePath
· SavePicture - ime operatera;
· ImageCtrl - naziv kontrole prozora slike, kontrole slike ili forme;
· Slika - naziv svojstva objekta odgovornog za sliku;
· FilePath je potpuno kvalificirano ime datoteke i lokacija na disku.
8.5. Rad sa podacima u registru
Možete koristiti Windows registar za pohranjivanje malih dijelova informacija o formatu znakova. Postoje četiri procedure u Visual Basicu koje možete koristiti za pristup. Veoma su laki za upotrebu, ali imaju jedan veliki nedostatak: podacima možete pristupiti samo iz određenog ključa registratora: "MyComputer \ HKEY _CURRENT _USER \ Software \ VB i VBA programske postavke". Da biste pristupili drugim odjeljcima registra, morate koristiti posebne funkcije "Win 32 API".
Da biste dobili vrijednost parametra iz Visual Basic ključa u Windows registru, koristite sljedeću funkciju:
MyString = GetSetting (VBKeyName, Section, Key [, Default])
· MyString - string za pohranjivanje vrijednosti koju vraća funkcija;
· GetSetting je naziv funkcije.
· VBKeyName je vrijednost niza koja je ime internog VB / VBA potključa.
· Ključ je vrijednost niza koja predstavlja ime parametra u odjeljku.
· Default je opcioni argument čija će vrijednost biti vraćena u slučaju greške (odsustva parametra).
Sljedeća izjava se koristi za pohranjivanje neke vrijednosti u Windows registru:
SaveSetting VBKeyName, Section, Key, MyString
· SaveSetting - ime operatera.
· MyString je string varijabla u koju će se smjestiti pronađena vrijednost.
Da biste dobili niz iz registra koji sadrži sve vrijednosti parametara iz određenog potključa, koristite sljedeću funkciju:
MyVariant = SetAllSettings (VBKeyName, odjeljak)
· MyVariant je niz vrijednosti "Variant" koje vraća funkcija.
· SetAllSettings je naziv funkcije.
· Odjeljak – vrijednost niza koja predstavlja dio ili pododjeljak određene aplikacije.
Da izbrišete cijeli parametarski odjeljak, koristite izraz sa sljedećom sintaksom:
DeleteSetting VBKeyName, Section, Key
· DeleteSetting - ime operatera.
Test pitanja za samotestiranje
- Kako se neke informacije mogu čuvati dugo vremena?
- Šta je fajl?
- Koja imena datoteka znate?
- Navedite sintaksu za "Open" izraz. Objasnite svrhu njegovih parametara.
- Kako možete dijeliti više aplikacija na istom fajlu u isto vrijeme?
- Kako utvrditi da su informacije u datoteci iscrpljene?
- Zašto se preporučuje da ga zatvorite nakon rada sa fajlom?
- Kako vidite razliku između tekstualnog i binarnog režima datoteka?
- Kako se podaci čitaju i pišu u tekstualnom režimu?
- Kako se podaci čitaju i zapisuju u načinu binarne datoteke?
- Koja je razlika između "Print" i "Write" operatora kada radite s datotekama?
- Koja je razlika između "Input" i "Line Input" operatora kada radite sa datotekama?
- Kako možete raditi sa grafičkim podacima?
- Koji su osnovni principi rada sa Windows registrom?
Svaki program mora pohraniti podatke na disk i pročitati ih sa diska. Ovo je potrebno, na primjer, za spremanje postavki programa, malo je vjerojatno da će se korisniku svidjeti program, koji će se sljedeći put morati ponovo konfigurirati.
Ovaj članak će se fokusirati na rad s tekstualnim datotekama koristeći Visual Basic.
Deskriptor fajla
Za rad sa fajlovima operativni sistem koristi I/O kanale, tj. svaki otvori datoteku ima svoj broj.
Visual Basic ima funkciju FreeFile, koji vraća broj slobodnog kanala koji se može koristiti za rad sa datotekom. Ako nema slobodnih kanala, dolazi do greške.
FreeFile [(RangeNumber) ]
RangeNumber- opcijski parametar koji vam omogućava da odredite raspon vrijednosti slobodnih kanala, ako RangeNumber= 0 (podrazumevano), tada se broj kanala vraća iz raspona 1 - 255, a ako je 1, onda iz raspona 256 - 511.
MyFile = FreeFile „Varijablu MyFile je dodijeljen besplatan kanal i sada se može koristiti za rad s datotekama
Rad sa tekstualnim fajlovima
Najčešće nailazite na tekstualne fajlove. Tekstualne datoteke se sastoje od skupa znakova ASCII (Američki standardni kod za razmjenu informacija). standardni kod za razmjenu informacija).
Prije početka pisanja / čitanja podataka, datoteka se mora otvoriti, to se radi pomoću operatora Otvoreno (Ime dokumenta) Za As #File_number, gdje:
Unos- otvorite datoteku za čitanje, ako datoteka ne postoji, dolazi do greške;
Izlaz- za pisanje, ako fajl ne postoji, onda će biti kreiran, a ako fajl postoji, onda će biti prepisan;
Dodati- za dodavanje, ako datoteka ne postoji, onda će biti kreirana, a ako datoteka postoji, onda će podaci biti dodati na kraj datoteke.
Čitanje tekstualnih datoteka može se obaviti na dva načina: čitanje znak po znak, za to koristite funkciju Unos (Broj_karaktera za čitanje, #File_number) i red po red, funkcija se koristi za ovo linijski ulaz #File_number, Gdje_čitati.
Dim MyFile
Dim S kao žica "Varijabla za pohranjivanje pročitanih podataka
MyFile = FreeFile
Otvorite ("C: \ TEST.txt") za unos kao #MyFile
Linijski ulaz #MyFile, S "Čitanje prvog reda iz TEST.TXT datoteke u S varijablu
Dim MyFile "Deklarisanje varijable za besplatni fajl
Dim i As Integer "Varijabla za petlju
Dim tS kao string „Varijabla za čitanje redova
Dim S kao žica "Varijabla za pohranjivanje konačnih podataka
MyFile = FreeFile „Dodjeljivanje besplatnog kanala za rad sa fajlovima
"Otvorite datoteku TEST.TXT za čitanje
Za i = 1 do 5
Linijski ulaz #MyFile, tS "Čitanje TEST.TXT datoteke red po red
Ako je i => 5 Tada je S = tS „Ako je peti red, onda ga pohranjujemo u varijablu S
Sljedeći i
Zatvori #MyFile "Zatvorite datoteku
Dim MyFile "Deklarisajte varijablu za besplatnu datoteku
Dim S As String "Varijabla za pohranjivanje pročitanih podataka
MyFile = FreeFile „Dodjeljivanje besplatnog kanala za rad sa fajlovima
Otvorite ("C: \ TEST.txt") za unos kao #MyFile "Otvorite datoteku TEST.TXT za čitanje
S = Unos $ (LOG (1), 1) „Pročitali smo cijeli fajl u varijablu S
Zatvori #MyFile "Zatvorite datoteku
Postoje operatori za pisanje u fajl Odštampaj #File_number, Podaci i Pisati #File_number, Podaci... Jedina razlika između ovih operatera je u tome Pisati piše podatke u navodnicima, i Print bez navodnika.
Sljedeći kod će se kreirati na C: \ disku novi fajl TEST.TXT i u njega će upisati dva niza, prvi bez navodnika, a drugi pod navodnicima:
Dim MyFile "Deklarisanje varijable za besplatni fajl
MyFile = FreeFile „Dodjeljivanje besplatnog kanala za rad sa fajlovima
Otvorite ("C: \ TEST.txt") za izlaz kao #MyFile "Otvorite TEST.TXT datoteku za snimanje
Print #MyFile, "Ovaj niz je napisao operator Print, bez navodnika..."
Napišite #MyFile, "Ovaj red je napisan naredbom Write, nalazi se u navodnicima..."
Zatvori #MyFile "Zatvorite datoteku
To je sve. Kao što ste vjerovatno već shvatili, operator se koristi za zatvaranje datoteke Zatvori #File_number, pri čemu, # File_number nije potrebno precizirati.
Članak je malo grub, ali će biti koristan za programere početnike. Sljedeći put ću govoriti o radu sa binarnim datotekama.
Windowssvrha rada: Naučite i koristite VB 6 operatore datoteka različite vrste: sekvencijalne (tekstualne) datoteke, datoteke sa slučajnim pristupom, binarne datoteke. Istraživanje i korištenje alata ČestoDijalog da otvorite i sačuvate datoteke, izaberite font i boju i koristite objekat Clipboard za pohranjivanje fragmenata teksta - koristeći primjer kreiranja jednostavnog uređivača teksta.
Kontrolna pitanja:
1. Na koje načine možete otvoriti tekstualni fajl? Kako mogu zatvoriti tekstualnu i bilo koju drugu otvorenu datoteku?
2. Kako se podaci upisuju u tekstualnu datoteku koja je otvorena za pisanje? Koja je razlika između naredbi Write i Print?
3. Kako se podaci čitaju iz tekstualne datoteke otvorene za čitanje? Po čemu se naredbe Input i Line Input razlikuju jedni od drugih? Koja se funkcija može koristiti za čitanje određenog broja znakova iz datoteke? Kako mogu pročitati sve znakove u datoteci?
4. Šta je korisnički definirani tip podataka i kako se ovaj koncept koristi kada se radi sa datotekama slučajnog pristupa ( raf)?
5.S kojim operatorima iz datoteke raf zapisi se čitaju u fajl raf pišu se novi zapisi?
6.U koju svrhu se indeks određuje i koristi pri radu sa fajlom? raf?
7. Koje su karakteristike korištenja binarnih datoteka? Kako se otvaraju? Kako se vrši čitanje iz binarne datoteke i pisanje u binarnu datoteku?
8. Kako se kontrola može primijeniti ČestoDijalog učitati sadržaj tekstualne datoteke u tekstualni okvir? Kako mogu sačuvati uređeni tekst u tekstualnu datoteku koristeći istu kontrolu?
9. Kako se kontrola može primijeniti ČestoDijalog za preuzimanje sadržaja datoteke rtf u polju RichTextbox? Kako sačuvati uređeni tekst u datoteku koristeći istu kontrolu rtf?
10. Kako se kontrola može primijeniti ČestoDijalog za promjenu vrijednosti parametara fonta i promjenu boje teksta u prozoru Textbox(ili odabrani dio teksta u prozoru RichTextbox)?
Primjer 7.1. Razmislite o aplikaciji koja prikazuje upisivanje u tekstualnu datoteku (i čitanje iz tekstualne datoteke) "podataka o zaposlenima" - redove od kojih svaki sadrži identifikacijski broj, puno ime, datum rođenja i mjesto rođenja zaposlenog. Redovi formiraju tabelu, koja će na ekranu simulirati 4 Combo Box kontrole (slika 7.1), formirajući niz Comb (i) objekata, čije svojstvo Style ima vrednost 1 - SimpleCombo.
Označite red za brisanje ", vbExclamation
Češalj (j) .RemoveItem i
'Umetanje novog zapisa u tabelu:
Private Sub mnuInsert_Klikni ()
i% = Češalj (0) .ListIndex
Ako ja< 0 Then
MsgBox "Izaberite red za umetanje ispred njega", vbExclamation
Češalj (0) .AddItem InputBox ("Unesite broj"), tj
Češalj (1) .AddItem InputBox, i
Češalj (2) .AddItem InputBox ("Unesite datum rođenja."), I
Češalj (3) .AddItem InputBox ("Unesite mjesto rođenja."), I
'Promijenite unos u tabeli:
Privatno Sub mnuUpdate_Klikni ()
i% = Češalj (0) .ListIndex
Ako ja< 0 Then
MsgBox "Označite liniju koja se mijenja", vbExclamation
Češalj (0) .Lista (i) = InputBox ("Unesite broj", Češalj (0) .Lista (i))
Češalj (1) .Lista (i) = InputBox ("Unesite ime", Češalj (1) .Lista (i))
Češalj (2) .Lista (i) = InputBox ("Unesite svoj datum rođenja", Češalj (2) .Lista (i))
Češalj (3) .Lista (i) = InputBox ("Unesite mjesto rođenja", Češalj (3) .Lista (i))
'Raščišćavanje cijelog stola:
Privatno Sub mnuClear_Click ()
'Popunjavanje tabele informacijama iz tekstualne datoteke:
Private Sub mnuLoad_Click ()
Otvorite "person. Txt" za unos kao #1
Ulaz #1, numb, fio, bdate, bloc
Češalj (0) .AddItem numb
Češalj (1) .AddItem fio
Češalj (2) .AddItem bdate
Češalj (3) .AddItem blok
'Pisanje informacija tabele u tekstualnu datoteku:
Privatno Sub mnuSave_Klikni ()
N% = Češalj (0) .ListCount
Otvorite "person. Txt" za izlaz kao #1
Za i = 0 do N - 1
numb = Val (češalj (0) .Lista (i))
fio = češalj (1) .Lista (i)
bdate = CDate (češalj (2) .Lista (i))
blok = češalj (3) .Lista (i)
Napišite # 1, numb, fio, bdate, bloc
'Isključivanje aplikacije:
Private Sub mnuExit_Click ()
Primjer 7.2 ... Razmislite o aplikaciji koja pokazuje upotrebu kontrola ČestoDijalog da otvorite i sačuvate datoteku, da izaberete font i boju i da izmenite tekst.
Formatirajte fajl porukaće biti učitano u tekstualno polje (levo polje na slici 7.2), i format datoteke RTF- u polju RichTextbox(desna margina na slici 7.2).
objekt
Klasa
objekt
Nekretnina
objekt
Vrijednost imovine
“Generalne ploče
dijalog"
Otvori / Sačuvaj kao karticu
Font Tab
Boja Tab
Tabela ne prikazuje svojstva naredbi menija Font, Boja i Uredi... Ispod je kodeks procedura takođe samo za komande menija File (Otvori, Sačuvaj i SačuvajAs). Pisanje koda za druge komande menija je tema 2. zadatka ovog rada.
Private Sub mnuOpen_Click ()
CommonDialog1.ShowOpen
F $ = CommonDialog1.FileName
Ako je desno (F, 3) = "rtf" Onda
RichTextBox1.LoadFile F
ElseIf Right (F, 3) = "txt" Onda
Otvorite F za unos kao #1
S $ = Ulaz (N, 1)
Privatno Sub mnuSave_Klikni ()
CommonDialog1.ShowSave
F $ = CommonDialog1.FileName
Privatno Sub mnuSaveAs_Klikni ()
CommonDialog1.ShowSave
F $ = CommonDialog1.FileName
RichTextBox1.SaveFile F, rtfRTF
U toku ovog rada student treba da uradi 2 zadatka.
Vježba 1. U procesu izrade zadatka, studenti savladavaju mogućnosti rada sa fajlovima slučajnog pristupa ( RAF -nasumičnopristupfajl).
Za datu tablicu baze podataka, deklarirajte prilagođeni tip podataka, deklarirajte varijablu tog tipa (vodič, str. 108 - 112), izgradite i otklanjajte greške koje koriste varijablu prilagođenog tipa.
Posebno su implementirane procedure za komande menija Pišite u fajlRAF i Čitaj iz datotekeRAF... Kao u primjeru 7.1, niz objekata se koristi za uređivanje podataka. ComboKutija i meni Uredi sa pet komandi podmenija: Dodajte napomenu, Obriši unos, Umetni zapis, Uredi unos, Čisti sto.
Opcija 1.
Deklarirajte prilagođeni tip podataka za tabelu "Auto" (Tabela 7.1) baze podataka "Autoservis".
|
auto |
auto |
kvarovi |
Donja linija tabele 7.1 pokazuje tipove polja.
Opcija 2.
Deklarirajte prilagođeni tip podataka za tabelu "Faults" (Tabela 7.2) baze podataka "Autoservice".
|
kvarovi | Ime kvarovi | Cijena |
Donja linija tabele 7.2 sadrži tipove polja.
Koristeći primjer aplikacije 7.1 kao primjer, organizirajte unos i uređivanje podataka za prikazanu tabelu, upisivanje ovih podataka u datoteku sa slučajnim pristupom i čitanje podataka iz datoteke sa slučajnim pristupom. Kao u primjeru 7.1, ove akcije se implementiraju kao rad naredbi menija prikazanih na Sl. 7.1.
Zadatak 2. Kako završe zadatak, učenici dodaju nove funkcije aplikaciji u primjeru 2, koje omogućavaju pregled aplikacije kao jednostavnog uređivača teksta.
Opcija 1 ČestoDijalog implementirati komande menija Font i Boja(sa podmenijem Boja karaktera i Boja pozadine). Uz pomoć ovih naredbi treba omogućiti izbor fonta (njegov naziv, stil i veličinu) za odabrani fragment teksta u prozoru RichTextbox, kao i izbor boje simbola odabira i izbor boje pozadine cijelog prozora.
Indikacija: Prilikom postavljanja objekta ČestoDijalog da biste odabrali font pomoću svojstva (Prilagođeno), obavezno postavite vrijednost svojstva Flags na 1, 2 ili 3 (pogledajte vodič, str. 183).
Opcija 2... Korištenje kontrole ČestoDijalog implementirati komande menija Uredi(podmeni Kopiraj, Cut i Zalijepi), čija je svrha kopiranje ili brisanje u međuspremnik odabranog fragmenta teksta i insert na označeno mjesto u tekstu sadržaja međuspremnika.
Indikacija: U međuspremnik (objekat Clipboard) možete koristiti metode SetText i GetText:
Clipboard. SetText RichTextBox1.SelText
RichTextBox1.SelText = Međuspremnik. Gettext
