Система (подсистема) складкого учета материалов в строительной компании. (Delphi 6, Локальная СУБД)

М.: «Вильямс», 2003. — 1128с.

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

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

Приложение

Листинг модуля MainClients

unit MainClients;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, DB, ADODB, IniFiles, Grids, DBGrids, DBDirectoryTemplate, addsorce, DateUtils, parampoisk;

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;

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;

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;

// Break;

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:='просмотр записей';

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:='2009';

prosmForm.edit11.text:='2009';

prosmForm.edit12.text:='';

prosmForm.edit13.text:='';

prosmForm.edit14.text:='';

prosmForm.edit15.text:='';

prosmForm.edit16.text:='';

prosmForm.edit17.text:='';

prosmForm.edit18.text:='';

prosmForm.edit19.text:='';

prosmForm.edit20.text:='';

prosmForm.edit21.text:='';

prosmForm.edit22.text:='';

prosmForm.edit23.text:='';

//из таблицы

prosmForm.Edit1.Text:=MainClientsForm.DataSource1.DataSet.FieldByName ('nameTovar').AsString;

idLoсаtion:=MainClientsForm.DataSource1.DataSet.FieldByName ('idLocation').AsInteger; ;

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

idZpas:=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;

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.

Листинг модуля 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;

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.

Листинг модуля ChildTemplate

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.

Листинг модуля 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.

Листинг модуля parampoisk

unit parampoisk;

interface

uses

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

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

StdCtrls, Mask, DateUtils, ExtCtrls, ComCtrls ;

type

Tparampoik = class (TForm)

Button1: TButton;

GroupBox1: TGroupBox;

Label1: TLabel;

Edit1: TEdit;

Label7: TLabel;

Edit2: TEdit;

UpDown1: TUpDown;

Edit3: TEdit;

Edit4: TEdit;

UpDown2: TUpDown;

Edit5: TEdit;

UpDown3: TUpDown;

Edit6: TEdit;

UpDown4: TUpDown;

Edit7: TEdit;

Label2: TLabel;

Label3: TLabel;

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

procedure Button1Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

parampoik: Tparampoik;

ChildTemplateForm1: TChildTemplateForm;

ff:string;

flagpoisk:boolean;

p1,p2:tparameter;

all:boolean;

ahour, aminute, asecond, amillisecond: word;

priznak:string;

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

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

implementation

uses mainclients;

{$R *.dfm}

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

begin

Action:=caFree;

end;

procedure Tparampoik. 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;

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 (Nakladnaya.vremya > :P1) and (nakladnaya.vremya < :P2)';

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

stroka_SQL:='select * from Nakladnaya'+ 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 ('idNakladnaya').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.

7. СОСТАВ БАЗЫ ДАННЫХ

Sklad_data.mdf — файл, содержащий, все таблицы базы данных

Sklad_log.ldf — файл, содержащий, все транзакции к базе данных

8. СОСТАВ ПРОГРАММНОГО КОМПЛЕКСА

mainClients Главный модуль: запуск, создание дочерних форм, организация взаимодействия, управление вычислительным процессом Parampoisk Формирование параметров поиска, организация проводки накладных Childetemplate Отображение результатов поиска в базе данных DBDDirectoryTemplate Просмотр справочных таблиц, организация взаимодействия с базой данных addsource Создание записей, накладных, заказов, отображение содержимое связанных таблиц Склад товаров

Менеджер

Заказчик

(исполнитель работ)

Поставщики

Снабжение

Проект sklad

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

childTemplate.pas

DbdDirectoryTemplate

AddSource.pas

ParamPoisk.pas

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

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

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

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

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