ПӘнінен оқУ-Әдістемелік кешен



бет12/18
Дата08.06.2018
өлшемі2,16 Mb.
#41779
1   ...   8   9   10   11   12   13   14   15   ...   18

45- сурет.
procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);

begin

case treeView1.Selected.AbsoluteIndex of

1: RichEdit1.lines.LoadFromFile('c:\Word.rtf');

2: RichEdit1.lines.LoadFromFile('c:\Excel.rtf');

3: RichEdit1.lines.LoadFromFile('c:\Access.rtf');



end;

end;

Әдебиеттер: [1]-[7], қ[1]-[5]

10- апта

1 кредит сағат.

Тақырыбы: Delphi-де кестелік ақпаратпен жұмыс істеудің StringGrid компоненті.

Дәріс мазмұны: Кестелік ақпаратпен жұмыс істеудің StringGrid компоненті және оның қасиеттері.

Кесте жолдар мен бағандардан құралған деректерді бейнелеуге мүмкіндік береді. Delphi-де кестемен жұмыс істеу үшін StringGrid компоненті қолданылады. Бұл компонент мәтіндік деректерді редакциялау үшін арналған. Кесте өлшемін longint типті ColCount және RowCount қасиеттері анықтайды, олар сәйкес кестедегі жол және баған санын береді. Қалыпты жағдайда олардың саны 5- ке тең және ол өлшемі 6х6 кестеге сәйкес келеді. Кестенің шеткі сол жақ бағаны мен жоғарғы жолын бекітілген етуге болады. Жол мен бағанды бекіту әдетте, тақырыпты безендіруде қолданылады. Кестедегі бекітілген жолдар мен бағандар санын integer типті сәйкес FixedRows және FixedCol қасиеттері анықтайды. Қалыпты жағдайда бұл қасиеттің мәні 1- ге тең. Бекітілген элементтер ерекше түспен көрінеді және кестедегі ақпаратты айналдыру кезінде қозғалыссыз қалады. Бекітілген ұяшықтар фонының түсі FixedColor қасиеті арқылы анықталады. Ал кестенің түсі Color қасиеті арқылы анықталады. Программаның орындалу барысында кесте деректерін редакциялауды жүзеге асыру үшін Объект инспекторындағы Options қасиетінің goEditing мәнін true етіп қою керек. Кестенің жеке ұяшығының мәніне қатынау үшін String типті Cells[ACol, ARow:integer] қасиеті қолданылады. AСol индексі кестенің бағанын , ARow индексі жолын көрсетеді. Бұл қасиет екі өлшемді массив ролін атқарады.



Ескерту! StringGrid компонентінде жол және баған индексі 0- ден басталады.

Мысалы: Label1.Caption:=StringGrid1.Cells[5,9];

StringGrid1.Cells[1,2]:=’Hello’;



Label1 комонентіне StringGrid1 кестесінің алтыншы бағаны мен 10- жолының қиылысында орналасқан ұяшық мазмұны шығады және кестенің 3- жолының 2- бағанына “Hello” сөзі шығады.

Мысал1: Кесте жасау мысалын қарастырайық. Кестенің төмендегі қасиеттерін орнатамыз:

Қасиет

Мәні

FixedCols

0

FixedRows

1

Options\goEditing

true




32- сурет.
Батырма коды төмендегіше болады:

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

StringGrid1.Cells[0,0]:='Аты-жөні';

StringGrid1.Cells[1,0]:='Мамандық';

StringGrid1.Cells[2,0]:='Шифры';

StringGrid1.Cells[3,0]:='Курс';

StringGrid1.Cells[4,0]:='Топ нөмірі';



end;

Төмендегі суретте программаның орындалу нәтижесі көрсетілген.

33- сурет.

Мысал2: Тауар аттары, әр тауардың біреуінің бағасы және саны кестеде берілген. Әр тауардың жалпы бағасын табыңдар. Ең қымбат және ең арзан тауар атын шығарыңдар.




34- сурет.
Шешуі: Батырма кодтары төмендегіше болады.

var i, max, min, k, n:integer; // “Толтыру ” батырмасының коды

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

StringGrid1.Cells[0,0]:='Тауар аты';

StringGrid1.Cells[1,0]:='Бағасы';

StringGrid1.Cells[2,0]:='Саны';

StringGrid1.Cells[3,0]:='Жалпы бағасы';

StringGrid1.Cells[0,1]:='Кітап';

StringGrid1.Cells[0,2]:='Дәптер';

StringGrid1.Cells[0,3]:='Қалам';

StringGrid1.Cells[0,4]:='Күнделік';

end;

// “Есептеу ” батырмасының коды



procedure TForm1.BitBtn2Click(Sender: TObject);

begin

For i:=1 to 4 do

StringGrid1.Cells[3,i]:=inttostr(strtoint(StringGrid1.Cells[1,i])

*strtoint(StringGrid1.Cells[2,i]));

max:=strtoint(StringGrid1.Cells[1,1]);

min:=strtoint(StringGrid1.Cells[1,1]); k:=1;n:=1;

For i:=1 to 4 do begin

If max

If min>strtoint(StringGrid1.Cells[1,i]) then begin min:=strtoint(StringGrid1.Cells[1,i]);n:=i;end;

end;


Edit1.Text:=StringGrid1.Cells[0,k];

Edit2.Text:=StringGrid1.Cells[0,n];



end;

procedure TForm1.BitBtn3Click(Sender: TObject);

begin

ShowMessage('Тауар бағасын және санын енгіз!')



end; end.

Қосымшаның орындалу нәтижесі төмендегіше болады. (35- сурет)






Достарыңызбен бөлісу:
1   ...   8   9   10   11   12   13   14   15   ...   18




©engime.org 2024
әкімшілігінің қараңыз

    Басты бет