procedure TForm1.Exit-ptClick (Sender: TObject);
begin
Close;
end;
8. Туған жылдары немесе фамилиясы арқылы іздеу үшін тағы да екі терезе керек,әрбір терезеде іздейтін сұраныс өрістері құрылады. Оларды құру үшін келесі ірекеттерді орындаймыз:
8.1 Жобаға жаңа форма қосамыз. Форманын размерін тігінен кішірейтіп,жолынан үлкейтіп өзгертеміз. Caption қасиетін «Поиск по фамилии». формасына өзгертеміз. Форманы Search7.pas. файылында сақтаймыз.
8.2 Standart бетінен Label компонентасын еңгіземіз. Caption қасиетін «Введите фамилию искомого человека» өзгертеміз, Font қасиеті арқылы шрифті полужирный тандаймыз (13-сурет).
13-сурет – Тегі бойынша іздеу формасы
8.3 Label1 компонентін формаға еңгіземіз,және Edit компонентінің размерлерін жазықтығы бойынша үлкейтіп, өзгертеміз.
8.4 Additional бетінен BitBtn кнопкаларын тандаймыз. Caption ОК, Kind ке bkOK, ModalResult mrOK қылып Name
OKBtnке өзгертеміз. Label1 «Введите дату рождения человека» деген атын, Label «дата вводится через точку» еңгіземіз (14-сурет).
14-сурет – Туған күні бойынша іздеу формасы
8.6 Form1, Form3, Form4 арасында байланыс орнатамыз Form1 формасында implementation секциясында келесі һрістерді еңгіземіз.
Достарыңызбен бөлісу: |
