If OpenPictureDialog1.Execute then begin

Begin

1. 
   Қалыпқа Table3 компонентін орналастырамыз. Table3-ң қасиеттерін көрсетеміз:
   

1. 
   Name - “LinkedTable” деп атайық.
   
2. 
   DataBaseName - Firma1 болады.
   
3. 
   TableName - Order.db болады.
   

2. 
   “Тапсырысдар” және “Тауарлар” кестелері арасында байланыс орнатамыз:
   

1. 
   Active – False ltqv3p
   
2. 
   Жоғарғы мәзірдің Tools - DeskTop командасымен Оrder.db тәуелді кестені ашамыз.
   
3. 
   Осы кесте үшін басшы өрісті индекстейміз. Индекстеу кезінде жазулар алфавит бойынша орналасады: Table – Restructure командасын орындаймыз.
   
4. 
   Пайда болған терезедегі Table Properties қасиетіндегі ашылатын тізімнен индекстелетін басшы өрісті көрсетеміз, ол WaresNum болсын. Оған SecondaryIndexes деп қоямыз.
   
5. 
   Define батырмасын басамыз, сонда мәліметтер қорында бар өрістер тізімі шығады, бзге қажеті WaresNum деп көрсетіп Indexed Fields – инддекстелетін өрістер тізіміне енгіземіз де OK батырмасын басамыз.
   
6. 
   Пайда болған терезеде индекстелген файл атауын WaresNumIndex деп жазып OK , сосын Save батырмаларын басамыз.
   
7. 
   Desktop кестесін, Desktop терезесін жабамыз.
   

3. 
   Тәуелді кестенің қасиеттерін көрсетеміз: Ол үшін қалыптағы Table3 компонентін белгілейміз де:
   

1. 
   MasterSource - DataSource1 деп, негізгі кестемен байланыстырылатын звеноны көрсетеді.
   
2. 
   IndexName – WaresNumIndex деп қолданылатын индексті көрсетеміз.
   
3. 
   MasterFields қасиетінде байланыстырылатын өрістер тізімі көрсетілуі керек, ол үшін “…” батырмасын басамыз. Пайда болған терезедегі DetailFields тізімінде WaresNum жолын, MasterFields тізімінде WaresID жолын көрсетіп ADD, сосын OK батырмаларын басамыз.
   
4. 
   Барлық кестелердің Active қасиетін True деп қоямыз.
   

4. 
   Қалыпқа TDBGrid3, DataSource3 компоненттерін орналастырамыз.
   

1. 
   DataSource3 компонентінің DataSet қасиетін LinkedSouce деп береміз.
   
2. 
   TDBGrid3 компонентінің DataSource қасиетін DataSourse3 деп береміз.
   

5. 
   Құрылған қосымшаны орындау үшін F9 пернесін басамыз. Нәтиженің орындалуын бақылаймыз.
   

1. 
   Вариантыңыз бойынша құрған деректер базасына қатысты қалып пен база арасында байланыс орнатыңыз.
   
2. 
   Әр компоненттің қасиетін анықтаңыз.
   
3. 
   Құрылған кестелерді экранға шығаруды ұйымдастырыңыз.
   
4. 
   Деректерді торкөз түрінде шығаруды орындаңы.
   
5. 
   Деректерді басқа да түрмен экранға шығаруды ұйымдастырыңыз.
   
6. 
   Қосымшада келтірілген деректер базаларын құрыңыздар.
   
7. 
   Өз беттеріңізбен қосымшада келтірілген “Клиенттер” және “Тапсырыстар” кестелерін байланыстырыңыздар.
   

№3 – зертханалық жұмыс.

Мысал: «Client.db» кестесінде «Клиент жасы», «Сумма» есептелінетін өрістер құру керек болсын.

Деректерді кестеге код көмегімен енгізу.

1. 
   Жаңа Form2 қалыбын құрамыз да Unit1 және Unit2 модульдерді байланыстырамыз:
   

1. 
   Негізгі Unit1модулінде қолданылатын Unit 2 модулін сипаттаймыз. Ол үшін Uses… сөзінен кейін Unit2 деп толықтырып жазамыз.
   
2. 
   Қолданылатын модульде негізгі модульді сипаттаймыз. Ол үшін implementation сөзінен кейін {$R*.DFM}сөзіне дейін Uses Unit1 деп жазамыз.
   

2. 
   Form2 калыпқа Win32 компоненттер панелінен MonthCalendar1- календарь, Additional панелінен екі BitBth компоненттерін орналастырып, олардың Kind қасиеттерінде сәйкесінше OK және Cancel деп көрсетеміз. Терезені безендіру үшін Shape компонентін қолдануға болады. Оның сырт бейнесі немесе пішіні Shape қасиетінде көрсетіледі.
   
3. 
   Form1 қалыбындағы кестеде есептелінетін өріс ұяшығында Button1 компонентін орналастырып, тақырыбын “…” деп береміз. OnClick оқиғасы үшін мына программалық кодты жазамыз:
   

4. Form2 қалыбында OK батырмасы үшін программалық код жазамыз:

Квадрат жақшадағы индекс келесідей анықталады: Table1 компонентін 2 рет басып, шыққан терезеде контекстік мәзір шақырып одан AddAllFields командасын орындау керек. Объектілер инспекторы терезесінде DateOfBirth қасиеті үшін Index жолында 9 деп көрсетеміз.

4. 
   Есептелетін өрістер үшін программалық код жазамыз:
   

1. 
   Table1 компонентін белгілеп AutoCalcFields қасиетінде True дейміз.
   
2. 
   Table1 компонентін 2 рет басып контекстік мәзірден AddAllFields командасын орындаймыз да есептелінетін өрістерді белгілейміз, Мысалы: Age өрісі, қасиеті FieldKind - FkCalculatedболады. Сосын Form1.Table1 терезесін жабамыз.
   
3. 
   Table1 компонентін белгілеп OnClickField оқиғасы үшін программалық код жазамыз:
   

Мұндағы Value – ағымдағы мән дегенді білдіреді. FormatedDateTime функциясы датаны шығару әдісін өзгертуге мүмкіндік береді. Ағымдағы датаны Date функциясы шығарады.

1. 
   Құрылған деректер базасын ашып, кестелерін экранға шығарыңыз.
   
2. 
   Деректер базасына есептелетін өрістерді қолданыңыз.
   

1. 
   Деректер базасындағы жазуларды реттеуді көрсетіңіз.
   
2. 
   Деректер базасы бойынша ќарапайым сұраныс ќұру.
   

• 
  Сандық өрістегі жазулар санын анықтау
  
• 
  Белгілі бір өрістің қортындысын анықтау
  
• 
  Берілген шартты қанағаттандыратын жазу өрістерін шығару
  

№4-зертханалық жұмыс.

“Фильтр – сүзу”(2 сағ.).

Деректер кестесі жазуларынан белгілі бір шартты қанағаттандыратын жазуларды сүзіп алу сұраным немесе фильтр деп аталады. Шарт Filter қасиетінде өрнек түрінде жазылады. Сұранымдар көбіне SQL арнаулы тілінде жазылады. Бұл тіл барлық ДББЖ-де құпталған. Filter қасиетінде жазылған мәнді Delphi ортасы автоматты түрде SQL сұранымына айналдырады да қай ДББЖ-н қолданып отырсаңыз, сол типке сәйкес орындалады. Программаны орындауға жібергенде DBGrid тізімінде шартты қанағаттандыратын жазулар ғана шығады.

Мысалы; “Wares.db” және “Order.db“ кестелерінде сүзу операциясын жүргізу керек болсын.

1. 
   Қалыпқа тақырыптары “тауар атауы бойынша”, “тауар бағасы бойынша”, “Тапсырысдар саны бойынша” деп аталатын үш TradioButton компоненттерін, “Мән” деп аталатын Tlabel компонентін, деректерді енгізу үшін Tedit компонентін, “Сүзу” және “Сүзуді алып тастау” деп аталатын екі Tbutton компоненттерін орналастырамыз.
   
2. 
   Код көмегімен Filter қасиетіне шарт береміз. Filter қасиеті – деректерді сүзіп шығару шарты. Filtered – сүзуді орындау.
   
3. 
   Tbutton OnClick
   

Table2.Filtered:=False;

Table1.Filter:=’Price’+’ ‘ +Edit1.Text+’ ‘;

If RadioButton3.Checked=true then begin

Table1.Filter:=’Amount=’+’ ‘ +Edit1.Text+’ ‘;

End;

Table1.Active:=True;

Table1.Filtered:= True;

Table2.Active:= True;

Table2.Filtered:= True;

Тапсырма:

1. 
   Өз құрған деректер базаңыз бойынша жазуларға, өрсітерге фильтр операциясын қолдануды көрсетіңіз.
   

№5-зертханалық жұмыс.

“Сұраныс құру” (2 сағ.).

1. 
   Сұраныс құру компоненті Tquery:
   

Оператордың жазылуы келесідей: SELECT өрістер тізімі FROM кесте атауы;

Мысалы: SELECT Name, Salary FROM Client.db .

Паскаль тіліндегідей Select, From сөздері SQL тілінің резервтегі кілттік қызметші сөздері ретінде қабылданған. SQL операторларын бас әріптермен жазу керек. EnterSQL (SQL тілінің операторларын енгізу) бөлігінде жоғарыдағы жолды жазып, Execute Query (сұранымды орындау) батырмасын бассақ екі өрістен тұратын уақытша деректер жиыны деп аталатын деректер кестесін аламыз.

Егер сұранысқа барлық өрістерді енгізу керек болса, * символын көрсетеді. Мысалы:

Select * From Client.db

Мысалы: SELECT * FROM Client.db WHERE Cash>=120000 and Cash<=1000000

Мысалмен қарастырамыз: Client.db кестесінде сұраныс құру керек болсын.

1. 
   DataAccess панелінен Form1 қалыбына Tquery компонентін орналастырамыз. Ол Ttable компонентінің онына қолданылады.
   
2. 
   Қалыпқа TDBGrid, TdataSource компоненттерін орналастырамыз. Қасиеттері:
   

1. 
   TdataSource:Dataset - Query1 мәнін береміз.
   
2. 
   Query1 компоненті үшін DataBaseName - Firma1 болсын.
   

3. 
   Объектілер инспекторы терезесінде SQL қасиетіндегі “…” батырмасын басамыз. Бұл жолда SQL тіліндегі команданы жазамыз. Мысалы:
   

4. 
   Query1 компонентінің Active қасиетін True дейміз.
   

Сұранымды қосымшада құру

Мысалмен қарастырамыз:

1. 
   Жаңа қосымша құрамыз.
   
2. 
   Қалыпта TDBGrid, Tquery, TdataSource компоненттерін орналастырамыз. Олардың қасиеттерін көрсетеміз. Client.db кестесін қолданайық.
   
3. 
   Барлық сатып алушы клиенттер шығару керек болсын. Қалыпқа Tbutton компонентін орналастырып “Filter” деп атаймыз. Tedit өрісіне сатып алушы фамилиясын енгізгенде осы клиент үшін барлық деректі торкөз түрінде шығаруы керек болсын. Tquery компонентінің Append қасиетін қолданамыз.
   
4. 
   “ Filter” компонентін басу оқиғасына программалық код жазамыз:
   

Begin

If Edit1.Tet<>’ ‘ then Begin

Query1.Active:=False;

Query1.SQL.Clear;

Query1.SQL.Append(‘select client.db where Name.Like’+’ ’+ Edit1.Text+’ ’);

Query1.Active:=True;

End;

Else Begin

Query1.Active:=False;

Query1.SQL.Clear;

Query1.SQL.Append(‘select * from client.db);

Query1.Active:=True; End; End;

5. 
   Қосымшаны орындауға жіберіп фамилияны енгізген соң “Filter” батырмасын басамыз.
   

! Ескерту. Фамилияны жартылай жазуға болады.

! Ескерту. Жаңа сұраным құру үшін Edit1 өрісін тазалап қайтадан “Filter” батырмасын басу керек. Сонда барлық өрістер шығады.

Тапсырмалар:

1. Деректер базасы бір бірімен байланысатын екі немесе одан көп кестелерден тұрсын. Бірнеше кестелер арасында байланыс орнату. Схемасын көрсету.

2. 
   Деректер базасы бойынша сұраныстардың түрлерін құрып көрсету:
   

- қарапайым сұраныс құру.

- сұранысты компоненттер көмегімен құру.

- сұраныс құрудың программалық кодын қолдану.

- барлық деректерді қолданып толық нәтижелі сұраныс құру.

№6- зертханалық жұмыс.

“Кестеде іздеу”(2 сағ.).

Үлкен кестелерден белгілі бір жазуларды таңдау қажет болса оларды алдымен іздеп тауып алған дұрыс. Іздеу операциясы мына әдіспен орындалады:

Function.Locate(const KeyFields: string; const KeyValues: Variant; Options: TlocateOptions) : boolean;

Бұл әдісте параметрлер ретінде өрістер атауралы алынады.

Мысал қарастырайық. Client.db кестесінде іздеу операциясын қолдану керек болсын.

1. 
   Form1 қалыбында тақырыптары «адам есімі бойынша іздеу», «телефон номері бойынша іздеу», «Адрес бойынша іздеу» болатын үш TradioButton компоненттерін, «Іздеу шарты» деп аталатын Tlabel компонентін, деректерді енгізуге арналған Tedit компонентін, «Іздеу» деп аталатын Tbutton компонентін орналастырамыз.
   
2. 
   Locate әдісін қолданамыз. Келесі ретпен жазамыз:
   

1. 
   кілттік өріс
   
2. 
   іздеуге жататын дерек қайдан алынады
   
3. 
   іздеу параметрлері:
   

а) LoCaseInsensitive – бас әріптер есепке алынбайды

б) LoPartialKey – дербес кілт

3. 
   «Іздеу» компонентіне программалық код жазамыз:
   

Var

KeyField:string;

Begin

If RadioButton1.Checked=treu then Begin

KeyField:= ‘ClientName’;

End;

If RadioButton2.Checked=True then begin

KeyField:=’Phone’;

End;

If RadioButton3.Checked=True then begin

KeyField:=’Adress’;

End;

Table1.Locate(KeyField.Edit1.Text, [LoCaseInsensitive.LoPartialKey]);

End;

Тапсырма:

1. 
   Деректер базасында белгілі бір шарттарды қанағаттандыратын өрістер жазуларын іздеу операцияларын көрсету:
   

- біртіндеп іздеу

- бинарлы іздеу программалық кодтарын құру.

№7- зертханалық жұмыс.

“Есеп құру”(3 сағ.).

Есеп – мәліметтер қорындағы жазулардан құжат түрінде аяқталған нәтиже береді. Ол нәтижені бірден принтерге жіберуге болады. Qreport (Есеп) панелінен TquickRep 3.0.5. компонентін құру осы проблеманы шешеді. Qreport панелінің басқа да компоненттері есептің қажетті элементтерін көрсетуге көмектеседі. Әр компоненттің Band деп аталатын жолағы болады. Есепте келесі негізгі компоненттер қолданылады:

Есеп жолағы компоненті TQRBand: Есепте белгілі бір элементтерді орналастыру, топтау бейнелеуін көрсетеді. TquickRep бейнелеуді көрнекі түрде орындайды.

Есеп тақырыбы компоненті TQRLabel: Tlabel компонентіне ұқсас. Есепте қажетінше мәтін жазуға көмектеседі.

Шығару өрісі компоненті TQRDBText: Деректер жиынынан өріс мәндерін шығару үшін қолданылады. Деректер жиыны DataSet қасиетінде көрсетіледі. Ал қажетті белгілі бір өріс DataField қасиетімен көрсетіледі. Компонент орналасқан жолақ мәні BandType - rbDetail болуы керек. BandType қасиетінің одан басқа да мәндері бар:

RbTitle – есеп тақырыбы

RbPageHeader – жоғарғы колонтитул

RbDetail – жазу тақырыбы

RbPageFooter – төменгі колонтитул

RbSummary – есеп қортындысы

RbColumnHeader – баған тақырыбы

RbGroupFooter – бөлім тақырыбы

RbGroupHeader –бөлім қортындысы

Алдын ала қарау компоненті TQRPreview: Құрылған есепті баспаға шығармай тұрып алдын ала қарауға көмектеседі. Ол .шін OnPreview оқиғасына Preview әдісін шақырады. Есеп құруға мысал келтірейік: “Тауарлар”, “Клиенттер”, “Тапсырысдар” кестелерін қолданамыз. Ол үшін жаңа қалып құрамыз. Себебі әр есеп әр терезеде құрылады.

1. 
   File – New Form командасын орындаймыз. Unit1 және Unit2 модульдерін байланыстырамыз.
   
2. 
   Qreport панелінен Form2 қалыбына QuickRep – жылдам есеп компонентін орналастырамыз. QuickRep1 қасиетін көрсетеміз.
   
3. 
   DataSet - Table1 деп қолданылатын кестені көрсетеміз.
   
4. 
   Bands қасиетінде “+” батырмасын басамыз:
   

А) HasTitle - есеп тақырыбына берілетін облыс. Тақырыпты Qreport панеліндегі QRLabel1 компонентінің көмегімен жазамыз.

Б) HasColumnHeader – есепте көрінетін өрістер атауларына берілетін облыс.

В) HasDetail – кестелерден алынатын деректерге бөлінетін облыс (детализация облысы деп аталады). Оны көрнекілеу үшін QRShape1 компонентін қолданады.

5. 
   Кестеден деректерді шақыру QRDBText компонентінің көмегімен орындалады. Оның екі қасиетін көрсетеміз:
   

А) DataSet - Table1 деп.

Б) DataField - Name, Price, т.б. деп өріс атауларын көрсетеміз.

6. 
   Құрыған есепті көру үшін контекстік мәзірден Preview командасын орындаймыз. Пайда болған терезеде PrintPreview батырмасын басамыз
   
7. 
   Есеп облыстарының келесі қасиеттері бар:
   

1. 
   HasPageFooter – төменгі колонтитул
   
2. 
   HasPageHeader – жоғарғы колонтитул, қосымша QRLabel1, QRLabel2 компоненттерін қолданып, “Фирма1” дейміз
   

8. 
   Есептің жалпы қасиеттері:
   

1. 
   Options - “+”
   
2. 
   FirstPageHeader – бірінші бетте жоғарғы колонтитул бар ма, көрсету (True немесе False).
   
3. 
   LastPageFooter - соңғы бетте төменгі колонтитул бар ма, көрсету (True немесе False)
   
4. 
   HasSummary – қортынды жасау облысы True дейміз. QRLabel1, QrLabel2 компоненттерін орналастырып «Сатып алушы клиенттер саны» т.б. деп жазамыз
   

9. 
   Form1 қалыбында “Қарау” батырмасын орналастырып, оны басқанда есеп құратын программалық кодта Preview әдісін жазамыз:
   

Begin

If Radiogroup1.ItemIndex=0 then Begin

Form2.QRLabel14.Caption:=DatetoSte(Date);

Form2.QRLabel16.Caption:=TimetoSte(Time);

Form2.QRLabel20.Caption:=IntToSte(Table1.RecordCount);

Form2.QuickRep1.Preview;

End;

Тапсырмалар:

1. 
   Деректер базасы бойынша белгілі бір есеп құру.
   
2. 
   Form1 қалыбында “принтерге шығару” деген атаумен Button2 батырмасын орналастырып, оны басқанда есепті принтерге шығаратын программалық кодты өз беттеріңізбен жазыңыздар. Print әдісі қолданылады.
   

Жалпы есеп құру

Мысалмен қарастырайық: Байланыстырылған «Тауарлар», «Клиенттер», «Тапсырысдар» кестелерін қолданамыз.

1. 
   Жаңа қалып құрамыз.
   
2. 
   Qreport панелінен қалыпқа QRSubDetail1 компонетін орналастырамыз. Бұл қосымша деректерді детализациялау үшін бөлінетін облысты көрсету үшін қажет. Қасиеттерін қөрсетеміз:
   

1. 
   DataSet – LinkedTable дейміз
   
2. 
   QRSubDetail1 облысында DBText12, 13, …, Label12, 13, … т.б. компоненттерді орналастырамыз. Атауларын береміз.
   
3. 
   Барлық DBText12, 13, … компоненттерінің DataSet, DataField қасиеттерін анықтаймыз.
   

3. 
   Есепті көру ұшін контекстік мәзірді шығарып Preview командасын орындаймыз да, шыққан терезеде PrintPreview командасын орындаймыз.
   

Тапсырмалар:

Деректер базасының шектеулі атрибуттарын қолданып есеп құру.

Деректер базасын қолданып есепті құрудың әдістерін көрсету.

Есеп жолағы компонентін қолданып есеп құру.

Есеп тақырыбы компонентін қолданып есеп құру.

Алдын ала қарау компонентін қолданып есеп құру.

3. СТУДЕНТТЕРДІҢ ӨЗДІК ЖҰМЫСЫ
3.1. сӨж Тапсырмалары

1. 
   Unit1.pas редактор коды терезесі
   
2. 
   Компаненттер қосымшасы
   
3. 
   Standard қосымшасы
   
4. 
   Additional қосымшасы
   
5. 
   Win32 қосымшасы
   
6. 
   Dialogs қосымшасы
   
7. 
   Диалогтық функциялар мен процедуралар
   
8. 
   Файлдық жүйедегі жұмыс үшін
   
9. 
   Нақты сандармен жұмыс үшін
   
10. 
    Айналдыру функциялары мен процедуралары
    
11. 
    Реттік мәндермен жұмыс үшін
    
12. 
    Статистикалық функциялар мен процедуралар
    
13. 
    Char жолымен жұмыс істеу функциялары
    
14. 
    Тригонометриялық функциялар мен процедуралар
    

СӨЖ-ні жүргізу түрі: Тақырыптар бойынша сұрақтарға ауызша және жазбаша жауаптар берілуі керек.

3.2. СОӨЖ тапсырмалары:

Дельфи қосымшасын қолданып 1- таблицада келтірілген деректер базаларының тақырыптары бойынша өрістерді өздеріңіз анықтап деректер базасын құру.Атрибуттар атауларын және қасиеттерін өздеріңіз анықтаңыз. Оны кемінде 10-15 жазумен толтырыңыз.

Деректер базасының әр атрибутына сәйкес қалыпқа компонент орналастырып, олардың қасиетін анықтаңыз. ТАБЛИЦА №1

Вариант №	Деректер базаларының тақырыптары
1	Мектепте жоғарғы сыныптағы оқушылар және олардың оқу үлгерімі туралы
2	Мектептегі қызметкерлер структурасы туралы
3	Мектепте төменгі сыныптағы оқушылар және олардың оқу үлгерімі туралы
4	«Трансаэро» компаниясының қызметі туралы
5	«Темір жол» кестесі туралы
6	Кітапханадағы әдебиеттер құрылымы туралы
7	Кітапханадағы қызметкерлер туралы
8	Студенттердің ГТО нормасы туралы
9	Қазақстанның футбол командалары және олардың көрсеткіштері туралы
10	Қазақстанның хоккей командасының ойындары мен ойыншылары туралы
11	Бала бақша қызметі туралы
12	«Орифлейм» косметикамен айналысу фирмасының қызметі туралы
13	Университеттің профессорлық-оқытушылық құрамы туралы
14	Университеттің администраторлық қызметі туралы
15	Әуе жолы кестесі туралы
16	Жоғарғы оқу орындарын тәмәмдаушыларды тарату жұмыстары бойынша
17	Студенттердің стипендия алу структурасы бойынша
18	Сынақ - Емтихан тапсыру ведомосы туралы
19	Спорттың бір түрі бойынша жарыс қортындысы туралы
20	Университеттің күндізгі оқу бөлімі бойынша студенттік құрамы туралы
21	Сиднейде өткен олимпиада қортындысы туралы
22	Кітап сатумен айналысатын фирмалар туралы ақпарат туралы
23	Бір мекеменің кадрлар бөлімінің жұмыс структурасы туралы

СОӨЖ-ні жүргізу түрі: Осы тапсырмаларды зертханалық сабақтардың тақырыптары бойынша орындау керек.

жүктеу 1,56 Mb.

Достарыңызбен бөлісу: