Қадам 2 – МҚ – на SQL- сұрауының бағдарламалық өзгеруі

Қадам 2 – МҚ – на SQL- сұрауының бағдарламалық өзгеруі

1. 
   Процедура атауын форма классын бейнелеу Public бөліміне орналастырыңыз:
   

2. 
   Төменде көрсетілген процедураны құрыңыз және басқа да қосалқы бағдарламалардың хабарламалары жанында unMain модулінің interface секциясында оның атауын орналастырыңыз:
   

3. 
   Сізбен құрылған оқиғаларды өндеушілерде NewQuerySQL процедураны шақыруды қосыңыз:
   

Field: TField);

begin

if (Field <> nil) then begin

Desc:=Not(Desc);

end else begin

Desc:=False;

NameSortField:=Field.FullName;

end;

end;

begin

end;

4. 
   Бағдарламаны орындау үшін іске қосыңыз және бағаналардың сұрыпталуы ойлағандай іске асып жатқанына көз жеткізіңіз.
   
5. 
   МҚ – на сұрауды орындау уақытында бағдарлама қолданушының әрекетіне жауап бермейді және оны ол туралы ескеру керек. Rx кітапханасында осыны істеуге көмектесетін ShowSplashWindow арнайы функция бар. Бұл функцияның суреттелуін кітапхана бойынша анықтамада оқыңыз, содан кейін unMain модулінің мәтініне төменде қара шрифтпен бөліп көрсетілген жолын орналастырыңыз:
   

fmMain: TfmMain;

NameSortField:string;Desc:boolean;

implementation

procedure TfmMain.NewQuerySQL;

var strSQL:string;Splash: TForm;

begin

DataSource1.Enabled :=False;

With ADOQuery1 do begin

if Active=True then Active:=False;

SQL.Clear;

strSQL:= 'SELECT * FROM Страны ORDER BY Страны.'+NameSortField;

if Desc then strSQL:=strSQL+' DESC;' else strSQL:=strSQL+';';

SQL.Add(strSQL);

Active:=True;

end;

end;

Қадам 3 – мәліметтерді фильтрациялау және іздеу

1. 
   Елдерді атауы бойынша іздеу ыңғайлылығы үшін RxDBAware бетінен paTop тақтасына TRxLookupEdit компонентін орналастырыңыз. Объектілер инспекторында осы компонентің қасиеттеріне келесі мәндерді беріңіз:
   

2. 
   Проекті орындауға жібергеннен кейін, өріске бұл компонентің мәнін енгізу жалғастырылады және ол түске боялады, табылмаған жазбаға курсор мәліметтер жиынын шығарады, төмендегідегі суретте көрсетілгендей:
   

2. 
   Бұл бағдарламамен жұмыс істеу кезіңде, қолданушыны елдер тізімі мен халықтары 100 миллион тұрғындарымен қамтылған, немесе балалар саны шектеулі бар елдер сияқты мысалдар қызығушылық тудыра алады . Осындау жазуларды әртүрлі тәсілдер арқылы көруге болады. Бір шекараны құрастыру және фильтірдің бір шартын, қолданушыға мәліметтер жиынының бағанасын біздің бағдарламада ұсынамыз ол үшін ол фильтірді қолданады
   
3. 
   Фильтірдің шартына барлық керекті компоненттерді басқа тақтаға орналастыру ыңғайлы болады. paBot панеліне жаңа панелді орналастырып, оның қасиетін келесідей түрде көресіз:
   

4. 
   TCheckBox компонентін paFilter панеліне орналастырып, оның қасиеттеріне келесі мәндерді жіктеңіз:
   

4. 
   Сізде суреттегідей шығу керек:
   

4. 
   Бағдарлама барысында қолданушы ешқандай жаңа мәндерді қоспайды және де өшірмейді, сондықтан да DBNavigator1 – дың бүкіл батырмаларын экранға қоюдың еш қажеті жоқ. Навигатордың сыртқы түрін өзгертеміз. ShowHint қасиетінде True копонентасын қоямыз, содан кейін Hints қасиетінде тік төртбұрышты батырманы шертіңіз. Экранда ағылшын тіліндегі сөздер суретте көрсетілгендей шығады, оларды қазақшаға аударыңыз. Бағдарламаны іске қосып сөздер дұрыс және мағыналы шығатынына көз жеткізіңіз. Содан кейін VisibleButtons қасиетінің ішіндегі қасиетіне навигатордың 4 батырмаларын қалдырыңыз – 1-ші көшу, ақырғысын, алдындағысын және келесісін. paBot. тақтасының оң жағына навигаторды кішірейтіңіз.
   
5. 
   cbCond және edFiltr аттарын меншіктеп, paFiltr панеліне 2 компонентаны TComboBox және Tedit – та қосамыз. cbCond копонентінің қасиетінде Items-та төртбұрышты батырманы шертіп оған «Больше» және «Меньше» мәнін беріңіз. Внешний вид панели paFiltr панелінің сыртқы көрінісі суретке сәйкес болуы:
   

6. 
   Anchors қасиетінде cbFiltr, cbCond және edFiltr компонеттерінің орналасуына қол жеткізіңіз, бос орынды cbFiltr копоненті орналассын, paBot компоненті өзінің өлшемдерін өзгертпесін.
   
7. 
   cbFiltr копонентінің құрылымын өрістер үшін құру керек, фильтірдін шарттарын оған қоятындай етіп. Ол өрістер сандық типте болуы керек, ал екіншіден, экранға берілген тізіммен шығару керек. МҚ – да олардың шын аттары сәйкес келмеуі де мүмкін. cbFiltr өндеушісі үшін OnEnter жағдайын төмендегідей етіп құрамыз:
   

Бағдарламаны жібергеннен кейін тізім дұрыс қалыптасуын тексеріңіз.

8. 
   edFiltr компонентасында қолданушы сандық мәліметтерді енгізеді. Қолданушы қате жібермеу үшін, осы өрісте сандардан басқа ештене болмауы керек. Берілген OnKeyPress компонентасына өндеушіні құрамыз:
   

Бағдарламаны жіберіп, осы компонентаның жұмысын тексеріңіз.

9. 
   AdoQuery1 компонентасын Filter қасиетінде Design-Time орналастырыңыз төмендегідей мәнде: [Население]>100000000
   
10. 
    CheckFiltr компонентасы үшін төмендегі өндеушіні OnClick оқиғасына құрыңыз:
    
11. 
    procedure TfmMain.CheckFiltrClick(Sender: TObject);
    

end;

12. 
    cbFiltr, cbCond және edFiltr компоненттерін қолданып, қолданушы фильтр арқылы өзгерту алуы біздің келесі міндетіміз. Установите в для свойства компонента cbFiltr копонентасында Text қасиетінде Design-Time орналастырып, «Население» мәнін, ал осы қасиетке edFiltr компонентасында 1000000000 (сто миллионов). CheckFiltr компонентасында OnClick оқиғаларында өндеушілерімен төмендегідей болуы керек:
    

13. 
    Қолданушы жаңа фильтірмен қолданғанда ескіні жоюы керек. cbFiltr, cbCond и edFiltr компоненттері OnChange үшін өндеушіні құрып, оларды келесілерге жазыңыз:
    

Әр түрлі фильтірлердің жұмысы мен бағдарламаның орындалуын тексеріңіз.

14. 
    Фильтірді өзгертткенне кейін қолданушыға кейбір мәліметтерді енгізуге тура келеді.Оның формасында орын алмау үшін, оның тақырыбын қолданыңыз. DataSource1 компонентасының OnDataChange оқиғасын қолдану тиімді.:
    

Бағдарламаны орындалу үшін жіберіңіз және де оның жұмысын тексеріңіз.

Есеп берудің мүмкіндіктері мәліметтер базасының көп тараған түріне жатады. Шығару батырмалары қағазды документтердің барлығында кездеседі. Delphi қолданушыға есеп шығару үшін көптеген компоненттерді ұсынады, олар Qreport бетінде жиналған барлық компоненттер.Осы тәжірибеде QReport компонентасы арқылы есеп берудің онай түрін құрамыз.

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

{$R *.DFM}

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

6. 
   Енді BtnRep батырмасын шерткеннен кейін экранда есеп берудің формасы шыққандай әрекет ету қажет. Ол үшін BtnRep батырмасы үшін төменде көрсетілген OnClick оқиғаны өндеушіні құрыңыз:
   

begin

end;

Енді BtnRep батырмасын шерткеннен кейін экранда суретте көрсетілгендей біздің болашақ есеп беруіміздің формасы шығуы керек:

Есеп берудің өзі әлі жоқ, бірақ формада бірқатар батырмаларды көріп отырмыз. Олардың үстінен жасырын көмек беруші сөздерді оқу үшін тышқанның курсорын жүргізіңіз.

Енді Design-time –ға QuickReport1 формасына оралайық.

7. 
   Біздің алғашқы есеп беруімізді құра бастайық. QuickReport1 формасына QRBand компонентін орналастырыңыз.
   

   Қастиет	Қатиеттің мәні
   BandType	rbDetail
   Name	BandDetail

8. 
   Одан кейін BandDetail-ға QRDBText екі компонентін орналастырыңыз. Екеуі үшін fmMain.ADOQuery1-да DataSet қасиетін орналастырыңыз, ал DataField қасиетін біріншісі үшін Атауында, екіншісі үшін Халқында орналастырыңыз.
   
9. 
   QuickReport1 формасына тышқанның оң жақ батырмасын шерітіңіз және пайда болған менюден Preview пунктін таңдаңыз.Экранда келесі түрге жақын форма пайда болуы керек:
   

Бағдарлама өз жұмысын міндетті түрде келесілерден бастауы керек:

1. 
   Файл мен МҚ бағдарламамен бір папкада сақталып тұрғанын тексеру.
   
2. 
   Дұрыс сақталынған болса, жұмысты бастау.
   
3. 
   Дұрыс емес болса, экранға МҚ – дағы файылды іздеу диалогты терезесін шығару.
   
4. 
   Егер де қолданушы диалогты терезеде МҚ – ның файылын тапса, онда жұмысты жалғастыруға болады.
   
5. 
   Егер де файыл табылмаса, онда жұмысты аяқтау.