Материал: Автоматизация работы аквапарка
Опции, включая режимы компиляции, задаются для всего проекта в целом. В этом отношении традиционные make-файлы, используемые в компиляторах языка C, значительно более гибки.
Для соединения с базой данных используется технология ADO, которая позволяет соединиться с
базой данных без задания псевдонимов. ADO компоненты могут связываться с провайдером напрямую
или с помощью компонента ADOConection.
3.2 Создание меню, реализующего основные функции информационной системы
delphi программный язык информационный модель
Проект содержит следующие формы:
1. Главное меню, с помощью которого можно переходить на другие модальные формы (рисунок 3.1).
2. Оформление нового клиента-меню, где вводятся данные о новом клиенте (рисунок 3.2, рисунок 3.3).
. Предоставление информации об аттракционах (рисунок 3.4).
. Заказ - оформление билета клиента (рисунок 3.5).
А также формирует следующие отчеты:
1. Отчет о клиентах (рисунок 3.6).
2. Отчет о билетах (рисунок 3.7).
. Индивидуальный билет клиента (рисунок 3.8).
Рисунок 3.2 - Меню работы с клиентами
Рисунок 3.3 - Меню регистрации нового клиента
Рисунок 3.4 - Оформление билета клиента
Рисунок 3.5 - Информация о тарифах на аттракционы
Рисунок 3.6 - Отчет по клиентам
Рисунок 3.7 - Отчет по билетам
Рисунок 3.8 - Индивидуальный билет клиента
3.3 Описание работы системы и верификация
программы
Верификация - это подтверждение соответствия конечного продукта предопределённым эталонным требованиям.
Чтобы убедиться в правильности работы программы и достоверных полученных данных разработаем самостоятельно индивидуальный билет клиента и тем самым убедимся в правильности расчетов программы.
Мы имеем в наличие информацию о клиенте, в том числе данные о скидке, которая предоставляется клиента аквапарком, а также о желаемых услугах клиента, а именно аттракционах.
Итак, приведем стоимость аттракционов (Рисунок 3.9):
Рисунок 3.9 - Стоимость аттракционов
Пусть клиент хотел бы получить все услуги аквапарка, кроме горки «Скоростной спуск», а также ему предоставлялась скидка(льгота) 30%. Рассчитаем стоимость предоставляемых ему услуг:
(100+200+400+600)×0,3=390
По результатам расчетов мы видим, что клиент должен уплатить сумму в 390 единиц.
Сверим их с результатами расчета программы (Рисунок 3.10):
Рисунок 3.10 - Индивидуальный билет клиента, сформированный программой
При верификации полученных результатов видно, что билет, разработанный с помощью программы выглядит гораздо красивее из-за того что она имеет постоянный шаблон и результаты в нее вносятся автоматически, нежели это все формировалось бы вручную. Все полученные данные совпадают и, следовательно, программа работает корректно.
От себя могу добавить, что разработка временного техпроцесса в приложение
происходит быстрее, нежели, чем вручную.
ЗАКЛЮЧЕНИЕ
Данная программа написана для удобного учета клиентов, их быстрого поиска, вывода списка услуг, получение квитанции и т. д. Обеспечивает удобный интерфейс, надежность хранения данных, позволяет вести отчетность, формировать итоги работы за некоторый промежуток времени. Одним словом, для людей, идущих в одну ногу со временем.
Компьютерное оснащение данного предприятия можно ограничить наличием 2-3 персональных компьютеров, которые находятся в распоряжении служебного персонала.
Таким образом, автоматизируется наибольшая часть работы по обработке
документации. То есть важная информация, связанная с клиентом.
Список использованных источников
1. Вендров А.М. Case - технологии. Современные методы и средства проектирования информационных систем. - Internet, http/www.citforum.ru/case.... -158 с., ил.
. Марка Д., МакГоуэн К. Методология структурного анализа и проектирования: Пер. с англ. - М.: 1999. - 240 с., ил.
. Шумаков П.В. Delphi 5 и разработка приложений баз данных. - М.: “Нолидж”, 2001. - 704 с., ил.
. Грабер М. Введение в SQL: Пер. с англ. - М.: “ЛОРИ”, 1996. - 341с., ил.
. Дейт К. Дж. Введение в системы баз данных: Пер. с англ. - 6-е изд. - К.: Диалектика, 1998. - 784с., ил.
. Калянов Г.Н. Case-средства. Структурный и системный
анализ (автоматизация и применение). - М.: “ЛОРИ”, 1999. - 249 с., ил.
Приложение А
IDEF0 диаграмма
Приложение Б
IDEF0 диаграмма. Деразбиение 1 уровня
Приложение В
Рисунок - IDEF0 диаграмма. Деразбиение 2 уровня
Приложение Г
Листинг программы
unit Unit1;
interface
, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Menus, jpeg, ExtCtrls, StdCtrls;
= class(TForm): TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TTimer;: TImage;: TMenuItem;: TMenuItem;: TMenuItem;N2Click(Sender: TObject);N5Click(Sender: TObject);Timer1Timer(Sender: TObject);N6Click(Sender: TObject);N7Click(Sender: TObject);
{ Private declarations }
{ Public declarations };
: TForm1;:Boolean;
Unit2, Unit4, Unit6, Unit7, Unit8;
{$R *.dfm}
TForm1.N2Click(Sender: TObject);kkk:integer;.Visible:=False;.Visible:=True;.ADOTable1.First;.Edit1.Text:=Form4.ADOTable1.FieldByName('Цена').Value;
.ADOTable1.Next;.Edit2.Text:=Form4.ADOTable1.FieldByName('Цена').Value;
.ADOTable1.Next;.Edit3.Text:=Form4.ADOTable1.FieldByName('Цена').Value;
.ADOTable1.Next;.Edit4.Text:=Form4.ADOTable1.FieldByName('Цена').Value;
.ADOTable1.Next;.Edit5.Text:=Form4.ADOTable1.FieldByName('Цена').Value;;
TForm1.N5Click(Sender: TObject);.Terminate;;
TForm1.Timer1Timer(Sender: TObject);Form1.AlphaBlendValue <> 255 then.AlphaBlendValue:=Form1.AlphaBlendValue+3;;
TForm1.N6Click(Sender: TObject);.QuickRep1.Preview;;
TForm1.N7Click(Sender: TObject);.QuickRep1.Preview;;
.
, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DB, Grids, DBGrids, ADODB, StdCtrls, Buttons, jpeg, ExtCtrls,;
= class(TForm): TADOTable;: TADOConnection;: TDBGrid;:
TDataSource;: TBitBtn;: TBitBtn;: TBitBtn;DSDesigner:
TWideStringField;DSDesigner2: TWideStringField;DSDesigner3:
TWideStringField;DSDesigner4: TWideStringField;DSDesigner5: TWideStringField;DSDesigner6:
TWideStringField;: TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;:
TBitBtn;: TBitBtn;: TBitBtn;: TBitBtn;: TRadioGroup;: TEdit;: TGroupBox;:
TBitBtn;: TEdit;: TButton;BitBtn2Click(Sender: TObject);BitBtn3Click(Sender:
TObject);BitBtn4Click(Sender: TObject);BitBtn5Click(Sender:
TObject);N2Click(Sender: TObject);N3Click(Sender: TObject);N4Click(Sender:
TObject);BitBtn6Click(Sender: TObject);BitBtn7Click(Sender:
TObject);BitBtn8Click(Sender: TObject);BitBtn9Click(Sender:
TObject);RadioGroup1Click(Sender: TObject);ADOTable1FilterRecord(DataSet:
TDataSet;Accept: Boolean);Button1Click(Sender: TObject);
{ Private declarations }
{ Public declarations };
: TForm2;:string;
Unit3, Unit4, Unit1, Unit5, Unit8;
{$R *.dfm}
TForm2.BitBtn2Click(Sender: TObject);WWW:string;MessageDlg('Вы действительно хотите удалить эту запись ???',mtWarning,[mbYes,mbNo],0)=MRyes then:=Form2.ADOTable1.FieldByName('Код клиента').Value;.ADOTable1.Delete;Form3.ADOTable1 do.ADOTable1.First;not eof do
//Form3.ADOTable1.Edit;Form3.ADOTable1.FieldByName('Код клиента').Value=WWW then (Form3.ADOTable1.Delete);.ADOTable1.Next;;;;;
TForm2.BitBtn3Click(Sender: TObject);: integer;Form2.ADOTable1.RecNo=-1 then Form8.Edit1.Text:='1' else.ADOTable1.Last;:=StrToInt(Form2.ADOTable1DSDesigner.value)+1;.Edit1.Text:=IntToStr(KKK);;.Show;;
TForm2.BitBtn4Click(Sender: TObject);.Visible:=False;.Visible:=True;;
TForm2.BitBtn5Click(Sender: TObject);.ADOTable1.Locate('Код клиента',Edit7.Text,[loCaseInsensitive,loPartialKey]);;
TForm2.N2Click(Sender: TObject);.Visible:=False;.Visible:=True;
TForm2.N3Click(Sender: TObject);.Visible:=False;.Visible:=True;;
TForm2.N4Click(Sender: TObject);.Visible:=False;.Visible:=True;;
TForm2.BitBtn6Click(Sender: TObject);.First;;
TForm2.BitBtn7Click(Sender: TObject);.Prior;;
TForm2.BitBtn8Click(Sender: TObject);.Next;;
TForm2.BitBtn9Click(Sender: TObject);.Last;;
TForm2.RadioGroup1Click(Sender: TObject);.ADOTable1.Filtered:=false;radiogroup1.ItemIndex of
:begin:='Фамилия';.ADOTable1.Filtered:=true;;
:begin:='Год рождения' ;.ADOTable1.Filtered:=true;;
:begin:='Возраст';.ADOTable1.Filtered:=true;;;;TForm2.ADOTable1FilterRecord(DataSet: TDataSet;Accept: Boolean);radiogroup1.ItemIndex of
:Accept:=DataSet[po]=Edit6.Text;
:Accept:=DataSet[po]=Edit6.Text;
:Accept:=DataSet[po]=Edit6.Text;;;
TForm2.Button1Click(Sender: TObject);.Terminate;;
.
Unit3;
, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Grids, DBGrids, DB, ADODB, StdCtrls, Buttons, ComCtrls, Menus,, ExtCtrls;
= class(TForm): TADOConnection;: TADOTable;: TDataSource;: TDBGrid;: TCheckBox;: TCheckBox;: TCheckBox;: TCheckBox;: TCheckBox;: TCheckBox;: TCheckBox;: TCheckBox;: TCheckBox;: TCheckBox;: TGroupBox;: TGroupBox;: TGroupBox;: TGroupBox;: TGroupBox;: TMonthCalendar;: TBitBtn;: TGroupBox;: TGroupBox;: TCheckBox;: TCheckBox;: TEdit;: TEdit;: TLabel;: TLabel;DSDesigner: TWideStringField;DSDesigner2: TWideStringField;DSDesigner3: TWideStringField;DSDesigner4: TWideStringField;DSDesigner5: TWideStringField;DSDesigner6: TWideStringField;DSDesigner7: TWideStringField;DSDesigner8: TWideStringField;DSDesigner9: TWideStringField;DSDesigner10: TWideStringField;DSDesigner11: TDateTimeField;: TBitBtn;: TBitBtn;: TBitBtn;: TBitBtn;: TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TBitBtn;: TButton;: TEdit;: TBitBtn;: TLabel;CheckBox1Click(Sender: TObject);CheckBox2Click(Sender: TObject);CheckBox3Click(Sender: TObject);CheckBox4Click(Sender: TObject);CheckBox5Click(Sender: TObject);CheckBox6Click(Sender: TObject);CheckBox7Click(Sender: TObject);CheckBox8Click(Sender: TObject);CheckBox9Click(Sender: TObject);CheckBox10Click(Sender: TObject);BitBtn1Click(Sender: TObject);CheckBox11Click(Sender: TObject);CheckBox12Click(Sender: TObject);BitBtn5Click(Sender: TObject);BitBtn2Click(Sender: TObject);BitBtn3Click(Sender: TObject);BitBtn4Click(Sender: TObject);N2Click(Sender: TObject);N3Click(Sender: TObject);BitBtn6Click(Sender: TObject);Button1Click(Sender: TObject);BitBtn7Click(Sender: TObject);
{ Private declarations }
{ Public declarations };
: TForm3;: string;
Unit4, Unit2, Unit5, Unit1, Unit8, Unit7, Unit9;
{$R *.dfm}
TForm3.CheckBox1Click(Sender: TObject);(Form3.CheckBox1.Checked=False)and(Form3.CheckBox2.Checked=False)Form3.CheckBox1.Checked:=True;Form3.CheckBox1.Checked=True then.CheckBox2.Checked:=False;.ADOTable1.First;.ADOTable1.MoveBy(1);.Edit1.Text:=Form4.ADOTable1.FieldByName('Цена').Value;;;TForm3.CheckBox2Click(Sender: TObject);.Edit1.Text:='0';(Form3.CheckBox1.Checked=False)and(Form3.CheckBox2.Checked=False)Form3.CheckBox2.Checked:=True;Form3.CheckBox2.Checked=True then.CheckBox1.Checked:=False;;;
TForm3.CheckBox3Click(Sender: TObject);(Form3.CheckBox3.Checked=False)and(Form3.CheckBox4.Checked=False)Form3.CheckBox3.Checked:=True;Form3.CheckBox3.Checked=True then.CheckBox4.Checked:=False;.ADOTable1.First;.ADOTable1.MoveBy(2);.Edit1.Text:=Form4.ADOTable1.FieldByName('Цена').Value;;;TForm3.CheckBox4Click(Sender: TObject);.Edit2.Text:='0';(Form3.CheckBox3.Checked=False)and(Form3.CheckBox4.Checked=False)Form3.CheckBox4.Checked:=True;Form3.CheckBox4.Checked=True then.CheckBox3.Checked:=False;;;
TForm3.CheckBox5Click(Sender: TObject);(Form3.CheckBox5.Checked=False)and(Form3.CheckBox6.Checked=False)Form3.CheckBox5.Checked:=True;Form3.CheckBox5.Checked=True then.CheckBox6.Checked:=False;.ADOTable1.First;.ADOTable1.MoveBy(3);.Edit1.Text:=Form4.ADOTable1.FieldByName('Цена').Value;;;TForm3.CheckBox6Click(Sender: TObject);.Edit3.Text:='0';(Form3.CheckBox5.Checked=False)and(Form3.CheckBox6.Checked=False)Form3.CheckBox6.Checked:=True;Form3.CheckBox6.Checked=True then.CheckBox5.Checked:=False;;;
TForm3.CheckBox7Click(Sender: TObject);(Form3.CheckBox7.Checked=False)and(Form3.CheckBox8.Checked=False)Form3.CheckBox7.Checked:=True;Form3.CheckBox7.Checked=True then.CheckBox8.Checked:=False;.ADOTable1.First;.ADOTable1.MoveBy(4);.Edit1.Text:=Form4.ADOTable1.FieldByName('Цена').Value;;;TForm3.CheckBox8Click(Sender: TObject);.Edit4.Text:='0';(Form3.CheckBox7.Checked=False)and(Form3.CheckBox7.Checked=False)Form3.CheckBox8.Checked:=True;Form3.CheckBox8.Checked=True then.CheckBox7.Checked:=False;;;
TForm3.CheckBox9Click(Sender: TObject);(Form3.CheckBox9.Checked=False)and(Form3.CheckBox10.Checked=False)Form3.CheckBox9.Checked:=True;Form3.CheckBox9.Checked=True then.CheckBox10.Checked:=False;;;TForm3.CheckBox10Click(Sender: TObject);.Edit5.Text:='0';(Form3.CheckBox9.Checked=False)and(Form3.CheckBox10.Checked=False)Form3.CheckBox10.Checked:=True;Form3.CheckBox10.Checked=True then.CheckBox9.Checked:=False;;;
TForm3.BitBtn1Click(Sender: TObject);a,b,c,d,e:String;,ccc:Real;:=Form4.Edit1.Text;:=Form4.Edit2.Text;:=Form4.Edit3.Text;:=Form4.Edit4.Text;:=Form4.Edit5.Text;:=StrToFloat(Edit2.Text);CheckBox11.Checked=True then.ADOTable1.Insert;.ADOTable1.FieldByName('Код билета').Value:=Form8.Edit1.Text;.ADOTable1.FieldByName('Код клиента').Value:=Form8.Edit1.Text;Form3.CheckBox1.Checked=True then Form3.ADOTable1DSDesigner3.Value:=CheckBox1.Caption;Form3.CheckBox2.Checked=True then Form3.ADOTable1DSDesigner3.Value:=CheckBox2.Caption;Form3.CheckBox3.Checked=True then Form3.ADOTable1DSDesigner4.Value:=CheckBox3.Caption;Form3.CheckBox4.Checked=True then Form3.ADOTable1DSDesigner4.Value:=CheckBox4.Caption;Form3.CheckBox5.Checked=True then Form3.ADOTable1DSDesigner5.Value:=CheckBox5.Caption;Form3.CheckBox6.Checked=True then Form3.ADOTable1DSDesigner5.Value:=CheckBox6.Caption;Form3.CheckBox7.Checked=True then Form3.ADOTable1DSDesigner6.Value:=CheckBox7.Caption;Form3.CheckBox8.Checked=True then Form3.ADOTable1DSDesigner6.Value:=CheckBox8.Caption;Form3.CheckBox9.Checked=True then Form3.ADOTable1DSDesigner7.Value:=CheckBox9.Caption;Form3.CheckBox10.Checked=True then Form3.ADOTable1DSDesigner7.Value:=CheckBox10.Caption;Form3.CheckBox11.Checked=True then Form3.ADOTable1DSDesigner8.Value:=CheckBox11.Caption;Form3.CheckBox12.Checked=True then Form3.ADOTable1DSDesigner8.Value:=CheckBox12.Caption;.ADOTable1.FieldByName('Процент скидки').Value:=Edit2.Text;.ADOTable1.FieldByName('Дата покупки').Value:=Form3.MonthCalendar1.Date;.ADOTable1.FieldByName('Цена').Value:=FloatToStr((StrToFloat(a)+StrToFloat(b)+StrToFloat(c)+StrToFloat(d)+StrToFloat(e)-(StrToFloat(a)+StrToFloat(b)+StrToFloat(c)+StrToFloat(d)+StrToFloat(e))/100*x)); //FloatToStr(StrToFloat(a)+StrToFloat(b)+StrToFloat(c)+StrToFloat(d)+StrToFloat(e)-FloatToStr(StrToFloat(a)+StrToFloat(b)+StrToFloat(c)+StrToFloat(d)+StrToFloat(e)/100*x);.ADOTable1.Post;.ADOTable1.Insert;.ADOTable1.FieldByName('Код клиента').Value:=Form8.Edit1.Text;.ADOTable1.FieldByName('Обоснование льготы').Value:=Form3.Edit1.Text;.ADOTable1.FieldByName('Процент скидки').Value:=Form3.Edit2.Text;.ADOTable1.Post;;CheckBox12.Checked=True then.ADOTable1.Insert;.ADOTable1.FieldByName('Код билета').Value:=Form8.Edit1.Text;.ADOTable1.FieldByName('Код клиента').Value:=Form8.Edit1.Text;Form3.CheckBox1.Checked=True then Form3.ADOTable1DSDesigner3.Value:=CheckBox1.Caption;Form3.CheckBox2.Checked=True then Form3.ADOTable1DSDesigner3.Value:=CheckBox2.Caption;Form3.CheckBox3.Checked=True then Form3.ADOTable1DSDesigner4.Value:=CheckBox3.Caption;Form3.CheckBox4.Checked=True then Form3.ADOTable1DSDesigner4.Value:=CheckBox4.Caption;Form3.CheckBox5.Checked=True then Form3.ADOTable1DSDesigner5.Value:=CheckBox5.Caption;Form3.CheckBox6.Checked=True then Form3.ADOTable1DSDesigner5.Value:=CheckBox6.Caption;Form3.CheckBox7.Checked=True then Form3.ADOTable1DSDesigner6.Value:=CheckBox7.Caption;Form3.CheckBox8.Checked=True then Form3.ADOTable1DSDesigner6.Value:=CheckBox8.Caption;Form3.CheckBox9.Checked=True then Form3.ADOTable1DSDesigner7.Value:=CheckBox9.Caption;Form3.CheckBox10.Checked=True then Form3.ADOTable1DSDesigner7.Value:=CheckBox10.Caption;Form3.CheckBox11.Checked=True then Form3.ADOTable1DSDesigner8.Value:=CheckBox11.Caption;Form3.CheckBox12.Checked=True then Form3.ADOTable1DSDesigner8.Value:=CheckBox12.Caption;.ADOTable1.FieldByName('Процент скидки').Value:='-//-//-';.ADOTable1.FieldByName('Дата покупки').Value:=Form3.MonthCalendar1.Date;:=StrToFloat(a)+StrToFloat(b)+StrToFloat(c)+StrToFloat(d)+StrToFloat(e);Form3.ADOTable1.FieldByName('Скидка').Value = 'Да' then.ADOTable1.FieldByName('Цена').Value:=FloatToStr(ccc*(1-strtofloat(Form3.ADOTable1.FieldByName('Процент скидки').Value))).ADOTable1.FieldByName('Цена').Value:=FloatToStr(ccc*(1-strtofloat(Form3.ADOTable1.FieldByName('Процент скидки').Value)));.ADOTable1.Post;;;
TForm3.CheckBox11Click(Sender: TObject);(Form3.CheckBox11.Checked=False)and(Form3.CheckBox12.Checked=False).CheckBox11.Checked:=True;.Edit1.Enabled:=False;.Edit2.Enabled:=False;;Form3.CheckBox11.Checked=True then.Edit1.Enabled:=True;.Edit1.Color:=clWindow;.Edit2.Enabled:=True;.Edit2.Color:=clWindow;.CheckBox12.Checked:=False;;
TForm3.CheckBox12Click(Sender: TObject);(Form3.CheckBox11.Checked=False)and(Form3.CheckBox12.Checked=False).CheckBox12.Checked:=True;.Edit1.Enabled:=False;.Edit2.Enabled:=False;;Form3.CheckBox12.Checked=True then.Edit1.Color:=cl3DLight;.Edit1.Enabled:=False;.Edit2.Color:=cl3DLight;.Edit2.Enabled:=False;.CheckBox11.Checked:=False;
;;
TForm3.BitBtn5Click(Sender: TObject);.Last;;
TForm3.BitBtn2Click(Sender: TObject);.First;;
TForm3.BitBtn3Click(Sender: TObject);.Prior;;
TForm3.BitBtn4Click(Sender: TObject);.Next;;
TForm3.N2Click(Sender: TObject);.Visible:=False;.Visible:=True;;
TForm3.N3Click(Sender: TObject);.Visible:=False;.Visible:=True;;
TForm3.BitBtn6Click(Sender: TObject);WWW:string;MessageDlg('Вы действительно хотите удалить эту запись ???',mtWarning,[mbYes,mbNo],0)=MRyes then:=Form3.ADOTable1.FieldByName('Код клиента').Value;.ADOTable1.Delete;Form2.ADOTable1 do.ADOTable1.First;not eof doForm2.ADOTable1.FieldByName('Код клиента').Value=WWW then (Form2.ADOTable1.Delete);.ADOTable1.Next;;;;;
TForm3.Button1Click(Sender:
TObject);.Terminate;;
TForm3.BitBtn7Click(Sender: TObject);.ADOTable1.Filtered:=false;.ADOTable1.Filter:='[Код билета]='+Form3.Edit6.Text;.ADOTable1.Filtered:=true;.QuickRep1.Preview;.ADOTable1.Filtered:=false;.Edit6.Text:='';;
.
Unit4;
, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Grids, DBGrids, DB, ADODB, jpeg, ExtCtrls, StdCtrls, Buttons,;
= class(TForm): TADOConnection;: TADOTable;: TDataSource;: TDBGrid;: TEdit;: TEdit;: TEdit;: TEdit;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TCheckBox;: TBitBtn;: TEdit;: TMainMenu;: TMenuItem;: TMenuItem;CheckBox1Click(Sender: TObject);BitBtn1Click(Sender: TObject);N2Click(Sender: TObject);
{ Private declarations }
{ Public declarations };
: TForm4;
Unit2, Unit1;
{$R *.dfm}
TForm4.CheckBox1Click(Sender: TObject);CheckBox1.Checked=False then.Edit1.Enabled:=False;.Edit2.Enabled:=False;.Edit3.Enabled:=False;.Edit4.Enabled:=False;.Edit5.Enabled:=False;
//Если не поставлена галочка "Изменить" в "Тариф" то Edit 1-5 становятся др. цвета-неактивными
Form4.Edit1.Color:=cl3DLight;.Edit2.Color:=cl3DLight;.Edit3.Color:=cl3DLight;.Edit4.Color:=cl3DLight;.Edit5.Color:=cl3DLight;
//Присвоение Edit`у значения.ADOTable1.First;.Edit1.Text:=Form4.ADOTable1.FieldByName('Цена').Value;
.ADOTable1.Next;.Edit2.Text:=Form4.ADOTable1.FieldByName('Цена').Value;
.ADOTable1.Next;.Edit3.Text:=Form4.ADOTable1.FieldByName('Цена').Value;
.ADOTable1.Next;.Edit4.Text:=Form4.ADOTable1.FieldByName('Цена').Value;
begin.Edit1.Enabled:=True;.Edit2.Enabled:=True;.Edit3.Enabled:=True;.Edit4.Enabled:=True;.Edit5.Enabled:=True;
//Если поставлена галочка "Изменить" в "Тариф" то Edit 1-5 становятся др. цвета-активными
Form4.Edit1.Color:=clWindow;.Edit2.Color:=clWindow;.Edit3.Color:=clWindow;.Edit4.Color:=clWindow;.Edit5.Color:=clWindow;;;
TForm4.BitBtn1Click(Sender: TObject);.ADOTable1.First;.ADOTable1.Edit;.ADOTable1.FieldByName('Цена').Value:=Form4.Edit1.Text;.ADOTable1.Post;
.ADOTable1.Next;.ADOTable1.Edit;.ADOTable1.FieldByName('Цена').Value:=Form4.Edit2.Text;.ADOTable1.Post;
.ADOTable1.Next;.ADOTable1.Edit;.ADOTable1.FieldByName('Цена').Value:=Form4.Edit3.Text;.ADOTable1.Post;
.ADOTable1.Next;.ADOTable1.Edit;.ADOTable1.FieldByName('Цена').Value:=Form4.Edit4.Text;.ADOTable1.Post;
.ADOTable1.Next;.ADOTable1.Edit;.ADOTable1.FieldByName('Цена').Value:=Form4.Edit5.Text;.ADOTable1.Post;
;TForm4.N2Click(Sender: TObject);.Visible:=False;.Visible:=True;;
.
Unit5;
, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Grids, DBGrids, DB, ADODB, Menus, StdCtrls, Buttons, ExtCtrls;
= class(TForm): TADOConnection;: TADOTable;: TDataSource;: TDBGrid;: TMainMenu;: TMenuItem;: TMenuItem;: TGroupBox;: TBitBtn;: TBitBtn;: TBitBtn;: TBitBtn;: TRadioGroup;: TEdit;: TGroupBox;: TBitBtn;: TEdit;N2Click(Sender: TObject);BitBtn1Click(Sender: TObject);BitBtn2Click(Sender: TObject);BitBtn3Click(Sender: TObject);BitBtn4Click(Sender: TObject);RadioGroup1Click(Sender: TObject);ADOTable1FilterRecord(DataSet: TDataSet;Accept: Boolean);BitBtn5Click(Sender: TObject);
{ Private declarations }
{ Public declarations };
: TForm5;:string;
Unit1;
{$R *.dfm}
TForm5.N2Click(Sender: TObject);.Visible:=False;.Visible:=True;;
TForm5.BitBtn1Click(Sender: TObject);.First;;
TForm5.BitBtn2Click(Sender: TObject);.Prior;;