Sistem de fișiere sub forma unei liste pe VB6.

Fiecare program trebuie să salveze datele pe disc și să le citească de pe disc. Acest lucru este necesar, de exemplu, pentru a salva setările programului, este puțin probabil ca utilizatorul să vă placă programul că data viitoare trebuie să configurați din nou.

Acest articol vom vorbi despre lucrul cu fișierele text de către Visual Basic.

Fișier mâner

Pentru a lucra cu fișierele sistem de operare Utilizează canale I / O, adică toata lumea deschide fișierul Are un număr propriu.

În Visual Basic există o funcție Freefile.care returnează un număr de canal liber care poate fi folosit pentru a lucra cu fișierul. Dacă nu există canale libere, apare o eroare.

Freefile [(Rangenumber.) ]

Rangenumber. - parametrul care vă permite să definiți gama de valori ale canalului liber dacă Rangenumber. \u003d 0 (implicit), atunci numărul canalului este returnat din intervalul 1 - 255 și dacă 1, apoi din intervalul 256-511.

Myfile \u003d freefile. "Variabila MyFile este atribuită unui canal gratuit și acum poate fi folosit pentru a lucra cu fișiere

Lucrul cu fișierele text

Cel mai adesea trebuie să vă întâlniți cu fișiere text. Fișierele text constau dintr-un set simboluri ASCII. (American Cod standard. forformation. Interchange - cod standard american pentru schimbul de informații).

Înainte de a începe scrierea / citirea datelor, fișierul trebuie deschis, se face folosind operatorul Deschis (Nume de fișier) Pentru noi #Numărul fișieruluiUnde:

Intrare - Deschideți un fișier de citire Dacă fișierul nu există, apare eroarea;

Ieșire. - Pentru înregistrare, dacă fișierul nu există, acesta va fi creat, iar dacă fișierul există, acesta va fi suprascris;

Adăuga. - Pentru a adăuga dacă fișierul nu există, acesta va fi creat și, dacă fișierul există, datele vor fi adăugate la sfârșitul fișierului.

Citirea fișierelor text pot fi efectuate în două moduri: citiți predomina, pentru că aceasta utilizează funcția Intrare (Număr_stile_simvol, #Numărul fișierului) și se aliniază pentru această funcție Intrare linie #Numărul fișierului, Prin care.

Dim myfile

Dim S ca șir "Variabila de stocare a datelor

Myfile \u003d freefile.

Deschideți ("C: \\ test.txt") pentru intrare ca #myfile

Linia de intrare #myfile, S "Citiți prima linie din fișierul test.txt la variabila

Dim myfile "Declarăm o variabilă pentru un fișier gratuit

Dim i ca întreg "Variabila ciclului

Dim ts ca șir "Variabilă pentru citirea șirurilor

Dim S ca șir "Variabilă pentru stocarea datelor finale

Myfile \u003d freefile. "Atribuim canal gratuit pentru a lucra cu fișiere

"Deschideți fișierul test.txt pentru a citi

Pentru i \u003d 1 până la 5

Linia de intrare #myfile, ts "Citiți linia de fișier test.txt

Dacă i \u003d\u003e 5 apoi s \u003d ts "Dacă linia a cincea, amintiți-o în variabila

APOI EU.

Închide #myfile "Închideți fișierul

Dim Myfile "Declarăm o variabilă pentru un fișier gratuit

Dim S ca șir "Datele de citire variabile de stocare

Myfile \u003d freefile. "Atribuim canal gratuit pentru a lucra cu fișiere

Deschideți ("C: \\ test.txt") pentru intrare ca #myfile "Deschideți fișierul test.txt pentru a citi

S \u003d intrare $ (log (1), 1) "Citiți întregul fișier în variabila S

Închide #myfile "Închideți fișierul

Operatorii există pentru a scrie în fișier Imprimare #Numărul fișierului, Date și Scrie #Numărul fișierului, Date. Distinge numai acești operatori Scrie scrie date în citate și Imprimare fără ghilimele.

Următorul cod va crea pe un disc C: \\ fișier nou. Test.txt și va înregistra două linii în el, primul fără ghilimele, iar al doilea în citate:

Dim myfile "Declarăm o variabilă pentru un fișier gratuit

Myfile \u003d freefile. "Atribuim canal gratuit pentru a lucra cu fișiere

Deschideți ("C: \\ test.txt") pentru ieșire ca #myfile "Deschideți fișierul test.txt pentru înregistrare

Print #myfile, "Această linie este înregistrată de operatorul de imprimare, este fără ghilimele ..."

Scrieți #myfile, "Această linie este înregistrată de operatorul de scriere, este în Citate ..."

Închide #myfile "Închideți fișierul

E bine. După cum probabil ați înțeles, operatorul servește la închiderea fișierului Închide #Numărul fișierului, în care, # Numărul fișierului Nu neaparat.

Articolul este un pic umed, dar pentru programatorii novice vor fi utile. Data viitoare când voi vorbi despre lucrul cu fișierele binare.

8. Salvarea și citirea informațiilor

Pentru a face după oprirea programului, toate datele create în memorie nu sunt plecate, trebuie să puteți salva informații pe hard disk. În caz contrar, toate informațiile vor dispărea fără o urmă. Salvați datele și citiți-le în diverse moduri. Pentru a lucra cu informații din diferite volume și formate, puteți utiliza fișiere binare și text. Puteți utiliza registrul Windows pentru a stoca cantități mici de informații. Și pentru cele mai dificile sarcini, este rezonabil să folosiți baze de date.

8.1. Deschiderea fișierelor utilizând operatorul "Deschis "

Fișierul este o zonă numită de orice unitate externă de informații. Datele "trăiesc" în memoria computerului, iar fișierele sunt pe hard disk. Programul nu funcționează direct cu fișiere, ci utilizează sistemul de operare ca intermediar.

Numele de fișiere Există două tipuri: În plus față de numele fișierului, este de asemenea specificat locația fișierului de pe transportorul exterior (de exemplu, "C: \\ Files Program \\ Microsoft Visual Studio \\ vb98 \\ vb 6.exe" ) și numele fișierului scurt (VB 6.exe). Dacă locația fișierului nu este specificată, acesta va fi căutat în dosarul curent, folderul implicit în care este localizată aplicația dvs. Numele direct al fișierului este alcătuit din două părți: numele real al fișierului unic și expansiunea acestuia. Numele identifică fișierul în sine, iar extensia indică de obicei formatul de fișier sau în ce program este creat.

Înainte de a începe să lucrați cu fișierul, trebuie să solicitați din sistemul de operare. pointer. (descriptor) fişier. Pentru ao obține, utilizați funcția "Freefile". Apoi, folosind instrucțiunea deschisă, acest indicator este asociat cu fișierul necesar. Numai după aceea, programul va fi capabil să lucreze cu acesta. Sintaxa de deschidere a fișierelor este după cum urmează:

"Obțineți un indicator de fișier gratuit și atribuiți-l unei variabile

FileHandle% \u003d Freefile

"Open Bevel.

Deschide filepath _

Ca [#] FileHandle%

... (Fișiere de lucru)

Închideți [#] FileHandle

· FileHandle% este o variabilă în care este stocat indicatorul de fișiere;

· Freefile - numele funcției care returnează indicatorul de fișiere;

· Deschis - numele operatorului;

· FilePath - numele fișierului complet;

· Pentru - un cuvânt cheie urmat de o descriere a modului de acces al fișierului;

· MODE - Modul de acces al fișierelor (vezi Tabelul 15);

Tabelul 15.

Moduri de acces la fișiere.

Moduri de acces	Descriere
Adăuga.	Adăugarea de date până la sfârșitul unui fișier text existent. Dacă fișierul nu există, acesta va fi creat
Binar.	Deschiderea unui fișier în modul binar, adică Sub forma unui set de octeți. Dacă fișierul nu există, dar va fi creat
Intrare	Deschiderea unui fișier de citire în format text
Ieșire.	Deschiderea unui fișier pentru înregistrarea unui fișier text. În același timp, toate informațiile vechi vor fi șterse. Dacă fișierul nu există, dar va fi creat
Aleatoriu	Deschiderea unui fișier în modul de acces arbitrar. Acest mod este utilizat pentru a lucra cu intrări simple. Dacă fișierul nu există, dar va fi creat

· Acces - un cuvânt cheie opțional urmat de o descriere a tipului de acces;

· Accesstype - tip de acces Descriere:

· Citirea;

· Scriere - înregistrare;

· Citiți scrierea și scrierea de scriere.

Notă	Când sunt disponibile numai tipul de acces la scriere, numai tipul de acces la scriere la intrare și cu binar și cu toate cele trei tipuri de acces sunt disponibile.

· Lockaltype este un parametru opțional care definește dacă alte programe vor utiliza acest fișier în timp ce programul dvs. funcționează cu acesta. Este de obicei asociată cu lucrările din rețea (a se vedea tabelul 16).

Tabelul 16.

Valorile posibile ale parametrului de blocare

Valoare	Descriere
Impartit.	Fișierul va avea acces deplin la toți utilizatorii cu drepturile necesare.
Blocați citirea.	Blochează citirea unui fișier, iar înregistrarea este permisă
Blocați scrierea.	Blochează înregistrarea într-un fișier, iar citirea este permisă
Lacăt Citeste, scrie.	Nu citiți și scrieți-l

· AS - cuvântul cheie urmat de indicatorul de fișiere.

· # - Simbol care indică faptul că valoarea urmată este un indicator de fișiere.

· Len - un cuvânt cheie opțional, urmat de un parametru care definește lungimea de înregistrare.

· CARINBUFFER% - Lungimea de înregistrare pentru un fișier Deschis în modul de acces arbitrar (aleatoriu).

· Închidere este un operator care închide fișierul asociat cu descriptorul specificat.

Este important să închideți fișierul după sfârșitul lucrului cu acesta. Operatorul "Închidere" eliberează indicatorul de fișiere și zona de memorie asociată.

Când lucrați cu fișierul, și anume când citiți de la acesta, este foarte important să se determine sfârșitul fișierului. Acesta poate fi determinat utilizând funcția EOF (sfârșitul fișierului):

Eof (fileiere)

· Numele funcției EOF;

· FileHandle este un indicator de fișiere, la sfârșitul căruia este determinată.

Funcția returnează adevărat (adevărul) dacă se atinge sfârșitul fișierului, altfel este returnat Fals.

8.2. Citirea și scrierea în fișierul text

Fișierul de text este deschis în modul de acces "intrare", "ieșire" sau "Adăugați" (a se vedea tabelul 15). Particularitatea acestui regim este că funcționează numai cu simboluri specifice tipărite. Cu simbolurile de serviciu, munca este inutilă.

Pentru înregistrarea informațiilor, se utilizează două operatori de imprimare și scriere, a căror sintaxă este după cum urmează:

Imprimare # FileHandle%, Varbuffer [;]

Scrieți # FileHandle%, Varbuffer [;]

· Imprimare / scriere - operatori cu cuvinte cheie.

· # FileHandle% este indicatorul de fișiere la care vor fi plasate informații.

· Varbuffer este o valoare care va fi înregistrată în fișier.

· ; - Parametrul opțional utilizat la scrierea în fișierul text înseamnă că următoarea valoare va fi înregistrată în aceeași linie și în absența acestuia - la următoarea.

Pentru a citi informațiile din fișier, sunt utilizate operatorii de "intrare" și "intrare". SINTAXICHAGHENDRUGDRUGUA:

Linia de intrare # FileHandle%, Varbuffer

Input # FileHandle%, Varbuffer

· Intrare linie / intrare - operatori de cuvinte cheie.

· # FileHandle% este un pointer de fișier din care vor fi credeți informațiile.

· Varbuffer este o variabilă în care vor fi citite informații.

Diferența dintre instrucțiunile de intrare și de intrare a liniei este că primul este destinat numai fișierelor text, iar al doilea este pentru orice. În cazul fișierelor text, intrarea citește datele într-o singură linie la primul separator (pentru datele de text, separatorul "," (virgulă) și pentru numeric - "" (Space) și ",") și " Introducerea liniei "Citește linia întreagă simultan, ignorând orice separatoare.

Notă	Visual Basic nu controlează formatul fișierelor create anterior. Prin urmare, simbolul "2" poate fi citit ca un număr adecvat și viceversa.

8.3. Lucrul cu fișiere binare

Fișierele deschise B. formatul binar. Operatorul "Deschis" în modul "binar". O caracteristică distinctivă a acestui mod este că lucrul cu fișierul este axat exclusiv pe octeți specifici. Deoarece Visual Basic poate adăuga direct la locația fișierului, acest mod se numește și - modul de acces direct.. O altă caracteristică a acestui mod este disponibilitatea înregistrării simultane și a citirii informațiilor în diferite părți ale fișierului fără ao reapărea. Înregistrarea la un fișier care este deschisă în modul binar este efectuată prin următoarea sintaxă:

Puneți # FILEHANDLE%, NAMEVAR

· Punerea este numele operatorului de înregistrare a informațiilor.

· Recnumber - numărul byte al fișierului în care vor fi înregistrate informațiile (parametru opțional).

· NAMEVAR - Variabila, ale căror conținut va fi înregistrat în fișier.

Verificarea informațiilor din fișierul în modul binar utilizează următorul operator:

Obțineți # FileHandle%, Namevar

· Obțineți - numele operatorului de înregistrare a informațiilor.

· FileHandle% - Pointer de fișiere.

· RECNUMBER - numărul de octeți al fișierului din care vor fi citite informațiile (nu sunt necesare parametri).

· Namevar este numele variabilei în care vor fi plasate informații despre citite.

Deoarece modul binar este axat pe octeți de informație, atunci când citirea din fișier, variabila tampon trebuie să aibă un tip strict definit: fie "octet", apoi valoarea numerică a octetului sau lungimea fixă \u200b\u200ba simbolului într-un singur caracter, atunci Byte-ul va fi citit ca un simbol, ANSI al cărui cod corespunde valorii octetului. Acest simbol poate fi chiar un manager, care nu poate fi realizat în cazul fișierelor text.

Notă

În absența parametrului "Recnumber", înregistrarea sau citirea informațiilor va avea loc în următorul panou al fișierului după ce ați lucrat.

8.4. Grafică de manipulare

Puteți păstra imagini grafice în fișiere și extrase. Pentru a elimina din fișierul raster sau din fișierul de pictogramă și îl atribuie proprietatea "Imagine" a controlului "PictureBox" și "Image", utilizați funcția "Loadpicture ()" cu următoarea sintaxă:

ImageCl.Picture \u003d Loadpicture (FilePath)

· ImageCTRL - Numele controlului ferestrei cu un model, un element de control al imaginii sau un formular;

· Loadpickure - numele funcției;

· FilePath - Numele fișierului complet.

SavePicture ImageCTRRL, FILEPATH

· SavePicture este numele operatorului;

· ImageCTRL - Numele controlului ferestrei cu un model, un element de control al imaginii sau un formular;

· Imagine - numele proprietății obiectului responsabile de imagine;

· FilePath - numele complet al fișierului care indică locația pe disc.

8.5. Lucrul cu datele din registru

Pentru a stoca fragmente mici de informații despre formatul de caractere, puteți utiliza Registrul Windows. Visual Basic are patru proceduri care pot fi folosite pentru ao accesa. Acestea sunt foarte ușor de utilizat, dar au un dezavantaj principal: puteți accesa datele numai de pe o cheie de registru specifică: "MyComputer \\ Hkey _current _User \\ software \\ VBA și setările programului VBA". Pentru a accesa alte secțiuni de registru, trebuie să utilizați caracteristicile speciale ale Win 32 API.

Pentru a obține valoarea parametrului din secțiunea Visual Basic din secțiunea Windows Registry, trebuie să utilizați următoarea funcție:

MyString \u003d Getsetting (Vbkeyname, secțiune, cheie [, implicit])

· MyString este un șir pentru stocarea valorii returnate de funcție;

· GetSetting este numele funcției.

· Vbkeyname - o valoare de șir care este numele subsecțiunii interne VB / VBA.

· Cheie - o valoare de șir care reprezintă numele parametrului din secțiune.

· Implicit este un argument opțional a cărui valoare va fi returnată, în cazul unei erori (fără parametru).

Pentru a economisi o anumită valoare în registrul Windows, se utilizează următorul operator:

Savetting vbkeyname, secțiune, cheie, șirul meu

· Savesetting este numele operatorului.

· MyString este o variabilă de șir la care va fi plasată valoarea.

Pentru a obține o matrice din registru care conține toate valorile parametrilor dintr-o subsecțiune specifică, se utilizează următoarea funcție:

Myvariant \u003d setallttings (Vbkeyname, secțiune)

· MyVariant este o funcție returnată de gama de valori ale "variantei".

· Setări - Nume funcțional.

· Secțiunea - o valoare a șirului reprezentând o secțiune sau o subsecție a unei aplicații specifice.

Pentru a șterge o întreagă secțiune a parametrilor, un operator se aplică cu următoarea sintaxă:

Ștergeți Vbkeyname, secțiune, cheie

· Ștergerea este numele operatorului.

Verificați întrebările pentru auto-testare

Cât timp pot stoca câteva informații?
Ce este un fișier?
Ce nume de fișiere știi?
Aduceți sintaxa operatorului deschis. Explicați scopul parametrilor săi.
Cum puteți organiza accesul în comun a mai multor aplicații la un fișier în același timp?
Cum se determină ce informații din fișier sunt epuizate?
De ce după ce ați lucrat cu fișierul, se recomandă închiderea?
Ce vedeți diferența de moduri de text și fișiere binare?
Cum se citește și scrie datele în modul fișier text?
Cum se citește și scrie datele în modul fișier binar?
Care este diferența dintre operatorii de "imprimare" și "scriere" atunci când lucrați cu fișiere?
Care este diferența dintre operatorii de "intrare" și "intrări de linie" atunci când lucrați cu fișiere?
Cum pot lucra cu date grafice?
Care sunt principiile de bază ale colaborării cu Windows Registry?

Windows.

Scopul muncii: Învățarea și utilizarea operatorilor VB 6 pentru a lucra cu fișierele tipuri diferite: fișiere secvențiale (text), fișiere de acces arbitrare, fișiere binare. Cercetarea și utilizarea instrumentului UZUAL.Dialog. Pentru a deschide și a salva fișiere, selectați fontul și culoarea, precum și utilizarea obiectului Clipboard.pentru a stoca fragmente de text - pe exemplul creării unui editor de text simplu.

Întrebări de control:

1. În ce mod puteți deschide un fișier text? Cum să închideți textul și orice alt fișier deschis?

2. Cum se deschide datele din fișierul text pentru scriere? Care este diferența dintre operatorii de scriere și imprimare?

3. Cum sunt datele din fișierul text deschis pentru a citi? Ce diffl de la ceilalți operatori de intrare și de intrare de linie? Cu ce \u200b\u200bfuncție puteți citi din fișier setați numărul Caractere? Cum să citiți toate caracterele fișierelor?

4. Ce este un tip de date de utilizator și cum este utilizat acest concept atunci când lucrați cu fișiere de acces arbitrare ( raf.)?

5. Cu ce \u200b\u200boperatori din dosar raf. Citiți înregistrările și fișierul raf.vor scrie noi înregistrări?

6. În ce scop, indicele este determinat și utilizați când lucrați cu fișierul raf.?

7. Care sunt caracteristicile utilizării fișierelor binare? Cum se deschid? Cum să citiți de la fisier binar. și scrieți la fișierul binar?

8. Cum pot aplica controlul UZUAL.Dialog. Pentru a descărca conținutul unui fișier text într-o casetă de text? Cum de a salva textul editat în fișierul text utilizând același element de control?

9. Cum pot aplica controlul UZUAL.Dialog. Pentru a descărca conținutul fișierului rTF. în câmpul BogatCasetă de text.? Cum se salvează textul editat în fișier utilizând același element de control rTF.?

10. Cum pot aplica un element UZUAL.Dialog. Pentru a modifica valorile parametrilor fontului și pentru a schimba culoarea textului în fereastră Casetă de text. (sau fragmentul de text selectat în fereastră BogatCasetă de text.)?

Exemplul 7.1. Luați în considerare o aplicație care demonstrează intrarea într-un fișier text (și citirea dintr-un fișier text) - linii, fiecare conține un număr de identificare, un nume complet, data nașterii și locul nașterii unui angajat. Corzile formează o masă care pe ecran va fi MIMIC 4 a controlului casetei combo (fig.7.1), care generează gama de obiecte de pieptene (I), în care proprietatea stilului este 1 - Simplecombo.

Evidențiați un șir de la distanță ", Vbexclamarea

Comb (J) .Removeitem I

'Cutie noua înregistrare Masa:

Sub-Mnuinsert_Click ()

i% \u003d pieptene (0) .Listindex

DACĂ EU.< 0 Then

MsgBox "Evidențiați un șir pentru a introduce în fața lui", vbexclamarea

Pieptene (0) .Additem Inputbox ("Introduceți numărul"), eu

Pieptene (1) .Additem Inputbox ("Introduceți numele complet"), eu

Comb (2) .Additem Inputbox ("Introduceți data nașterii"), eu

Comb (3) .Additem Inputbox ("Introduceți locul nașterii"), eu

"Schimbarea intrării în tabel:

PRIVATE SUB MNUUPDATE_CLICK ()

i% \u003d pieptene (0) .Listindex

DACĂ EU.< 0 Then

MsgBox "Evidențiați un șir variabil", Vbexclamarea

Comb (0). List (I) \u003d Introducere ("Introduceți numărul", pieptene (0) .List (i))

Comb (1). List (I) \u003d Introducere ("Introduceți numele complet", pieptene (1) .List (i))

Comb (2). List (I) \u003d Introducere ("Introduceți data nașterii", pieptene (2) .list (i)

Comb (3). List (I) \u003d Introducere ("Introduceți locul", pieptene (3) .List (i))

Ștergerea întregii tabele:

Sub-Mnuclear_Click ()

"Completarea informațiilor de masă dintr-un fișier text:

Sub-Mnuload_Click ()

Deschis "persoană. Txt" pentru intrare ca # 1

Input # 1, amortit, FIO, Bdate, bloc

Comb (0) .Additem amorțit

Comb (1) .Additem Fio

Comb (2) .Additem Bdate

Comb (3) .Additem bloc

"Informații despre tabelul de înregistrare într-un fișier text:

Sub-MNUSAVE_CLICK ()

N% \u003d pieptene (0) .Listcount

Deschis "persoană. Txt" pentru ieșire ca # 1

Pentru i \u003d 0 până la n - 1

numb \u003d val (pieptene (0). Lista (i))

fIO \u003d pieptene (1). List (i)

bdate \u003d Cdate (pieptene (2). List (I))

bloc \u003d pieptene (3) .list (i)

Scrieți # 1, numb, Fio, Bdate, bloc

"Închiderea cererii:

Sub-Mnuexit_Click ()

Exemplul 7.2. . Luați în considerare o aplicație care demonstrează utilizarea controalelor UZUAL.Dialog. Pentru a deschide și a salva fișierul, pentru a selecta fontul și culorile, precum și pentru a edita textul.

Formatul Fișier. TXT. va fi încărcat în câmpul Text (câmpul din stânga din figura 7.2) și fișierul de format RTF. - În câmpul BogatCasetă de text. (Câmpul drept în figura 7.2).

obiect

Clasă

obiect

Proprietate

obiect

Valoare proprietate

"Panouri generale

dialog

Deschideți / salvați ca filă

Bookmark Font.

Culoare marcaj.

Tabelul nu împiedică proprietățile comenzii de meniu. Font., Culoare și Editați | ×.. Mai jos este codul de procedură numai pentru comenzile de meniu. Fişier (Deschis., Salvați. și Salvați.La fel de). Elaborarea codului pentru alte comenzi de meniu - subiectul celei de-a doua lucrări a acestei lucrări.

Sub-Mnuopen_Click ()

Commondialog1.showopen.

F $ \u003d Commondialog1.Filename

Dacă este corect (F, 3) \u003d "RTF" atunci

RichTextbox1.loadFile F.

Altceva drept (F, 3) \u003d "txt" atunci

Deschideți F pentru intrare ca # 1

S $ \u003d intrare (n, 1)

Sub-MNUSAVE_CLICK ()

Commondialog1.showsave.

F $ \u003d Commondialog1.Filename

Sub-Musaveas_Click ()

Commondialog1.showsave.

F $ \u003d Commondialog1.Filename

RichTextbox1.savefile F, RTFRTF

În cursul acestei lucrări, elevul trebuie să îndeplinească 2 sarcini.

Exercitiul 1. În procesul de completare a sarcinii, elevii se bazează pe capabilități VB 6 cu fișiere de acces arbitrare ( Raf -aleatoriuacces.fişier).

Pentru o masă de bază de date dată, este declarat un tip de date de utilizator, este declarată o variabilă de acest tip (tutorial, pagina 108 - 112) și procedurile în care se utilizează variabila de tip de utilizator.

În special, procedurile sunt implementate pentru comenzile de meniu. Scrieți la fișierRaf. și Citiți din fișier.Raf.. Ca și în exemplul 7.1, o serie de obiecte este utilizată pentru editarea datelor. Combo.Cutie. și meniul Editați | ×. Cu submeniul cinci comenzi: Adaugă o notiță, Ștergeți înregistrarea, Introduceți scrisul, Editați înregistrarea, Ștergeți tabelul.

Opțiunea 1.

Anunță un tip de date de utilizator pentru tabelul "Mașină" (Tabelul 7.1) Baza de date "Auto Service".

mașină	mașină	defecțiune

La linia de jos a tabelului 7.1 - Tipurile de câmpuri.

Opțiunea 2..

Anunță un tip de date de utilizator pentru tabelul "defecțiune" (Tabelul 7.2) din baza de date "Auto Service".

defecțiune

Nume

defecțiune

Cost

La linia de jos a tabelului 7.2 - Tipurile de câmpuri.

Folosind aplicarea exemplului 7.1 ca eșantion, pentru a organiza datele de intrare și editare pentru tabelul reprezentat, înregistrați aceste date într-un fișier de acces aleatoriu și citirea datelor dintr-un fișier de acces arbitrar. Ca și în exemplul 7.1, acțiunile specificate implementează modul în care funcționarea comenzilor de meniu prezentate în fig. 7.1.

Sarcina 2. În timpul sarcinii, elevii completează aplicarea exemplului 2 cu noi caracteristici care vă permit să luați în considerare această aplicație ca editor de text simplu.

Opțiunea 1 UZUAL.Dialog. Implementați comenzile de meniu Font. și Culoare (cu submeniu. Simboluri de culoare și Culoare de fundal). Folosind aceste comenzi, trebuie furnizată o selecție a fontului (numele, desenul și dimensiunea) pentru fragmentul de text selectat în fereastră. BogatCasetă de text.Precum și selectarea culorii caracterelor fragmentului selectat și selectați culoarea de fundal a întregii ferestre.

Notă: Când configurați obiectul UZUAL.Dialog. Pentru a selecta un font utilizând proprietățile (personalizate), trebuie să setați valoarea proprietății steagurilor de 1, 2 sau 3 (consultați manualul, pagina 183).

Opțiunea 2.. Folosind controlul UZUAL.Dialog. Implementați comenzile de meniu Editați | ×. (Submeniu. Copie, A tăia. și Pastă.), a cărei numire este copie sau Îndepărtarea În clipboard-ul fragmentului selectat al textului, precum și introduce În locul selectat textul conținutului clipboardului.

Notă: La tamponul de schimb (obiect Clipboard.) Puteți utiliza metodele Settext și Gettext:

Clipboard. Settext Richtextbox1.seltext.

RichTextbox1.seltext \u003d clipboard. Gettext.