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

— М.: Диалог-Мифи, 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

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

Объемы продаж, шт

Сумма, тыс. руб

Выручка от реализации

Затраты на производство

Условно постоянные затраты