Ћекции.ќрг


ѕоиск:




 атегории:

јстрономи€
Ѕиологи€
√еографи€
ƒругие €зыки
»нтернет
»нформатика
»стори€
 ультура
Ћитература
Ћогика
ћатематика
ћедицина
ћеханика
ќхрана труда
ѕедагогика
ѕолитика
ѕраво
ѕсихологи€
–елиги€
–иторика
—оциологи€
—порт
—троительство
“ехнологи€
“ранспорт
‘изика
‘илософи€
‘инансы
’ими€
Ёкологи€
Ёкономика
Ёлектроника

 

 

 

 


“ема: ќбробка под≥й дл€ головного меню головноњ форми.




ћета: ѕрописати обробку под≥й дл€ головного меню головноњ форми.

’≥дроботи

1. ¬≥дкритиголовну форму, вибратипотр≥бний пункт меню ≥ натиснути на ньому правою кнопкою миш≥.

2. ѕерейти в ≥нспекторобТЇкт≥в на закладку —обыти€ вибрати под≥ю OnClick.

3. ƒв≥ч≥ натиснути л≥вою кнопкою миш≥ у пол≥ навпроти даноњ под≥њ.

4. ¬≥дкриЇтьс€в≥кнопрограмного коду де в програмн≥ дужки потр≥бновставитипрограмний код.

 

 

 

Ank_zo_new_F.ANKDANI.Active:=True;

withAnk_zo_new_F do

begin

repeat

ANKDANI.CachedUpdates:=True;

ANKDANI.EditRangeEnd;

ANKDANI.Insert;

DBEdit1:= TDBEdit.Create(Self);

ifAnk_zo_new_F.ShowModal=mrOK then

 

begin

ANKDANI.Post;

ANKDANI.ApplyUpdates;

 

end else begin

ANKDANI.Cancel;

ANKDANI.CancelUpdates;

end;

ANKDANI.CachedUpdates:=False;

untilModalResult = mrCancel;

end;

Ank_zo_new_F.ANKDANI.Active:=False;

5. ¬≥дредагувати даний програмний код зг≥дно свого вар≥анту бази даних.

6. «м≥нити назви форм ≥ таблиць.

7. —комп≥лювати програмний код.

8. «апустити програму на виконанн€.


 

Ћабораторна робота є6

“ема: —творенн€ додаткових форм дл€ видаленн€ даних та веденн€ пошуку.

ћета:—творити додатков≥ форми дл€ видаленн€ даних та веденн€ пошуку.

’≥дроботи

1. Ќа кожн≥й форм≥ призначен≥й дл€ редагуванн€ необх≥дно додати компоненти Button. (приклад зображено на малюнку нижче). ƒл€ цього потр≥бно зробити наступн≥ зм≥ни дл€ компонента DBGrid:

Ј ¬ластив≥сть AlignвстановлюЇмоalCustom;

 

 

2. —творити додатков≥ форми дл€ пошуку та видаленн€ наступного вигл€ду:

3. ƒл€ кнопки ѕошук на форм≥ ѕошук прописати наступну процедуру дл€ под≥њOnClick: (¬ даному випадку форма пошуку використовуЇтьс€ дл€ вс≥х форм редагуванн€)

procedureTPoisc_F.Button1Click(Sender: TObject);

var

LocValues:Variant;

LocFields:string;

begin

ifAnk_zo_prosm_F.Visible=Truethen

BEGIN

ifAnk_zo_prosm_F.ANKDANI.Locate('TIN',Edit1.Text, []) then

begin

Poisc_F.Close;

Ank_zo_prosm_F.DBGrid1.SetFocus;

end

else

 

ifAnk_zo_prosm_F.ANKDANI.Locate('FULLN_U',Edit2.Text, []) then

begin

Poisc_F.Close;

Ank_zo_prosm_F.DBGrid1.SetFocus;

end

else

ifAnk_zo_prosm_F.ANKDANI.Locate('NAME_U',Edit3.Text, []) then

begin

Poisc_F.Close;

Ank_zo_prosm_F.DBGrid1.SetFocus;

end

 

else

 

ifAnk_zo_prosm_F.ANKDANI.Locate('FATH_U',Edit4.Text, []) then

begin

Poisc_F.Close;

Ank_zo_prosm_F.DBGrid1.SetFocus;

end;

 

END

ELSE

ifAnk_zo_edit_F.Visible=Truethen

 

BEGIN

{------------------------Ank_zo_edit_F.ANKDANI.Locate-----}

 

ifAnk_zo_edit_F.ANKDANI.Locate('TIN',Edit1.Text, []) then

begin

Poisc_F.Close;

Ank_zo_edit_F.DBGrid1.SetFocus;

end

else

 

ifAnk_zo_edit_F.ANKDANI.Locate('FULLN_U',Edit2.Text, []) then

begin

Poisc_F.Close;

Ank_zo_edit_F.DBGrid1.SetFocus;

end

 

else

 

ifAnk_zo_prosm_F.ANKDANI.Locate('NAME_U',Edit3.Text, []) then

begin

Poisc_F.Close;

Ank_zo_edit_F.DBGrid1.SetFocus;

end

 

else

 

ifAnk_zo_edit_F.ANKDANI.Locate('FATH_U',Edit4.Text, []) then

begin

Poisc_F.Close;

Ank_zo_edit_F.DBGrid1.SetFocus;

end

 

 

END ELSE

 

ifBSV_edit_F.Visible=Truethen

 

BEGIN

{------------------------INDBSV.Locate-----}

 

ifBSV_edit_F.INDBSV.Locate('TIN',Edit1.Text, []) then

begin

Poisc_F.Close;

BSV_edit_F.DBGrid1.SetFocus;

end

 

 

END ELSE

 

ifBSV_prosm_F.Visible=Truethen

 

BEGIN

{------------------------INDBSV.Locate-----}

 

ifBSV_prosm_F.INDBSV.Locate('TIN',Edit1.Text, []) then

begin

Poisc_F.Close;

BSV_prosm_F.DBGrid1.SetFocus;

end

END ELSE

ifIndani_prosm_F.Visible=Truethen

 

BEGIN

{------------------------INDBSV.Locate-----}

 

ifIndani_prosm_F.INDANI.Locate('TIN',Edit1.Text, []) then

begin

Poisc_F.Close;

Indani_prosm_F.DBGrid1.SetFocus;

end

END ELSE

ifBSV_prosm_F.Visible=Truethen

BEGIN

{------------------------INDBSV.Locate-----}

ifindani_edit_F.INDANI.Locate('TIN',Edit1.Text, []) then

begin

Poisc_F.Close;

indani_edit_F.DBGrid1.SetFocus;

end

end;

end;

end.

 

 

4. ƒл€ кнопки ¬их≥д на форм≥ ѕошук прописати наступну процедуру дл€ под≥њ OnClick:

procedureTPoisc_F.Button2Click(Sender: TObject);

begin

Close;

end;

5. ƒл€ кнопок “ј Ќ≤ на форм≥ ¬идаленн€ прописати наступну процедури дл€ под≥њ OnClick:

procedureTDelete_F.Button1Click(Sender: TObject);

begin

ModalResult:= mrOk;

end;

 

procedureTDelete_F.Button2Click(Sender: TObject);

begin

ModalResult:= mrCancel;

end;

6. ƒл€ кнопок ѕошук ≥ ¬идалити на форм≥ редагуванн€ прописати наступн≥ процедури дл€под≥њ OnClick:

{¬»ƒјЋ»“»}

with Delete_F do

begin

ShowModal;

ifModalResult=mrOkthen

begin

ankdani.Delete

end

elseankdani.Cancel

end

else

 

{ѕќЎ” }

 

with Poisc_F do

begin

Edit1.Clear;

Edit2.Clear;

Edit3.Clear;

Edit4.Clear;

Edit2.Visible:=True;

Edit3.Visible:=True;

Edit4.Visible:=True;

Label2.Visible:=True;

Label3.Visible:=True;

Label4.Visible:=True;

ShowModal

End;


Ћабораторна робота є7





ѕоделитьс€ с друзь€ми:


ƒата добавлени€: 2016-11-24; ћы поможем в написании ваших работ!; просмотров: 325 | Ќарушение авторских прав


ѕоиск на сайте:

Ћучшие изречени€:

≈сли президенты не могут делать этого со своими женами, они делают это со своими странами © »осиф Ѕродский
==> читать все изречени€...

2203 - | 2118 -


© 2015-2024 lektsii.org -  онтакты - ѕоследнее добавление

√ен: 0.018 с.