Құрастырушы: аға оқытушы Алимова Ж. С



жүктеу 3,39 Mb.
Pdf просмотр
бет51/64
Дата20.01.2020
өлшемі3,39 Mb.
#27116
түріБағдарламасы
1   ...   47   48   49   50   51   52   53   54   ...   64

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;


жүктеу 3,39 Mb.

Достарыңызбен бөлісу:
1   ...   47   48   49   50   51   52   53   54   ...   64




©g.engime.org 2024
әкімшілігінің қараңыз

    Басты бет
рсетілетін қызмет
халықаралық қаржы
Астана халықаралық
қызмет регламенті
бекіту туралы
туралы ережені
орталығы туралы
субсидиялау мемлекеттік
кеңес туралы
ніндегі кеңес
орталығын басқару
қаржы орталығын
қаржы орталығы
құрамын бекіту
неркәсіптік кешен
міндетті құпия
болуына ерікті
тексерілу мемлекеттік
медициналық тексерілу
құпия медициналық
ерікті анонимді
Бастауыш тәлім
қатысуға жолдамалар
қызметшілері арасындағы
академиялық демалыс
алушыларға академиялық
білім алушыларға
ұйымдарында білім
туралы хабарландыру
конкурс туралы
мемлекеттік қызметшілері
мемлекеттік әкімшілік
органдардың мемлекеттік
мемлекеттік органдардың
барлық мемлекеттік
арналған барлық
орналасуға арналған
лауазымына орналасуға
әкімшілік лауазымына
инфекцияның болуына
жәрдемдесудің белсенді
шараларына қатысуға
саласындағы дайындаушы
ленген қосылған
шегінде бюджетке
салығы шегінде
есептелген қосылған
ұйымдарға есептелген
дайындаушы ұйымдарға
кешен саласындағы
сомасын субсидиялау