Клиент-сервер Автосалон теориясы

3.8-сурет  Password терезесі

     

3.9-сурет Автомобиль кестесі

Автосалон кестесі авто номері,аты,маркасы,модельі,цветі,беріліс қорабы,жүрілген жолы,көлемі,кузовы,қаласы,  кепілдеме жылы,бағасы,колемі өрістерінен тұрады.Мұнда авто номері Gen1 генераторы арқылы енгізіледі.Кейін батырмасы арқылы кестелер тізімі формасына өтуге болады.

                                           

3.10-сурет Кестелер

Кестеде енгізу, өзгерту, жою, қалпына келтіру командалары арқылы мәліметтермен алмасу жүзеге асырылады.  

Енгізу батырмасының коды:

procedure TForm1.Button1Click(Sender: TObject);

begin

with datamodule2.IBquery1 do begin

sql.clear;

sql.add('insert into avto(avto_MARKA,avto_MODEL,avto_CVET,avto_KPP,avto_PROBEG,avto_OBEM,avto_KUZOV,avto_city,avto_guarantee,avto_cena,avto_count)');

sql.add('values('''+edit2.Text+''','''+edit3.Text+''','''+edit4.Text+''', '''+edit5.Text+''','''+edit6.Text+''','''+edit7.Text+''','''+edit8.Text+''','''+edit9.Text+''','''+edit10.Text+''','''+edit11.Text+''','''+edit12.Text+''');');

execsql;

sql.clear;

sql.add('select * from avto');

open;

end;

end;

Өзгерту батырмасының коды:

procedure TForm1.Button2Click(Sender: TObject);

begin

with datamodule2.IBquery1 do

  begin

    close;

    sql.Clear;

    sql.add('update avto set avto_MARKA = '''+edit2.Text+''',avto_MODEL = '''+edit3.Text+''',avto_CVET = '''+edit4.Text+''',avto_KPP = '''+edit5.Text+''',avto_PROBEG = '''+edit6.Text+''',avto_OBEM = '''+edit7.Text+''',avto_KUZOV = '''+edit8.Text+''',avto_city = '''+edit9.Text+''',avto_guarantee = '''+edit10.Text+''',avto_cena = '''+edit11.Text+''',avto_count = '''+edit12.Text+''' where avto_id = '''+edit1.Text+''';');

    execsql;

    close;

    sql.Clear;

    sql.add('select * from avto');

    open;

  end;

end;

 

end.

Жою батырмасының коды:

procedure TForm1.Button3Click(Sender: TObject);

begin

edit1.text:=datamodule2.IBquery1.fieldbyname('avto_id').Asstring;

if messagedlg ('Сiз шынымен жоясыз  ба?', mtconfirmation, [mbYes,mbNo],0)=mryes then begin

with datamodule2.IBquery1 do begin

close;

sql.clear;

sql.add('delete from avto ');

sql.add('where avto_id = '''+edit1.Text+''';');

execsql;

sql.clear;

sql.add('select * from avto');

open;

end;

end;

 

end;

Автосалон кестесі сатып алушы аты, ид_клиенті, төл құжат номері,  аты, фамилиясы,тегі,адресі,телефоны өрістерінен тұрады (3.11-сурет).Мұнда автосалон аты сатып алушы кестесінен алынады.

       

                                 

                                     3.11-сурет  Сатып алушы кестесі

Оқытушы кестесі табель номері, пән номері, фамилиясы, қызметі, ғылыми атағы, жынысы өрістерінен тұрады.Мұнда жынысы poltype домені арқылы таңдалып алынады және пән номері өрісі арқылы кафедра пән кестесімен байланысады(3.12-сурет).

                     

                     

                                   3.12-сурет Оқытушы кестесі         

      Басты беттегі Қолданушы кестесі арқылы кестелер тізіміне өтеміз.

                                               

                                             3.13-сурет Кестелер

Кафедра пән батырмасын басқанда кафедра-пән кестесін көреміз.

                  

                                             3.14-сурет Кафедра-пән кестесі

Бұл кестеде кафедра атауы, кафедра номері, пән номері, пән  атауы, сағат саны өрістері арқылы қолданушы сұрыптау және іздеу жүргізе алады.

Сұрыптау коды:

procedure TForm11.RadioGroup2Click(Sender: TObject);

var s,k:string;

begin

case radiogroup2.ItemIndex of

0:begin

ibquery1.Close;

ibquery1.SQL.Clear;

ibquery1.SQL.Add('select * from k_pan');

case radiogroup1.ItemIndex of

   0: s:='order by kaf_name';

   1: s:='order by kaf_nom';

   2: s:='order by pan_nom';

   3: s:='order by pan_name';

   4: s:='order by sag_san';

   end;

   s:=s+'';

ibQuery1.sql.add(s);

ibQuery1.open;

end;

1:begin

ibquery1.Close;

ibquery1.SQL.Clear;

ibquery1.SQL.Add('select * from k_pan');

case radiogroup1.ItemIndex of

   0: s:='order by kaf_name';

   1: s:='order by kaf_nom';

   2: s:='order by pan_nom';

   3: s:='order by pan_name';

   4: s:='order by sag_san';

   end;

   s:=s+' desc';

ibQuery1.sql.add(s);

ibQuery1.open;

end;

end;

end;

 

Іздеу батырмасының коды:

procedure TForm11.Button1Click(Sender: TObject);

var s:string;

begin

ibQuery1.Close;

ibQuery1.SQL.Clear;

ibQuery1.SQL.Add('select * from kaf_pan');

case radiogroup3.ItemIndex of

0:s:='select*from kaf_pan where kaf_name='''+edit1.text+'''';

1:s:='select*from kaf_pan where pan_name='''+edit1.text+'''';

2:s:='select*from kaf_pan where sag_san='''+edit1.text+'''';

ibQuery1.SQL.Add(s);

ibQuery1.Open;

end;

end;

Емтихан батырмасын басқанда емтихан терезесі және сынақ кітапшасының номерін енгізгенде сақталымды процедура арқылы жаңа кесте ашылады.

         

                                             3.15-сурет Экзамен кестесі

Сынақ кітапшасы номері батырмасының коды:

procedure TForm14.Button1Click(Sender: TObject);

begin

begin

with ibquery2 do begin

close;

sql.Clear;

sql.Add('select * from p1('''+edit5.Text+''')');

open;

end;end;end;

end.

 

 

 

 

 

 

    

 

 

 

 

 

 

 

 

 

 

                                                 Қорытынды

 

Курстық жұмыс  ақпараттық және компьютерлік технология аймағындағы, адамзат қызметі саласындағы өзекті мәселелердің бірін шешуге арналған, яғни жаңа технологияларды қолданып, мәліметтер қорын құру есебі қарастырылған.

Курстық жұмыстың негізгі қойылымы: мәліметтер қорын құру есебін шешу мақсатында, мысал ретінде, кафедра бойынша экзамен нәтижелері туралы мәліметтерді сақтайтын, оларға енуді  ұйымдастыратын, оны басқаратын мәліметтері қорын құру.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Әдебиеттер тізімі

 

1.  Агальцов В.П. Базы  данных.-М:Мир,2002.-376с 

2. Александровский Г., Шубин  А. Delphi для профессионалов, М., ДМК,  2000 г.

3. Архангельский А.Я. Язык SQL в Delphi 5.-М:Бином,2000-208с. .ил- (Все  о    Delphi)

4. Архангельский А.Я. Разработка  прикладных программ для Windows в   Delphi 5.-М:Бином,1999-256с.ил-(Все  о Delphi)

5. Архангельский А.Я. Программирование  в Delphi7.-М.:ООО «Бином-Пресс», 2005г.-1152с.:ил.

6. Баженова И.Ю. Delphi6.Самоучитель  программиста-М.: Кудиц-   Образ,2002.-432 с.

7. Бобровский С. Delphi5 Учебный  курс.-Спб.: Питер, и 2002-640с.

8. Гофман И.Э. Хомоненко  А. Д..Delphi 5 -СПб.: БХВ- Санкт –Петербург.2000г.

9. Дейт К. Введение в  системы баз данных. М., Наука, 1980

10. Диго С.М. Проектирование  баз данных, М., Финансы и статистика, 1999

11. Кандзюба С.П.Delphi 6. Базы  данныхприложения:Лекции и упражнения    /Кандзюба С.П., Громов В.Н.-М: Диа-Софт.2001-576 с.

12. Кенту Марко. Delphi 5 для  профессионалов. СПб.: Питер,2001-944 с:ил-/ в  пер.

13. Козлов М.В. Разработка  локальных баз данных в Delphi – Уральск :     Западно-Казахстанский  ЦНТИ, 2009-98с.

14. Фаронов В.В. Delphi 5. Учебный  курс.-М.: «Нолидж»,2001г.-608с.,ил.

15. Фаронов В.В., Шумаков  П.В. Delphi 5 Рукаводство разработчика  базы      данных-М.: «Нолидж».2000 г.

16. Томас Коннолли, Каролин  Бег, Анна Страган. Базы данных  проектирование, реализация и сопровождение.  Теория и практика, 2-е изд.:     Пер. Сангл.: Уч.Пос:-М.: издательский  дом «Вильямс».2000 г.

17. Шекербеков Ш.Т. Мәліметтер  қорын жобалау.Оқу-әдістемелік құрал.-   Алматы, Абай атындағы ҚазҰПУ,2004.-135 бет.

18.ХомоненкоА.Д., Цыганков  В.М., Мальцев М.Г. Базы данных: учебник для высших учебных  заведений, СПб, 2002  

19. Microsoft Office 2003 для учителя. Учебное пособие для учителей-предметников. Microsoft, 2005.

20. Нургалиева Г.К. и др. Педагогические технологии информатизации образования. – Алматы: РЦИО, 2006.

21. Основы работы с компьютером. Руководство пользователя. Корпорация Microsoft, 2004.