Шығыс Қазақстан облысының білім басқармасы

procedure TfmMain.DataSource1DataChange(Sender: TObject; Field: TField)

жүктеу/скачать 4,77 Mb.

Pdf көрінісі

бет	159/180
Дата	06.01.2022
өлшемі	4,77 Mb.
	#15026

1 ... 155 156 157 158 159 160 161 162 ... 180

Delphi

procedure TfmMain.DataSource1DataChange(Sender: TObject; Field: TField);
begin
  Caption :='Страны мира ('+IntToStr(AdoQuery1.RecordCount)+')';
end;
Бағдарламаны орындалу үшін жіберіңіз және де оның жұмысын тексеріңіз.

№ 10 зертханалық жұмыс. Байланысқан кестелермен жұмыс

№ 11 зертханалық жұмыс. Қарапайым есеп құрастыру

Есеп  берудің  мүмкіндіктері  мәліметтер  базасының  көп  тараған  түріне  жатады.
Шығару  батырмалары  қағазды  документтердің  барлығында  кездеседі.  Delphi  қолданушыға
есеп шығару үшін көптеген компоненттерді ұсынады, олар Qreport бетінде жиналған барлық
компоненттер.Осы  тәжірибеде  QReport  компонентасы  арқылы  есеп  берудің  онай  түрін
құрамыз.
1.
Меню  қатарынан  File,  New  таңдаймыз  да  шыққан  терезеде    Report
пиктограммасын белгілеп,  Ok батырмасын басамыз.
2.
Экранда  «QuickReport1» жаңа формасы пайда болады. File,Save As таңданыз
да «MyWorld» папкасында форма үшін модульді unRep атымен сақтаныз.
3.
unRep  модулінде  implementation  секциясына  төменде  қара  шрифтпен
берілген жолды қосыныз:

151

implementation
uses unMain;
{$R *.DFM}
4.
Инспектор объектісінде QuickReport1 формасы үшін енгізу жолын шертіңіз,
ол DataSet қасиетіне қажет. Түсірілетін тізімде fmMain.ADOQuery1 мағынасын тандаңыз.
5.
Енді fmMain формасына есеп беру үшін жаңа батырманы орналастырамыз, ол
төмендегі суретте көрсетілген:

жүктеу/скачать 4,77 Mb.

Достарыңызбен бөлісу:

1 ... 155 156 157 158 159 160 161 162 ... 180