Сети ЭВМ и телекоммуникации

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.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.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.GroupBox5.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.

Модуль addform
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,OleServer, ExcelXP, OleCtnrs, ComObj ;
type
TaddForm = class(TForm)
Panel1: TPanel;
GroupBox1: TGroupBox;
Label15: TLabel;
Edit18: TEdit;
Label16: TLabel;
Edit19: TEdit;
Label17: TLabel;
Label18: TLabel;
Edit23: TEdit;
GroupBox2: TGroupBox;
Edit16: TEdit;
DBNavigator1: TDBNavigator;
Label8: TLabel;
Label7: TLabel;
Label1: TLabel;
Edit1: TEdit;
Edit5: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label6: TLabel;
Edit8: TEdit;
Edit9: TEdit;
Edit10: TEdit;
Edit11: TEdit;
Label13: TLabel;
Label12: TLabel;
Label11: TLabel;
Edit14: TEdit;
Edit15: TEdit;
GroupBox3: TGroupBox;
Label19: TLabel;
Label20: TLabel;
Edit24: TEdit;
Edit25: TEdit;
Edit28: 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;
Label28: TLabel;
Edit36: TEdit;
Edit39: TEdit;
Label31: TLabel;
Edit40: TEdit;
Button3: TButton;
Edit41: TEdit;
Label32: TLabel;
Label33: TLabel;
Edit42: TEdit;
Label30: TLabel;
GroupBox5: TGroupBox;
Label34: TLabel;
Label35: TLabel;
Label38: TLabel;
Label39: TLabel;
Edit7: TEdit;
Edit44: TEdit;
Edit45: TEdit;
Edit47: TEdit;
Edit48: TEdit;
Label36: TLabel;
Label37: TLabel;
Edit6: TEdit;
Button4: TButton;
Edit38: TEdit;
Label5: TLabel;
Edit4: TEdit;
UpDown1: TUpDown;
Edit12: TEdit;
UpDown2: TUpDown;
Edit13: TEdit;
Button5: TButton;
Label2: TLabel;
Edit17: TEdit;
Label3: TLabel;
Edit20: TEdit;
Label4: TLabel;
Edit21: TEdit;
Label9: TLabel;
Edit26: TEdit;
Edit27: TEdit;
Label10: TLabel;
Edit29: TEdit;
Edit22: TEdit;
Label14: TLabel;
Edit35: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
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;
XlApplication: OleVariant;
XLWorkSheet: OleVariant;
implementation
uses MainClients;
{$R *.dfm}
procedure TaddForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;
procedure TaddForm.Button1Click(Sender: TObject);
var i:integer;
begin
try
XlApplication := GetActiveOleObject('Excel.Application');
except
XlApplication := CreateOleObject('Excel.Application');
end;
XlApplication.Workbooks.Open[ExtractFilePath(Application.ExeName)+'zayavka.xlt', 0, true];
XlApplication.Workbooks.Open[ExtractFilePath(Application.ExeName)+'zayavka.xlt', 0, true];
XlApplication.Visible := true;
XLWorkSheet := XlApplication.ActiveWorkBook.ActiveSheet;
XLWorkSheet.cells[2,5]:=inttostr(kod_zayavka);
XLWorkSheet.cells[2,7]:=data_zayavka;
XLWorkSheet.cells[33,4]:=inttostr(kod_zayavka);
XLWorkSheet.cells[33,6]:=data_zayavka;
XLWorkSheet.cells[5,4]:=fiozakaz;
XLWorkSheet.cells[26,4]:=fiozakaz;
XLWorkSheet.cells[7,5]:=prosmForm.Edit8.Text;
XLWorkSheet.cells[10,5]:=prosmForm.Edit15.Text;
XLWorkSheet.cells[11,4]:=prosmForm.Edit14.Text;
XLWorkSheet.cells[20,5]:=prosmForm.Edit29.Text;
XLWorkSheet.cells[29,4]:=prosmForm.Edit35.Text;
XLWorkSheet.cells[12,4]:=fiosotr;
XLWorkSheet.cells[35,4]:=fiosotr;
XLWorkSheet.cells[24,6]:=data_vup;
XLWorkSheet.cells[38,5]:=data_vup;
end;
procedure TaddForm.Button2Click(Sender: TObject);
var srtkl,name_poisk,sqlwhere,stroka_SQL :string;
p1:tparameter;
family,
name,
phone,
sec_name,
adres :string;
begin
family:=edit24.Text;
name:=edit28.Text;
sec_name:=edit25.Text;
phone:=edit41.Text;
adres:=edit42.Text;
mainclientsform.ADOTable5.Insert;
mainclientsform.ADOTable5.Active:=true;
mainclientsform.ADOTable5.FieldByName('Fam').AsString:=family;
mainclientsform.ADOTable5.FieldByName('name').AsString:=name;
mainclientsform.ADOTable5.FieldByName('adres').AsString:= adres;
mainclientsform.ADOTable5.FieldByName('telefon').AsString:= phone;
mainclientsform.ADOTable5.FieldByName('Otch').AsString:= sec_name;
mainclientsform.ADOTable5.Post;
end;
procedure TaddForm.Button3Click(Sender: TObject);
var object1,block,naimenovan, srtkl,name_poisk,sqlwhere,stroka_SQL :string;
p1:tparameter;
notes:string;
kod_neisprav,kod_zakazchik,kod_ispolneniya,kod_sotr:integer;
data:tdatetime;
begin
object1:=Edit33.Text;
block:=Edit34.Text;
naimenovan:=Edit36.Text;
notes:=Edit38.Text;
mainclientsform.ADOTable4.Active:=true;
mainclientsform.ADOTable4.Insert;
mainclientsform.ADOTable4.FieldByName('object').AsString:=object1;
mainclientsform.ADOTable4.FieldByName('block').AsString:=block;
mainclientsform.ADOTable4.FieldByName('Naimenovanie').AsString:=naimenovan;
mainclientsform.ADOTable4.Post;
kod_neisprav:=mainclientsform.ADOTable4.FieldByName('kod_neisprav').AsInteger;
kod_zakazchik:=strtoint(edit40.Text);

kod_sotr:=strtoint(edit39.Text);
Ayear:=strtoint(Edit32.Text);
amonth:= strtoint(Edit31.Text);
aday:= strtoint(Edit30.Text);
data:=encodedate(Ayear, amonth,aday);
mainclientsform.ADOTable2.Active:=true;
mainclientsform.ADOTable2.Insert;
mainclientsform.ADOTable2.FieldByName('kod_zakazchik').AsInteger:= kod_zakazchik;
mainclientsform.ADOTable2.FieldByName('kod_ispolneniya').AsInteger:= 0;
mainclientsform.ADOTable2.FieldByName('kod_neisprav').AsInteger:= kod_neisprav;
mainclientsform.ADOTable2.FieldByName('kod_sotr').AsInteger:= kod_sotr;
mainclientsform.ADOTable2.FieldByName('notes').AsString:=notes;
mainclientsform.ADOTable2.FieldByName('data').AsDateTime:=data;
mainclientsform.ADOTable2.Post;
end;
procedure TaddForm.Button4Click(Sender: TObject);
var
family,
name,
dolgnost,
phone,
otdel,
sec_name :string;
begin
family:=edit45.Text;
name:=edit7.Text;
sec_name:=edit44.Text;
phone:=edit47.Text;
otdel:=edit48.Text;
dolgnost:=edit6.Text;
sec_name:=edit6.Text;
mainclientsform.ADOTable3.Active:=true;
mainclientsform.ADOTable3.Insert;
mainclientsform.ADOTable3.FieldByName('Familyia').AsString:=family;
mainclientsform.ADOTable3.FieldByName('name').AsString:=name;
mainclientsform.ADOTable3.FieldByName('dolgnost').AsString:= dolgnost;
mainclientsform.ADOTable3.FieldByName('telefon').AsString:= phone;
mainclientsform.ADOTable3.FieldByName('otdel').AsString:= otdel;
mainclientsform.ADOTable3.FieldByName('Otchestvo').AsString:= sec_name;
mainclientsform.ADOTable3.Post;
end;
procedure TaddForm.Button5Click(Sender: TObject);
var otchet, rabot:string;
data_ispolneniya:tdatetime;
kod_zayavka,kod_ispolnenya:integer;
begin
Ayear:=strtoint(Edit13.Text);
amonth:= strtoint(Edit12.Text);
aday:= strtoint(Edit4.Text);
kod_zayavka:=strtoint(Edit18.Text);
data_ispolneniya:=encodedate(Ayear, amonth,aday);
otchet:=edit25.Text;
rabot:=edit19.Text;
mainclientsform.ADOTable1.Active:=true;
mainclientsform.ADOTable1.Insert;
mainclientsform.ADOTable1.FieldByName('ochet').AsString:=otchet;
mainclientsform.ADOTable1.FieldByName('rabot').AsString:=rabot;
mainclientsform.ADOTable1.FieldByName('data_ispolneniya').AsDateTime:=data_ispolneniya;
mainclientsform.ADOTable1.Post;
mainclientsform.ADOTable2.Active;
if mainclientsform.ADOTable2.Locate('kod_zayavka',kod_zayavka , [loCaseInsensitive,loPartialKey]) then
begin
mainclientsform.ADOTable2.FieldByName('kod_ispolneniya').AsInteger:= 1;
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 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
MainClientsForm.IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');
MainClientsForm.IsMDIChildOpen(MainClientsForm,'addform');
MainClientsForm.IsMDIChildOpen(MainClientsForm,'ChildTemplateForm');
ChildTemplateForm:=TChildTemplateform.Create(Owner);
ChildTemplateForm.Left:=0;
ChildTemplateForm.Top:=3;
mainclientsform.DataSource1.DataSet:=mainclientsform.ADOQuery1;
mainclientsform.ADOQuery1.Active:=false;
mainclientsform.ADOQuery1.SQL.Clear;
P1 :=mainclientsform.ADOQuery1.Parameters.AddParameter;
P1.Name:='P1';
p1.DataType := ftstring;
end;
procedure Tparampoik.RzBitBtn4Click(Sender: TObject);
begin
flagpoisk:=false;
MainClientsForm.IsMDIChildOpen(MainClientsForm,'parampoik');
end;
procedure Tparampoik.Button1Click(Sender: TObject);
var ChildTemplateForm:TChildTemplateform;
timenach,timekon:tdatetime;
begin
MainClientsForm.IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');
MainClientsForm.IsMDIChildOpen(MainClientsForm,'addform');
MainClientsForm.IsMDIChildOpen(MainClientsForm,'ChildTemplateForm');
ChildTemplateForm:=TChildTemplateform.Create(Owner);
ChildTemplateForm.Left:=0;
ChildTemplateForm.Top:=3;
mainclientsform.DataSource1.DataSet:=mainclientsform.ADOQuery2;
mainclientsform.ADOQuery2.Active:=false;
mainclientsform.ADOQuery2.SQL.Clear;
if nomer_poisk=1 then begin
P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter;
P1.Name:='P1';
p1.DataType := ftinteger;
if edit1.Text<>'' then begin
srtkl := edit1.Text;
name_poisk:= 'Tovar.nameTovar'
end;
if srtkl<>'' then
begin
srtkl:='%'+ srtkl+'%';
P1.Value:=strtoint(edit1.Text);
P1.Size:=4;
end;
ChildTemplateForm.Label1.Caption:='Информация о заявке: '+edit1.Text;
sqlwhere:= ' where (neispravnost.kod_neisprav = ( select zayavka.kod_neisprav from zayavka where zayavka.kod_zayavka =:P1))';
stroka_SQL:='select * from neispravnost'+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 (zayavka.data > :P1) and (zayavka.data < :P2)';
stroka_SQL:='select * from zayavka'+ 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 (plan_dostavki.idplan_dostavki = :P1)';
stroka_SQL:='select * from plan_dostavki'+ sqlwhere;
mainclientsform.ADOQuery2.SQL.Add(stroka_SQL);
end;
end;
end;
end.











7





35



Проект

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

childTemplate.pas

DbdDirectoryTemplate

AddSource.pas

ParamPoisk.pas