Создание информационной системы бесперебойного снабжения топливом аэропортов подмосковья, с разработкой ее инфраструктуры

Причина неправильной позы пользователей обусловлена следующими факторами: нет хорошей подставки для документов, клавиатура находится слишком высоко, а документы — слишком низко, некуда положить руки и кисти, недостаточно пространство для ног. В целях преодоления указанных недостатков даются общие рекомендации: лучше передвижная клавиатура, чем встроенная; должны быть предусмотрены специальные приспособления для регулирования высоты стола, клавиатуры, документов и экрана, а также подставка для рук.

Характеристики используемого рабочего места:

— высота рабочей поверхности стола 750 мм;

— высота пространства для ног 650 мм;

— высота сиденья над уровнем пола 450 мм;

— поверхность сиденья мягкая с закругленным передним краем;

— предусмотрена возможность размещения документов справа ислева;

— расстояние от глаза до экрана 700 мм;

— расстояние от глаза до клавиатуры 400 мм;

— расстояние от глаза до документов 500 мм;

— возможно регулирование экрана по высоте, по наклону, в левом и в правом направлениях.

Эти условия удовлетворяют требованиям к организации рабочего места. (Сан

ПиШ.

2.3/2.

4.1340−03)

ЗАКЛЮЧЕНИЕ

В рамках выполнения дипломной работы, в соответствии с полученным техническим заданием была разработана программная реализация информационной системы бесперебойного снабжения топливом аэропорта «Шереметьево»

В рамках работы над этой системой было проанализировано техническое задание на разработку программного проекта, описана предметная область, в которой предстоит вести разработку, сформированы требования к аппаратной, информационной частям системы, организации базы данных, выполнено функциональное проектирование системы.

Были сформированы основные информационные объекты, связи и отношения между ними. На основании полученных результатов спроектирована база данных, а затем реализована в среде MS SQL Server 2005, проанализированы возможности доступа к базе данным из сети Интернет.

Разработано алгоритмическое обеспечение системы поиска программного обеспечения, которое было успешно препарировано в среде визуального проектирования Borland Development Studio 2006, после чего был спроектирован программный интерфейс разработанной системы С разработанным проектом были проведены все необходимые мероприятия по тестированию и испытанию в среде Windows. На основании проведения тестирования были сделаны следующие выводы:

Созданная система выполняет все функции, указанные в ТЗ.

Система корректно осуществляет свою работу при работе с большими объемами данных и при выполнении запросов.

При тестировании было определено, что система обрабатывает все исключительные ситуации, но имеет недостаточную информационную поддержку сообщений об ошибках и недостаточное описание ошибок.

В ходе тестирования на разных конфигурациях было определено, что система способна работать на машине с указанной минимальной конфигурацией, но время доступа значительно больше, чем на машине с рекомендуемой конфигурации.

Архангельский А.Я. 100 компонентов общего назначения библиотеки Delphi 5. — М.: Бином, 1999. — 266 с.

Архангельский А.Я. Delphi 6. Справочное пособие. — М.: Бином, 2001. — 1024 с.

Архангельский А. Я. Программирование в Delphi 6. — М.: Бином, 2001. — 564 с.

Архангельский А. Я. Язык SQL в Delphi 5. — М.: Бином, 2000. — 205 с.

Базы данных: модели, разработка, реализация / Карпова Т.- СПб.: Питер, 2001. -304с.

Белов А. Н. Бухгалтерский учет в учреждениях непроизводственной сферы. — М.: Финансы и статистика, 1995. — 240с.

Буч Г. Объектно-ориентированное проектирование с примерами применения. М., 1992. — 654с.

Волков В. Ф. Экономика предприятия. — М.: Вита-Пресс, 1998. — 380с.

Галатенко В. Информационная безопасность // Открытые системы- 1996. — N 1−4.

Глушаков С.В., Ломотько Д. В. Базы данных .- Х.: Фолио, 2002. — 504 с.

Голубков Е. П. Маркетинг: стратегии, планы, структуры. М., Дело, 1995. — 450с.

Голубков Е. П. Маркетинговые исследования: теория, методология и практика. М., Финпресс, 1998. — 280с.

Гофман В. Э. Хомоненко А.Д. Delphi 5. — СПб.: — Санки-Петербург, 2000. -800с.

Гофман В. Э. Хомоненко А.Д. Delphi 6. — СПб.: — Санки-Петербург, 2001. -1145с.

Дайан А. и др. Маркетинг. М., Экономика, 1993.

Жидецкий В. Ц. Охрана труда пользователей компьютеров. — К.: «Освгга», 1999. 186с.

Жутова З. У. Бюджетный учет и отчетность. М.: Финансы, 1970.-215с.

Ковалев А. И., Войленко В. В. Маркетинговый анализ. М., Центр экономики и маркетинга, 1996.

Конноли Томас, Бегг Каролин. Базы данных. Проектирование, реализация и сопровождение. Теория и практика. — М.: Вильямс, 2000. — 1111 с.

Культин Н.Б. Delphi 6: Программирование на Object Pascal. — М.: Бином, 2001. — 526 с.

Культин Н.Б. Delphi 7: Программирование на Object Pascal. — М.: Бином, 2003. — 535 с.

Магнус Я.Р., Катышев П. К., Пересецкий А. А. Эконометрика. Начальный курс. М., Дело, 1997

Маклаков С.В. BPwin и ERwin. CASE-средства разработки информационных систем. — М.: Диалог-Мифи, 2001. — 304 с.

Матвеева В. О. Бюджетные организации: бухгалтерский учет и налогооблажение. -Харьков: Фактор, 2001. — 566с.

Турчин С. Обзор АСУП для малого бизнеса. Функциональные особенности // Компьютерное обозрение № 17 (286), 2001. с.22−27. // www. ITC-UA.COM

Фатрелл Р., Шафер Д. Шафер Л. Управление программными проектами: достижение оптимального качества при минимуме затрат. М.: «Вильямс», 2003. — 1128с.

Черников А. Поздняков В. От бухгалтерии под Windows к открытым Unix-системам // Компьютерное обозрение № 34 (402), 2003. с.22−27. www. ITC-UA.COM

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

ПРИЛОЖЕНИЕ Листинг разработанной программы

Главный модуль приложения

unit MainClients;

interface

uses

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

Dialogs, Menus, DB, ADODB, IniFiles, Grids, DBGrids, DBDirectoryTemplate,

addsorce, DateUtils, parampoisk, jpeg, ExtCtrls;

type

TMainClientsForm = class (TForm)

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N12: TMenuItem;

N13: TMenuItem;

N14: TMenuItem;

N15: TMenuItem;

N16: TMenuItem;

N19: TMenuItem;

DataSource1: TDataSource;

ADOTable2: TADOTable;

ADOTable3: TADOTable;

ADOTable4: TADOTable;

ADOTable5: TADOTable;

ADOTable6: TADOTable;

ADOTable7: TADOTable;

N20: TMenuItem;

N21: TMenuItem;

N22: TMenuItem;

ADOQuery1: TADOQuery;

ADOQuery2: TADOQuery;

ADOTable8: TADOTable;

ADOTable9: TADOTable;

ADOTable10: TADOTable;

N18: TMenuItem;

N23: TMenuItem;

N24: TMenuItem;

Image1: TImage;

N11: TMenuItem;

procedure N18Click (Sender: TObject);

procedure N24Click (Sender: TObject);

procedure N23Click (Sender: TObject);

procedure N12Click (Sender: TObject);

function IsMDIChildOpen (const AFormName: TForm; const AMDIChildName: string): Boolean;

function IsFormOpen (const FormName: string): Boolean;

procedure N6Click (Sender: TObject);

procedure N7Click (Sender: TObject);

procedure N8Click (Sender: TObject);

procedure N9Click (Sender: TObject);

procedure N10Click (Sender: TObject);

procedure N20Click (Sender: TObject);

procedure N21Click (Sender: TObject);

procedure N22Click (Sender: TObject);

procedure FormCreate (Sender: TObject);

procedure N3Click (Sender: TObject);

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

procedure N4Click (Sender: TObject);

procedure N14Click (Sender: TObject);

procedure N15Click (Sender: TObject);

procedure N16Click (Sender: TObject);

procedure N17Click (Sender: TObject);

procedure N11Click (Sender: TObject);

procedure N19Click (Sender: TObject);

private

{ Private declarations }

procedure BuildGridDatabaseDirectoryItem (sCaption:String; ds: TDataSource);

public

{ Public declarations }

end;

var

MainClientsForm: TMainClientsForm;

nastr:tinifile;

DirectoryForm: TDBDirectoryTemplateForm;

prosmForm: Taddform;

mainflag:boolean;

nomer_poisk:word;

idLocation, idAddional, idZapas, idPartiya, idedinica, idraspisan, idairplane, idreys: integer;

datetmp:tdatetime;

implementation

{$R *.dfm}

function TMainClientsForm. IsMDIChildOpen (const AFormName: TForm; const AMDIChildName: string): Boolean;

var

i: Integer;

begin

Result := False;

for i := Pred (AFormName.MDIChildCount) DownTo 0 do

if (AFormName.MDIChildren[i]. Name = AMDIChildName) then

begin

Result := True;

AFormName.MDIChildren[i]. Free;

end;

end;

function TMainClientsForm. IsFormOpen (const FormName: string): Boolean;

var

i: Integer;

begin

Result := False;

for i := Screen. FormCount — 1 DownTo 0 do

if (Screen.Forms[i]. Name = FormName) then

begin

Result := True;

Break;

end;

end;

procedure TMainClientsForm. BuildGridDatabaseDirectoryItem (sCaption:String; ds: TDataSource);

begin

//создаем форму

DirectoryForm:=TDBDirectoryTemplateForm.Create (Owner);

DirectoryForm.TableDBGrid.DataSource:=ds;

DirectoryForm.Top:=0;

DirectoryForm.Left:=0;

DirectoryForm.Caption:=sCaption;

end;

procedure TMainClientsForm. N12Click (Sender: TObject);

begin

MainClientsForm.Close;

end;

procedure TMainClientsForm. N6Click (Sender: TObject);

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable1;

mainclientsform.ADOTable1.Active:=true;

MainClientsForm.BuildGridDatabaseDirectoryItem ('Информация об операциях', mainclientsform. DataSource1);

DirectoryForm.TableDBGrid.Fields[0]. DisplayLabel:='Id Зап';

DirectoryForm.TableDBGrid.Fields[1]. DisplayLabel:='Id Заказ';

DirectoryForm.TableDBGrid.Fields[2]. DisplayLabel:='Id Топлива';

DirectoryForm.TableDBGrid.Fields[3]. DisplayLabel:='Начало';

DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='Количество';

DirectoryForm.TableDBGrid.Fields[5].DisplayLabel:='Плотность';

DirectoryForm.TableDBGrid.Fields[6].DisplayLabel:='Id Заправщик';

DirectoryForm.TableDBGrid.Fields[7]. DisplayLabel:='Id Операции';

DirectoryForm.TableDBGrid.Fields[8]. DisplayLabel:='Id атрибут';

end;

procedure TMainClientsForm. N7Click (Sender: TObject);

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

IsMDIChildOpen (MainClientsForm,'addForm');

mainflag:=false;

mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable2;

mainclientsform.ADOTable2.Active:=true;

MainClientsForm.BuildGridDatabaseDirectoryItem ('Авиационноые горючесмазочные материалы', mainclientsform. DataSource1);

DirectoryForm.TableDBGrid.Fields[0]. DisplayLabel:='Id зап';

DirectoryForm.TableDBGrid.Fields[1]. DisplayLabel:='наименование';

DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='марка';

DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='вид ГСМ';

DirectoryForm.TableDBGrid.Fields[4]. DisplayLabel:='Id ед.изм.';

end;

procedure TMainClientsForm. N8Click (Sender: TObject);

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

IsMDIChildOpen (MainClientsForm,'addForm');

mainflag:=false;

mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable3;

mainclientsform.ADOTable3.Active:=true;

MainClientsForm.BuildGridDatabaseDirectoryItem ('Единицы измерения топлива', mainclientsform. DataSource1);

DirectoryForm.TableDBGrid.Fields[0]. DisplayLabel:='Id зап';

DirectoryForm.TableDBGrid.Fields[1]. DisplayLabel:='ед. измерения';

DirectoryForm.TableDBGrid.Fields[2]. DisplayLabel:='дополн. изм';

end;

procedure TMainClientsForm. N9Click (Sender: TObject);

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

IsMDIChildOpen (MainClientsForm,'addForm');

mainflag:=false;

mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable4;

mainclientsform.ADOTable4.Active:=true;

MainClientsForm.BuildGridDatabaseDirectoryItem ('заказы на выполнение заправочных операций', mainclientsform. DataSource1);

DirectoryForm.TableDBGrid.Fields[0]. DisplayLabel:='№ зап';

DirectoryForm.TableDBGrid.Fields[1]. DisplayLabel:='Номер';

DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='Создание';

DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='Завершение';

DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='ID топлива';

DirectoryForm.TableDBGrid.Fields[5]. DisplayLabel:='количество';

DirectoryForm.TableDBGrid.Fields[6].DisplayLabel:='Начало операции';

DirectoryForm.TableDBGrid.Fields[7]. DisplayLabel:='Выполнение';

DirectoryForm.TableDBGrid.Fields[8].DisplayLabel:='ID операции';

DirectoryForm.TableDBGrid.Fields[9]. DisplayLabel:='ID расписание';

DirectoryForm.TableDBGrid.Fields[10]. DisplayLabel:='антикристал.';

end;

procedure TMainClientsForm. N10Click (Sender: TObject);

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

IsMDIChildOpen (MainClientsForm,'addForm');

mainflag:=false;

mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable5;

mainclientsform.ADOTable5.Active:=true;

MainClientsForm.BuildGridDatabaseDirectoryItem ('Заправочные операции', mainclientsform. DataSource1);

DirectoryForm.TableDBGrid.Fields[0]. DisplayLabel:='Id зап.';

DirectoryForm.TableDBGrid.Fields[1]. DisplayLabel:='операция';

DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='начало';

DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='конец';

end;

procedure TMainClientsForm. N20Click (Sender: TObject);

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

IsMDIChildOpen (MainClientsForm,'addForm');

mainflag:=false;

mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable6;

mainclientsform.ADOTable6.Active:=true;

MainClientsForm.BuildGridDatabaseDirectoryItem ('Дополнительные сведения об операции заправки ', mainclientsform. DataSource1);

DirectoryForm.TableDBGrid.Fields[0]. DisplayLabel:='Id зап.';

DirectoryForm.TableDBGrid.Fields[1]. DisplayLabel:='контрольный талон';

DirectoryForm.TableDBGrid.Fields[2]. DisplayLabel:='член экипажа';

DirectoryForm.TableDBGrid.Fields[3]. DisplayLabel:='заправщик';

DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='антикристал.';

DirectoryForm.TableDBGrid.Fields[5].DisplayLabel:='содержание';

end;

procedure TMainClientsForm. N21Click (Sender: TObject);

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

IsMDIChildOpen (MainClientsForm,'addForm');

mainflag:=false;

mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable7;

mainclientsform.ADOTable7.Active:=true;

MainClientsForm.BuildGridDatabaseDirectoryItem ('Топливозаправщики аэродромные', mainclientsform. DataSource1);

DirectoryForm.TableDBGrid.Fields[0]. DisplayLabel:='ID зап';

DirectoryForm.TableDBGrid.Fields[1]. DisplayLabel:='№ номер';

DirectoryForm.TableDBGrid.Fields[2]. DisplayLabel:='тип';

end;

procedure TMainClientsForm. N22Click (Sender: TObject);

begin

IsMDIChildOpen (MainClientsForm,'addForm');

IsMDIChildOpen (MainClientsForm,'addForm');

mainflag:=false;

MainClientsForm.N6Click (sender);

prosmForm:=Taddform.Create (Owner);

prosmForm.Top:=230;

prosmForm.Left:=0;

prosmForm.Width:=500;

prosmForm.Height:=200;

prosmForm.Caption:='просмотр информационной базы';

prosmForm.DBNavigator1.Visible:=true;

mainflag:=true;

prosmForm.Show;

prosmForm.Button1.Visible:=false;

prosmForm.GroupBox4.Visible:=false;

MainClientsForm.DataSource1.DataSet.last

end;

procedure TMainClientsForm. N23Click (Sender: TObject);

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

IsMDIChildOpen (MainClientsForm,'addForm');

mainflag:=false;

mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable9;

mainclientsform.ADOTable7.Active:=true;

MainClientsForm.BuildGridDatabaseDirectoryItem ('Сведения о воздушных судах', mainclientsform. DataSource1);

DirectoryForm.TableDBGrid.Fields[0]. DisplayLabel:='ID ';

DirectoryForm.TableDBGrid.Fields[1]. DisplayLabel:='марка';

DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='тип';

DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='борт. номер';

DirectoryForm.TableDBGrid.Fields[4]. DisplayLabel:='принадлежность';

DirectoryForm.TableDBGrid.Fields[5].DisplayLabel:='стоянка';

end;

procedure TMainClientsForm. N24Click (Sender: TObject);

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

IsMDIChildOpen (MainClientsForm,'addForm');

mainflag:=false;

mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable10;

mainclientsform.ADOTable7.Active:=true;

MainClientsForm.BuildGridDatabaseDirectoryItem ('Сведения рейсах в аэропорту', mainclientsform. DataSource1);

DirectoryForm.TableDBGrid.Fields[0]. DisplayLabel:='ID рейса';

DirectoryForm.TableDBGrid.Fields[1]. DisplayLabel:='номер';

DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='Вылет';

DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='Начальный пункт';

DirectoryForm.TableDBGrid.Fields[4]. DisplayLabel:='Назначение';

DirectoryForm.TableDBGrid.Fields[5].DisplayLabel:='расстояние';

DirectoryForm.TableDBGrid.Fields[5].DisplayLabel:='стоянка';

end;

procedure TMainClientsForm. FormCreate (Sender: TObject);

var NewConnection: Widestring;

begin

NewConnection := PromptDataSource (Handle, MainClientsForm. ADOConnection1.Connectionstring);

MainClientsForm.ADOConnection1.Connectionstring:=NewConnection;

MainClientsForm.ADOConnection1.Connected:=true;

MainClientsForm.ADOTable1.Active:=true;

MainClientsForm.ADOTable2.Active:=true;

MainClientsForm.ADOTable3.Active:=true;

MainClientsForm.ADOTable4.Active:=true;

MainClientsForm.ADOTable5.Active:=true;

MainClientsForm.ADOTable6.Active:=true;

MainClientsForm.ADOTable7.Active:=true;

end;

procedure TMainClientsForm. N3Click (Sender: TObject);

var dobForm: Taddform;

begin

mainflag:=false;

IsMDIChildOpen (MainClientsForm,'addForm');

dobForm:=Taddform.Create (Owner);

dobForm.Top:=240;

dobForm.Left:=3;

dobForm.Caption:='добавление записи';

dobForm.Show;

dobForm.Button1.Visible:=true;

end;

procedure TMainClientsForm. DataSource1DataChange (Sender: TObject;

Field: TField);

var

sql_str, rez: string;

P11:Tparameter;

rezdate:tdatetime;

rezint:integer;

rezfloat:real;

Ayear, amonth, aday, ahour, aminute, asecond, amillisecond: word;

begin

if mainflag then

begin

prosmForm.edit1.text:='';

prosmForm.edit2.text:='';

prosmForm.edit3.text:='';

prosmForm.edit4.text:='';

prosmForm.edit5.text:='';

prosmForm.edit6.text:='1';

prosmForm.edit7.text:='1';

prosmForm.edit9.text:='1';

prosmForm.edit10.text:='1';

prosmForm.edit8.text:='2009';

prosmForm.edit11.text:='2009';

prosmForm.edit12.text:='';

prosmForm.edit13.text:='';

prosmForm.edit14.text:='';

prosmForm.edit15.text:='';

prosmForm.edit16.text:='';

prosmForm.edit17.text:='';

prosmForm.edit18.text:='';

prosmForm.edit19.text:='';

prosmForm.edit20.text:='';

prosmForm.edit21.text:='';

prosmForm.edit22.text:='';

prosmForm.edit23.text:='';

//из таблицы

idzakaz:= MainClientsForm. DataSource1.DataSet.FieldByName ('idzakaz').AsInteger;

idfuel:= MainClientsForm. DataSource1.DataSet.FieldByName ('idfuel').AsInteger;

idzapravshik:= MainClientsForm. DataSource1.DataSet.FieldByName ('id_zapravshik').AsInteger;

idoperaciya:= MainClientsForm. DataSource1.DataSet.FieldByName ('idoperaciya').AsInteger;

idatribute:= MainClientsForm. DataSource1.DataSet.FieldByName ('idatributte').AsInteger;

massa:= MainClientsForm. DataSource1.DataSet.FieldByName ('massa').AsFloat;

plotnost:= MainClientsForm. DataSource1.DataSet.FieldByName ('plotnost').AsFloat;

data_start:= MainClientsForm. DataSource1.DataSet.FieldByName ('plotnost').AsFloat;

prosmForm.Edit3.Text:=floattostr (massa);

prosmForm.Edit2.Text:=floattostr (plotnost);

// топливо

sql_str:='SELECT * from fuel where idfuel= :P11';

MainClientsForm.ADOQuery1.Active:=false;

MainClientsForm.ADOQuery1.SQL.Clear;

P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter;

P11.Name:='P11';

p11.DataType := ftinteger;

P11.Value:=idfuel;

P11.Size:=4;

MainClientsForm.ADOQuery1.SQL.Add (sql_str);

MainClientsForm.ADOQuery1.Active:=true;

MainClientsForm.ADOQuery1.ExecSQL;

rez:=MainClientsForm.ADOQuery1.FieldByName ('fuel').AsString ;

prosmForm.Edit1.Text:=rez;

rez:=MainClientsForm.ADOQuery1.FieldByName ('vid_GSM').AsString ;

prosmForm.Edit42.Text:=rez;

rez:=MainClientsForm.ADOQuery1.FieldByName ('marka').AsString ;

prosmForm.Edit14.Text:=rez;

idedinica:=MainClientsForm.ADOQuery1.FieldByName ('idedinica').AsInteger ;

// единица измерения

sql_str:='SELECT * from edinica where idedinica= :P11';

MainClientsForm.ADOQuery1.Active:=false;

MainClientsForm.ADOQuery1.SQL.Clear;

P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter;

P11.Name:='P11';

p11.DataType := ftinteger;

P11.Value:= idedinica;

P11.Size:=4;

MainClientsForm.ADOQuery1.SQL.Add (sql_str);

MainClientsForm.ADOQuery1.Active:=true;

MainClientsForm.ADOQuery1.ExecSQL;

rez:=MainClientsForm.ADOQuery1.FieldByName ('name_edinica').AsString ;

prosmForm.Edit41.Text:=rez;

//заказ

sql_str:='SELECT * from zakaz where idzakaz= :P11';

MainClientsForm.ADOQuery1.Active:=false;

MainClientsForm.ADOQuery1.SQL.Clear;

P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter;

P11.Name:='P11';

p11.DataType := ftinteger;

P11.Value:= idzakaz;

P11.Size:=4;

MainClientsForm.ADOQuery1.SQL.Add (sql_str);

MainClientsForm.ADOQuery1.Active:=true;

MainClientsForm.ADOQuery1.ExecSQL;

rez:=MainClientsForm.ADOQuery1.FieldByName ('nomer_dokumen').AsString ;

prosmForm.Edit4.Text:=rez;

datetmp:=MainClientsForm.ADOQuery1.FieldByName ('datasozdaniya').AsDateTime ;

prosmForm.Edit5.Text:=datetimetostr (datetmp);

datetmp:=MainClientsForm.ADOQuery1.FieldByName ('data_finish').AsDateTime ;

prosmForm.Edit17.Text:=datetimetostr (datetmp);

idraspisan:=MainClientsForm.ADOQuery1.FieldByName ('idraspisan').AsInteger;

rez:= MainClientsForm. ADOQuery1.FieldByName ('vupolnen').AsString ;

if rez='y' then prosmForm. CheckBox1.Checked:=true

else prosmForm. CheckBox1.Checked:=false;

// операция

sql_str:='SELECT * from operaciya where idoperaciya= :P11';

MainClientsForm.ADOQuery1.Active:=false;

MainClientsForm.ADOQuery1.SQL.Clear;

P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter;

P11.Name:='P11';

p11.DataType := ftinteger;

P11.Value:= idoperaciya;

P11.Size:=4;

MainClientsForm.ADOQuery1.SQL.Add (sql_str);

MainClientsForm.ADOQuery1.Active:=true;

MainClientsForm.ADOQuery1.ExecSQL;

rez:=MainClientsForm.ADOQuery1.FieldByName ('vid').AsString ;

prosmForm.Edit21.Text:=rez;

prosmForm.Edit20.Text:=inttostr (idoperaciya);

datetmp:=MainClientsForm.ADOQuery1.FieldByName ('datastart').AsDateTime ;

prosmForm.Edit22.Text:=datetimetostr (datetmp);

datetmp:=MainClientsForm.ADOQuery1.FieldByName ('datafinish').AsDateTime ;

prosmForm.Edit23.Text:=datetimetostr (datetmp);

// заправщик

sql_str:='SELECT * from zapravshik where id_zapravshik= :P11';

MainClientsForm.ADOQuery1.Active:=false;

MainClientsForm.ADOQuery1.SQL.Clear;

P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter;

P11.Name:='P11';

p11.DataType := ftinteger;

P11.Value:= idzapravshik;

P11.Size:=4;

MainClientsForm.ADOQuery1.SQL.Add (sql_str);

MainClientsForm.ADOQuery1.Active:=true;

MainClientsForm.ADOQuery1.ExecSQL;

rez:=MainClientsForm.ADOQuery1.FieldByName ('type').AsString ;

prosmForm.Edit19.Text:=rez;

rez:=MainClientsForm.ADOQuery1.FieldByName ('nomer').AsString ;

prosmForm.Edit18.Text:=rez;

// атрибуты

sql_str:='SELECT * from atribute where idatributte= :P11';

MainClientsForm.ADOQuery1.Active:=false;

MainClientsForm.ADOQuery1.SQL.Clear;

P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter;

P11.Name:='P11';

p11.DataType := ftinteger;

P11.Value:= idatribute;

P11.Size:=4;

MainClientsForm.ADOQuery1.SQL.Add (sql_str);

MainClientsForm.ADOQuery1.Active:=true;

MainClientsForm.ADOQuery1.ExecSQL;

rez:=MainClientsForm.ADOQuery1.FieldByName ('nomer_kontrolnogo_talona').AsString ;

prosmForm.Edit28.Text:=rez;

rez:=MainClientsForm.ADOQuery1.FieldByName ('familya_ispol').AsString ;

prosmForm.Edit29.Text:=rez;

rez:=MainClientsForm.ADOQuery1.FieldByName ('familya_explorer').AsString ;

prosmForm.Edit31.Text:=rez;

rez:=MainClientsForm.ADOQuery1.FieldByName ('untikristal_marka').AsString ;

prosmForm.Edit32.Text:=rez;

rez:=MainClientsForm.ADOQuery1.FieldByName ('untikristal_soderg').AsString ;

prosmForm.Edit33.Text:=rez;

// расписание

sql_str:='SELECT * from raspisan where idraspisan= :P11';

MainClientsForm.ADOQuery1.Active:=false;

MainClientsForm.ADOQuery1.SQL.Clear;

P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter;

P11.Name:='P11';

p11.DataType := ftinteger;

P11.Value:= idraspisan;

P11.Size:=4;

MainClientsForm.ADOQuery1.SQL.Add (sql_str);

MainClientsForm.ADOQuery1.Active:=true;

MainClientsForm.ADOQuery1.ExecSQL;

rez:=MainClientsForm.ADOQuery1.FieldByName ('companiya').AsString ;

prosmForm.Edit13.Text:=rez;

datetmp:=MainClientsForm.ADOQuery1.FieldByName ('datefinish').AsDateTime ;

prosmForm.Edit34.Text:=datetimetostr (datetmp);

idairplane:= MainClientsForm. ADOQuery1.FieldByName ('idairplane').AsInteger;

idreys:= MainClientsForm. ADOQuery1.FieldByName ('idreys').AsInteger;

// самолет

sql_str:='SELECT * from airplane where idairplane= :P11';

MainClientsForm.ADOQuery1.Active:=false;

MainClientsForm.ADOQuery1.SQL.Clear;

P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter;

P11.Name:='P11';

p11.DataType := ftinteger;

P11.Value:= idairplane;

P11.Size:=4;

MainClientsForm.ADOQuery1.SQL.Add (sql_str);

MainClientsForm.ADOQuery1.Active:=true;

MainClientsForm.ADOQuery1.ExecSQL;

rez:=MainClientsForm.ADOQuery1.FieldByName ('marka_plane').AsString ;

prosmForm.Edit12.Text:=rez;

rez:=MainClientsForm.ADOQuery1.FieldByName ('type').AsString ;

prosmForm.Edit16.Text:=rez;

rez:=MainClientsForm.ADOQuery1.FieldByName ('bort_nomer').AsString ;

prosmForm.Edit15.Text:=rez;

rez:=MainClientsForm.ADOQuery1.FieldByName ('prinadlegnost').AsString ;

prosmForm.Edit24.Text:=rez;

rez:=MainClientsForm.ADOQuery1.FieldByName ('stoynka').AsString ;

prosmForm.Edit35.Text:=rez;

// рейс

sql_str:='SELECT * from reys where idreys= :P11';

MainClientsForm.ADOQuery1.Active:=false;

MainClientsForm.ADOQuery1.SQL.Clear;

P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter;

P11.Name:='P11';

p11.DataType := ftinteger;

P11.Value:= idreys;

P11.Size:=4;

MainClientsForm.ADOQuery1.SQL.Add (sql_str);

MainClientsForm.ADOQuery1.Active:=true;

MainClientsForm.ADOQuery1.ExecSQL;

rez:=MainClientsForm.ADOQuery1.FieldByName ('nomer').AsString ;

prosmForm.Edit43.Text:=rez;

rez:=MainClientsForm.ADOQuery1.FieldByName ('mestostart').AsString ;

prosmForm.Edit26.Text:=rez;

rez:=MainClientsForm.ADOQuery1.FieldByName ('mestonazn').AsString ;

prosmForm.Edit27.Text:=rez;

rez:=MainClientsForm.ADOQuery1.FieldByName ('rastoyan').AsString ;

prosmForm.Edit25.Text:=rez;

datetmp:=MainClientsForm.ADOQuery1.FieldByName ('otpr').AsDateTime ;

prosmForm.Edit6.Text:=datetimetostr (datetmp);

end;

end;

procedure TMainClientsForm. N4Click (Sender: TObject);

var zakForm: Taddform;

begin

mainflag:=false;

IsMDIChildOpen (MainClientsForm,'zakForm');

IsMDIChildOpen (MainClientsForm,'addForm');

zakForm:=Taddform.Create (Owner);

zakForm.Top:=240;

zakForm.Left:=3;

zakForm.Caption:='создание заказа';

zakForm.Show;

zakForm.Button1.Visible:=true;

zakForm.GroupBox1.Visible:=false;

zakForm.GroupBox2.Visible:=false;

zakForm.GroupBox4.Visible:=true;

zakForm.GroupBox4.Left:=2;

zakForm.GroupBox4.Top:=2;

end;

procedure TMainClientsForm. N14Click (Sender: TObject);

var poisk: Tparampoik;

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

IsMDIChildOpen (MainClientsForm,'addform');

IsMDIChildOpen (MainClientsForm,'parampoik');

poisk:=Tparampoik.Create (Owner);

poisk.Left:=530;

poisk.Top:=3;

poisk.Width:=300;

poisk.Caption:='необслуженные заказы';

nomer_poisk:=1;

poisk.Edit1.Visible:=false;

poisk.Label1.Visible:=false;

poisk.Label2.Visible:=false;

poisk.Label3.Visible:=false;

poisk.Label7.Visible:=false;

poisk.Edit2.Visible:=false;

poisk.Edit3.Visible:=false;

poisk.Edit4.Visible:=false;

poisk.Edit5.Visible:=false;

poisk.Edit6.Visible:=false;

poisk.Edit7.Visible:=false;

poisk.UpDown1.Visible:=false;

poisk.UpDown2.Visible:=false;

poisk.UpDown3.Visible:=false;

poisk.UpDown4.Visible:=false;

end;

procedure TMainClientsForm. N15Click (Sender: TObject);

var poisk: Tparampoik;

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

IsMDIChildOpen (MainClientsForm,'addform');

IsMDIChildOpen (MainClientsForm,'parampoik');

poisk:=Tparampoik.Create (Owner);

poisk.Left:=530;

poisk.Top:=3;

poisk.Width:=300;

poisk.Caption:='все заказы на дату';

nomer_poisk:=2;

poisk.Edit1.Visible:=false;

poisk.Label1.Visible:=false;

poisk.Label3.Visible:=false;

poisk.Label2.Visible:=false;

poisk.Edit5.Visible:=false;

poisk.Edit6.Visible:=false;

poisk.Edit7.Visible:=false;

poisk.UpDown3.Visible:=false;

poisk.UpDown4.Visible:=false;

end;

procedure TMainClientsForm. N16Click (Sender: TObject);

var poisk: Tparampoik;

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

IsMDIChildOpen (MainClientsForm,'addform');

IsMDIChildOpen (MainClientsForm,'parampoik');

poisk:=Tparampoik.Create (Owner);

poisk.Left:=530;

poisk.Top:=3;

poisk.Width:=300;

poisk.Caption:='все операции на дату';

nomer_poisk:=3;

poisk.Edit1.Visible:=false;

poisk.Label1.Visible:=false;

poisk.Label3.Visible:=false;

poisk.Label2.Visible:=false;

poisk.Edit5.Visible:=false;

poisk.Edit6.Visible:=false;

poisk.Edit7.Visible:=false;

poisk.UpDown3.Visible:=false;

poisk.UpDown4.Visible:=false;

end;

rocedure TMainClientsForm. N17Click (Sender: TObject);

var poisk: Tparampoik;

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

IsMDIChildOpen (MainClientsForm,'addform');

IsMDIChildOpen (MainClientsForm,'parampoik');

poisk:=Tparampoik.Create (Owner);

poisk.Left:=530;

poisk.Top:=3;

poisk.Width:=300;

poisk.Caption:='просмотр хронологии операций';

nomer_poisk:=4;

poisk.Label1.Visible:=false;

poisk.Edit1.Visible:=false;

poisk.Label7.Caption:='операции в период'

end;

procedure TMainClientsForm. N18Click (Sender: TObject);

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

IsMDIChildOpen (MainClientsForm,'addForm');

mainflag:=false;

mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable8;

mainclientsform.ADOTable7.Active:=true;

MainClientsForm.BuildGridDatabaseDirectoryItem ('Расписание заправок в аэропорту', mainclientsform. DataSource1);

DirectoryForm.TableDBGrid.Fields[0]. DisplayLabel:='ID зап';

DirectoryForm.TableDBGrid.Fields[1]. DisplayLabel:='ID самолета';

DirectoryForm.TableDBGrid.Fields[2]. DisplayLabel:='Окончание';

DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='ID рейса';

DirectoryForm.TableDBGrid.Fields[4]. DisplayLabel:='Компания';

end;

procedure TMainClientsForm. N11Click (Sender: TObject);

var poisk: Tparampoik;

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

IsMDIChildOpen (MainClientsForm,'addform');

IsMDIChildOpen (MainClientsForm,'parampoik');

poisk:=Tparampoik.Create (Owner);

poisk.Left:=530;

poisk.Top:=3;

poisk.Width:=300;

poisk.Caption:='все операции на дату';

nomer_poisk:=4;

poisk.Edit1.Visible:=false;

poisk.Label1.Visible:=false;

poisk.Label3.Visible:=false;

poisk.Label2.Visible:=false;

end;

procedure TMainClientsForm. N19Click (Sender: TObject);

var poisk: Tparampoik;

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

IsMDIChildOpen (MainClientsForm,'addform');

IsMDIChildOpen (MainClientsForm,'parampoik');

poisk:=Tparampoik.Create (Owner);

poisk.Left:=530;

poisk.Top:=3;

poisk.Width:=300;

poisk.Caption:='Создание операции';

nomer_poisk:=5;

poisk.Label2.Visible:=false;

poisk.Label3.Visible:=false;

poisk.Label7.Visible:=false;

poisk.Edit2.Visible:=false;

poisk.Edit3.Visible:=false;

poisk.Edit4.Visible:=false;

poisk.Edit5.Visible:=false;

poisk.Edit6.Visible:=false;

poisk.Edit7.Visible:=false;

poisk.UpDown1.Visible:=false;

poisk.UpDown2.Visible:=false;

poisk.UpDown3.Visible:=false;

poisk.UpDown4.Visible:=false;

poisk.Label1.Caption:='номер заказа';

poisk.Button1.Caption:='создание'

end;

end.

Модуль ADDSORCE

unit addsorce;

interface

uses

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

Dialogs, DB, ADODB, Menus, ChildTemplate, Grids, DBGrids,

StdCtrls, Mask, DateUtils, ExtCtrls, ComCtrls, DBCtrls ;

type

TaddForm = class (TForm)

Panel1: TPanel;

GroupBox1: TGroupBox;

GroupBox2: TGroupBox;

Edit16: TEdit;

Button1: TButton;

DBNavigator1: TDBNavigator;

Edit13: TEdit;

Label10: TLabel;

Label9: TLabel;

Label7: TLabel;

Label5: TLabel;

Label2: TLabel;

Label1: TLabel;

Edit1: TEdit;

Edit5: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit17: TEdit;

Label14: TLabel;

gk: TLabel;

Label3: TLabel;

Label6: TLabel;

Edit12: TEdit;

Label13: TLabel;

Label12: TLabel;

Label11: TLabel;

Edit14: TEdit;

Edit15: TEdit;

Edit4: TEdit;

GroupBox4: TGroupBox;

Button3: TButton;

Edit41: TEdit;

Label4: TLabel;

Edit42: TEdit;

CheckBox1: TCheckBox;

Label32: TLabel;

Edit43: TEdit;

Label8: TLabel;

Edit6: TEdit;

Label23: TLabel;

Label24: TLabel;

Label25: TLabel;

Label28: TLabel;

Label29: TLabel;

Label33: TLabel;

Edit7: TEdit;

Edit8: TEdit;

Edit9: TEdit;

Edit10: TEdit;

Edit11: TEdit;

Edit30: TEdit;

Label15: TLabel;

Label16: TLabel;

Label17: TLabel;

Label18: TLabel;

Label19: TLabel;

Label20: TLabel;

Edit18: TEdit;

Edit19: TEdit;

Edit20: TEdit;

Edit21: TEdit;

Edit22: TEdit;

Edit23: TEdit;

Label21: TLabel;

Edit24: TEdit;

Edit25: TEdit;

Label22: TLabel;

Edit26: TEdit;

Edit27: TEdit;

Label26: TLabel;

Edit28: TEdit;

Label27: TLabel;

Edit29: TEdit;

Edit31: TEdit;

Label30: TLabel;

Edit32: TEdit;

Label31: TLabel;

Label34: TLabel;

Edit33: TEdit;

Label35: TLabel;

Edit34: TEdit;

Label36: TLabel;

Edit35: TEdit;

Label37: TLabel;

Button2: TButton;

procedure FormClose (Sender: TObject; var Action: TCloseAction);

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure Button3Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

addForm: TaddForm;

naim:string;

ed_izm:string;

kolvo:integer;

cena:real;

nomerpartiya:string;

sernum:string;

srok_godnost:tdate;

data_postavka:tdate;

postavchik:string;

description:string;

location:string;

location_part:string;

primech:string;

Ayear, amonth, aday: word;

razmer_part, kol: integer;

idaddional, idlocation, idzapas: integer;

idplan, idzakaz, idfuel, idzapravshik, idoperaciya, idatribute: integer;

massa, plotnost: real;

data_start, otpr, datefinish, datastart, datafinish: tdatetime;

edinica, gsm, vidgsm, marka, nomer: string;

tip:string;

idreys:integer;

idairplane, idatributte: integer;

marka_plane, typeplane, bort_nomer, prinadlegnost, stoyanka: string;

nomer_reys, mestotart, mestonazn, rastoyan, companiya: string;

nomer_kontrolnogo_talona, familya_explorer, familya_ispol, untikristal_marka,

untikristal_soderg, vid: string;

nomer_dokumen, vupolnen: string;

datasozdaniya, data_finish :tdatetime;

massa_zak:real;

implementation

uses MainClients;

{$R *.dfm}

procedure TaddForm. FormClose (Sender: TObject; var Action: TCloseAction);

begin

Action:=caFree;

end;

procedure TaddForm. Button1Click (Sender: TObject);

begin

groupbox1.visible:=true;

edinica:=edit41.Text;

gsm:=edit1.Text;

vidgsm:= edit42. Text;

marka:=edit14.Text;

nomer:= edit18. Text;

tip:=edit19.Text;

if edinica<>'' then begin

MainClientsForm.ADOTable3.Active:=true;

MainClientsForm.ADOTable3.Insert;

MainClientsForm.ADOTable3.FieldByName ('name_edinica').AsString:=edinica;

MainClientsForm.ADOTable3.Post;

idedinica:=MainClientsForm.ADOTable3.FieldByName ('idedinica').AsInteger;

end;

if gsm<>'' then begin

MainClientsForm.ADOTable2.Active:=true;

MainClientsForm.ADOTable2.Insert;

MainClientsForm.ADOTable2.FieldByName ('fuel').AsString:=gsm;

MainClientsForm.ADOTable2.FieldByName ('marka').AsString:=marka;

MainClientsForm.ADOTable2.FieldByName ('vid_GSM').AsString:= vidgsm;

MainClientsForm.ADOTable2.FieldByName ('idedinica').AsInteger:= idedinica;

MainClientsForm.ADOTable2.Post;

idfuel:=MainClientsForm.ADOTable2.FieldByName ('idfuel').AsInteger;

end;

if edinica<>'' then begin

MainClientsForm.ADOTable7.Active:=true;

MainClientsForm.ADOTable7.Insert;

MainClientsForm.ADOTable7.FieldByName ('nomer').AsString:=nomer;

MainClientsForm.ADOTable7.FieldByName ('type').AsString:=tip;

MainClientsForm.ADOTable7.Post;

idzapravshik:=MainClientsForm.ADOTable7.FieldByName ('id_zapravshik').AsInteger;

end;

marka_plane:=edit12.Text;

typeplane:=edit16.Text;

bort_nomer:=edit15.Text;

prinadlegnost:=edit24.Text;

stoyanka:= edit35. Text;

if edit15. Text<>'' then begin

MainClientsForm.ADOTable9.Active:=true;

MainClientsForm.ADOTable9.Insert;

MainClientsForm.ADOTable9.FieldByName ('marka_plane').asstring :=marka_plane;

MainClientsForm.ADOTable9.FieldByName ('type').asstring := typeplane;

MainClientsForm.ADOTable9.FieldByName ('bort_nomer').asstring := bort_nomer;

MainClientsForm.ADOTable9.FieldByName ('stoynka').asstring := stoyanka;

MainClientsForm.ADOTable9.Post;

idairplane:=MainClientsForm.ADOTable9.FieldByName ('idairplane').AsInteger;

end;

nomer_reys:=edit6.text;

mestotart:=edit26.text;

mestonazn:=edit27.text;

rastoyan:= edit25. text;

otpr:=strtodatetime (edit6.text);

if edit6. Text<>'' then

begin

MainClientsForm.ADOTable10.Active:=true;

MainClientsForm.ADOTable10.Insert;

MainClientsForm.ADOTable10.FieldByName ('nomer').asstring:=nomer_reys;

MainClientsForm.ADOTable10.FieldByName ('mestostart').asstring:= mestotart;

MainClientsForm.ADOTable10.FieldByName ('mestonazn').asstring:= mestonazn;

MainClientsForm.ADOTable10.FieldByName ('rastoyan').asstring:= rastoyan;

MainClientsForm.ADOTable10.FieldByName ('otpr').asdatetime:=otpr;

MainClientsForm.ADOTable10.Post;

idreys:=MainClientsForm.ADOTable10.FieldByName ('idreys').AsInteger;

end;

datefinish:=strtodatetime (edit34.text);

companiya:=edit13.Text;

if edit13. text<>'' then begin

MainClientsForm.ADOTable8.Active:=true;

MainClientsForm.ADOTable8.Insert;

MainClientsForm.ADOTable8.FieldByName ('companiya').asstring :=companiya;

if idairplane<>0 then

MainClientsForm.ADOTable8.FieldByName ('idairplane').AsInteger := idairplane;

if idreys<>0 then

MainClientsForm.ADOTable8.FieldByName ('idreys').AsInteger := idreys;

MainClientsForm.ADOTable8.FieldByName ('datefinish').AsDateTime := datefinish;

MainClientsForm.ADOTable8.Post;

idraspisan:=MainClientsForm.ADOTable8.FieldByName ('idraspisan').AsInteger;

end;

nomer_kontrolnogo_talona:= edit28. Text;

familya_explorer:= edit31. Text;

familya_ispol:= edit29. Text;

untikristal_marka:= edit32. Text;

untikristal_soderg:= edit33. Text;

if edit28. Text<>'' then begin

MainClientsForm.ADOTable6.Active:=true;

MainClientsForm.ADOTable6.Insert;

MainClientsForm.ADOTable6.FieldByName ('nomer_kontrolnogo_talona').AsString:=nomer_kontrolnogo_talona;

MainClientsForm.ADOTable6.FieldByName ('familya_explorer').AsString:=familya_explorer;

MainClientsForm.ADOTable6.FieldByName ('familya_ispol').AsString:=familya_ispol;

MainClientsForm.ADOTable6.FieldByName ('untikristal_marka').AsString:=untikristal_marka;

MainClientsForm.ADOTable6.FieldByName ('untikristal_soderg').AsString:=untikristal_soderg;

MainClientsForm.ADOTable6.Post;

idatributte:=MainClientsForm.ADOTable6.FieldByName ('idatributte').AsInteger;

end;

datastart :=strtodatetime (edit22.text);

datafinish:=strtodatetime (edit23.text);

vid:=edit3.Text;

if edit3. Text<>'' then

begin

MainClientsForm.ADOTable5.Active:=true;

MainClientsForm.ADOTable5.Insert;

MainClientsForm.ADOTable5.FieldByName ('datastart').asdatetime := datastart;

MainClientsForm.ADOTable5.FieldByName ('datafinish').asdatetime := datafinish;

MainClientsForm.ADOTable5.FieldByName ('vid').AsString:=vid;

MainClientsForm.ADOTable5.Post;

idoperaciya:=MainClientsForm.ADOTable5.FieldByName ('idoperaciya').AsInteger;

end;

datasozdaniya:=now;

datefinish:= strtodatetime (edit17.Text);

data_start:=strtodatetime (edit5.Text);

nomer_dokumen:=edit4.Text;

MainClientsForm.ADOTable4.Active:=true;

MainClientsForm.ADOTable4.Insert;

massa_zak:=strtofloat (edit3.Text);

MainClientsForm.ADOTable4.FieldByName ('massa').AsFloat := massa_zak;

if idfuel<>0 then

MainClientsForm.ADOTable4.FieldByName ('idfuel').AsInteger := idfuel;

MainClientsForm.ADOTable4.FieldByName ('nomer_dokumen').Asstring := nomer_dokumen;

MainClientsForm.ADOTable4.FieldByName ('datasozdaniya').AsDateTime:=datasozdaniya;

if edit5. Text<>'' then

MainClientsForm.ADOTable4.FieldByName ('data_start').AsDateTime:=data_start;

if edit17. Text<>'' then

MainClientsForm.ADOTable4.FieldByName ('data_finish').AsDateTime:=data_finish;

MainClientsForm.ADOTable4.FieldByName ('vupolnen').AsString:='n';

if idraspisan<>0 then

MainClientsForm.ADOTable4.FieldByName ('idraspisan').AsInteger := idraspisan;

if idoperaciya<>0 then

MainClientsForm.ADOTable4.FieldByName ('idoperaciya').AsInteger := idoperaciya;

MainClientsForm.ADOTable4.Post;

idzakaz:=MainClientsForm.ADOTable4.FieldByName ('idzakaz').AsInteger;

if edit3. text<>'' then

begin

MainClientsForm.ADOTable1.Active:=true;

MainClientsForm.ADOTable1.Insert;

MainClientsForm.ADOTable1.FieldByName ('idzakaz').AsInteger := idzakaz;

MainClientsForm.ADOTable1.FieldByName ('idfuel').AsInteger := idfuel;

MainClientsForm.ADOTable1.FieldByName ('massa').AsFloat := massa_zak;

MainClientsForm.ADOTable1.FieldByName ('data_start').AsDateTime := data_start;

MainClientsForm.ADOTable1.FieldByName ('id_zapravshik').AsInteger := idzapravshik;

MainClientsForm.ADOTable1.FieldByName ('idoperaciya').AsInteger := idoperaciya;

MainClientsForm.ADOTable1.FieldByName ('idatributte').AsInteger := idatributte;

MainClientsForm.ADOTable1.Post;

end;

end;

procedure TaddForm. Button2Click (Sender: TObject);

var tovar, srtkl, name_poisk, sqlwhere, stroka_SQL :string;

p1:tparameter;

begin

nomer:= edit7. Text;

tip:=edit8.Text;

if edit7. Text<>'' then begin

MainClientsForm.ADOTable7.Active:=true;

MainClientsForm.ADOTable7.Insert;

MainClientsForm.ADOTable7.FieldByName ('nomer').AsString:=nomer;

MainClientsForm.ADOTable7.FieldByName ('type').AsString:=tip;

MainClientsForm.ADOTable7.Post;

idzapravshik:=MainClientsForm.ADOTable7.FieldByName ('id_zapravshik').AsInteger;

end;

datastart :=strtodatetime (edit11.text);

datafinish:=strtodatetime (edit30.text);

vid:=edit11.Text;

if edit11. Text<>'' then

begin

MainClientsForm.ADOTable5.Active:=true;

MainClientsForm.ADOTable5.Insert;

MainClientsForm.ADOTable5.FieldByName ('datastart').asdatetime := datastart;

MainClientsForm.ADOTable5.FieldByName ('datafinish').asdatetime := datafinish;

MainClientsForm.ADOTable5.FieldByName ('vid').AsString:=vid;

MainClientsForm.ADOTable5.Post;

idoperaciya:=MainClientsForm.ADOTable5.FieldByName ('idoperaciya').AsInteger;

end;

end;

procedure TaddForm. Button3Click (Sender: TObject);

var tovar, srtkl, name_poisk, sqlwhere, stroka_SQL :string;

p1:tparameter;

begin

mainclientsform.DataSource1.DataSet:=mainclientsform.ADOQuery2;

mainclientsform.ADOQuery2.Active:=false;

mainclientsform.ADOQuery2.SQL.Clear;

P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter;

P1.Name:='P1';

p1.DataType := ftstring;

if srtkl<>'' then

begin

srtkl:='%'+ srtkl+'%';

P1.Value:=srtkl;

P1.Size:=Length (srtkl);

end;

stroka_SQL:='select * from tovar where tovar. nametovar like: P1';

mainclientsform.ADOQuery2.SQL.Add (stroka_SQL);

if stroka_SQL<>'' then begin

mainclientsform.ADOQuery2.Active:=true;

mainclientsform.ADOQuery2.ExecSQL;

end;

kol:= mainclientsform. ADOQuery2.RecordCount;

if kol=0 then showmessage ('такого товара не существует')

else

begin

mainclientsform.ADOTable2.Active:=true;

mainclientsform.ADOTable2.Insert;

srok_godnost:=encodedate (Ayear, amonth, aday);

mainclientsform.ADOTable2.FieldByName ('vremya').AsDateTime:=srok_godnost;

mainclientsform.ADOTable2.post;

end;

end;

end.

Модуль ParamPoisk

unit parampoisk;

interface

uses

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

Dialogs, DB, ADODB, Menus, ChildTemplate, Grids, DBGrids, addsorce,

StdCtrls, Mask, DateUtils, ExtCtrls, ComCtrls ;

type

Tparampoik = class (TForm)

Button1: TButton;

GroupBox1: TGroupBox;

Label1: TLabel;

Edit1: TEdit;

Label7: TLabel;

Edit2: TEdit;

UpDown1: TUpDown;

Edit3: TEdit;

Edit4: TEdit;

UpDown2: TUpDown;

Edit5: TEdit;

UpDown3: TUpDown;

Edit6: TEdit;

UpDown4: TUpDown;

Edit7: TEdit;

Label2: TLabel;

Label3: TLabel;

procedure FormClose (Sender: TObject; var Action: TCloseAction);

procedure Button1Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

parampoik: Tparampoik;

ChildTemplateForm1: TChildTemplateForm;

ff:string;

flagpoisk:boolean;

p1,p2:tparameter;

all:boolean;

ahour, aminute, asecond, amillisecond: word;

priznak:string;

stroka_SQL, pole, tabl, srtkl, name_poisk, sqlwhere: string;

idnakl, idzapas, i, sravn, kolnakl, kolzapas, rezerv_kol:integer;

implementation

uses mainclients;

{$R *.dfm}

procedure Tparampoik. FormClose (Sender: TObject; var Action: TCloseAction);

begin

Action:=caFree;

end;

procedure Tparampoik. RzBitBtn3Click (Sender: TObject);

var ChildTemplateForm: TChildTemplateform;

all:boolean;

stroka_SQL, pole, tabl, srtkl, name_poisk, sqlwhere: string;

fl_book, fl_avtor, fl_izdat, fl_location, fl_vid, fl_category:boolean;

begin

MainClientsForm.IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

MainClientsForm.IsMDIChildOpen (MainClientsForm,'addform');

MainClientsForm.IsMDIChildOpen (MainClientsForm,'ChildTemplateForm');

ChildTemplateForm:=TChildTemplateform.Create (Owner);

ChildTemplateForm.Left:=0;

ChildTemplateForm.Top:=3;

mainclientsform.DataSource1.DataSet:=mainclientsform.ADOQuery1;

mainclientsform.ADOQuery1.Active:=false;

mainclientsform.ADOQuery1.SQL.Clear;

P1 :=mainclientsform.ADOQuery1.Parameters.AddParameter;

P1.Name:='P1';

p1.DataType := ftstring;

end;

procedure Tparampoik. RzBitBtn4Click (Sender: TObject);

begin

flagpoisk:=false;

MainClientsForm.IsMDIChildOpen (MainClientsForm,'parampoik');

end;

procedure Tparampoik. Button1Click (Sender: TObject);

var ChildTemplateForm: TChildTemplateform;

timenach, timekon: tdatetime;

begin

MainClientsForm.IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

MainClientsForm.IsMDIChildOpen (MainClientsForm,'addform');

MainClientsForm.IsMDIChildOpen (MainClientsForm,'ChildTemplateForm');

ChildTemplateForm:=TChildTemplateform.Create (Owner);

ChildTemplateForm.Left:=0;

ChildTemplateForm.Top:=3;

mainclientsform.DataSource1.DataSet:=mainclientsform.ADOQuery2;

mainclientsform.ADOQuery2.Active:=false;

mainclientsform.ADOQuery2.SQL.Clear;

if nomer_poisk=1 then begin

P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter;

P1.Name:='P1';

p1.DataType := ftstring;

srtkl:='%'+'n'+'%';

P1.Value:=srtkl;

P1.Size:=Length (srtkl);

ChildTemplateForm.Label1.Caption:='Невыполненные заказы: '+edit1.Text;

sqlwhere:= ' where zakaz. vupolnen like: P1';

stroka_SQL:='select * from zakaz'+sqlwhere ;

mainclientsform.ADOQuery2.SQL.Add (stroka_SQL);

if stroka_SQL<>'' then begin

mainclientsform.ADOQuery2.Active:=true;

mainclientsform.ADOQuery2.ExecSQL;

end;

end;

if nomer_poisk=2 then begin

P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter;

P1.Name:='P1';

p1.DataType := ftdatetime;

ayear:= strtoint (Edit4.Text);

amonth:=strtoint (Edit3.Text);

aday:=strtoint (Edit2.Text);

ahour:=0;

aminute:=0;

asecond:=0;

amillisecond:=0;

timenach:=encodedatetime (Ayear, amonth, aday, ahour, aminute, asecond, amillisecond);

srtkl:='%'+ srtkl+'%';

P1.Value := timenach;

sqlwhere:= ' where zakaz. datasozdaniya = :P1';

stroka_SQL:='select * from zakaz '+ sqlwhere;

mainclientsform.ADOQuery2.SQL.Add (stroka_SQL);

if stroka_SQL<>'' then begin

mainclientsform.ADOQuery2.Active:=true;

mainclientsform.ADOQuery2.ExecSQL;

end;

end;

if nomer_poisk=3 then begin

P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter;

P1.Name:='P1';

p1.DataType := ftdatetime;

ayear:= strtoint (Edit4.Text);

amonth:=strtoint (Edit3.Text);

aday:=strtoint (Edit2.Text);

ahour:=0;

aminute:=0;

asecond:=0;

amillisecond:=0;

timenach:=encodedatetime (Ayear, amonth, aday, ahour, aminute, asecond, amillisecond);

srtkl:='%'+ srtkl+'%';

P1.Value := timenach;

sqlwhere:= ' where operaciya. datastart = :P1';

stroka_SQL:='select * from operaciya '+ sqlwhere;

mainclientsform.ADOQuery2.SQL.Add (stroka_SQL);

if stroka_SQL<>'' then begin

mainclientsform.ADOQuery2.Active:=true;

mainclientsform.ADOQuery2.ExecSQL;

end;

end;

if nomer_poisk=4 then begin

P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter;

P1.Name:='P1';

p1.DataType := ftdatetime;

ayear:= strtoint (Edit4.Text);

amonth:=strtoint (Edit3.Text);

aday:=strtoint (Edit2.Text);

ahour:=0;

aminute:=0;

asecond:=0;

amillisecond:=0;

timenach:=encodedatetime (Ayear, amonth, aday, ahour, aminute, asecond, amillisecond);

ayear:= strtoint (Edit7.Text);

amonth:=strtoint (Edit6.Text);

aday:=strtoint (Edit5.Text);

ahour:=0;

aminute:=0;

asecond:=0;

amillisecond:=0;

timekon:=encodedatetime (Ayear, amonth, aday, ahour, aminute, asecond, amillisecond);

P2 :=mainclientsform.ADOQuery2.Parameters.AddParameter;

P2.Name:='P2';

p2.DataType := ftdatetime;

P1.Value := timenach;

P2.Value := timekon;

sqlwhere:= ' where (operation.data_start > :P1) and (operation.data_start < :P2)';

stroka_SQL:='select * from operation'+ sqlwhere;

mainclientsform.ADOQuery2.SQL.Add (stroka_SQL);

if stroka_SQL<>'' then begin

mainclientsform.ADOQuery2.Active:=true;

mainclientsform.ADOQuery2.ExecSQL;

end;

end;

if nomer_poisk=5 then begin

P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter;

P1.Name:='P1';

p1.DataType := ftinteger;

if edit1. Text<>'' then

begin

idnakl:=strtoint (edit1.Text);

P1.Value :=idnakl;

sqlwhere:= ' where (zakaz.idzakaz = :P1)';

stroka_SQL:='select * from zakaz'+ sqlwhere;

mainclientsform.ADOQuery2.SQL.Add (stroka_SQL);

if stroka_SQL<>'' then begin

mainclientsform.ADOQuery2.Active:=true;

mainclientsform.ADOQuery2.ExecSQL;

end;

kol:= mainclientsform. ADOQuery2.RecordCount;

if kol=0 then showmessage ('такого заказа не существует')

else

begin

idzakaz:=mainclientsform.ADOQuery2.FieldByName ('idzakaz').AsInteger;

priznak:=mainclientsform.ADOQuery2.FieldByName ('vupolnen').AsString;

if priznak='n' then begin

idfuel:=mainclientsform.ADOQuery2.FieldByName ('idfuel').AsInteger;

massa_zak:=mainclientsform.ADOQuery2.FieldByName ('massa').AsFloat;

data_start:=mainclientsform.ADOQuery2.FieldByName ('data_start').AsDateTime;

idoperaciya:=mainclientsform.ADOQuery2.FieldByName ('idoperaciya').AsInteger;

MainClientsForm.ADOTable1.Active:=true;

MainClientsForm.ADOTable1.Insert;

MainClientsForm.ADOTable1.FieldByName ('idzakaz').AsInteger := idzakaz;

MainClientsForm.ADOTable1.FieldByName ('idfuel').AsInteger := idfuel;

MainClientsForm.ADOTable1.FieldByName ('massa').AsFloat := massa_zak;

MainClientsForm.ADOTable1.FieldByName ('data_start').AsDateTime := data_start;

MainClientsForm.ADOTable1.FieldByName ('idoperaciya').AsInteger := idoperaciya;

MainClientsForm.ADOTable1.Post;

showmessage ('Выполнение заказа запланировано успешно!');

mainclientsform.ADOTable4.First;

for i:=1 to mainclientsform. ADOTable4.RecordCount do

begin

if idzakaz= mainclientsform. ADOTable4.FieldByName ('idzakaz').AsInteger

then

begin

mainclientsform.ADOTable4.Edit;

mainclientsform.ADOTable4.FieldByName ('vupolnen').AsString:='Y';

end;

mainclientsform.ADOTable4.Next;

end;

end

else showmessage ('Выполнение заказа не требуется')

end;

end;

end;

end;

end.

Модуль DBDirectoryTemplate

unit DBDirectoryTemplate;

interface

uses

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

Dialogs, Grids, DBGrids;

type

TDBDirectoryTemplateForm = class (TForm)

TableDBGrid: TDBGrid;

procedure FormClose (Sender: TObject; var Action: TCloseAction);

private

{ Private declarations }

public

{ Public declarations }

end;

var

DBDirectoryTemplateForm: TDBDirectoryTemplateForm;

implementation

{$R *.dfm}

procedure TDBDirectoryTemplateForm. FormClose (Sender: TObject;

var Action: TCloseAction);

begin

Action:=caFree;

end;

end.

ChildTemplateForm.pas

unit ChildTemplate;

interface

uses

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

Dialogs, Buttons, Grids, DBGrids, ExtCtrls, Menus, StdCtrls;

type

TChildTemplateForm = class (TForm)

DBGrid1: TDBGrid;

Label1: TLabel;

procedure FormClose (Sender: TObject; var Action: TCloseAction);

procedure RzToolbarButton2Click (Sender: TObject);

procedure RzToolbarButton1Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

implementation

{$R *.dfm}

uses mainclients;

procedure TChildTemplateForm. FormClose (Sender: TObject;

var Action: TCloseAction);

begin

Action:=caFree;

end;

procedure TChildTemplateForm. RzToolbarButton1Click (Sender: TObject);

begin

dbgrid1.DataSource.DataSet.Insert;

end;

procedure TChildTemplateForm. RzToolbarButton2Click (Sender: TObject);

begin

dbgrid1.DataSource.DataSet.Edit;

end;

end.

ParamPoisk.pas

AddSource.pas

DbdDirectoryTemplate

childTemplate.pas

Главная форма приложения MainClients

Проект lgot