Проектирование автоматизированной информационной системы формирования и исполнения Договоров купли-продажи отдела оформления компании ООО «Автотрейд АГ»

— М.: Диалог-Мифи, 2001. — 304 с.

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

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

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

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

SQL код создания базы данных

SET ANSI_NULLS ON

GO

SET QUOTED_IDENTIFIER ON

GO

IF NOT EXISTS (SELECT * FROM sys. objects WHERE object_id = OBJECT_ID (N'[dbo]. Zapas]') AND type in (N'U'))

BEGIN

CREATE TABLE [dbo]. Zapas](

[idZapas] [bigint] IDENTITY (1,1) NOT NULL,

[Izmerenie] [char](10) NULL,

[zapas] [bigint] NULL,

[stoimost] [real] NULL,

[rezerv_kol] [bigint] NULL,

[rezerv_name] [char](20) NULL,

[rezerv_date] [datetime] NULL,

[rezerv_prim] [char](20) NULL,

CONSTRAINT [PK_Zapas] PRIMARY KEY CLUSTERED

(

[idZapas] ASC

)WITH (IGNORE_DUP_KEY = OFF) ON [PRIMARY]

) ON [PRIMARY]

END

GO

SET ANSI_NULLS ON

GO

SET QUOTED_IDENTIFIER ON

GO

IF NOT EXISTS (SELECT * FROM sys. objects WHERE object_id = OBJECT_ID (N'[dbo]. Zakaz]') AND type in (N'U'))

BEGIN

CREATE TABLE [dbo]. Zakaz](

[idZakaz] [bigint] IDENTITY (1,1) NOT NULL,

[kogda] [datetime] NULL,

[lico] [char](10) NULL,

[idTovar] [bigint] NULL,

[kolichestvo] [bigint] NULL,

CONSTRAINT [PK_Zakaz] PRIMARY KEY CLUSTERED

(

[idZakaz] ASC

)WITH (IGNORE_DUP_KEY = OFF) ON [PRIMARY]

) ON [PRIMARY]

END

GO

SET ANSI_NULLS ON

GO

SET QUOTED_IDENTIFIER ON

GO

IF NOT EXISTS (SELECT * FROM sys. objects WHERE object_id = OBJECT_ID (N'[dbo]. partiya]') AND type in (N'U'))

BEGIN

CREATE TABLE [dbo]. partiya](

[IdPartiya] [bigint] IDENTITY (1,1) NOT NULL,

[Nom_part] [char](10) NULL,

[kolichestvo] [bigint] NULL,

[otkuda] [char](15) NULL,

[kogda] [datetime] NULL,

[description] [char](20) NULL,

CONSTRAINT [PK_partiya] PRIMARY KEY CLUSTERED

(

[IdPartiya] ASC

)WITH (IGNORE_DUP_KEY = OFF) ON [PRIMARY]

) ON [PRIMARY]

END

GO

SET ANSI_NULLS ON

GO

SET QUOTED_IDENTIFIER ON

GO

IF NOT EXISTS (SELECT * FROM sys. objects WHERE object_id = OBJECT_ID (N'[dbo]. Location]') AND type in (N'U'))

BEGIN

CREATE TABLE [dbo]. Location](

[IdLocation] [bigint] IDENTITY (1,1) NOT NULL,

[Location] [char](20) NULL,

[addional_location] [char](20) NULL,

[notes] [char](20) NULL,

CONSTRAINT [PK_Location] PRIMARY KEY CLUSTERED

(

[IdLocation] ASC

)WITH (IGNORE_DUP_KEY = OFF) ON [PRIMARY]

) ON [PRIMARY]

END

GO

SET ANSI_NULLS ON

GO

SET QUOTED_IDENTIFIER ON

GO

IF NOT EXISTS (SELECT * FROM sys. objects WHERE object_id = OBJECT_ID (N'[dbo]. Addional]') AND type in (N'U'))

BEGIN

CREATE TABLE [dbo]. Addional](

[idaddional] [bigint] IDENTITY (1,1) NOT NULL,

[Ser_num] [char](15) NULL,

[srok_godnost] [datetime] NULL,

CONSTRAINT [PK_Addional] PRIMARY KEY CLUSTERED

(

[idaddional] ASC

)WITH (IGNORE_DUP_KEY = OFF) ON [PRIMARY]

) ON [PRIMARY]

END

GO

SET ANSI_NULLS ON

GO

SET QUOTED_IDENTIFIER ON

GO

IF NOT EXISTS (SELECT * FROM sys. objects WHERE object_id = OBJECT_ID (N'[dbo]. Tovar]') AND type in (N'U'))

BEGIN

CREATE TABLE [dbo]. Tovar](

[idTovar] [bigint] IDENTITY (1,1) NOT NULL,

[nameTovar] [char](40) NOT NULL,

[idLocation] [bigint] NULL,

[idAddional] [bigint] NULL,

[idZapas] [bigint] NULL,

[idPartiya] [bigint] NULL,

CONSTRAINT [PK_Tovar] PRIMARY KEY CLUSTERED

(

[idTovar] ASC

)WITH (IGNORE_DUP_KEY = OFF) ON [PRIMARY]

) ON [PRIMARY]

END

GO

SET ANSI_NULLS ON

GO

SET QUOTED_IDENTIFIER ON

GO

IF NOT EXISTS (SELECT * FROM sys. objects WHERE object_id = OBJECT_ID (N'[dbo]. Dogovor]') AND type in (N'U'))

BEGIN

CREATE TABLE [dbo]. Dogovor](

[idDogovor] [bigint] IDENTITY (1,1) NOT NULL,

[vremya] [datetime] NULL,

[IdTovar] [bigint] NULL,

[otkuda] [char](15) NULL,

[kuda] [char](15) NULL,

[kolichestvo] [bigint] NULL,

[stoimost] [real] NULL,

[idPartiya] [bigint] NULL,

[Lico] [char](10) NULL,

[IdZakaz] [bigint] NULL,

[provodka] [char](1) NULL,

CONSTRAINT [PK_Nakladnaya] PRIMARY KEY CLUSTERED

(

[idDogovor] ASC

)WITH (IGNORE_DUP_KEY = OFF) ON [PRIMARY]

) ON [PRIMARY]

END

GO

IF NOT EXISTS (SELECT * FROM sys. foreign_keys WHERE object_id = OBJECT_ID (N'[dbo]. FK_Tovar_Addional]') AND parent_object_id = OBJECT_ID (N'[dbo]. Tovar]'))

ALTER TABLE [dbo]. Tovar] WITH CHECK ADD CONSTRAINT [FK_Tovar_Addional] FOREIGN KEY ([idAddional])

REFERENCES [dbo]. Addional] ([idaddional])

GO

IF NOT EXISTS (SELECT * FROM sys. foreign_keys WHERE object_id = OBJECT_ID (N'[dbo]. FK_Tovar_Location]') AND parent_object_id = OBJECT_ID (N'[dbo]. Tovar]'))

ALTER TABLE [dbo]. Tovar] WITH CHECK ADD CONSTRAINT [FK_Tovar_Location] FOREIGN KEY ([idTovar])

REFERENCES [dbo]. Location] ([IdLocation])

GO

IF NOT EXISTS (SELECT * FROM sys. foreign_keys WHERE object_id = OBJECT_ID (N'[dbo]. FK_Tovar_partiya]') AND parent_object_id = OBJECT_ID (N'[dbo]. Tovar]'))

ALTER TABLE [dbo]. Tovar] WITH CHECK ADD CONSTRAINT [FK_Tovar_partiya] FOREIGN KEY ([idPartiya])

REFERENCES [dbo]. partiya] ([IdPartiya])

GO

IF NOT EXISTS (SELECT * FROM sys. foreign_keys WHERE object_id = OBJECT_ID (N'[dbo]. FK_Tovar_Zapas]') AND parent_object_id = OBJECT_ID (N'[dbo]. Tovar]'))

ALTER TABLE [dbo]. Tovar] WITH CHECK ADD CONSTRAINT [FK_Tovar_Zapas] FOREIGN KEY ([idZapas])

REFERENCES [dbo]. Zapas] ([idZapas])

GO

IF NOT EXISTS (SELECT * FROM sys. foreign_keys WHERE object_id = OBJECT_ID (N'[dbo]. FK_Nakladnaya_Tovar]') AND parent_object_id = OBJECT_ID (N'[dbo]. Dogovor]'))

ALTER TABLE [dbo]. Dogovor] WITH CHECK ADD CONSTRAINT [FK_Nakladnaya_Tovar] FOREIGN KEY ([IdTovar])

REFERENCES [dbo]. Tovar] ([idTovar])

GO

IF NOT EXISTS (SELECT * FROM sys. foreign_keys WHERE object_id = OBJECT_ID (N'[dbo]. FK_Nakladnaya_Zakaz]') AND parent_object_id = OBJECT_ID (N'[dbo]. Dogovor]'))

ALTER TABLE [dbo]. Dogovor] WITH CHECK ADD CONSTRAINT [FK_Nakladnaya_Zakaz] FOREIGN KEY ([IdZakaz])

REFERENCES [dbo]. Zakaz] ([idZakaz])

Динамические SQL ЗАПРОСЫ

SELECT * FROM LOCATION WHERE IDLOCATION= :P11

SELECT * FROM ADDIONAL WHERE IDADDIONAL= :P11

SELECT * FROM LOCATION WHERE IDLOCATION= :P11

SELECT * FROM ZAPAS WHERE IDZAPAS= :P11

SELECT * FROM PARTIYA WHERE IDPARTIYA= :P11

SELECT * FROM TOVAR WHERE TOVAR. NAMETOVAR LIKE: P1

SELECT * FROM TOVAR WHERE TOVAR. NAMETOVAR LIKE: P1

SELECT * FROM ZAPAS WHERE (ZAPAS.IDZAPAS = (SELECT TOVAR. IDZAPAS FROM TOVAR WHERE TOVAR. NAMETOVAR LIKE: P1))

SELECT * FROM LOCATION (LOCATION.IDLOCATION = (SELECT TOVAR. IDLOCATION FROM TOVAR WHERE TOVAR. NAMETOVAR LIKE: P1))

SELECT * FROM DOGOVOR WHERE (DOGOVOR.VREMYA > :P1) AND (DOGOVOR.VREMYA < :P2)

SELECT * FROM DOGOVOR WHERE (DOGOVOR.IDDOGOVOR = :P1)

'SELECT * FROM TOVAR WHERE (TOVAR.IDTOVAR = :P2)

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

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;

N11: TMenuItem;

N12: TMenuItem;

N13: TMenuItem;

N14: 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;

Image1: TImage;

procedure N12Click (Sender: TObject);

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

function IsFormOpen (const FormName: string): Boolean;

procedure N6Click (Sender: TObject);

procedure N7Click (Sender: TObject);

procedure N8Click (Sender: TObject);

procedure N9Click (Sender: TObject);

procedure N10Click (Sender: TObject);

procedure N20Click (Sender: TObject);

procedure N21Click (Sender: TObject);

procedure N22Click (Sender: TObject);

procedure FormCreate (Sender: TObject);

procedure N3Click (Sender: TObject);

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

procedure N4Click (Sender: TObject);

procedure N14Click (Sender: TObject);

procedure N15Click (Sender: TObject);

procedure N16Click (Sender: TObject);

procedure N17Click (Sender: TObject);

procedure N11Click (Sender: TObject);

procedure N19Click (Sender: TObject);

private

{ Private declarations }

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

public

{ Public declarations }

end;

var

MainClientsForm: TMainClientsForm;

nastr:tinifile;

DirectoryForm: TDBDirectoryTemplateForm;

prosmForm: Taddform;

mainflag:boolean;

nomer_poisk:word;

idLocation, idAddional, idZapas, idPartiya: integer;

implementation

{$R *.dfm}

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

var

i: Integer;

begin

Result := False;

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

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

begin

Result := True;

AFormName.MDIChildren[i]. Free;

end;

end;

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

var

i: Integer;

begin

Result := False;

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

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

begin

Result := True;

Break;

end;

end;

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

begin

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

DirectoryForm:=TDBDirectoryTemplateForm.Create (Owner);

DirectoryForm.TableDBGrid.DataSource:=ds;

DirectoryForm.Top:=0;

DirectoryForm.Left:=0;

DirectoryForm.Caption:=sCaption;

end;

procedure TMainClientsForm. N12Click (Sender: TObject);

begin

MainClientsForm.Close;

end;

procedure TMainClientsForm. N6Click (Sender: TObject);

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable1;

mainclientsform.ADOTable1.Active:=true;

MainClientsForm.BuildGridDatabaseDirectoryItem ('товары', mainclientsform. DataSource1);

DirectoryForm.TableDBGrid.Fields[0]. DisplayLabel:='ИД.№ товар';

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

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

DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='ид.дополн. информации';

DirectoryForm.TableDBGrid.Fields[4]. DisplayLabel:='ид. запасов';

DirectoryForm.TableDBGrid.Fields[5]. DisplayLabel:='ид. партии';

end;

procedure TMainClientsForm. 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:='№ договора';

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. 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:='№ записи';

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. 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:='количество';

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:='№ записи';

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

DirectoryForm.TableDBGrid.Fields[2]. DisplayLabel:='уточнение размещение';

DirectoryForm.TableDBGrid.Fields[3]. DisplayLabel:='примечание';

end;

procedure TMainClientsForm. N20Click (Sender: TObject);

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

IsMDIChildOpen (MainClientsForm,'addForm');

mainflag:=false;

mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable6;

mainclientsform.ADOTable6.Active:=true;

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

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

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:='№ записи';

DirectoryForm.TableDBGrid.Fields[1]. DisplayLabel:='№ партии';

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

DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='откуда';

DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='дата';

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

end;

procedure TMainClientsForm. N22Click (Sender: TObject);

begin

IsMDIChildOpen (MainClientsForm,'addForm');

IsMDIChildOpen (MainClientsForm,'addForm');

mainflag:=false;

MainClientsForm.N6Click (sender);

prosmForm:=Taddform.Create (Owner);

prosmForm.Top:=230;

prosmForm.Left:=0;

prosmForm.Width:=500;

prosmForm.Height:=200;

prosmForm.Caption:='просмотр записей';

prosmForm.DBNavigator1.Visible:=true;

mainflag:=true;

prosmForm.Show;

prosmForm.Button1.Visible:=false;

prosmForm.GroupBox3.Visible:=false;

prosmForm.GroupBox4.Visible:=false;

MainClientsForm.DataSource1.DataSet.last

end;

procedure TMainClientsForm. FormCreate (Sender: TObject);

var NewConnection: Widestring;

begin

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

MainClientsForm.ADOConnection1.Connectionstring:=NewConnection;

MainClientsForm.ADOConnection1.Connected:=true;

MainClientsForm.ADOTable1.Active:=true;

MainClientsForm.ADOTable2.Active:=true;

MainClientsForm.ADOTable3.Active:=true;

MainClientsForm.ADOTable4.Active:=true;

MainClientsForm.ADOTable5.Active:=true;

MainClientsForm.ADOTable6.Active:=true;

MainClientsForm.ADOTable7.Active:=true;

end;

procedure TMainClientsForm. N3Click (Sender: TObject);

var dobForm: Taddform;

begin

mainflag:=false;

IsMDIChildOpen (MainClientsForm,'addForm');

dobForm:=Taddform.Create (Owner);

dobForm.Top:=240;

dobForm.Left:=3;

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

dobForm.Show;

dobForm.Button1.Visible:=true;

dobForm.GroupBox1.Visible:=false;

dobForm.GroupBox3.Visible:=false;

dobForm.GroupBox4.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:='1';

prosmForm.edit7.text:='1';

prosmForm.edit9.text:='1';

prosmForm.edit10.text:='1';

prosmForm.edit8.text:='2011';

prosmForm.edit11.text:='2011';

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.Edit1.Text:=MainClientsForm.DataSource1.DataSet.FieldByName ('nameTovar').AsString;

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

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

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

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

// размещение

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').AsString;

prosmForm.Edit14.Text:=rez;

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

prosmForm.Edit15.Text:=rez;

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

prosmForm.Edit16.Text:=rez;

// дополнительные сведения

sql_str:='SELECT * from Addional where idAddional= :P11';

MainClientsForm.ADOQuery1.Active:=false;

MainClientsForm.ADOQuery1.SQL.Clear;

P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter;

P11.Name:='P11';

p11.DataType := ftinteger;

P11.Value:= idAddional;

P11.Size:=4;

MainClientsForm.ADOQuery1.SQL.Add (sql_str);

MainClientsForm.ADOQuery1.Active:=true;

MainClientsForm.ADOQuery1.ExecSQL;

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

prosmForm.Edit5.Text:=rez;

rezdate:= MainClientsForm. ADOQuery1.FieldByName ('srok_godnost').AsDateTime;

decodedatetime (rezdate, Ayear, amonth, aday, ahour, aminute, asecond, amillisecond);

prosmForm.Edit6.Text:=inttostr (aday);

prosmForm.Edit7.Text:=inttostr (amonth);

prosmForm.Edit8.Text:=inttostr (Ayear);

// запасы

sql_str:='SELECT * from zapas where idzapas= :P11';

MainClientsForm.ADOQuery1.Active:=false;

MainClientsForm.ADOQuery1.SQL.Clear;

P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter;

P11.Name:='P11';

p11.DataType := ftinteger;

P11.Value:= idzapas;

P11.Size:=4;

MainClientsForm.ADOQuery1.SQL.Add (sql_str);

MainClientsForm.ADOQuery1.Active:=true;

MainClientsForm.ADOQuery1.ExecSQL;

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

prosmForm.ComboBox1.Text:=rez;

rezint:= MainClientsForm. ADOQuery1.FieldByName ('zapas').AsInteger;

prosmForm.Edit2.Text:=inttostr (rezint);

rezfloat:= MainClientsForm. ADOQuery1.FieldByName ('stoimost').AsFloat;

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

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

prosmForm.Edit19.Text:=rez;

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

prosmForm.Edit23.Text:=rez;

rezint:= MainClientsForm. ADOQuery1.FieldByName ('rezerv_kol').AsInteger;

prosmForm.Edit18.Text:=inttostr (rezint);

rezdate:= MainClientsForm. ADOQuery1.FieldByName ('rezerv_date').AsDateTime;

decodedatetime (rezdate, Ayear, amonth, aday, ahour, aminute, asecond, amillisecond);

aday:=1;

amonth:=1;

Ayear:=0;

if Ayear>2000 then begin

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

prosmForm.Edit21.Text:=inttostr (amonth);

prosmForm.Edit22.Text:=inttostr (Ayear);

end;

// партия

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 ('Nom_part').AsString;

prosmForm.Edit4.Text:=rez;

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

prosmForm.Edit13.Text:=rez;

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

prosmForm.Edit12.Text:=rez;

rezdate:= MainClientsForm. ADOQuery1.FieldByName ('kogda').AsDateTime;

aday:=1;

amonth:=1;

Ayear:=0;

if Ayear>2000 then begin

prosmForm.Edit9.Text:=inttostr (aday);

prosmForm.Edit10.Text:=inttostr (amonth);

prosmForm.Edit11.Text:=inttostr (Ayear);

end;

end;

end;

procedure TMainClientsForm. N4Click (Sender: TObject);

var zakForm: Taddform;

begin

mainflag:=false;

IsMDIChildOpen (MainClientsForm,'zakForm');

IsMDIChildOpen (MainClientsForm,'addForm');

zakForm:=Taddform.Create (Owner);

zakForm.Top:=240;

zakForm.Left:=3;

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

zakForm.Show;

zakForm.Button1.Visible:=true;

zakForm.GroupBox1.Visible:=false;

zakForm.GroupBox2.Visible:=false;

zakForm.GroupBox4.Visible:=false;

zakForm.GroupBox3.Left:=2;

zakForm.GroupBox3.Top:=2;

// show;

{ if addform. ModalResult=mrOK then

begin

// MainClientsForm.DataSource.DataSet.Post;

end

else

begin

MainClientsForm.DataSource.DataSet.Cancel;

end;}

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.Edit1.Visible:=false;

poisk.Label1.Visible:=false;

poisk.Label3.Visible:=false;

poisk.Label2.Visible:=false;

poisk.Edit5.Visible:=false;

poisk.Edit6.Visible:=false;

poisk.Edit7.Visible:=false;

poisk.UpDown3.Visible:=false;

poisk.UpDown4.Visible:=false;

end;

procedure TMainClientsForm. N16Click (Sender: TObject);

var poisk: Tparampoik;

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

IsMDIChildOpen (MainClientsForm,'addform');

IsMDIChildOpen (MainClientsForm,'parampoik');

poisk:=Tparampoik.Create (Owner);

poisk.Left:=530;

poisk.Top:=3;

poisk.Width:=300;

poisk.Caption:='поиск размещения товара';

nomer_poisk:=3;

poisk.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. 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;

naklForm.GroupBox4.Left:=2;

naklForm.GroupBox4.Top:=2;

naklForm.GroupBox4.Width:=600;

naklForm.GroupBox4.Height:=250;

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.

Модуль addsource

nit 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;

Label15: TLabel;

Edit18: TEdit;

Label16: TLabel;

Edit19: TEdit;

Edit20: TEdit;

Edit21: TEdit;

Edit22: TEdit;

Label17: TLabel;

Label18: TLabel;

Edit23: TEdit;

GroupBox2: TGroupBox;

Edit16: TEdit;

Button1: TButton;

DBNavigator1: TDBNavigator;

Edit13: TEdit;

Label10: TLabel;

Label9: TLabel;

Label8: TLabel;

Label7: TLabel;

Label5: TLabel;

Label2: TLabel;

Label1: TLabel;

Edit1: TEdit;

ComboBox1: TComboBox;

Edit5: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit17: TEdit;

Label14: TLabel;

Label4: TLabel;

Label3: TLabel;

Label6: TLabel;

Edit8: TEdit;

Edit7: TEdit;

Edit6: TEdit;

Edit9: TEdit;

UpDown4: TUpDown;

UpDown1: TUpDown;

Edit10: TEdit;

UpDown5: TUpDown;

Edit12: TEdit;

UpDown6: TUpDown;

Edit11: TEdit;

Label13: TLabel;

Label12: TLabel;

Label11: TLabel;

Edit14: TEdit;

Edit15: TEdit;

UpDown2: TUpDown;

Edit4: TEdit;

UpDown3: TUpDown;

GroupBox3: TGroupBox;

Label19: TLabel;

Label20: TLabel;

Label21: TLabel;

Edit24: TEdit;

Edit25: TEdit;

Edit26: TEdit;

Edit27: TEdit;

Edit28: TEdit;

Edit29: TEdit;

Label22: TLabel;

Button2: TButton;

GroupBox4: TGroupBox;

Label23: TLabel;

Edit30: TEdit;

Edit31: TEdit;

Edit32: TEdit;

UpDown7: TUpDown;

UpDown8: TUpDown;

Label24: TLabel;

Edit33: TEdit;

Label25: TLabel;

Edit34: TEdit;

Label26: TLabel;

Edit35: TEdit;

Label27: TLabel;

Label28: TLabel;

Edit36: TEdit;

Edit37: TEdit;

Label29: TLabel;

Edit38: TEdit;

Label30: TLabel;

Edit39: TEdit;

Label31: TLabel;

Edit40: TEdit;

Button3: TButton;

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

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure Button3Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

addForm: TaddForm;

naim:string;

ed_izm:string;

kolvo:integer;

cena:real;

nomerpartiya:string;

sernum:string;

srok_godnost:tdate;

data_postavka:tdate;

postavchik:string;

description:string;

location:string;

location_part:string;

primech:string;

Ayear, amonth, aday: word;

razmer_part, kol: integer;

id_part, idaddional, idlocation, idzapas: integer;

idtov:integer;

implementation

uses MainClients;

{$R *.dfm}

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

begin

Action:=caFree;

end;

procedure TaddForm. Button1Click (Sender: TObject);

begin

naim:=Edit1.Text;

ed_izm:=ComboBox1.Text;

kolvo:=strtoint (Edit2.Text);

cena:=strtofloat (Edit3.Text);

nomerpartiya:=Edit4.Text;

sernum:=Edit5.Text;

postavchik:=Edit12.Text;

description:=Edit13.Text;

location:=Edit14.Text;

location_part:=Edit15.Text;

primech:=Edit16.Text;

Ayear:=strtoint (Edit8.Text);

amonth:= strtoint (Edit7.Text);

aday:= strtoint (Edit6.Text);

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

Ayear:=strtoint (Edit11.Text);

amonth:= strtoint (Edit10.Text);

aday:= strtoint (Edit9.Text);

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

razmer_part:=strtoint (Edit17.Text);

if naim<>'' then

begin

MainClientsForm.ADOTable7.Active:=true;

MainClientsForm.ADOTable7.Insert;

MainClientsForm.ADOTable7.FieldByName ('Nom_part').AsString:=nomerpartiya;

MainClientsForm.ADOTable7.FieldByName ('kolichestvo').AsInteger:= razmer_part;

MainClientsForm.ADOTable7.FieldByName ('otkuda').AsString:= postavchik;

MainClientsForm.ADOTable7.FieldByName ('kogda').AsDateTime:=data_postavka;

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

MainClientsForm.ADOTable7.Post;

id_part:=MainClientsForm.ADOTable7.FieldByName ('IdPartiya').AsInteger;

MainClientsForm.ADOTable6.Active:=true;

MainClientsForm.ADOTable6.Insert;

MainClientsForm.ADOTable6.FieldByName ('ser_num').AsString:= sernum;

MainClientsForm.ADOTable6.FieldByName ('srok_godnost').AsDateTime:=srok_godnost;

MainClientsForm.ADOTable6.Post;

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

MainClientsForm.ADOTable5.Active:=true;

MainClientsForm.ADOTable5.Insert;

MainClientsForm.ADOTable5.FieldByName ('Location').AsString:= location;

MainClientsForm.ADOTable5.FieldByName ('addional_location').AsString:= location_part;

MainClientsForm.ADOTable5.FieldByName ('notes').AsString:= primech;

MainClientsForm.ADOTable5.Post;

idlocation:= MainClientsForm. ADOTable5.FieldByName ('IdLocation').AsInteger;

MainClientsForm.ADOTable1.Active:=true;

MainClientsForm.ADOTable3.Active:=true;

MainClientsForm.ADOTable3.Insert;

MainClientsForm.ADOTable3.FieldByName ('Izmerenie').AsString :=ed_izm;

MainClientsForm.ADOTable3.FieldByName ('zapas').AsInteger :=kolvo;

MainClientsForm.ADOTable3.FieldByName ('stoimost').AsFloat :=kolvo*cena;

MainClientsForm.ADOTable3.Post;

idzapas:=MainClientsForm.ADOTable3.FieldByName ('idZapas').AsInteger;

MainClientsForm.ADOTable1.Insert;

MainClientsForm.ADOTable1.FieldByName ('nameTovar').AsString:= naim;

MainClientsForm.ADOTable1.FieldByName ('idLocation').AsInteger:=idlocation;

MainClientsForm.ADOTable1.FieldByName ('idAddional').AsInteger:= idaddional;

MainClientsForm.ADOTable1.FieldByName ('idPartiya').AsInteger:= id_part;

MainClientsForm.ADOTable1.FieldByName ('idZapas').AsInteger:= idzapas;

MainClientsForm.ADOTable1.Post;

end;

end;

procedure TaddForm. Button2Click (Sender: TObject);

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

p1:tparameter;

begin

tovar:=Edit24.Text;

mainclientsform.DataSource1.DataSet:=mainclientsform.ADOQuery2;

mainclientsform.ADOQuery2.Active:=false;

mainclientsform.ADOQuery2.SQL.Clear;

P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter;

P1.Name:='P1';

p1.DataType := ftstring;

if edit24. Text<>'' then begin

srtkl := edit24. Text;

name_poisk:= 'Tovar.nameTovar'

end;

if srtkl<>'' then

begin

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

P1.Value:=srtkl;

P1.Size:=Length (srtkl);

end;

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

mainclientsform.ADOQuery2.SQL.Add (stroka_SQL);

if stroka_SQL<>'' then begin

mainclientsform.ADOQuery2.Active:=true;

mainclientsform.ADOQuery2.ExecSQL;

end;

kol:= mainclientsform. ADOQuery2.RecordCount;

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

else

begin

idtov:=mainclientsform.ADOQuery2.FieldByName ('idtovar').AsInteger;

mainclientsform.ADOTable4.Active:=true;

mainclientsform.ADOTable4.Insert;

mainclientsform.ADOTable4.FieldByName ('idTovar').AsInteger:=idtov;

mainclientsform.ADOTable4.FieldByName ('kolichestvo').AsInteger:=strtoint (Edit29.Text);

mainclientsform.ADOTable4.FieldByName ('lico').AsString:=Edit28.Text;

Ayear:=strtoint (Edit27.Text);

amonth:= strtoint (Edit26.Text);

aday:= strtoint (Edit25.Text);

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

mainclientsform.ADOTable4.FieldByName ('kogda').AsDateTime:=srok_godnost;

mainclientsform.ADOTable4.Post;

end;

end;

procedure TaddForm. Button3Click (Sender: TObject);

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

p1:tparameter;

begin

tovar:=Edit33.Text;

mainclientsform.DataSource1.DataSet:=mainclientsform.ADOQuery2;

mainclientsform.ADOQuery2.Active:=false;

mainclientsform.ADOQuery2.SQL.Clear;

P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter;

P1.Name:='P1';

p1.DataType := ftstring;

if edit33. Text<>'' then begin

srtkl := edit33. Text;

name_poisk:= 'Tovar.nameTovar'

end;

if srtkl<>'' then

begin

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

P1.Value:=srtkl;

P1.Size:=Length (srtkl);

end;

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

mainclientsform.ADOQuery2.SQL.Add (stroka_SQL);

if stroka_SQL<>'' then begin

mainclientsform.ADOQuery2.Active:=true;

mainclientsform.ADOQuery2.ExecSQL;

end;

kol:= mainclientsform. ADOQuery2.RecordCount;

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

else

begin

idtov:=mainclientsform.ADOQuery2.FieldByName ('idtovar').AsInteger;

mainclientsform.ADOTable2.Active:=true;

mainclientsform.ADOTable2.Insert;

mainclientsform.ADOTable2.FieldByName ('idTovar').AsInteger:=idtov;

mainclientsform.ADOTable2.FieldByName ('kolichestvo').AsInteger:=strtoint (Edit35.Text);

mainclientsform.ADOTable2.FieldByName ('Lico').AsString:=Edit34.Text;

mainclientsform.ADOTable2.FieldByName ('stoimost').AsFloat:=strtofloat (Edit37.Text);

mainclientsform.ADOTable2.FieldByName ('otkuda').AsString:=Edit36.Text;

mainclientsform.ADOTable2.FieldByName ('kuda').AsString:=Edit38.Text;

mainclientsform.ADOTable2.FieldByName ('idPartiya').AsInteger:= strtoint (Edit39.Text);

mainclientsform.ADOTable2.FieldByName ('IdZakaz').AsInteger:= strtoint (Edit40.Text);

mainclientsform.ADOTable2.FieldByName ('provodka').AsString:='N';

Ayear:=strtoint (Edit32.Text);

amonth:= strtoint (Edit31.Text);

aday:= strtoint (Edit30.Text);

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

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

mainclientsform.ADOTable2.post;

end;

end;

end.

Модуль ParamPoisk

unit parampoisk;

interface

uses

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

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

StdCtrls, Mask, DateUtils, ExtCtrls, ComCtrls ;

type

Tparampoik = class (TForm)

Button1: TButton;

GroupBox1: TGroupBox;

Label1: TLabel;

Edit1: TEdit;

Label7: TLabel;

Edit2: TEdit;

UpDown1: TUpDown;

Edit3: TEdit;

Edit4: TEdit;

UpDown2: TUpDown;

Edit5: TEdit;

UpDown3: TUpDown;

Edit6: TEdit;

UpDown4: TUpDown;

Edit7: TEdit;

Label2: TLabel;

Label3: TLabel;

procedure RzBitBtn4Click (Sender: TObject);

procedure RzBitBtn3Click (Sender: TObject);

procedure RzBitBtn2Click (Sender: TObject);

procedure RzBitBtn1Click (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

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;

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 (zapas.idzapas = (select tovar. idzapas from tovar where tovar. nametovar like: P1))';

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

mainclientsform.ADOQuery2.SQL.Add (stroka_SQL);

if stroka_SQL<>'' then begin

mainclientsform.ADOQuery2.Active:=true;

mainclientsform.ADOQuery2.ExecSQL;

end;

end;

if nomer_poisk=2 then begin

P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter;

P1.Name:='P1';

p1.DataType := ftdatetime;

// P1. Direction := ptInput;

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);

if edit1. Text<>'' then begin

srtkl := edit1. Text;

name_poisk:= 'Tovar.nameTovar'

end;

if srtkl<>'' then

begin

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

P1.Value := timenach;

end;

sqlwhere:= ' where addional. srok_godnost < :P1';

stroka_SQL:='select tovar. nametovar, addional. srok_godnost from tovar, addional'+ 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 := 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;

sqlwhere:= ' where (location.idlocation = (select tovar. idlocation from tovar where tovar. nametovar like: 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 (Dogovor.vremya > :P1) and (Dogovor.vremya < :P2)';

stroka_SQL:='select * from Dogovor'+ 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 (Dogovor.idDogovor = :P1)';

stroka_SQL:='select * from Dogovor'+ 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

idtov:=mainclientsform.ADOQuery2.FieldByName ('idtovar').AsInteger;

kolnakl:=(mainclientsform.ADOQuery2.FieldByName ('kolichestvo').AsInteger);

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

if priznak='N' then begin

mainclientsform.ADOQuery2.Active:=false;

mainclientsform.ADOQuery2.SQL.Clear;

P2 :=mainclientsform.ADOQuery2.Parameters.AddParameter;

P2.Name:='P2';

p2.DataType := ftinteger;

P2.Value :=idtov;

sqlwhere:= ' where (tovar.idtovar = :P2)';

stroka_SQL:='select * from tovar'+ 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

idzapas:=mainclientsform.ADOQuery2.FieldByName ('idZapas').AsInteger;

if idzapas=0 then showmessage ('товара нет в наличии')

else

begin

mainclientsform.ADOTable3.First;

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

begin

sravn:=mainclientsform.ADOTable3.FieldByName ('idZapas').AsInteger;

if sravn=idzapas then

begin

kolzapas:=mainclientsform.ADOTable3.FieldByName ('Zapas').AsInteger;

if kolnakl>kolzapas then showmessage ('такого количества товара нет в наличии')

else

begin

rezerv_kol:=mainclientsform.ADOTable3.FieldByName ('rezerv_kol').AsInteger;

if kolnakl>kolzapasrezerv_kol then

showmessage ('регистрация не осуществлена — Товар зарезервирован')

else

begin

mainclientsform.ADOTable3.Edit;

mainclientsform.ADOTable3.FieldByName ('Zapas').AsInteger:=kolzapas-kolnakl;

showmessage ('договор выполнен УСПЕШНО!');

mainclientsform.ADOTable2.First;

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

begin

if idnakl= mainclientsform. ADOTable2.FieldByName ('idDogovor').AsInteger

then

begin

mainclientsform.ADOTable2.Edit;

mainclientsform.ADOTable2.FieldByName ('provodka').AsString:='Y';

end;

mainclientsform.ADOTable2.Next;

end;

end;

end;

end;

mainclientsform.ADOTable3.Next;

end;

end;

end;

end

else showmessage ('выполнение договора не требуется')

end;

end;

end;

end;

end.

Генеральный Директор

Секретарь-референт

Финансовый Директор

Коммерческий Директор

Руководитель отдела маркетинга и рекламы

Директор по сервису

Технический Директор

IT-Директор

Директор по управлению персоналом

Юрисконсульт

Инспектор по кадрам

Финансовый Менеджер

Главный Бухгалтер

Руководитель отдела Доп. оборудования

Бухгалтер

Бухгалтер-кассир

Бухгалтер по учету НДС

Бухгалтер по учету ТМЦ

Бухгалтер по учету в/м

Менеджер по установки

Специалист по установки

Начальник отдела ОТК

Инженер ОТК

СТС-Инженеры

Руководитель Клиентской службы

Инженер по гарантиям

Мастер-приемщик

Специалист отдела маркетинга

Руководитель Call-центра

Оператор Call-центра

Оператор Сервис-бюро

Руководитель отдела Ком. Транспорта

Менеджер по продажам

Руководитель отдела Лег. Транспорта

Менеджер по работе с корп. Кл-ми

Диспонент

Старший менеджер

Старший механик

Менеджер по продажам

Администратор Зала

Офис-менеджер

Механик

Полировщик

Техник

Программист

Программист 1С

Системные администраторы

Начальник цеха

Бригадиры

Механики

Начальник кузовного цеха

Заместитель

Мастер цеха

Маляр-подготовщик

Жестянщик

Маляр

Полировщик

Арматурщик

Руководитель отдела запчастей

Начальник склада

Старший кладовщик

Кладовщик

Водитель-экспедитор

Водитель

Автомойщик

Перегонщик

Кладовщики склада спец. инструментов

Рис.

1.1 Организационная структура компании Руководитель отдела лег. Трансп. (1)

Ст. Менеджер отдела Продаж (2)

Менеджер по продажам (7)

Администратор Зала (3)

Офис-менеджер (4)

Проект

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

childTemplate.pas

DbdDirectoryTemplate

AddSource.pas

ParamPoisk.pas