
- •050703 «Ақпараттық жүйелер» мамандығының
- •050703 «Ақпараттық жүйелер» мамандығының студенттеріне
- •Тәжірибелік жұмыс №1.
- •2 Қадам – қосымшаның басты формасын қалыптастыру
- •3 Қадам – ado технологиясы бойынша Ms-Access мқ-на қосылу
- •Тәжірибелік жұмыс №3. Сұрауларды құру. Іздеу және фильтрация.
- •Қадам 1 – tRxDbGrid бағана атауларының батырмаларымен жұмыс
- •Қадам 2 – мқ – на sql- сұрауының бағдарламалық өзгеруі
- •Var strSql:string;
- •Қадам 3 – мәліметтерді фильтрациялау және іздеу
- •Var I:integer;
- •If (Fields[I] is tIntegerField) then
- •Var s,sf:string;I,j:longint;
- •If CheckFiltr.Checked then begin
- •Тәжірибелік жұмыс №4. QuickReport арқылы есеп беруді құрайық
- •Тәжірибелік жұмыс №5. Мқ - ында «MyWorld» тасымалдауы
- •Қадам 1. Мқ мен динамикалық байланыс
- •Тапсырма: Бағдарлама ішіндегі бағдарламалар алгоритімімен танысып, оларға комментарии жасаңыз.
- •Var sbase:string;
- •Қадам 2 – ini-файлын құру
- •Қадам 3 – ini-файлын қолдану
- •Тәжірибелік жұмыс№6. «MyWorld» мқ құру. Алмастыру буферімен және графикалық бейнелермен жұмыс
- •DataControls бетінен біздің бастапқы формамыздың проектісіндегі dbImage-дің 3 компонентіне paLeft панелін ретпен жоғарыдан төмен орналастырыңыз.
- •Var j:integer;
- •Var dbIm:tdbImage;
- •If Not(dlgOpenImage.Execute) then Exit;
- •Var dbIm:tdbImage;
- •If Not(dlgSaveImage.Execute) then Exit;
- •Var dbIm:tdbImage;nmField:string;
- •XyPoint:tPoint;
- •Var j:integer;
- •If (Components[j] is tdbImage) then begin
- •If not(dbIm is tdbImage) then Exit;
Қадам 3 – мәліметтерді фильтрациялау және іздеу
Елдерді атауы бойынша іздеу ыңғайлылығы үшін RxDBAware бетінен paTop тақтасына TRxLookupEdit компонентін орналастырыңыз. Объектілер инспекторында осы компонентің қасиеттеріне келесі мәндерді беріңіз:
Компонентің қасиеті |
Қасиетінің мәні |
PopUpOnlyLocate |
False |
CharCase |
ecUpperCase |
Text |
|
LookUpSource |
DataSource1 |
LookUpField |
Название |
ShowHint |
True |
Hint |
ПОИСК СТРАНЫ |
Проекті орындауға жібергеннен кейін, өріске бұл компонентің мәнін енгізу жалғастырылады және ол түске боялады, табылмаған жазбаға курсор мәліметтер жиынын шығарады, төмендегідегі суретте көрсетілгендей:
Бұл бағдарламамен жұмыс істеу кезіңде, қолданушыны елдер тізімі мен халықтары 100 миллион тұрғындарымен қамтылған, немесе балалар саны шектеулі бар елдер сияқты мысалдар қызығушылық тудыра алады . Осындау жазуларды әртүрлі тәсілдер арқылы көруге болады. Бір шекараны құрастыру және фильтірдің бір шартын, қолданушыға мәліметтер жиынының бағанасын біздің бағдарламада ұсынамыз ол үшін ол фильтірді қолданады
Фильтірдің шартына барлық керекті компоненттерді басқа тақтаға орналастыру ыңғайлы болады. paBot панеліне жаңа панелді орналастырып, оның қасиетін келесідей түрде көресіз:
Компонентің қасиеті |
Қасиеттің мәні |
Name |
paFilter |
Align |
alClient |
TCheckBox компонентін paFilter панеліне орналастырып, оның қасиеттеріне келесі мәндерді жіктеңіз:
Компонентің қасиеті |
Қасиеттің мәні |
Name |
CheckFiltr |
Left |
1 |
Top |
3 |
Caption |
Фильтр по: |
Сізде суреттегідей шығу керек:
Б
ағдарлама барысында қолданушы ешқандай жаңа мәндерді қоспайды және де өшірмейді, сондықтан да DBNavigator1 – дың бүкіл батырмаларын экранға қоюдың еш қажеті жоқ. Навигатордың сыртқы түрін өзгертеміз. ShowHint қасиетінде True копонентасын қоямыз, содан кейін Hints қасиетінде тік төртбұрышты батырманы шертіңіз. Экранда ағылшын тіліндегі сөздер суретте көрсетілгендей шығады, оларды қазақшаға аударыңыз. Бағдарламаны іске қосып сөздер дұрыс және мағыналы шығатынына көз жеткізіңіз. Содан кейін VisibleButtons қасиетінің ішіндегі қасиетіне навигатордың 4 батырмаларын қалдырыңыз – 1-ші көшу, ақырғысын, алдындағысын және келесісін. paBot. тақтасының оң жағына навигаторды кішірейтіңіз.
cbCond және edFiltr аттарын меншіктеп, paFiltr панеліне 2 компонентаны TComboBox және Tedit – та қосамыз. cbCond копонентінің қасиетінде Items-та төртбұрышты батырманы шертіп оған «Больше» және «Меньше» мәнін беріңіз. Внешний вид панели paFiltr панелінің сыртқы көрінісі суретке сәйкес болуы:
Anchors қасиетінде cbFiltr, cbCond және edFiltr компонеттерінің орналасуына қол жеткізіңіз, бос орынды cbFiltr копоненті орналассын, paBot компоненті өзінің өлшемдерін өзгертпесін.
cbFiltr копонентінің құрылымын өрістер үшін құру керек, фильтірдін шарттарын оған қоятындай етіп. Ол өрістер сандық типте болуы керек, ал екіншіден, экранға берілген тізіммен шығару керек. МҚ – да олардың шын аттары сәйкес келмеуі де мүмкін. cbFiltr өндеушісі үшін OnEnter жағдайын төмендегідей етіп құрамыз:
procedure TfmMain.cbFiltrEnter(Sender: TObject);