2. Форманың қасиетін объектілердің испекторы көмегімен келесідей
өзгертіңіз:
Қас
иет
Қасиеттің
мәні
Nam
e
fmMain
Capti
on
Страны
мира
3. Енді басты формаға Panel команентін орналастырыңыз және оның
қасиеттерін объектілердің испекторы көмегімен құрастырыңыз.
Компоненттті
ң қасиеті
Қасиеттің
мәні
Name
paTop
Align
alTop
Height
25
4. Формаға тағы да бір тақтаны орналастырыңыз және оған келесідей
қасиеттердің мәнін бекітіңіз
:
Компоненттті
ң қасиеті
Қасиеттің
мәні
Name
paBot
Align
alBotttom
Height
25
5. Формаға үшінші тақтаны орналастырыңыз және оған келесідей
қасиеттердің мәнін бекітіңіз
:
Компоненттті
ң қасиеті
Қасиеттің
мәні
Name
paLeft
Align
alLeft
Width
120
6. Формаға Splitter компонентін орналастырыңыз (стр.Additional).
7. Формаға тағы да бір тақтаны орналастырыңыз және оған келесідей
қасиеттердің мәнін бекітіңіз
:
Компоненттті
ң қасиеті
Қасиеттің
мәні
Name
paMid
Align
alClient
8. paTop тақтасына SpeedButton батырмасын орналастырыңыз (стр.
Additional) және оған келесідей қасиеттерді бекітіңіз
:
Компоненттті
ң қасиеті
Қасиеттің мәні
Name
BtnHelp
Top
1
Left
1
Glyph
Көп нүктелі батырманы шертіңіз және
экранда пайда болған терезеде Load
батырмасын басыңыз.
Экранда
.bmp.
кеңейтілуі бар файлды іздеу үшін терезе
пайда болады. Бұл терезеде Дайындаулар
папкасына кіріңіз және Help.bmp . файлын
таңдаңыз.
9. paMid тақтасына RxDBAware бетінен RxDbGrid компонентін
орналастырыңыз, оның Align қасиетін alClient-та етіп бекітіңіз. paBot
тақтасына DataControls бетінен DBNavigator компонентін орналастырыңыз,
оның Align қасиетін alRight -та етіп бекітіңіз. Сізде суретте көрсетілгендей
шығуы керек.
3 қадам – ADO
технологиясы бойынша Ms-Access МҚ-на қосылу
1. Формаға DataAccess бетінен DataSource компонентін және ADO
бетінен ADOQuery компонентін орналастырыңыз. DataSource компоненті
үшін оның DataSet қасиетін ADOQuery1 мәнінде бекітіңіз.
2. ADOQuery1 компонентін бөліп көрсетіңіз және объектілер
инспеукторында ConnectionString қасиеті жанында көп нүктесі бар
батырманы шертіңіз.
3. Экранда төменде көрсетілген терезе пайда болады. Онда
радиобатырманы Use Connection String басасыз және Build –ті шертесіз.
4. Біздің алдымызда қосылу қасиеттері таспырмаларының көп бетті
терезесі ашылады. «Мәліметтерді жіберуші» (Provider) бетінде Microsoft Jet
4.0 OLE DB Provider пунктісі бойынша шертіңіз. Содан кейін «Қосылу»
(Connection) бетіне өтіңіз, немесе «Әрі қарай» батырмасын басыңыз.
5. Қандай жағдайда болсын сіз төменде көрсетілген терезеге шығасыз:
6. Көп нүктесі бар батырманы шертіңіз, ашылған терезеде сіз құрған
MyWorld мәліметтер қорын таңдаңыз және Ашу батырмасын басыңыз.
7. Қосылуды тексеру батырмасының көмегімен тексеруді өткізіңіз.
Егер тексеру табысты өтсе, онда OK басыңыз.
8. OK батырмасын басыңыз.
9. ADOQuery1 компоненті үшін объектілер инспекторында оның SQL
қасиетін SELECT * FROM СТРАНЫ мәнінде бекітіңіз.
10. ADOQuery1 компоненті бойынша екі рет шертіңіз және пайда
болған өрістер редакторында тышқанның бірінші батырмасын басыңыз,
содан кейін шыққан менюден «Add all fields» пунктін таңдаңыз. Сіз бізбен
құрылған «ЕЛДЕР» кестесінің өрістерінің толық тізімін көру керексіз.
11. ADOQuery1 компонентінің Active қасиетін True мәнінде бекітіңіз.
12. RxDBGrid1 және DBNavigator компоненттері үшін DataSource1
мәніндегі DataSource белгілеңіз. Осыдан кейін RxDBGrid1 «Елдер»
кестесінен мәліметтер пайда болуы керек..
13. RxDBGrid1 компоненті бойынша екі рет шертіңіз және пайда
болған өрістер редакторында тышқанның бірінші батырмасын басыңыз,
содан кейін шыққан менюден «Add all fields» пунктін таңдаңыз. «Атау»
өрісі үшін объектілер инспекторында Width қасиетін 120 мәнінде бекітіңіз.
14. Жобаны орындалуы үшін іске қосыңыз. Бас форманың түрі
төмендегі суретте көрсетілгендей болуы қажет:
Тәжірибелік жұмыс №2. Сұрауларды құру. Іздеу және фильтрация.
Тәжірибелік жұмыс №2. Сұрауларды құру. Іздеу және фильтрация.
Енді бағдарлама Access МҚ – ның кестесінен жазуларды олардың
кестеге енгізілу тәртібімен шығарады. Егер қолданушы кесте жазуларын
сұрыптаудың, мысалы бағана атауы бойынша тышқан батырмасын
шерткеннен кейін, тәртібін белгілеу және өзгерту мүмкіндігіне ие болса,
қолайлы болушы еді. TRxDBGrid компоненті Grid-тың бағана атаулары
батырма ретінде қолданыла алатындығын анықтайтын TitleButtons қасиетіне
ие. Оның мәні = False. True мәнінде бұл қасиетті бекітуде мұндай батырманы
басуды өндеу үшін және атауда батырма қасиеттерін бекіту үшін
OnTitleBtnClick оқиғаны қолдануға болады .
Қадам 1 – TRxDBGrid бағана атауларының батырмаларымен
Қадам 1 – TRxDBGrid бағана атауларының батырмаларымен
жұмыс
жұмыс
1. RxDBGrid1 компонентін қысқаша болуы үшін DBGrid1 (Name
қасиетін өзгерту) атауын өзгерту.
2. Объектілер инспекторында DBGrid1 үшін True мәнінде
TitleButtons қасиетін белгілеңіз.
3. unMain модуліне төменде қара шрифтпен көрсетілген екі
ауыспалының хабарламасын қосыңыз:
……………………………
var
fmMain: TfmMain;
NameSortField:string; Desc:boolean;
implementation
……………………………
NameSortField ауыспалысы әрі қарай сұрыптау өткізілетін кесте өрісін
анықтау үшін, ал Desc өсу немесе кему сұрыптау тәртібін анықтау үшін.
қолданылады.
4. fmMain формасы үшін төменде көрсетілген оқиға өндеуші
OnCreate құрыңыз:
procedure TfmMain.FormCreate(Sender: TObject);
begin
NameSortField:=DBGrid1.Columns[0].FieldName;
Desc:=False;
end;
5. DBGrid1 компонентінің төменде көрсетілген OnGetBtnParams
және OnTitleBtnClick оқиғалар өндеушілерін құрыңыз:
procedure
TfmMain.DBGrid1
GetBtnParams
(Sender: TObject; Field: TField; AFont: TFont;
var Background: TColor; var SortMarker: TSortMarker; IsDown: Boolean);
begin
if (Field <> nil) and (Field.FullName = NameSortField) then begin
if Desc then SortMarker:=smUp
else SortMarker:=smDown;
end;
end;
Достарыңызбен бөлісу: |