8. ČUVANJE I ČITANJE INFORMACIJA

Kako biste osigurali da se svi podaci kreirani u memoriji ne izgube nakon završetka programa, morate biti u mogućnosti pohraniti informacije na svoj tvrdi disk. U suprotnom, sve informacije će nestati bez traga. Podaci se mogu pohraniti i čitati na različite načine. Za rad s informacijama različitih veličina i formata, možete koristiti binarne i tekstualne datoteke. Za skladištenje malih količina informacija možete koristiti Windows registar. A za najsloženije zadatke, pametno je 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 žive na čvrstom disku. Program ne radi direktno sa fajlovima, već koristi operativni sistem kao posrednika.

Postoje dvije vrste naziva datoteka: puni - pored naziva datoteke, naznačena je i lokacija datoteke na vanjskom mediju (na primjer, "C:\Program Files\Microsoft Visual Studio\VB98\VB 6.EXE" ) i kratko - samo naziv datoteke (VB 6.EXE). Ako lokacija datoteke nije navedena, ona će se pretraživati ​​u trenutnom folderu, prema zadanom folderu u kojem se nalazi vaša aplikacija. Neposredno 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 “Open” operator, ovaj pokazivač se povezuje sa traženom datotekom. Tek nakon toga program će moći raditi s njim. Sintaksa za otvaranje datoteke je sljedeća:

'uzmite besplatni pokazivač na fajl 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 – naziv operatera;

· FilePath – puno ime datoteke;

· Za – ključna riječ praćena opisom načina pristupa datoteci;

· Mod – način pristupa datoteci (vidi tabelu 15);

Tabela 15

Načini pristupa fajlovima

Načini pristupa	Opis
Dodati	Dodavanje podataka na kraj postojeće tekstualne datoteke. Ako datoteka ne postoji, bit će kreirana
Binarno	Otvaranje datoteke u binarnom modu, tj. kao skup bajtova. Ako datoteka ne postoji, ali će biti kreirana
Input	Otvaranje datoteke za čitanje u tekstualnom formatu
Izlaz	Otvorite datoteku da napišete tekstualnu datoteku. 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 režim se koristi za rad sa jednostavnim zapisima. Ako datoteka ne postoji, ali će biti kreirana

· Pristup – opciona ključna reč praćena opisom tipa pristupa;

· AccessType – opis tipa pristupa:

· Čitati – čitati;

· Pisanje – snimanje;

· Read Write – čitanje i pisanje.

Bilješka

Sa načinima pristupa dodavanju i izlazu, dostupan je samo tip pristupa za pisanje, sa samo ulaznim čitanjem, a sa binarnim i slučajnim pristupom 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 s njom. Obično se povezuje sa radom na mreži (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 simbol koji označava da je vrijednost koja slijedi nakon njega pokazivač datoteke.

· Len je opciona ključna reč koju mora pratiti parametar koji određuje dužinu unosa.

· 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 kada završite s radom. Naredba "Close" oslobađa pokazivač datoteke i pridruženu memorijsku oblast.

Prilikom rada sa datotekom, odnosno kada se čita iz nje, određivanje kraja datoteke je veoma važno. Može se definirati pomoću funkcije EOF (End Of File):

EOF(FileHandle)

· EOF – naziv funkcije;

· FileHandle je pokazivač na datoteku čiji se kraj utvrđuje.

Funkcija vraća True ako se dostigne 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 da radi samo sa određenim znakovima koji se mogu ispisati. Beskorisno je raditi sa servisnim simbolima.

Za snimanje 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 – 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

Unesite #FileHandle%, VarBuffer

· Linijski ulaz / Ulaz – ključne riječi operatera.

· #FileHandle % - pokazivač na datoteku iz koje će se čitati informacije.

· VarBuffer – varijabla u koju će se čitati informacije.

Razlika između operatora "Line Input" i "Input" je u tome što je prvi namijenjen samo tekstualnim datotekama, a drugi - za bilo koje. U slučaju tekstualnih datoteka, “Input” čita podatke u jednom redu do prvog graničnika (za tekstualne podatke separator je “,” (zarez), a za numeričke podatke - “” (razmak) i “,”) , a “Line Input » čita cijeli red odjednom, zanemarujući bilo kakve graničnike.

Bilješka

IN Visual basic ne postoje načini kontrole formata prethodno kreiranih datoteka. Stoga se simbol "2" može čitati kao odgovarajući broj i obrnuto.

8.3. Rad sa binarnim fajlovima

Fajlovi se otvaraju u binarni format operator “Open” u “Binary” modu. Posebnost ovog načina rada je da je rad s datotekom fokusiran isključivo na određene bajtove. Budući da Visual Basic može direktno adresirati ž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 upisivanja i čitanja informacija u različite dijelove datoteke bez ponovnog otvaranja. Pisanje u datoteku otvorenu u binarnom modu se vrši korištenjem sljedeće sintakse:

Stavite #FileHandle%, , NameVar

· Put – naziv operatera za snimanje informacija.

· RecNumber – broj bajta datoteke u koju će biti zapisane informacije (opcijski parametar).

· NameVar je varijabla čiji će sadržaj biti upisan u datoteku.

Čitanje informacija iz datoteke u binarnom načinu rada vrši se pomoću sljedećeg operatora:

Nabavite #FileHandle%, , NameVar

· Get – ime operatera za snimanje informacija.

· FileHandle % - ručka datoteke.

· RecNumber – broj bajta datoteke iz koje će se čitati informacije (opcijski parametar).

· 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 znak fiksne dužine od jednog znaka, tada će bajt biti pročitan kao znak, ANSI, čiji kod odgovara veličini bajta. Ovaj znak može biti čak i kontrolni znak, što se ne može postići u slučaju tekstualnih datoteka.

Bilješka

U nedostatku parametra “RecNumber”, informacije o pisanju ili čitanju će se pojaviti u sljedećem bajtu datoteke nakon onog s kojim se prethodno radilo.

8.4. Grafička manipulacija

Također možete sačuvati i izdvojiti grafičke slike iz datoteka. Da biste izdvojili sliku iz datoteke bitmape ili ikone i dodijelili je svojstvu “Picture” kontrola “PictureBox” i “Image”, koristite funkciju “LoadPicture()” sa sljedećom sintaksom:

ImageCtrl.Picture = LoadPicture(FilePath)

· ImageCtrl – naziv kontrole prozora slike, kontrole slike ili forme;

· LoadPicture – naziv funkcije;

· FilePath – puno 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 – puni naziv datoteke koji ukazuje na njenu lokaciju na disku.

8.5. Rad sa podacima u registru

Windows Registry se može koristiti za pohranjivanje malih dijelova informacija u formatu znakova. Visual Basic ima četiri procedure koje možete koristiti za pristup. Veoma su laki za upotrebu, ali imaju jedan glavni nedostatak: podacima možete pristupiti samo iz određenog ključa registratora: “MyComputer\HKEY_CURRENT_USER\Software\VB i VBA Program Settings”. Da biste pristupili drugim odjeljcima registra, trebate koristiti posebne funkcije "Win 32 API".

Da biste dobili vrijednost postavke iz Visual Basic odjeljka Windows registra, trebate koristiti sljedeću funkciju:

MyString = GetSetting(VBKeyName, Section, Key [,Default])

· MyString – string za pohranjivanje vrijednosti koju vraća funkcija;

· GetSetting – naziv funkcije.

· VBKeyName je vrijednost niza koja je ime internog VB/VBA potključa.

· Ključ je vrijednost niza koja predstavlja ime parametra u sekciji.

· Default – neobavezni argument čija će vrijednost biti vraćena u slučaju greške (nedostaje parametar).

Da biste pohranili vrijednost u Windows registrator, koristite sljedeću izjavu:

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, Section)

· MyVariant je niz vrijednosti tipa “Variant” koje vraća funkcija.

· SetAllSettings – naziv funkcije.

· Odjeljak – vrijednost niza koja predstavlja dio ili pododjeljak određene aplikacije.

Da biste uklonili cijeli dio parametara, koristite izraz sa sljedećom sintaksom:

DeleteSetting VBKeyName, Section, Key

· DeleteSetting – ime operatera.

Test pitanja za samotestiranje

1. Kako možete pohraniti neke informacije dugoročno?
2. Šta je fajl?
3. Koja imena datoteka znate?
4. Navedite sintaksu “Open” operatora. Objasnite svrhu njegovih parametara.
5. Kako više aplikacija može dijeliti pristup jednoj datoteci u isto vrijeme?
6. Kako utvrditi da su informacije u datoteci iscrpljene?
7. Zašto se preporučuje da ga zatvorite nakon rada sa fajlom?
8. U čemu vidite razliku između tekstualnog i binarnog režima datoteka?
9. Kako se podaci čitaju i pišu u tekstualnom režimu?
10. Kako se podaci čitaju i zapisuju u načinu binarne datoteke?
11. Koja je razlika između “Print” i “Write” operatora kada radite s datotekama?
12. Koja je razlika između “Input” i “Line Input” operatora kada radite sa datotekama?
13. Kako možete raditi sa grafičkim podacima?
14. 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 vjerovatno da će se korisniku svidjeti program, koji će se morati ponovo konfigurirati sljedeći put kada se pokrene.

U ovom članku ćemo govoriti o radu 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.

U Visual Basicu postoji funkcija 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 definirate raspon vrijednosti slobodnih kanala if RangeNumber= 0 (podrazumevano), tada se broj kanala vraća iz raspona 1 - 255, a ako je 1, onda iz raspona 256 - 511.

MyFile = FreeFile "Varijabla MyFile je dodijeljena besplatni kanal i sada se može koristiti za rad sa fajlovima

Rad sa tekstualnim fajlovima

Najčešće se susrećete sa tekstualnim fajlovima. Tekstualne datoteke se sastoje od skupa znakova ASCII (Američki standardni kod za razmjenu informacija).

Prije nego počnete pisati/čitati podatke, datoteka se mora otvoriti; to se radi pomoću operatora Otvoreno (Ime dokumenta) Za As #File_number, Gdje:

Input- otvorite datoteku za čitanje, ako datoteka ne postoji dolazi do greške;

Izlaz- za pisanje, ako fajl ne postoji, biće kreiran, a ako fajl postoji, biće 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_pročitanih_karaktera, #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

Open("C:\TEST.txt") za unos kao #MyFile

Linijski ulaz #MyFile, S "Pročitajte prvi red iz datoteke TEST.TXT u varijablu S

Dim MyFile "Deklarisajte varijablu za besplatni fajl

Dim i As Integer "Varijabla za petlju

Dim tS kao niz "Varijabla za čitanje nizova

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 datoteke TEST.TXT red po red

Ako je i => 5 Tada je S = tS "Ako je peti red, onda ga pohranite 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

Open("C:\TEST.txt") za unos kao #MyFile "Otvorite datoteku TEST.TXT za čitanje

S = Unos$(LOG(1), 1) "Pročitajte 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 kreirati novu datoteku TEST.TXT na C:\ drajvu i u nju napisati dva reda, prvi bez navodnika, a drugi sa navodnicima:

Dim MyFile "Deklarisajte varijablu za besplatni fajl

MyFile = FreeFile „Dodjeljivanje besplatnog kanala za rad sa fajlovima

Open("C:\TEST.txt") Za izlaz kao #MyFile "Otvorite datoteku TEST.TXT za pisanje

Print #MyFile, "Ovaj red je napisao operater Print, bez navodnika..."

Write #MyFile, "Ovaj red je napisao Write operator, 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 naznačiti.

Članak je malo grub, ali će biti koristan za programere početnike. Sljedeći put ću govoriti o radu sa binarnim datotekama.

Windows

Cilj rada: Učenje i korišćenje VB 6 jezičkih operatora za rad sa fajlovima razne vrste: sekvencijalne (tekstualne) datoteke, datoteke sa slučajnim pristupom, binarne datoteke. Istraživanje i upotreba alata ČestoDijalog za otvaranje i spremanje datoteka, odabir fonta i boje i korištenje objekta Clipboard za pohranjivanje fragmenata teksta, koristeći primjer kreiranja jednostavnog uređivača teksta.

Kontrolna pitanja:

1. Na koje načine možete otvoriti tekstualnu datoteku? Kako zatvoriti tekstualni ili bilo koji drugi otvoreni fajl?

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 otvorenih za čitanje tekstualnu datoteku? Po čemu se operatori ulaza i linijskog unosa razlikuju jedni od drugih? Koja funkcija se može koristiti za čitanje određenog broja znakova iz datoteke? Kako pročitati sve znakove datoteke?

4. Šta je tip korisničkih podataka i kako se ovaj koncept koristi kada se radi sa fajlovima sa slučajnim pristupom ( raf)?

5. Korištenje operatora iz datoteke raf zapisi se takođe čitaju u fajl raf Da li se pišu novi unosi?

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 koristiti kontrolu ČestoDijalog učitati sadržaj tekstualne datoteke u tekstualno polje? Kako mogu koristiti istu kontrolu za spremanje uređenog teksta u tekstualnu datoteku?

9. Kako koristiti kontrolu ČestoDijalog za preuzimanje sadržaja datoteke rtf u polju RichTextbox? Kako koristiti istu kontrolu za spremanje uređenog teksta u datoteku rtf?

10. Kako koristiti kontrolu Č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 demonstrira pisanje u tekstualnu datoteku (i čitanje iz tekstualne datoteke) „informacija o zaposleniku“ - redove, od kojih svaki sadrži identifikacioni broj, puno ime, datum rođenja i mjesto rođenja zaposlenog. Redovi formiraju tabelu, koju će na formi ekrana imitirati 4 Combo Box kontrole (slika 7.1), formirajući niz Comb(i) objekata, čije svojstvo Style ima vrijednost 1 – SimpleCombo.

Odaberite liniju koju želite izbrisati", vbExclamation

Comb(j).RemoveItem i

„Ubaci novi ulaz do stola:

Private Sub mnuInsert_Click()

i% = Češalj(0).Indeks liste

Ako ja< 0 Then

MsgBox "Označite red koji će biti umetnut prije njega", vbExclamation

Comb(0).AddItem InputBox("Unesite broj"), i

Comb(1).AddItem InputBox("Unesite svoje ime"), i

Comb(2).AddItem InputBox("Unesite svoj rođendan."), i

Comb(3).AddItem InputBox("Unesite mjesto rođenja."), i

' Promjena unosa u tabeli:

Privatno Sub mnuUpdate_Click()

i% = Češalj(0).Indeks liste

Ako ja< 0 Then

MsgBox "Istakni promjenjivi niz", vbExclamation

Comb(0).List(i) = InputBox("Unesite broj", Comb(0).List(i))

Comb(1).List(i) = InputBox("Unesite svoje ime", Comb(1).List(i))

Comb(2).List(i) = InputBox("Unesite svoj rođendan.", Comb(2).List(i))

Comb(3).List(i) = InputBox("Unesite mjesto rođenja.", Comb(3).List(i))

‘ Čišćenje cijele tabele:

Privatni Sub mnuClear_Click()

‘ Popunjavanje tabele informacijama iz tekstualne datoteke:

Privatni Sub mnuLoad_Click()

Otvorite "person. txt" za unos kao #1

Unos #1, numb, fio, bdate, bloc

Comb(0).AddItem numb

Comb(1).AddItem fio

Comb(2).AddItem bdate

Comb(3).AddItem blok

‘ Upisivanje informacija tabele u tekstualnu datoteku:

Privatno Sub mnuSave_Click()

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(Comb(2).List(i))

blok = Češalj(3).Lista(i)

Napišite #1, numb, fio, bdate, bloc

‘ Gašenje aplikacije:

Private Sub mnuExit_Click()

Primjer 7.2 . Razmislite o aplikaciji koja pokazuje upotrebu kontrola ČestoDijalog da otvorite i sačuvate datoteku, da odaberete font i boju i da izmenite tekst.

Format datoteke 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

“Opšti paneli

dijalog"

Otvori/Sačuvaj kao karticu

Kartica Font

Kartica boja

Tabela ne prikazuje svojstva naredbi menija Font, Boja I Uredi. Ispod je šifra procedure takođe samo za komande menija File (Otvori, Sačuvaj I SačuvajAs). Sastavljanje koda za druge komande menija je tema drugog zadatka ovog rada.

Privatno Sub mnuOpen_Click()

CommonDialog1.ShowOpen

F$ = CommonDialog1.FileName

Ako je desno(F, 3) = "rtf" Onda

RichTextBox1.LoadFile F

ElseIf Right(F, 3) = "txt" Zatim

Otvorite F za unos kao #1

S$ = Ulaz (N, 1)

Privatno Sub mnuSave_Click()

CommonDialog1.ShowSave

F$ = CommonDialog1.FileName

Privatni sub mnuSaveAs_Klikni()

CommonDialog1.ShowSave

F$ = CommonDialog1.FileName

RichTextBox1.SaveFile F, rtfRTF

U toku ovog rada učenik treba da uradi 2 zadatka.

Vježba 1. U procesu izrade zadatka, studenti savladavaju mogućnosti dostupne u VB 6 za rad sa fajlovima slučajnog pristupa ( RAFnasumičnopristupfajl).

Za datu tabelu baze podataka, deklarisan je tip korisničkih podataka, deklarisana je varijabla ovog tipa (vodič, str. 108–112), procedure koje koriste varijablu korisničkog tipa se kompajliraju i otklanjaju greške.

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 unos, Uredi unos, Čisti sto.

Opcija 1.

Deklarirajte prilagođeni tip podataka za tabelu „Car” (Tabela 7.1) baze podataka „Car Service”.

auto	auto	kvarovi

Donja linija tabele 7.1 prikazuje tipove polja.

Opcija 2.

Deklarirajte prilagođeni tip podataka za tabelu “Faults” (Tabela 7.2) baze podataka “Car Service”.

kvarovi	Ime kvarovi	Cijena

Donja linija tabele 7.2 prikazuje tipove polja.

Koristeći primjer aplikacije 7.1 kao predložak, organizirajte unos i uređivanje podataka za prikazanu tabelu, upisivanje tih podataka u datoteku sa slučajnim pristupom i čitanje podataka iz datoteke sa slučajnim pristupom. Kao u primjeru 7.1, ove akcije su implementirane kao rad naredbi menija prikazanih na Sl. 7.1.

Zadatak 2. Tokom zadatka, učenici dodaju nove funkcije primjeru aplikacije 2 koje omogućavaju da se aplikacija vidi kao jednostavan uređivač teksta.

Opcija 1 ČestoDijalog implementirati komande menija Font I Boja(sa podmenijem Boja karaktera I Boja pozadine). Koristeći ove naredbe, trebali biste moći odabrati font (njegov naziv, stil i veličinu) za odabrani fragment teksta u prozoru RichTextbox, kao i odabir boje znakova odabranog fragmenta i odabir boje pozadine cijelog prozora.

Bilješka: Prilikom postavljanja objekta ČestoDijalog Da biste odabrali font pomoću svojstva (Prilagođeno), obavezno postavite vrijednost svojstva Flags na 1, 2 ili 3 (pogledajte priručnik, stranica 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, a također insert na odabranu tekstualnu oblast sadržaja međuspremnika.

Bilješka: U međuspremnik (objekat Clipboard) možete koristiti metode SetText i GetText:

Clipboard. SetText RichTextBox1.SelText

RichTextBox1.SelText = Međuspremnik. GetText