Автоматизация комплекса задач по контролю и учету ремонтов технологического обоурдования

';

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:='Телефон';

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:='Неисправность';

end;

procedure TMainClientsForm. SpeedButton2Click (Sender: TObject);

begin

mainClientsForm.N6.Click;

end;

procedure TMainClientsForm. SpeedButton5Click (Sender: TObject);

begin

mainClientsForm.N7.Click;

end;

procedure TMainClientsForm. SpeedButton6Click (Sender: TObject);

begin

mainClientsForm.N22.Click;

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:='Отчество';

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.N7Click (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.GroupBox3.Visible:=false;

prosmForm.GroupBox4.Visible:=false;

prosmForm.GroupBox5.Visible:=false;

MainClientsForm.DataSource1.DataSet.last

end;

procedure TMainClientsForm. N23Click (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.GroupBox1.Visible:=false;

dobForm.GroupBox3.Visible:=false;

dobForm.GroupBox4.Visible:=false;

dobForm.GroupBox2.Visible:=false;

end;

procedure TMainClientsForm. FormCreate (Sender: TObject);

var NewConnection: Widestring;

begin

ADOConnection1.Close;

ADOConnection1.ConnectionString :='Provider=Microsoft.Jet.OLEDB.

4.0;User ID=Admin;Data Source='+GetCurrentDir+'remont.mdb;';

ADOConnection1.Open;

MainClientsForm.ADOTable1.Active:=true;

MainClientsForm.ADOTable2.Active:=true;

MainClientsForm.ADOTable3.Active:=true;

MainClientsForm.ADOTable4.Active:=true;

MainClientsForm.ADOTable5.Active:=true;

MainClientsForm.ADOTable1.Active:=true;

MainClientsForm.ADOTable2.Active:=true;

MainClientsForm.ADOTable3.Active:=true;

MainClientsForm.ADOTable4.Active:=true;

MainClientsForm.ADOTable5.Active:=true;

end;

procedure TMainClientsForm. N3Click (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.GroupBox3.Visible:=false;

zakForm.GroupBox1.Visible:=true;

zakForm.GroupBox2.Visible:=false;

zakForm.GroupBox4.Visible:=false;

zakForm.GroupBox5.Visible:=false;

zakForm.GroupBox1.Left:=2;

zakForm.GroupBox1.Top:=2;

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;

kod_neisprav, kod_zakazchik, kod_ispolneniya, kod_sotr:integer;

begin

if mainflag then

begin

prosmForm.edit1.text:='';

prosmForm.edit2.text:='';

prosmForm.edit3.text:='';

prosmForm.edit5.text:='';

prosmForm.edit9.text:='1';

prosmForm.edit10.text:='1';

prosmForm.edit11.text:='2012';

prosmForm.edit14.text:='';

prosmForm.edit15.text:='';

prosmForm.edit16.text:='';

prosmForm.edit18.text:='';

prosmForm.edit19.text:='';

prosmForm.edit23.text:='';

//из таблицы

prosmForm.Edit1.Text:=inttostr (MainClientsForm.DataSource1.DataSet.FieldByName ('kod_zayavka').AsInteger);

rezdate:=MainClientsForm.DataSource1.DataSet.FieldByName ('data').AsDateTime;

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

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

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

prosmForm.Edit5.Text:=inttostr (MainClientsForm.DataSource1.DataSet.FieldByName ('kod_neisprav').AsInteger);

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

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

data_zayavka:= prosmForm. Edit9.Text+'.'+prosmForm.Edit10.Text+'.'+prosmForm.Edit11.Text;

prosmForm.Edit16.Text:=MainClientsForm.DataSource1.DataSet.FieldByName ('notes').AsString;

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

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

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

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

mainclientsform.ADOTable4.Active:=true;

if mainclientsform. ADOTable4.Locate ('kod_neisprav', kod_neisprav, [loCaseInsensitive, loPartialKey]) then

begin

prosmForm.Edit8.Text:=mainclientsform.ADOTable4.FieldByName ('object').AsString;

object1:=prosmForm.Edit8.Text;

prosmForm.Edit14.Text:=mainclientsform.ADOTable4.FieldByName ('block').AsString;

prosmForm.Edit15.Text:=mainclientsform.ADOTable4.FieldByName ('Naimenovanie').AsString;

end;

if mainclientsform. ADOTable5.Locate ('kod_zakazchik', kod_zakazchik, [loCaseInsensitive, loPartialKey]) then

begin

prosmForm.Edit2.Text:=mainclientsform.ADOTable5.FieldByName ('fam').AsString;

prosmForm.Edit3.Text:=mainclientsform.ADOTable5.FieldByName ('name').AsString;

prosmForm.Edit17.Text:=mainclientsform.ADOTable5.FieldByName ('otch').AsString;

fiozakaz:=prosmForm.Edit2.Text+' '+prosmForm.Edit3.Text+ ' '+prosmForm.Edit17.Text;

prosmForm.Edit20.Text:=mainclientsform.ADOTable5.FieldByName ('telefon').AsString;

prosmForm.Edit21.Text:=mainclientsform.ADOTable5.FieldByName ('adres').AsString;

end;

if mainclientsform. ADOTable1.Locate ('kod_ispolneniya', kod_ispolneniya, [loCaseInsensitive, loPartialKey]) then

begin

rezdate:=mainclientsform.ADOTable1.FieldByName ('data_ispolneniya').AsDateTime;

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

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

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

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

data_vup:= prosmForm. Edit22.Text+'.'+prosmForm.Edit26.Text+'.'+prosmForm.Edit27.Text;

prosmForm.Edit35.Text:=mainclientsform.ADOTable1.FieldByName ('ochet').AsString;

prosmForm.Edit29.Text:=mainclientsform.ADOTable1.FieldByName ('rabot').AsString;

end;

if mainclientsform. ADOTable3.Locate ('kod_sotr', kod_sotr, [loCaseInsensitive, loPartialKey]) then

begin

fiosotr:=mainclientsform.ADOTable3.FieldByName ('familyia').AsString;

fiosotr:=fiosotr+' '+mainclientsform.ADOTable3.FieldByName ('Name').AsString;

fiosotr:=fiosotr+' '+mainclientsform.ADOTable3.FieldByName ('Otchestvo').AsString;

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

zakForm.GroupBox2.Visible:=false;

zakForm.GroupBox4.Visible:=false;

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

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.FieldByName ('rabot').AsString:='Y';

mainclientsform.ADOTable1.Post;

kod_ispolnenya:=mainclientsform.ADOTable1.FieldByName ('kod_ispolneniya').AsInteger;

mainclientsform.ADOTable2.Active;

if mainclientsform. ADOTable2.Locate ('kod_zayavka', kod_zayavka, [loCaseInsensitive, loPartialKey]) then

begin

mainclientsform.ADOTable2.edit;

mainclientsform.ADOTable2.FieldByName ('kod_ispolneniya').AsInteger:= kod_ispolnenya;

mainclientsform.ADOTable2.Post;

end;

end;

end.

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;

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=2 then begin

P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter;

P1.Name:='P1';

p1.DataType := ftinteger;

ChildTemplateForm.Label1.Caption:='Информация о невыполненных заявках: '+edit1.Text;

ChildTemplateForm.Caption:='Информация о невыполненных заявках: ';

sqlwhere:= ' FROM neispravnost INNER JOIN (Ispolnenie INNER JOIN zayavka ON Ispolnenie. kod_ispolneniya = zayavka. kod_ispolneniya) ON neispravnost. kod_neisprav = zayavka. kod_neisprav WHERE (((Ispolnenie.vupolnen)<>" Y"))';

stroka_SQL:='SELECT zayavka. kod_zayavka, neispravnost. object, neispravnost. block, neispravnost. Naimenovanie' +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.

Проект

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

childTemplate.pas

DbdDirectoryTemplate

AddSource.pas

ParamPoisk.pas