
- •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;
2 Қадам – қосымшаның басты формасын қалыптастыру
Delphi-ді іске қосыңыз және жаңа жобаңы құрыңыз. Оны алдында Сіз құрған «MyWorld» папкасына сақтаңыз (UnMainмодульдің атауы, MyWorld жоба файлының атауы).
Форманың қасиетін объектілердің испекторы көмегімен келесідей өзгертіңіз:
Қасиет
Қасиеттің мәні
Name
fmMain
Caption
Страны мира
Енді басты формаға Panel команентін орналастырыңыз және оның қасиеттерін объектілердің испекторы көмегімен құрастырыңыз.
Компонентттің қасиеті
Қасиеттің мәні
Name
paTop
Align
alTop
Height
25
Формаға тағы да бір тақтаны орналастырыңыз және оған келесідей қасиеттердің мәнін бекітіңіз:
Компонентттің қасиеті
Қасиеттің мәні
Name
paBot
Align
alBotttom
Height
25
Формаға үшінші тақтаны орналастырыңыз және оған келесідей қасиеттердің мәнін бекітіңіз:
Компонентттің қасиеті
Қасиеттің мәні
Name
paLeft
Align
alLeft
Width
120
Формаға Splitter компонентін орналастырыңыз (стр.Additional).
Формаға тағы да бір тақтаны орналастырыңыз және оған келесідей қасиеттердің мәнін бекітіңіз:
Компонентттің қасиеті
Қасиеттің мәні
Name
paMid
Align
alClient
paTop тақтасына SpeedButton батырмасын орналастырыңыз (стр. Additional) және оған келесідей қасиеттерді бекітіңіз:
Компонентттің қасиеті
Қасиеттің мәні
Name
BtnHelp
Top
1
Left
1
Glyph
Көп нүктелі батырманы шертіңіз және экранда пайда болған терезеде Load батырмасын басыңыз. Экранда .bmp. кеңейтілуі бар файлды іздеу үшін терезе пайда болады. Бұл терезеде Дайындаулар папкасына кіріңіз және Help.bmp . файлын таңдаңыз.
paMid тақтасына RxDBAware бетінен RxDbGrid компонентін орналастырыңыз, оның Align қасиетін alClient-та етіп бекітіңіз. paBot тақтасына DataControls бетінен DBNavigator компонентін орналастырыңыз, оның Align қасиетін alRight -та етіп бекітіңіз. Сізде суретте көрсетілгендей шығуы керек.
3 Қадам – ado технологиясы бойынша Ms-Access мқ-на қосылу
Формаға DataAccess бетінен DataSource компонентін және ADO бетінен ADOQuery компонентін орналастырыңыз. DataSource компоненті үшін оның DataSet қасиетін ADOQuery1 мәнінде бекітіңіз.
ADOQuery1 компонентін бөліп көрсетіңіз және объектілер инспеукторында ConnectionString қасиеті жанында көп нүктесі бар батырманы шертіңіз.
Экранда төменде көрсетілген терезе пайда болады. Онда радиобатырманы Use Connection String басасыз және Build –ті шертесіз.
Біздің алдымызда қосылу қасиеттері таспырмаларының көп бетті терезесі ашылады. «Мәліметтерді жіберуші» (Provider) бетінде Microsoft Jet 4.0 OLE DB Provider пунктісі бойынша шертіңіз. Содан кейін «Қосылу» (Connection) бетіне өтіңіз, немесе «Әрі қарай» батырмасын басыңыз.
Қандай жағдайда болсын сіз төменде көрсетілген терезеге шығасыз:
Көп нүктесі бар батырманы шертіңіз, ашылған терезеде сіз құрған MyWorld мәліметтер қорын таңдаңыз және Ашу батырмасын басыңыз.
Қосылуды тексеру батырмасының көмегімен тексеруді өткізіңіз. Егер тексеру табысты өтсе, онда OK басыңыз.
OK батырмасын басыңыз.
ADOQuery1 компоненті үшін объектілер инспекторында оның SQL қасиетін SELECT * FROM СТРАНЫ мәнінде бекітіңіз.
ADOQuery1 компоненті бойынша екі рет шертіңіз және пайда болған өрістер редакторында тышқанның бірінші батырмасын басыңыз, содан кейін шыққан менюден «Add all fields» пунктін таңдаңыз. Сіз бізбен құрылған «ЕЛДЕР» кестесінің өрістерінің толық тізімін көру керексіз.
ADOQuery1 компонентінің Active қасиетін True мәнінде бекітіңіз.
RxDBGrid1 және DBNavigator компоненттері үшін DataSource1 мәніндегі DataSource белгілеңіз. Осыдан кейін RxDBGrid1 «Елдер» кестесінен мәліметтер пайда болуы керек..
RxDBGrid1 компоненті бойынша екі рет шертіңіз және пайда болған өрістер редакторында тышқанның бірінші батырмасын басыңыз, содан кейін шыққан менюден «Add all fields» пунктін таңдаңыз. «Атау» өрісі үшін объектілер инспекторында Width қасиетін 120 мәнінде бекітіңіз.
Жобаны орындалуы үшін іске қосыңыз. Бас форманың түрі төмендегі суретте көрсетілгендей болуы қажет: