Зертханалық жұмыс №14

Тақырыбы: Ақпаратты енгізу және шығару

Мақсаты: Ақпаратты енгізу және шығару тәсілдерін меңгерту

Теориялық мәліметтер

«Фунт және килограмм» қосымшасы.

Берілген қосымша мәндерді килограммнан әр түрлі елдердің алмастыру жүйесі бойынша фунт-қа аударады

№	Компонент	Қасиеті	Мәні
1	Form1	Caption	Мысал
2	Label1	AutoSize WordWrap	False True
3	ListBox1	Name	ListBox1
4	Edit1	Text	(бос)
5	Button1	Caption	Есептеу
6	Label4	Caption AutoSize	(бос) False

Программа фрагменті:

procedure TForm1.FormCreate(Sender: TObject);

begin

ListBox1.items.add(' Россия');

ListBox1.items.add(' Австрия');

ListBox1.items.add(' Англия ');

ListBox1.items.add(' Германия ');

ListBox1.items.add(' Дания');

ListBox1.items.add('Исландия');

ListBox1.items.add(' Италия');

ListBox1.items.add(' Нидерланды');

ListBox1.itemindex:=0;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

funt:real;

kg:real;

k:real;

begin

case ListBox1.ItemIndex of

0: k:=0.4059; { Россия }

1: k:=0.453592;{ Англия }

2: k:=0.56001; { Австрия }

3..5,7:k:=0.5; { Германия, Дания, Исландия, Нидерланды }

6: k:=0.31762; { Италия }

end;

funt:=StrToFloat(Edit1.Text);

kg:=k*funt;

label4.caption:=Edit1.Text

+ ' Фунт. - '

+ FloatToStrF(kg,ffFixed,6,3)

+ ' кг.';

end;

Тапсырмалар

1. Қосқыштарды (переключатели) белсенді түрге келтіргенде жазбаның түсі өзгеретін, ал жалаушаны (флажок) таңдағанда шрифт атрибуттары ауыстырылатын қосымшаны құрыңдар.

2 Берілген тізімнен алынған студенттің аты-жөні форманың атында белгіленуі қажет

3. Сабақ кестесін құрастыруға көмектесетін программа жазу керек.

Бақылау сұрақтары:

1 Delphi ортасындағы негізгі комоненттер орналасқан беттерді атаңыз?

2 Пайдаланушымен қарапайым сұхбат ұйымдастыру үшін қандай беттен

қандай компоненттерді пайдалануға болады?

3 Мәліметтерді енгізу үшін қандай беттен қандай комонент пайдаланылады?

4 Терезеге түсіндірме жазу үшін қандай компонент пайдаланылады?

5 Орындалған нәтижені экранға шығару үшін қандай компонент пайдаланылады?

Зертханалық жұмыс №15

Тақырыбы: Мәліметтер қорымен байланыс

Мақсаты: Delphi 7.0. ортасында мәліметтер қорымен жұмыс жасау.

Жұмыстың барысы:

1. Access ортасында Клиент деген база құрамыз

2. Содан кейін Delphi 7.0. ортасын ашып келесі компоненттерді форма бетіне түсіреміз

Бұл жердегі компоненттер келесі бетшелерден алынған:

• ADOTable1 компоненті ADO бетшесінен;

• DataSource1 компоненті DataAccess бетшесінен;

• DBGrid1 және DBNavigator1 компоненттері Data Controls бетшесінен.

3. Қажет компоненттерді форма бетіне орналастырғаннан кейін ADOTable1 компоненті арқылы «Клиент» базасымен байланыстырамыз. Ол үшін: ADOTable1 компонентін белгілеп, қасиеттер терезесіндегі Connection String қасиетіндегі батырманы басамыз. Сонда келесі түрдегі сұхбат терезесі шығады.

Бұл терезеден Build батырмасын шертеміз. Сонда келесі түрдегі сұхбат терезесі шығады.

Бұл терезеден көрсетілген байланыстырушы провайдерді таңдап, Далее батырмасын шертеміз. Содан кейін ашылған терезеден Клиент базасын көрсетеміз. Яғни :

С одан кейін бұл терезеден ОК батырмасын шертіп шығамыз. Сөйтіп ADOTable1 компонентін Клиент базасымен байланыстырды. Енді ADOTable1 компонентін сол базадағы Контакты атты кестемен байланыстырамыз. Ол үшін ADOTable1 компонентін белгілеп, қасиеттер терезесінен TableName қасиетіне Контакты атын таңдаймыз. Яғни:

Одан кейін байланысты қосу үшін:

Енді осы кестені форма бетіндегі DBGrid1 компонентінен көру керек. Алдымен ADOTable1 компонентін DBGrid1 компонентімен байланыстыру қажет. Ол үшін DataSource1 компонентін белгілеп, қасиеттер терезесіндегі DataSet қасиетінде ADOTable1 –көрсетеміз.

Яғни:

Одан кейін DBGrid1 компонентін белгілеп, қасиеттер терезесіндегі DataSource қасиетінде DataSource1 – ді көрсетеміз. Яғни:

Сонда формадағы орналасқан DBGrid1 компонентінен Контакты кестесінің бағандары көрінеді.

Енді осы кестені басқару үшін, яғни мәліметтер енгізу, кетіру, өңдеу секілді операциялар орындау үшін DBNavigator1 компонентін белгілеп, қасиеттер терезесіндегі DataSource қасиетінде DataSource1 – ді көрсетеміз. Енді біздің байланысымыз толық істейтін болады. Оны тексеру үшін Программаны іске қосамыз.

Тапсырма: Өз тобыңыздың қорын жасау