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 компоненті. Delphi қосымшасында деректерді енгізу және нәтижені шығару функциялары
Дәріс мазмұны:
1. Кестелік ақпаратпен жұмыс істеудің StringGrid компоненті және оның қасиеттері.
2.. Деректерді енгізудің InputBox функциясы
3. Нәтижені шығару-ң MessageDlg функциясы
Кесте жолдар мен бағандардан құралған деректерді бейнелеуге мүмкіндік береді. 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- сурет)
Достарыңызбен бөлісу: | 
