Қонақ үй мәлімет қорын құру

 

 «Нөмірлер» беті қонақ үйдің нөмірлері туралы ақпараттарды қамтиды.

 

2-сурет. «Нөмірлер» беті

 

 «Клиенттер» бетінде қонақ үй клиенттері туралы мәліметтер бар.

 

3-сурет. «Клиенттер» беті

 

 «Танысу» беті екі бөлікке бөлінген: бірінші бөліктен бос нөмірлермен танысуға мүмкіндік берсе, екінші бөлікте – бос емес бөлмелер.

 

4-сурет. «Танысу» беті

 

 «Толығырақ» батырмасын таңдау арқылы ақпараттармен толық танысуға болады.

 

5-сурет. «Толығырақ» батырма

6-сурет. «Толығырақ» батырман таңдау

 

 «Тіркеу» бетінде қонақ үй нөмірі мен клиенттің аты-жөні, сонымен қатар қонақ үйде болған уақыты тарлы мағлұматтар берілген.

 

7-сурет. «Тіркеу» беті

 

 «Тіркеу карточкасы» батырмасын таңдау арқылы есеп ашылады.

 

8-сурет. «Тіркеу карточкасы» батырмасы

 

Программаның әрбір беттерінде жазбалардың бірінен екіншісіне көшуге мүмкіндік беретін навигациялық батырмалар орналасқан.

 

 

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

 

 

3.7  Қолданушыларға  арналған нұсқаулар

 

Бұл қосымша Delphi ортасындағы мәліметтер қорында жобаланған. Мұнда Мектеп басшылығына керекті барлық мәліметтер берілген. Мәліметтер файлымен жұмыс істейтін программаларды құруға мүмкіндік беретін Delphi ортасының құрамына кіретін компоненттер: Dbase-тен Infomix-ке дейін және Oracle. Сонымен қатар, Delphi программисттерге Borland Database Desktop утилиттерін пайдаланып, мәліметтер қорының файлын әртүрлі форматта құруға мүмкіндік береді.

Программалық бөлім мен аппаратураға қойылатын талаптар: Pentium 4 және жоғары процессорлы дербес компьютер; Оперативті сақтау құрылғысы 512 МБ, Windows Xp, видеоадаптер 32 разрядты ;

Программа дұрыс жұмыс істеу үшін  мынадай талаптар қойылады:

• Компьютерде Delphi7 немесе Delphi6, Microsoft Internet Explorer 5. 0   немесе  6. 0  проигрыватель Windows Media, Media Player Classic бағдарламалары қойылғанына көз жеткізіңіз.
• Қосымшаны басқа компьютерге алып барған  кезде, қосымшаны қатты дискіге көшіру керек және сол копьютерде псевдонимін қайтадан көрсетіп, қосымшаның адресін сілтеу  керек. Егер қосымшаның ішіндегі мәліметтердің адресі дұрыс көрсетілмеген болса, қосымша түгелімен ашылмай қалады.
• Бұл қосымшаны басқа компьютерге көшіру - флеш карта немесе компакт диск көмегімен жүзеге асады. Қосымшаның көлемі: 2,39 МБ (2 510 848 байт).

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

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ҚОРЫТЫНДЫ

 

Туризм жоғары табысты және қарқынды түрде дамып келе жатқан сала болып табылады. Әлемдік туристік ұйымның мәліметтері бойынша дүниежүзілік өндірістік – сервистік нарық айналымының – 10 %, әлемдік жиынтық ұлттық табыстың – 6 %, дүниежүзілік инвистицияның — 7 %, әрбір 9 — ы жұмыс орнын, дүниежүзі бойынша тұтынушылар шығындарының – 11 % және барлық салық түсімдерінің – 5 % туризм саласы қамтиды. Бұл мәліметтер туризм индустриясының жоғарғы экономикалық тиімділігірің айғағы болып табылады және таза экономикалық тиімділікке енетін туризмді дамыту арқылы қол жеткізуге болады. Сондықтанда туризмді дамытуға қонақ үй салалы үлес қосады. Себебі, қонақ үй туристер үшін сапалы қызмет көрсетеді, оларға барлық жағдайды жасайды.

ДТҰ, туризм жөніндегі мамандандырылған халықаралық ұйымдардың зерттеулерінің талдауына, сондай – ақ мемлекттердің туризмді дамыту саясатына сәйкес, туризм мемлекетінің әлеуметтік, мәдени және экономикалық өміріне тікелей ықпал ететін қызмет ретінде түсіндіріледі.  
Қонақ үй қызметінің саласы – бұл адамдар арасындағы қарым – қатынас, нақты алушы мен сатушы арасындағы байланыс. Яғни, қызмет көрсетушілердің күш жігері демалушыларға арналып, қонақтардың ойын жаулап алу мақсатында ауқымды дәрежеде қызмет көрсету. Туризм саласындағы қызметкерлердің нақты жұмыс барысы, жұмыс уақыты, демалыс уақыты тура белгіленсе, онда бұл салада үлкен жетістіктер,атақ абыройға ие бола алады.

Аз ғана уақытқа болса да туристер үшін қонақ үй – ақылы уақытша 
өз үйі. Ал үй ішінде адам өзін жақты сезіну, көтеріңкі көңілде болу, оны әрқашан көтеріңкі көңілмен күтіп алатындығына, оның барлық сұраныс түрлерін қанағаттандыратындығына сенімді болу шарт. Осындай жолмен ғана қонақ үйлерді туристердің екінші үйі ретінде, осы үйге қайта – қайта келу тілегін қалыптастыру керек.

Жалпы қонақ үй шаруашылығы бизнесін туристік бизнестен қарастыру мүмкін емес. Өйткені, қонақ үй шаруашылығы халықты жұмыспен қамтамасыз етеді және пайда табу көзі болып табылады.  
Қонақ үй шаруашылығы — әр бір мемлекеттің әлеуметтік, мәдени және экономикалық өміріне тікелей ықпал ететін қызмет түрі.

Дипломдық жұмысты қорыта келе, туризмнің валюталық кірістердің көзі, халықаралық байланыстарды нығайту, халықты жұмыспен қамту құралы ретіндегі рөлі күннен күнге артып келуде.

Туризм саласында қонақ үй шаруашылығы маңызды рөл алады.  
Өйткені, келген туристерге жоғары сапалы қызмет түрлерін ұсынады: орналастыру, тамақтандыру, бос уақытты ұйымдастыру, көлікпен қамтамасыз ету, экскурсиялар ұйымдастыру және т. б.

Қонақ үй классификациясы — бұл белгілі бір қонақ үйлері мен нөмерлерінің қызмет көрсету критерийлері немесе стандарттары бойынша сай келінуінің анықтамасын айтамыз. Қонақ үйлер жұлдызды 
короналық және разрядты жүйе болып бөлінеді. Сондықтанда, бұл әр елде әртүрлі жағдайға байланысты болып келеді. Оның ауқымдылығы мен туризм және саяхаттаудың кезекті көп түрлігінің келісімділігімен туристерді орналастырумен айналысатын мамандардың үйлесімді іс әрекетіне қарай саяхаттың әртүрлі мақсатына адамдардың материалдық сипатына, ұлттық құрамына географиялық жағдайына және табиғат ерекшелігіне байланысты. Қонақ үй классификациясы – қонақ үйдің қызмет көрсету сапасын қандай дәрежеде екенін ажырату үшін қажет.

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

Жалпы қонақ үй шаруашылық бизнесін туристік бизнестен қарастыру мүмкін емес. Өйткені, қонақ үй шаруашылығы халықты жұмыспен қамтамасыз етеді және пайда табу көзі болып табылады.

Қонақ үй шаруашылығы – қазіргі кезде табысы жоғары және серпінді дамып келе жатқан қызмет көрсетулердің сауда сегменттерінің бірі 
болып табылады.

Дипломдық жұмысымды қорытындылай келе, алдыма қойылған міндеттерді орындап, қойылған талаптарға сәйкес, жобас құрылды. Менің ойымша, жасалған әдістемелік құрал ашық түрдегі программалық өнім болып табылады, яғни программаға пайда болған сұрақтарға байланысты өзгертулер енгізуге мүмкіндік береді. Құрылған жоба мектеп басшылығының жұмысын жеңілдетуге септігін тигізетініне сенімдімін.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ҚОЛДАНЫЛҒАН ӘДЕБИЕТТЕР ТІЗІМІ

 

1. “Мәліметтер қорын жобалау” Оқу-әдістемелік құрал.  Шекербеков Ш. Т.  Алматы, 2004.
2. "Занимательное программирование:Delphi, М. Аст-Пресс Книга" 2001.
3. В. Пономарев. “Базы данных в Delphi” Питер, 2003.
4. В. Гофман, А. Хомоненко. “Delphi6” Санкт-Петербург, 1999.
5. Карпова Т.  Базы данных:модели, разработка, реализация. СПб.:Питер, 2001.
6. Фаронов В.  Программирование баз данных в Delphi 6.  Учебный курс. -СПб. : Питер, 2002.
7. Фаронов В.  Профессиональная работа в Delphi 6.  Библиотека программиста. -СПб. : Питер, 2002.
8. Дейт К. “Введение в систему базы данных” Пер. С анг. М.: Наука, 1990.
9. Мейер Д. “Теория реляционных баз данных” Наука, 1987.
10. Хомоненко А. Д. , Цыганков В. М. , Мальцев М. Г.  “Базы данных.  Учебник для высших учебных заведений” Под ред.  Прф А. Д. Хомоненко.  Санкт-Петербург: «Корона принт», 2000.
11. Н. Культин. “Delphi в задачах и премерах” СПб. : БХВ-Петербург, 2004.
12. Диго С. М.  “Проектирование баз данных.  Финансы и статистика”, 1990.
13. Нурбекова Ж. К. “Практикум решения задач на Delphi 5. 0” Учебно-методическое пособие.  Павлодар, 2001.
14. Бобровский С.  Delphi 5: Учебный курс. СПб. : Питер, 2000.
15. Елманова Н. , Трепалин С. , Тенцер А.  Delphi 6 и технология COM. -CПб. : Питер, 2002.
16. Жуков А.  Изучаем Delphi. СПб. : Питер, 2000.
17. Қ. З. Халықова, А. Р. Тұрғанбаева, Б. Ғ. Бостанов, «Объектілі-бағдарланған программалау жүйелерінің негіздері», Алматы, 2005.
18. Епанешников А. М. , Епанешников  В. А.  «Delphi 4 Среда разработки».  Учебное пособие М: Диалог – Мифи,  1999.
19. Культин Н.  “Программирование на Object Pascal» СПБ: БХВ – Санкт-Петербург, 1999.
20. Фаронов В. В. , Шумаков П. В.  «DELPHI 4  Руководство разработки баз данных”, М: Нолидж, 1999.
21. Шумаков П. В.  «DELPHI 3 и разработка приложений баз данных” М: Нолидж, 1998.
22. Драхведидзе М. Г. , Марков Е. П.  .  «DELPHI 4 среда визуального программирования” СП8:BHV –Санкт – Петербург, 1999.
23. Зубков А. А, Чибисов С. И.  Справочник работника гостиничного хозяйства.  – М. : Высш.Школа, 1988.
24. Папирян Г. А.  Экономика туризма.  М. : Финансы и статистика.  1999.
25. Семенов В. С. , Калининский И. М.  Гостиничное хозяйство: Справ.  Пособие. М. : Стройиздат, 1985.
26. Л. Д. Радчинко «Общая характеристика процесса обслуживания» Феникс, 2004.
27. Калашников А. Ю. «Кафе, бары и рестораны:» организация, практика.
28. Волков Ю. Ф. «Экономика гостиничного бизнеса» Издание второе, Ростов на Дону, 2001.
29. Волков Ю. Ф. «Введение в гостиничный и туристический бизнес» Феникс, Ростов на Дону, 2001.
30. Волков Ю. Ф. «Интеьер и оборудование гостиниц и ресторанов», Феникс, Ростов на Дону, 2001.
31. Ридель Х. «Бары и рестораны» Техники обслуживания Ростов на Дону, 2003.
32. Медлик С.  , Инграм Х.  «Гостиничный бизнес», Москва, 2005.
33. Мазбаев О. Б., Алишеева Р. Т.  «Правила по технической эксплуатации гостиниц», Москва, 2007.
34. Морозов М. А. «Экономика и предпринимательство в социально- культурном сервис», Москва, 2000.
35. Шматько Л. П. «Туризм и гостиничное хозяйство», Москва, 2005.
36. Рахметов Б. А.  « Персоналды басқару» Оқу құралы, Алматы, 2005.
37. Ланкина В. Е.  «Менеджмент организации»: Учебное пособие, Алматы, 2005.
38. Лесник А. Л. , Чернишев А. В.  «Практика в гостинично – ресторанном бизнесе» Алматы, 2000.
39. Ахметов К. Ғ., Сағындықов Е. Н..  «Менеджмент негіздері» Орал - Ақтөбе, 2005.  
40. Чудновского А. Д.  «Международное гостинечное хозяйство».  Уч.  Под.  Ред.  Проф. д-ра Rixos President Hotel Astana тарихи кітапшасы, 2005.
41. Рахимбаев Б. «Маркетинг» Теориясы және практикасы, Оқу құралы, Алматы, 2009.
42. Исмаилова А. С. , Байдақов А. Қ.  «Қаржылық және басқару талдауы», Алматы, 2003.
43. Торговое дело: экономика, маркетинг, организация / Под ред. Брагина Л. А. Кабушкин Н. И. , Бондаренко Г. А.  “Менеджмент гостиниц и ресторанов”, 2000.  
44. Арбузрва Н. Ю.  «Организация обслуживания в гостиницах и туристических комплексах», Алматы, 2009.
45. Қазақстан қонақ үйлер мен мейрамханалар Ассоциациясының статистикалық ақпараты (КАГиР).   Алматы, 20097.
46. Қазақстан Республикасының 2004 жылғы туризм.  Статистикалық жинақ, Алматы, 2005.
47. Туризм и гостиничное хозяйство.  Учебник // под. ред.  Чудновского А. Д. Трофимова И. , Мировойрейтинг гостиничных цепей за 2002. 
48. Забаева М. Н. Экономика гостиничного хозяйство Н. Новгород: Издательство «Штрих», 2001.  
49. Лесник А. Л. , Чернишев А. В.  «Практика в гостинично-рестораном бизнесе», Москва, 2000.
50. Супрунова В. Б. «Туризм: эволюция, структура, маркетинг», Москва 2001.  
51. Кабушкин Н. И. , Бондаренко Г. А.  «Менеджмент гостиниц и ресторанов», Москва, 2001.
52. Кабаева Р. А. «Роль маркетинга в деятельности элитных предприятий питания», Москва, 2004.
53. Папирян Г. А.  Менеджмент в индустрии гостепримства отели и рестораны. Алматы, 2000.
54. Мазбаев О. Б. , Омаров Қ. М. «Қонақ үй шаруашылығы»  
    Оқу құралы. Алматы, 2007.
55. Қазақстан Республикасының « Туризмді дамыту тұжырымдамасы » 
    Астана 2001 жыл.
56. Мазбаев О. Б. , Атейбеков Б. Н. «Туризм және өлкетану негіздері »,

Алматы, 2008.

57. Интернет.  www. RIXOS. com\astana 
58. Интернет.  sales@rixosastana. com 
59. Интернет.  www. Google. com 
60. Интернет.  www. stud. kz 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ҚОСЫМША

(Программалар листингі)

 

Form1 модулінің листингі

 

unit Unit1;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, DB, DBTables, ImgList, Menus, ComCtrls, ExtCtrls, Grids,

  DBGrids, StdCtrls, ToolWin, DBCtrls, Mask, Buttons, AppEvnts, jpeg,

  QuickRpt, QRCtrls;

 

type

  TForm1 = class(TForm)

    TableNOMER: TTable;

    TableKLIENTS: TTable;

    TableUSLUGA: TTable;

    PageControl1: TPageControl;

    TabSheet1: TTabSheet;

    TabSheet2: TTabSheet;

    TabSheet3: TTabSheet;

    TabSheet4: TTabSheet;

    TabSheet5: TTabSheet;

    Panel5: TPanel;

    Panel3: TPanel;

    Panel4: TPanel;

    Panel1: TPanel;

    DataSource1: TDataSource;

    StatusBar1: TStatusBar;

    GroupBox1: TGroupBox;

    DBGrid1: TDBGrid;

    DataSource2: TDataSource;

    DataSource3: TDataSource;

    GB_1_1: TGroupBox;

    Label1: TLabel;

    Label2: TLabel;

    DBEdit1: TDBEdit;

    DBEdit2: TDBEdit;

    Label3: TLabel;

    DBComboBox1: TDBComboBox;

    Label4: TLabel;

    DBEdit3: TDBEdit;

    GB_1_2: TGroupBox;

    btnNEXT_1: TSpeedButton;

    btnLAST_1: TSpeedButton;

    btnPRIOR_1: TSpeedButton;

    btnTOP_1: TSpeedButton;

    GroupBox4: TGroupBox;

    Label5: TLabel;

    ComboBox1: TComboBox;

    GroupBox5: TGroupBox;

    btnADD_1: TSpeedButton;

    btnCHANGE_1: TSpeedButton;

    btnDELETE_1: TSpeedButton;

    Panel2: TPanel;

    GroupBox6: TGroupBox;

    GB_2_1: TGroupBox;

    Label6: TLabel;

    Label7: TLabel;

    Label8: TLabel;

    DBEdit4: TDBEdit;

    DBEdit5: TDBEdit;

    DBEdit6: TDBEdit;

    GB_2_2: TGroupBox;

    SpeedButton8: TSpeedButton;

    SpeedButton9: TSpeedButton;

    SpeedButton10: TSpeedButton;

   SpeedButton11: TSpeedButton;

    GroupBox10: TGroupBox;

    btnADD_2: TSpeedButton;

    btnCHANGE_2: TSpeedButton;

    btnDELETE_2: TSpeedButton;

    DBGrid2: TDBGrid;

    ApplicationEvents1: TApplicationEvents;

    GroupBox2: TGroupBox;

    SpeedButton1: TSpeedButton;

    GroupBox3: TGroupBox;

    SpeedButton2: TSpeedButton;

    GroupBox7: TGroupBox;

    SpeedButton3: TSpeedButton;

    SpeedButton4: TSpeedButton;

    SpeedButton5: TSpeedButton;

    SpeedButton6: TSpeedButton;

    GroupBox8: TGroupBox;

   SpeedButton7: TSpeedButton;

    SpeedButton12: TSpeedButton;

    SpeedButton13: TSpeedButton;

    SpeedButton14: TSpeedButton;

    DBGrid3: TDBGrid;

    DBGrid4: TDBGrid;

    Query1: TQuery;

    DataSource4: TDataSource;

    DataSource5: TDataSource;

    Query2: TQuery;

    GroupBox9: TGroupBox;

    DBGrid5: TDBGrid;

    GB_3_1: TGroupBox;

    Label9: TLabel;

    Label10: TLabel;

    GB_3_2: TGroupBox;

    SpeedButton15: TSpeedButton;

    SpeedButton16: TSpeedButton;

    SpeedButton17: TSpeedButton;

    SpeedButton18: TSpeedButton;

    GroupBox13: TGroupBox;

    btnADD_3: TSpeedButton;

    btnCHANGE_3: TSpeedButton;

    btnDELETE_3: TSpeedButton;

    GroupBox15: TGroupBox;

    SpeedButton25: TSpeedButton;

    Label11: TLabel;

    DBEdit9: TDBEdit;

    DBLookupComboBox1: TDBLookupComboBox;

    DBLookupComboBox2: TDBLookupComboBox;

    DBEdit7: TDBEdit;

    Label12: TLabel;

    Label13: TLabel;

    TableUSLUGACODE: TAutoIncField;

    TableUSLUGAKLIENT: TIntegerField;

    TableUSLUGANOMER: TIntegerField;

    TableUSLUGADATE_1: TDateField;

    TableUSLUGADATE_2: TDateField;

    TableUSLUGAKOMN: TIntegerField;

    TableUSLUGAFIO: TStringField;

    Edit1: TEdit;

    QRImage1: TQRImage;

    Panel6: TPanel;

    Panel7: TPanel;

    Panel8: TPanel;

    Label14: TLabel;

    procedure FormCreate(Sender: TObject);

    procedure btnADD_1Click(Sender: TObject);

    procedure ApplicationEvents1Idle(Sender: TObject; var Done: Boolean);

    procedure btnCHANGE_1Click(Sender: TObject);

    procedure btnDELETE_1Click(Sender: TObject);

    procedure ComboBox1Change(Sender: TObject);

    procedure btnTOP_1Click(Sender: TObject);

    procedure btnPRIOR_1Click(Sender: TObject);

    procedure btnNEXT_1Click(Sender: TObject);

    procedure btnLAST_1Click(Sender: TObject);

    procedure btnADD_2Click(Sender: TObject);

    procedure btnCHANGE_2Click(Sender: TObject);

    procedure btnDELETE_2Click(Sender: TObject);

    procedure SpeedButton11Click(Sender: TObject);

    procedure SpeedButton10Click(Sender: TObject);

    procedure SpeedButton8Click(Sender: TObject);

    procedure SpeedButton9Click(Sender: TObject);

    procedure btnADD_3Click(Sender: TObject);

    procedure btnCHANGE_3Click(Sender: TObject);

    procedure btnDELETE_3Click(Sender: TObject);

    procedure DataSource3DataChange(Sender: TObject; Field: TField);

    procedure SpeedButton18Click(Sender: TObject);

    procedure SpeedButton17Click(Sender: TObject);

    procedure SpeedButton15Click(Sender: TObject);

    procedure SpeedButton16Click(Sender: TObject);

    procedure PageControl1Change(Sender: TObject);

    procedure SpeedButton2Click(Sender: TObject);

    procedure SpeedButton14Click(Sender: TObject);

    procedure SpeedButton13Click(Sender: TObject);

    procedure SpeedButton7Click(Sender: TObject);

    procedure SpeedButton12Click(Sender: TObject);

    procedure SpeedButton25Click(Sender: TObject);

    procedure SpeedButton1Click(Sender: TObject);

    procedure SpeedButton6Click(Sender: TObject);

    procedure SpeedButton5Click(Sender: TObject);

    procedure SpeedButton3Click(Sender: TObject);

    procedure SpeedButton4Click(Sender: TObject);

    procedure Query2AfterOpen(DataSet: TDataSet);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

 

implementation

 

uses Unit2, Unit4, Unit3;

 

var a:String;

 

{$R *.dfm}

 

// Указание пути к БД и открытие  таблиц

 

procedure TForm1.FormCreate(Sender: TObject);

begin

TableNOMER.DatabaseName := ExtractFilePath(Application.ExeName) + 'Bases\';

TableNOMER.TableName := 'Nomer.db';

TableNOMER.Open;

 

TableKLIENTS.DatabaseName := ExtractFilePath(Application.ExeName) + 'Bases\';

TableKLIENTS.TableName := 'Klients.db';

TableKLIENTS.Open;

 

TableUSLUGA.DatabaseName := ExtractFilePath(Application.ExeName) + 'Bases\';

TableUSLUGA.TableName := 'Usluga.db';

TableUSLUGA.Open;

 

Query2.DatabaseName := ExtractFilePath(Application.ExeName) + 'Bases\';

 

Query1.DatabaseName := ExtractFilePath(Application.ExeName) + 'Bases\';

 

end;

 

procedure TForm1.ApplicationEvents1Idle(Sender: TObject;

  var Done: Boolean);

begin

if (TableNOMER.State = dsInsert) or (TableNOMER.State = dsEdit) then

  begin

   btnADD_1.Caption := 'Сохранить';

   btnCHANGE_1.Caption := 'Отменить';

   GB_1_1.Enabled := True;

   GB_1_2.Enabled := False;

   btnDELETE_1.Enabled := False;

  end

else

  begin

   btnADD_1.Caption := 'Добавить';

   btnCHANGE_1.Caption := 'Изменить';

   GB_1_1.Enabled := False;

   GB_1_2.Enabled := True;

   btnDELETE_1.Enabled := True;

  end;

 

if (TableKLIENTS.State = dsInsert) or (TableKLIENTS.State = dsEdit) then

  begin