Создание информационной системы топливо-заправочной компании с разработкой её инфраструктуры

СПИСОК УСЛОВНЫХ ОБОЗНАЧЕНИЙ СОКРАЩЕНИЙ
ВВЕДЕНИЕ
1. АНАЛИЗ ПРЕДМЕТНОЙ ОБЛАСТИ И ТЕХНОЛОГИЙ ПОСТРОЕНИЯ ИНФОРМАЦИОННОЙ СИСТЕМЫ БЕСПЕРЕБОЙНОГО СНАБЖЕНИЯ ТОПЛИВОМ АЭРОПОРТА «ШЕРЕМЕТЬЕВО»
1.1. Анализ организационной структуры управления
1.2 Анализ бизнес-процессов
1.3. Разработка вариантов концепции ИС
1.4. Разработка технико-экономического описания и технического задания
2. ПРОЕКТИРОВАНИЕ ИНФОРМАЦИОННОЙ СИСТЕМЫ БЕСПЕРЕБОЙНОГО СНАБЖЕНИЯ ТОПЛИВОМ АЭРОПОРТА «ШЕРЕМЕТЬЕВО»
2.1. Общесистемные решения
2.2. Информационное обеспечение
2.3. Программное обеспечение
2.4. Техническое обеспечение
2.5. Технологическое обеспечение
3. ОСНОВАНИЕ ЭКОНОМИЧЕСКОЙ ЭФФЕКТИВНОСТИ ВНЕДРЕНИЯ ИНФОРМАЦИОННОЙ СИСТЕМЫ
3.1 Описание программного продукта
3.2 Гарантии и защита потребительских прав
3.3 Оценка рынка сбыта
3.4 Конкуренция
3.5 Ценообразование
3.6 Оценка риска и страхования
3.7 Финансовый план
3. 8. Выводы по результатам разработки бизнес – плана
4 ОХРАНА ТРУДА И ТЕХНИКА БЕЗОПАСНОСТИ ПРИ РАБОТЕ ЗА КОМПЬЮТЕРОМ
4.1 Общие положения
4.2 Эксплуатация ПЭВМ
4.3 Противопожарные мероприятия
4.4 Характеристика условий труда пользователя ПЭВМ
4.5 Требования к помещениям для работы с ПЭВМ
ЗАКЛЮЧЕНИЕ
ЛИТЕРАТУРА
ПРИЛОЖЕНИЕ. Листинг разработанной программы

— М.: Диалог-Мифи, 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;
N17: 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;
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;
idplan, idedinica,idfuel,iduslovie, idLocation, idzakaz, idGSM, idzapravshik,idPartiya:integer;
id_postavshik, idfuel1, idedinica1:integer;
massa_zak,massa,zapas:real;
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.ADOTable8;
mainclientsform.ADOTable8.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 поставщик';
DirectoryForm.TableDBGrid.Fields[5].DisplayLabel:='размер';
DirectoryForm.TableDBGrid.Fields[6].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:='Начало операции';
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:='Id топлива';
DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='Id партии';
DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='Id условия';
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:='примечание';
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.N18Click(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.GroupBox3.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.ADOTable9.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[6].DisplayLabel:='дата окончания';
DirectoryForm.TableDBGrid.Fields[7].DisplayLabel:='дата заключения'
end;
procedure TMainClientsForm.N24Click(Sender: TObject);
begin
IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');
IsMDIChildOpen(MainClientsForm,'addForm');
mainflag:=false;
mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable10;
mainclientsform.ADOTable10.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.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;
MainClientsForm.ADOTable8.Active:=true;
MainClientsForm.ADOTable9.Active:=true;
MainClientsForm.ADOTable10.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;
dobForm.GroupBox3.Visible:=false;
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:='';
prosmForm.edit7.text:='';
prosmForm.edit9.text:='';
prosmForm.edit10.text:='';
prosmForm.edit8.text:='';
prosmForm.edit11.text:='';
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:='';
prosmForm.edit24.text:='';
prosmForm.edit25.text:='';
prosmForm.edit26.text:='';
prosmForm.edit27.text:='';
prosmForm.edit28.text:='';
prosmForm.edit29.text:='';
prosmForm.edit41.text:='';
prosmForm.edit42.text:='';
prosmForm.edit43.text:='';
prosmForm.edit44.text:='';
prosmForm.edit45.text:='';
prosmForm.edit46.text:='';
prosmForm.edit47.text:='';
prosmForm.edit48.text:='';
prosmForm.edit49.text:='';
prosmForm.edit50.text:='';
prosmForm.edit51.text:='';
//из таблицы
idLocation:=MainClientsForm.DataSource1.DataSet.FieldByName('idLocation').AsInteger; ;
idzakaz :=MainClientsForm.DataSource1.DataSet.FieldByName('idzakaz').AsInteger;
idGSM:=MainClientsForm.DataSource1.DataSet.FieldByName('idGSM').AsInteger;
idzapravshik:=MainClientsForm.DataSource1.DataSet.FieldByName('id_zapravshik').AsInteger;
idplan:=MainClientsForm.DataSource1.DataSet.FieldByName('id_plan').AsInteger;
prosmForm.Edit2.Text:=inttostr(idplan);
massa:=MainClientsForm.DataSource1.DataSet.FieldByName('massa').AsFloat;
prosmForm.Edit45.Text:=floattostr(massa);
datetmp:=MainClientsForm.DataSource1.DataSet.FieldByName('data_start').AsDateTime;
prosmForm.Edit3.Text:=datetimetostr(datetmp);
datetmp:=MainClientsForm.DataSource1.DataSet.FieldByName('zavershen').AsDateTime;
prosmForm.Edit41.Text:=datetimetostr(datetmp);
rez:= MainClientsForm.DataSource1.DataSet.FieldByName('vupolnen').AsString ;
if rez='y' then prosmForm.CheckBox1.Checked:=true
else prosmForm.CheckBox1.Checked:=false;
// размещение
sql_str:='SELECT * from Location where idLocation= :P11';
MainClientsForm.ADOQuery1.Active:=false;
MainClientsForm.ADOQuery1.SQL.Clear;
P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter;
P11.Name:='P11';
p11.DataType := ftinteger;
P11.Value:=idLocation;
P11.Size:=4;
MainClientsForm.ADOQuery1.SQL.Add(sql_str);
MainClientsForm.ADOQuery1.Active:=true;
MainClientsForm.ADOQuery1.ExecSQL;
rez:=MainClientsForm.ADOQuery1.FieldByName('Location_name').AsString;
prosmForm.Edit14.Text:=rez;
rez:=MainClientsForm.ADOQuery1.FieldByName('notes').AsString;
prosmForm.Edit16.Text:=rez;
// ГСМ
sql_str:='SELECT * from gsm where idGSM= :P11';
MainClientsForm.ADOQuery1.Active:=false;
MainClientsForm.ADOQuery1.SQL.Clear;
P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter;
P11.Name:='P11';
p11.DataType := ftinteger;
P11.Value:=idGSM;
P11.Size:=4;
MainClientsForm.ADOQuery1.SQL.Add(sql_str);
MainClientsForm.ADOQuery1.Active:=true;
MainClientsForm.ADOQuery1.ExecSQL;
zapas:=MainClientsForm.ADOQuery1.FieldByName('zapas').AsFloat;
prosmForm.Edit46.Text:=floattostr(zapas);
idfuel:=MainClientsForm.ADOQuery1.FieldByName('idfuel').AsInteger;
iduslovie:=MainClientsForm.ADOQuery1.FieldByName('id_uslovie').AsInteger;
idPartiya:= MainClientsForm.ADOQuery1.FieldByName('idPartiya').AsInteger;
// топливо
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.Edit43.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.Edit44.Text:=rez;
// партия
sql_str:='SELECT * from partiya where idpartiya= :P11';
MainClientsForm.ADOQuery1.Active:=false;
MainClientsForm.ADOQuery1.SQL.Clear;
P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter;
P11.Name:='P11';
p11.DataType := ftinteger;
P11.Value:= idpartiya;
P11.Size:=4;
MainClientsForm.ADOQuery1.SQL.Add(sql_str);
MainClientsForm.ADOQuery1.Active:=true;
MainClientsForm.ADOQuery1.ExecSQL;
rez:=MainClientsForm.ADOQuery1.FieldByName('nomer').AsString ;
prosmForm.Edit4.Text:=rez;
id_postavshik:=MainClientsForm.ADOQuery1.FieldByName('id_postavshik').AsInteger ;
rez:=MainClientsForm.ADOQuery1.FieldByName('razmer').AsString ;
prosmForm.Edit8.Text:=rez ;
datetmp:=MainClientsForm.ADOQuery1.FieldByName('data_postavki').AsDateTime ;
prosmForm.Edit5.Text:=datetimetoSTR(datetmp);
rez:=MainClientsForm.ADOQuery1.FieldByName('srok_godnosty').AsString ;
prosmForm.Edit17.Text:=rez ;
//поставщик
sql_str:='SELECT * from postavshik where id_postavshik= :P11';
MainClientsForm.ADOQuery1.Active:=false;
MainClientsForm.ADOQuery1.SQL.Clear;
P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter;
P11.Name:='P11';
p11.DataType := ftinteger;
P11.Value:= id_postavshik;
P11.Size:=4;
MainClientsForm.ADOQuery1.SQL.Add(sql_str);
MainClientsForm.ADOQuery1.Active:=true;
MainClientsForm.ADOQuery1.ExecSQL;
rez:=MainClientsForm.ADOQuery1.FieldByName('firm_name').AsString ;
prosmForm.Edit12.Text:=rez;
rez:=MainClientsForm.ADOQuery1.FieldByName('nomer_dogovor').AsString ;
prosmForm.Edit10.Text:=rez;
rez:=MainClientsForm.ADOQuery1.FieldByName('adres').AsString ;
prosmForm.Edit13.Text:=rez;
rez:=MainClientsForm.ADOQuery1.FieldByName('emaile').AsString ;
prosmForm.Edit11.Text:=rez;
rez:=MainClientsForm.ADOQuery1.FieldByName('phone').AsString ;
prosmForm.Edit9.Text:=rez;
datetmp:=MainClientsForm.ADOQuery1.FieldByName('data_okonch').AsDateTime ;
prosmForm.Edit45.Text:=datetimetoSTR(datetmp);
datetmp:=MainClientsForm.ADOQuery1.FieldByName('data_zakl').AsDateTime ;
prosmForm.Edit6.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.Edit47.Text:=rez;
rez:=MainClientsForm.ADOQuery1.FieldByName('nomer').AsString ;
prosmForm.Edit48.Text:=rez;
// условие iduslovie
sql_str:='SELECT * from uslovie where id_uslovie= :P11';
MainClientsForm.ADOQuery1.Active:=false;
MainClientsForm.ADOQuery1.SQL.Clear;
P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter;
P11.Name:='P11';
p11.DataType := ftinteger;
P11.Value:=iduslovie;
P11.Size:=4;
MainClientsForm.ADOQuery1.SQL.Add(sql_str);
MainClientsForm.ADOQuery1.Active:=true;
MainClientsForm.ADOQuery1.ExecSQL;
rez:=MainClientsForm.ADOQuery1.FieldByName('temperature').AsString ;
prosmForm.Edit7.Text:=rez;
rez:=MainClientsForm.ADOQuery1.FieldByName('plotnost').AsString ;
prosmForm.Edit15.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.Edit18.Text:=rez;
datetmp:=MainClientsForm.ADOQuery1.FieldByName('datasozdaniya').AsDateTime ;
prosmForm.Edit19.Text:=datetimetoSTR(datetmp);
datetmp:=MainClientsForm.ADOQuery1.FieldByName('data_start').AsDateTime ;
prosmForm.Edit20.Text:=datetimetoSTR(datetmp);
datetmp:=MainClientsForm.ADOQuery1.FieldByName('data_finish').AsDateTime ;
prosmForm.Edit21.Text:=datetimetoSTR(datetmp);
idfuel1:=MainClientsForm.ADOQuery1.FieldByName('idfuel').AsInteger;
massa_zak:=MainClientsForm.ADOQuery1.FieldByName('massa').AsFloat;
prosmForm.Edit50.Text:=floattoSTR(datetmp);
// топливо заказа
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:=idfuel1;
P11.Size:=4;
MainClientsForm.ADOQuery1.SQL.Add(sql_str);
MainClientsForm.ADOQuery1.Active:=true;
MainClientsForm.ADOQuery1.ExecSQL;
rez:=MainClientsForm.ADOQuery1.FieldByName('fuel').AsString ;
prosmForm.Edit22.Text:=rez;
rez:=MainClientsForm.ADOQuery1.FieldByName('vid_GSM').AsString ;
prosmForm.Edit23.Text:=rez;
rez:=MainClientsForm.ADOQuery1.FieldByName('marka').AsString ;
prosmForm.Edit49.Text:=rez;
idedinica1:=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:= idedinica1;
P11.Size:=4;
MainClientsForm.ADOQuery1.SQL.Add(sql_str);
MainClientsForm.ADOQuery1.Active:=true;
MainClientsForm.ADOQuery1.ExecSQL;
rez:=MainClientsForm.ADOQuery1.FieldByName('name_edinica').AsString ;
prosmForm.Edit51.Text:=rez;
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.GroupBox3.Left:=2;
zakForm.GroupBox3.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.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.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.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.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.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.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:='ID размещение';
DirectoryForm.TableDBGrid.Fields[5].DisplayLabel:='Начало';
DirectoryForm.TableDBGrid.Fields[6].DisplayLabel:='ID заправщика';
end;
procedure TMainClientsForm.N11Click(Sender: TObject);
var naklForm: Taddform;
begin
mainflag:=false;
IsMDIChildOpen(MainClientsForm,'naklForm');
IsMDIChildOpen(MainClientsForm,'addForm');
naklForm:=Taddform.Create(Owner);
naklForm.Top:=240;
naklForm.Left:=3;
naklForm.Caption:='поступление ГСМ';
naklForm.Show;
naklForm.GroupBox1.Visible:=false;
naklForm.GroupBox2.Visible:=false;
naklForm.GroupBox3.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;
Label17: TLabel;
GroupBox2: TGroupBox;
Edit16: TEdit;
Button1: TButton;
DBNavigator1: TDBNavigator;
Edit13: TEdit;
Label10: TLabel;
Label9: TLabel;
Label8: TLabel;
Label7: TLabel;
Edit5: TEdit;
Edit17: TEdit;
Label14: TLabel;
Label6: TLabel;
Edit8: TEdit;
Edit9: TEdit;
Edit10: TEdit;
Edit12: TEdit;
Edit11: TEdit;
Label13: TLabel;
Label11: TLabel;
Edit14: TEdit;
Edit4: TEdit;
GroupBox3: TGroupBox;
Button2: TButton;
Edit1: TEdit;
Label1: TLabel;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
Label4: TLabel;
Edit42: TEdit;
Edit3: TEdit;
Edit41: TEdit;
Label32: TLabel;
Label33: TLabel;
Edit43: TEdit;
Label34: TLabel;
Edit44: TEdit;
Label35: TLabel;
Edit45: TEdit;
Edit46: TEdit;
gk: TLabel;
Label5: TLabel;
CheckBox1: TCheckBox;
Label12: TLabel;
Label36: TLabel;
Label37: TLabel;
Edit6: TEdit;
Label38: TLabel;
Edit7: TEdit;
Label39: TLabel;
Edit15: TEdit;
Label40: TLabel;
Edit47: TEdit;
Label41: TLabel;
Edit48: TEdit;
Label15: TLabel;
Edit18: TEdit;
Label16: TLabel;
Edit20: TEdit;
Edit21: TEdit;
Label18: TLabel;
Label42: TLabel;
Edit22: TEdit;
Label43: TLabel;
Edit23: TEdit;
Label44: TLabel;
Edit49: TEdit;
Label45: TLabel;
Edit50: TEdit;
Label46: TLabel;
Edit51: TEdit;
Edit19: TEdit;
Edit24: TEdit;
Label19: TLabel;
Edit25: TEdit;
Label20: TLabel;
Label21: TLabel;
Edit26: TEdit;
Edit27: TEdit;
Label22: TLabel;
Edit28: TEdit;
Label50: TLabel;
Label51: TLabel;
Edit29: TEdit;
Edit53: TEdit;
Label52: TLabel;
Label53: TLabel;
Edit54: TEdit;
Edit55: TEdit;
Label54: TLabel;
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,zavershen:tdate;
postavchik:string;
description:string;
location:string;
location_part:string;
primech:string;
Ayear, amonth,aday:word;
razmer_part,kol:integer;
id_part,idaddional,idlocation,idzapas:integer;
idtov:integer;
massa_zak:real;
gsm,vidgsm,marka,edinica:string;
idedinica,srok_godnosti:integer;
nomer,tip,location_name,notes:string;
temperatura,plotnost:real;
firm_name,adres,phone,emaile,nomer_dogovor,nomer_part:string;
data_zakl,data_okonch,data_postavki,data_finish,data_start,datasozdaniya:tdatetime;
razmer : real;
idzakaz, nomerzakaz:integer;
implementation
uses MainClients;
{$R *.dfm}
procedure TaddForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;
procedure TaddForm.Button1Click(Sender: TObject);
var dataprov,datazav:tdatetime;
// zapas:real;
begin
groupbox1.visible:=true;
edinica:=edit44.Text;
gsm:=edit1.Text;
vidgsm:= edit42.Text;
marka:=edit43.Text;
nomer:= edit48.Text;
tip:=edit47.Text;
location_name:=edit14.Text;
notes:=edit16.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;
if location_name<>'' then begin
MainClientsForm.ADOTable6.Active:=true;
MainClientsForm.ADOTable6.Insert;
MainClientsForm.ADOTable6.FieldByName('location_name').AsString:=location;
MainClientsForm.ADOTable6.FieldByName('notes').AsString:=notes;
MainClientsForm.ADOTable6.Post;
idlocation:=MainClientsForm.ADOTable6.FieldByName('idlocation').AsInteger;
end;
if edit7.Text<>'' then
begin
temperatura:= strtofloat(edit7.Text);
if edit15.Text<>'' then plotnost:= strtofloat(edit15.Text);
MainClientsForm.ADOTable10.Active:=true;
MainClientsForm.ADOTable10.Insert;
MainClientsForm.ADOTable10.FieldByName('temperature').AsFloat:=temperatura;
MainClientsForm.ADOTable10.FieldByName('plotnost').AsFloat:=plotnost;
MainClientsForm.ADOTable10.Post;
iduslovie:=MainClientsForm.ADOTable10.FieldByName('id_uslovie').AsInteger;
end;
firm_name:=edit12.Text;
if firm_name<>'' then begin
adres:=edit13.Text;
phone := edit9.Text;
emaile :=edit13.Text;
nomer_dogovor:=edit10.Text;
if edit6.text<>'' then data_zakl:=strtodate(edit6.text);
if edit45.text<>'' then data_okonch:=strtodate(edit45.text);
MainClientsForm.ADOTable9.Active:=true;
MainClientsForm.ADOTable9.Insert;
MainClientsForm.ADOTable9.FieldByName('firm_name').asstring :=firm_name;
MainClientsForm.ADOTable9.FieldByName('adres').asstring := adres;
MainClientsForm.ADOTable9.FieldByName('phone').asstring := phone;
MainClientsForm.ADOTable9.FieldByName('emaile').asstring := emaile;
MainClientsForm.ADOTable9.FieldByName('nomer_dogovor').asstring := nomer_dogovor;
MainClientsForm.ADOTable9.FieldByName('data_zakl').AsDateTime := data_zakl;
MainClientsForm.ADOTable9.FieldByName('data_okonch').AsDateTime := data_okonch;
MainClientsForm.ADOTable9.Post;
id_postavshik:=MainClientsForm.ADOTable9.FieldByName('id_postavshik').AsInteger;
end;
nomer_part:=edit4.Text;
if nomer_part<>'' then begin
razmer:=strtofloat(edit8.Text);
if edit17.Text<>'' then
srok_godnosti:=strtoint(edit17.Text);
if edit5.text<>'' then data_postavki:=strtodate(edit5.text);
MainClientsForm.ADOTable8.Active:=true;
MainClientsForm.ADOTable8.Active:=true;
MainClientsForm.ADOTable8.Insert;
MainClientsForm.ADOTable8.FieldByName('nomer').asstring :=nomer_part;
MainClientsForm.ADOTable8.FieldByName('razmer').AsFloat := razmer;
MainClientsForm.ADOTable8.FieldByName('srok_godnosty').AsInteger := srok_godnosti;
if idlocation<>0 then
MainClientsForm.ADOTable8.FieldByName('idlocation').AsInteger := idlocation;
if id_postavshik<>0 then
MainClientsForm.ADOTable8.FieldByName('id_postavshik').AsInteger := id_postavshik;
MainClientsForm.ADOTable8.FieldByName('data_postavki').AsDateTime := data_postavki;
MainClientsForm.ADOTable8.Post;
idpartiya:=MainClientsForm.ADOTable8.FieldByName('idpartiya').AsInteger;
end;
if edit46.text<>'' then
begin
zapas:=strtofloat(edit46.text) ;
MainClientsForm.ADOTable5.Active:=true;
MainClientsForm.ADOTable5.Active:=true;
MainClientsForm.ADOTable5.Insert;
MainClientsForm.ADOTable5.FieldByName('zapas').AsFloat := zapas;
if idfuel<>0 then
MainClientsForm.ADOTable5.FieldByName('idfuel').AsInteger := idfuel;
if idpartiya<>0 then
MainClientsForm.ADOTable5.FieldByName('idpartiya').AsInteger := idpartiya;
if iduslovie<>0 then
MainClientsForm.ADOTable5.FieldByName('id_uslovie').AsInteger := iduslovie;
MainClientsForm.ADOTable5.Post;
idgsm:=MainClientsForm.ADOTable5.FieldByName('idGSM').AsInteger;
end;
if edit18.text<>'' then
begin
nomerzakaz:=strtoint(edit18.text) ;
gsm:=edit22.Text;
vidgsm:= edit23.Text;
marka:=edit49.Text;
if edit22.Text<>'' 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;
MainClientsForm.ADOTable4.Active:=true;
MainClientsForm.ADOTable4.Active:=true;
MainClientsForm.ADOTable4.Insert;
massa_zak:=strtofloat(edit50.Text);
MainClientsForm.ADOTable4.FieldByName('massa').AsFloat := massa_zak;
data_finish:=strtodatetime(edit21.Text);
data_start:=strtodatetime(edit20.Text);
datasozdaniya:=strtodatetime(edit19.Text);
if idfuel<>0 then
MainClientsForm.ADOTable4.FieldByName('idfuel').AsInteger := idfuel;
MainClientsForm.ADOTable4.FieldByName('nomer_dokumen').AsInteger := nomerzakaz;
if edit19.Text<>'' then
MainClientsForm.ADOTable4.FieldByName('datasozdaniya').AsDateTime:=datasozdaniya;
if edit20.Text<>'' then
MainClientsForm.ADOTable4.FieldByName('data_start').AsDateTime:=data_start;
if edit21.Text<>'' then
MainClientsForm.ADOTable4.FieldByName('data_finish').AsDateTime:=data_finish;
MainClientsForm.ADOTable4.Post;
idzakaz:=MainClientsForm.ADOTable4.FieldByName('idzakaz').AsInteger;
end;
if edit18.text<>'' then
begin
MainClientsForm.ADOTable1.Active:=true;
MainClientsForm.ADOTable1.Active:=true;
MainClientsForm.ADOTable1.Insert;
MainClientsForm.ADOTable1.FieldByName('idzakaz').AsInteger := idzakaz;
MainClientsForm.ADOTable1.FieldByName('idGSM').AsInteger := idGSM;
MainClientsForm.ADOTable1.FieldByName('massa').AsFloat := massa;
MainClientsForm.ADOTable1.FieldByName('idlocation').AsInteger := idlocation;
MainClientsForm.ADOTable1.FieldByName('data_start').AsDateTime := data_start;
MainClientsForm.ADOTable1.FieldByName('id_zapravshik').AsInteger := idzapravshik;
MainClientsForm.ADOTable1.FieldByName('zavershen').AsDateTime := zavershen;
MainClientsForm.ADOTable1.FieldByName('vupolnen').AsString :='y' ;
MainClientsForm.ADOTable1.Post;
end;
end;
procedure TaddForm.Button2Click(Sender: TObject);
var tovar, srtkl,name_poisk,sqlwhere,stroka_SQL :string;
p1:tparameter;
begin
begin
nomerzakaz:=strtoint(edit55.text) ;
gsm:=edit28.Text;
vidgsm:= edit27.Text;
marka:=edit25.Text;
if edit22.Text<>'' 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;
MainClientsForm.ADOTable4.Active:=true;
MainClientsForm.ADOTable4.Active:=true;
MainClientsForm.ADOTable4.Insert;
massa_zak:=strtofloat(edit26.Text);
MainClientsForm.ADOTable4.FieldByName('massa').AsFloat := massa_zak;
data_finish:=strtodatetime(edit29.Text);
data_start:=strtodatetime(edit53.Text);
datasozdaniya:=strtodatetime(edit54.Text);
if idfuel<>0 then
MainClientsForm.ADOTable4.FieldByName('idfuel').AsInteger := idfuel;
MainClientsForm.ADOTable4.FieldByName('nomer_dokumen').AsInteger := nomerzakaz;
if edit19.Text<>'' then
MainClientsForm.ADOTable4.FieldByName('datasozdaniya').AsDateTime:=datasozdaniya;
if edit20.Text<>'' then
MainClientsForm.ADOTable4.FieldByName('data_start').AsDateTime:=data_start;
if edit21.Text<>'' then
MainClientsForm.ADOTable4.FieldByName('data_finish').AsDateTime:=data_finish;
MainClientsForm.ADOTable4.Post;
idzakaz:=MainClientsForm.ADOTable4.FieldByName('idzakaz').AsInteger;
end;
end;
procedure TaddForm.Button3Click(Sender: TObject);
var tovar, srtkl,name_poisk,sqlwhere,stroka_SQL :string;
p1:tparameter;
begin
if edit18.text<>'' then
begin
nomerzakaz:=strtoint(edit18.text) ;
gsm:=edit22.Text;
vidgsm:= edit23.Text;
marka:=edit49.Text;
if edit22.Text<>'' 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;
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 RzBitBtn4Click(Sender: TObject);
procedure RzBitBtn3Click(Sender: TObject);
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
{flagsort:=false;}
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;
stroka_SQL:='select * from book, avtor, izdat, vid, category '+sqlwhere
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;
if edit1.Text<>'' then begin
srtkl := edit1.Text;
name_poisk:= 'Tovar.nameTovar'
end;
if srtkl<>'' then
begin
srtkl:='%'+ srtkl+'%';
P1.Value:=srtkl;
P1.Size:=Length(srtkl);
end;
ChildTemplateForm.Label1.Caption:='Информация о топливе: '+edit1.Text;
sqlwhere:= ' where fuel.marka Like :P1';
stroka_SQL:='select * from fuel'+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 := ftstring;
if edit1.Text<>'' then begin
srtkl := edit1.Text;
name_poisk:= 'Tovar.nameTovar'
end;
if srtkl<>'' then
begin
srtkl:='%'+ srtkl+'%';
P1.Value:=srtkl;
P1.Size:=Length(srtkl);
end;
ChildTemplateForm.Label1.Caption:='Информация о поставщике: '+edit1.Text;
sqlwhere:= ' where firm_name Like :P1';
stroka_SQL:='select * from postavshik'+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 := ftinteger;
if edit1.Text<>'' then begin
srtkl := edit1.Text;
name_poisk:= 'Tovar.nameTovar'
end;
if srtkl<>'' then
begin
srtkl:=srtkl;
P1.Value:=srtkl;
P1.Size:=Length(srtkl);
end;
sqlwhere:= ' where (location.idlocation = ( select partiya.idlocation from partiya where partiya.idpartiya = :P1))';
stroka_SQL:='select * from location '+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 (plan1.data_start > :P1) and (plan1.data_start < :P2)';
stroka_SQL:='select * from plan1'+ 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 (plan1.id_plan = :P1)';
stroka_SQL:='select * from plan1'+ 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
idGSM:=mainclientsform.ADOQuery2.FieldByName('idGSM').AsInteger;
priznak:=mainclientsform.ADOQuery2.FieldByName('vupolnen').AsString;
if priznak='n' then begin
massa_zak:=mainclientsform.ADOQuery2.FieldByName('massa').AsFloat;
mainclientsform.ADOTable5.First;
for i:=1 to mainclientsform.ADOTable5.RecordCount do
begin
if idgsm= mainclientsform.ADOTable5.FieldByName('idgsm').AsInteger
then
begin
mainclientsform.ADOTable5.Edit;
massa:=mainclientsform.ADOTable5.FieldByName('zapas').AsFloat-massa_zak;
mainclientsform.ADOTable5.FieldByName('zapas').AsFloat:=massa;
end;
mainclientsform.ADOTable5.Next;
end;
showmessage('Выполнение заказа запланировано успешно!');
mainclientsform.ADOTable1.First;
for i:=1 to mainclientsform.ADOTable1.RecordCount do
begin
if idnakl= mainclientsform.ADOTable1.FieldByName('id_plan').AsInteger
then
begin
mainclientsform.ADOTable1.Edit;
mainclientsform.ADOTable1.FieldByName('vupolnen').AsString:='Y';
end;
mainclientsform.ADOTable1.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
TChildTempla