Автоматизация учета гарантийных обязательств перед клиентами ЗАО "Эн. Си. Ар."

DM2.RegQuery.Active:=true;

DM2.Tipk0ntrQuery.Active:=true;

DM2.RegQuery.Active:=true;

DM2.Tipk0ntrQuery.Active:=true;

DBL00kupC0mb0B0x1.KeyValue := NULL;

DBL00kupC0mb0B0x2.KeyValue := NULL;

DM2.K0ntrQuery.Append;

Sh0wM0dal;

end;

end;

pr0cedure TF0rm1.Frame41SpeedButt0n3Click(Sender: T0bject);

begin

with F0rm3 d0

begin //Редактирование контрагента

Capti0n:='Редактирование контрагента';

DM2.RegQuery.Active:=true;

DM2.Tipk0ntrQuery.Active:=true;

DM2.RegQuery.Active:=true;

DM2.Tipk0ntrQuery.Active:=true;

DBL00kupC0mb0B0x1.KeyValue:=DM2.K0ntrQuery['KReg'];

DBL00kupC0mb0B0x2.KeyValue:=DM2.K0ntrQuery['K_TK'];

Sh0wM0dal;

end;

end;

pr0cedure TF0rm1.Frame41SpeedButt0n4Click(Sender: T0bject); //Удаление контрагента

begin

if MessageDlg('Удалить запись?', mtC0nfirmati0n, [mb0k, mbCancel], 0)=mr0k

then

begin

DM2.K0ntrQuery.Active:=true;

DM2.RekQuery.Active:=true;

DM2.ZakQuery.Active:=true;

DM2.K0ntrQuery.Delete;

end

else Ab0rt;

end;

pr0cedure TF0rm1.Frame41SpeedButt0n5Click(Sender: T0bject);

begin

DM2.RekQuery.Refresh; //Обновить

DM2.K0ntrQuery.Refresh;

end;

pr0cedure TF0rm1.Frame41Edit1Enter(Sender: T0bject);

begin

Frame41.Edit1.F0nt.C0l0r:=clblack; //Поиск

Frame41.Edit1.Clear;

end;

pr0cedure TF0rm1.Frame41SpeedButt0n6Click(Sender: T0bject);

begin //Поиск

if ((Length(Frame41.Edit1.Text)>0) and n0t (Frame41.Edit1.Text='Поиск по наименованию')) then

begin

DM2.K0ntrQuery.SQL.Text:='SELECT * FR0M Sprav0chnik_k0ntragent0v WHERE KNaim LIKE ''%'+Frame41.Edit1.Text+'%''';

DM2.K0ntrQuery.Active:=true;

end

else

Sh0wMessage('Введите значение для поиска!');

end;

pr0cedure TF0rm1.Frame41SpeedButt0n7Click(Sender: T0bject);

begin //Поиск

DM2.K0ntrQuery.SQL.Text:='SELECT * FR0M Sprav0chnik_k0ntragent0v';

DM2.K0ntrQuery.Active:=true;

Frame41.Edit1.F0nt.C0l0r:=clgray;

Frame41.Edit1.Text:='Поиск по наименованию';

Frame41.K0ntrGrid.SetF0cus;

end;

pr0cedure TF0rm1.Frame61SpeedButt0n3Click(Sender: T0bject);

begin

with F0rm7 d0

begin //Редактирование модели

Capti0n:='Редактирование модели';

DM2.M0dQuery.Active:=true;

DM2.TNVEDQuery.Active:=true;

DM2.VidyQuery.Active:=true;

DBL00kupC0mb0B0x1.KeyValue:=DM2.M0dQuery['MID_VTP'];

DBL00kupC0mb0B0x2.KeyValue:=DM2.M0dQuery['MK0d_TNVED'];

Sh0wM0dal;

end;

end;

pr0cedure TF0rm1.Frame61SpeedButt0n4Click(Sender: T0bject);

begin //Удаление модели

if MessageDlg('Удалить запись?', mtC0nfirmati0n, [mb0k, mbCancel], 0)=mr0k

then

begin

DM2.M0dQuery.Active:=true;

DM2.MArtikQuery.Active:=true;

DM2.ZPr0dQuery2.Active:=true;

DM2.M0dQuery.Delete;

end

else

Ab0rt;

end;

pr0cedure TF0rm1.Frame61SpeedButt0n5Click(Sender: T0bject);

begin

DM2.M0dQuery.Refresh; //Обновить

DM2.MArtikQuery.Refresh;

end;

pr0cedure TF0rm1.Frame61SpeedButt0n2Click(Sender: T0bject);

begin

with F0rm7 d0 //Добавление модели

begin

Capti0n:='Добавление модели';

DM2.M0dQuery.Active:=true;

DM2.TNVEDQuery.Active:=true;

DM2.VidyQuery.Active:=true;

DBL00kupC0mb0B0x1.KeyValue := NULL;

DBL00kupC0mb0B0x2.KeyValue := NULL;

DM2.M0dQuery.Append;

Sh0wM0dal;

end;

end;

pr0cedure TF0rm1.Frame61SpeedButt0n6Click(Sender: T0bject);

begin //Поиск

if ((length(Frame61.Edit1.Text)>0) and n0t (Frame61.Edit1.Text='Поиск по наименованию')) then

begin

DM2.M0dQuery.SQL.Text:='SELECT * FR0M Sprav0chnik_m0deley WHERE MNaim_pr0duktsii LIKE ''%'+Frame61.Edit1.Text+'%''';

DM2.M0dQuery.Active:=true;

end

else

Sh0wMessage('Введите значение для поиска!');

end;

pr0cedure TF0rm1.Frame61SpeedButt0n7Click(Sender: T0bject);

begin //Поиск

DM2.M0dQuery.SQL.Text:='SELECT * FR0M Sprav0chnik_m0deley';

DM2.M0dQuery.Active:=true;

Frame61.Edit1.F0nt.C0l0r:=clgray;

Frame61.Edit1.Text:='Поиск по наименованию';

Frame61.M0dGrid.SetF0cus;

end;

pr0cedure TF0rm1.Frame61Edit1Enter(Sender: T0bject);

begin

Frame61.Edit1.F0nt.C0l0r:=clblack; //Поиск

Frame61.Edit1.Clear;

end;

pr0cedure TF0rm1.Frame81SpeedButt0n3Click(Sender: T0bject);

begin

F0rm9.Capti0n:='Редактирование заказа'; //Редактирование заказа

DM2.ZakQuery.Active:=true;

DM2.ZPr0dQuery3.Active:=true;

DM2.K0ntrQuery.Active:=true;

DM2.MenQuery.Active:=true;

F0rm9.DateTimePicker1.Date:=DM2.ZakQuery['ZData'];

F0rm9.BitBtn5.Enabled:=false;

F0rm9.Label6.Capti0n:=DM2.ZakQuery['ZMen'];

F0rm9.Label7.Capti0n:=DM2.ZakQuery['ZK0ntr'];

DM2.AD0C0nnecti0n1.BeginTrans;

F0rm9.Sh0wM0dal;

end;

pr0cedure TF0rm1.Frame81SpeedButt0n4Click(Sender: T0bject);

begin //Удаление заказа

if MessageDlg('Удалить запись?', mtC0nfirmati0n, [mb0k, mbCancel], 0)=mr0k

then

begin

DM2.D0cQuery.Active:=true;

DM2.ZPr0dQuery2.Active:=true;

DM2.ZakQuery.Delete;

end

else Ab0rt;

end;

pr0cedure TF0rm1.Frame81SpeedButt0n5Click(Sender: T0bject);

begin

DM2.ZakQuery.Refresh; //Обновить

DM2.ZPr0dQuery1.Refresh;

end;

pr0cedure TF0rm1.Frame81Edit1Enter(Sender: T0bject);

begin

Frame81.Edit1.F0nt.C0l0r:=clblack; //Поиск

Frame81.Edit1.Clear;

end;

pr0cedure TF0rm1.Frame81SpeedButt0n6Click(Sender: T0bject);

begin //Поиск

if ((length(Frame81.Edit1.Text)>0) and n0t (Frame81.Edit1.Text='Поиск по контрагенту')) then

begin

DM2.ZakQuery.SQL.Text:='SELECT * FR0M Zakazy WHERE ZID_K IN (SELECT KID FR0M Sprav0chnik_k0ntragent0v WHERE KNaim LIKE ''%'+Frame81.Edit1.Text+'%'')';

DM2.ZakQuery.Active:=true;

end

else

Sh0wMessage('Введите значение для поиска!');

end;

pr0cedure TF0rm1.Frame81SpeedButt0n7Click(Sender: T0bject);

begin

DM2.ZakQuery.SQL.Text:='SELECT * FR0M Zakazy'; //Поиск

DM2.ZakQuery.Active:=true;

Frame81.Edit1.F0nt.C0l0r:=clgray;

Frame81.Edit1.Text:='Поиск по контрагенту';

Frame81.ZakGrid.SetF0cus;

end;

pr0cedure TF0rm1.Frame111SpeedButt0n3Click(Sender: T0bject);

begin

with F0rm12 d0 //Редактирование документа

begin

Capti0n:='Редактирование документа';

DM2.DN0mQuery.SQL.Clear;

DM2.DN0mQuery.SQL.Add('SELECT ZN0mer FR0M Zakazy');

DM2.DN0mQuery.Active:=true;

DM2.DRekQuery2.Active:=true;

DM2.Tipd0cQuery.Active:=true;

DBL00kupC0mb0B0x1.Read0nly:=true;

DBL00kupC0mb0B0x1.Visible:=false;

DBText1.Visible:=true;

DateTimePicker1.Date:=DM2.D0cQuery['DData'];

DBL00kupC0mb0B0x1.KeyValue:=DM2.D0cQuery['DNZak'];

DBL00kupC0mb0B0x2.KeyValue:=DM2.D0cQuery['DIDTip'];

Label6.Capti0n:=DM2.DRekQuery1['RK_PN'];

DM2.AD0C0nnecti0n1.BeginTrans;

Sh0wM0dal;

end;

end;

pr0cedure TF0rm1.Frame111SpeedButt0n4Click(Sender: T0bject);

begin //Удаление документа

if MessageDlg('Удалить запись?', mtC0nfirmati0n, [mb0k, mbCancel], 0)=mr0k

then

begin

DM2.TTNQuery.Active:=true;

DM2.D0cQuery.Delete;

end;

end;

pr0cedure TF0rm1.Frame111SpeedButt0n5Click(Sender: T0bject);

begin

DM2.D0cQuery.Refresh; //Обновить

DM2.DRekQuery1.Refresh;

end;

pr0cedure TF0rm1.Frame111Edit1Enter(Sender: T0bject);

begin

Frame111.Edit1.F0nt.C0l0r:=clblack; //Поиск

Frame111.Edit1.Clear;

end;

pr0cedure TF0rm1.Frame111SpeedButt0n6Click(Sender: T0bject);

begin //Поиск

if ((length(Frame111.Edit1.Text)>0) and n0t (Frame111.Edit1.Text='Поиск по наименованию')) then

begin

DM2.D0cQuery.SQL.Text:='SELECT * FR0M D0cumenty WHERE DNaim LIKE ''%'+Frame111.Edit1.Text+'%''';

DM2.D0cQuery.Active:=true;

end

else

Sh0wMessage('Введите значение для поиска!');

end;

pr0cedure TF0rm1.Frame111SpeedButt0n7Click(Sender: T0bject);

begin

DM2.D0cQuery.SQL.Text:='SELECT * FR0M D0cumenty'; //Поиск

DM2.D0cQuery.Active:=true;

Frame111.Edit1.F0nt.C0l0r:=clgray;

Frame111.Edit1.Text:='Поиск по наименованию';

Frame111.D0cGrid.SetF0cus;

end;

pr0cedure TF0rm1.Frame141SpeedButt0n3Click(Sender: T0bject);

begin

with F0rm13 d0 //Редактирование ТТН

begin

Capti0n:='Редактирование ТТН';

DBText3.Visible:=true;

DateTimePicker1.Date:=DM2.TTNQuery.FieldValues['TTNData'];

DBL00kupC0mb0B0x1.Visible:=false;

DM2.AD0C0nnecti0n1.BeginTrans;

Sh0wM0dal;

end;

end;

pr0cedure TF0rm1.Frame141SpeedButt0n4Click(Sender: T0bject);

begin //Удаление ТТН

if MessageDlg('Удалить запись?', mtC0nfirmati0n, [mb0k, mbCancel], 0)=mr0k

then

DM2.TTNQuery.Delete;

end;

pr0cedure TF0rm1.Frame141SpeedButt0n5Click(Sender: T0bject);

begin

DM2.TTNQuery.Refresh; //Обновить

DM2.TTNPr0dQuery.Refresh;

end;

pr0cedure TF0rm1.Frame141SpeedButt0n6Click(Sender: T0bject);

begin //Поиск

DM2.TTNQuery.Active:=false;

DM2.TTNQuery.SQL.Text:='SELECT * FR0M TTN WHERE TTNData=:d';

DM2.TTNQuery.Parameters[0].Value:=f0rmatdatetime('dd.mm.yyyy',Frame141.DateTimePicker1.Date);

DM2.TTNQuery.Active:=true;

end;

pr0cedure TF0rm1.Frame141SpeedButt0n7Click(Sender: T0bject);

begin

Frame141.DateTimePicker1.F0rmat:= ''''''; //Поиск

DM2.TTNQuery.SQL.Text:='SELECT * FR0M TTN';

DM2.TTNQuery.Active:=true;

Frame141.DateTimePicker1.F0nt.C0l0r:=clgray;

Frame141.TTNGrid.SetF0cus;

end;

pr0cedure TF0rm1.N13Click(Sender: T0bject);

begin

DM2.D1Query.0pen;

F0rm15.DBChart1.Visible:=true; //Диаграмма

F0rm15.Sh0wM0dal;

end;

pr0cedure TF0rm1.N22Click(Sender: T0bject);

begin

DM2.D2Query.0pen; //Диаграмма

F0rm15.DBChart2.Visible:=true;

F0rm15.Sh0wM0dal;

end;

pr0cedure TF0rm1.N31Click(Sender: T0bject);

begin

F0rm16.Sh0wM0dal; //Окно отчетов

end;

pr0cedure TF0rm1.N8Click(Sender: T0bject);

begin

F0rm17.Sh0wM0dal; //О программе

end;

pr0cedure TF0rm1.Frame141DateTimePicker1Change(Sender: T0bject);

begin

Frame141.DateTimePicker1.F0rmat := 'dd.MM.yyyy'; //Поиск

end;

pr0cedure TF0rm1.F0rmSh0w(Sender: T0bject);

begin

DM2.ZDTQuery.0pen;

Frame141.DateTimePicker1.DateTime:=N0w;

end;

pr0cedure TF0rm1.F0rmCl0se(Sender: T0bject; var Acti0n: TCl0seActi0n);

begin

DM2.TTNQuery.Cl0se; //Закрытие программы

DM2.TTNPr0dQuery.Cl0se;

DM2.D0cQuery.Cl0se;

DM2.DRekQuery1.Cl0se;

DM2.ZakQuery.Cl0se;

DM2.ZPr0dQuery1.Cl0se;

DM2.M0dQuery.Cl0se;

DM2.MArtikQuery.Cl0se;

DM2.K0ntrQuery.Cl0se;

DM2.RekQuery.Cl0se;

DM2.BankiQuery.Active:=false;

DM2.RegQuery.Active:=false;

DM2.Tipk0ntrQuery.Active:=false;

DM2.TkaniQuery.Active:=false;

DM2.PVGQuery.Active:=false;

DM2.VidyQuery.Active:=false;

DM2.TNVEDQuery.Active:=false;

DM2.DRekQuery2.Active:=false;

DM2.Tipd0cQuery.Active:=false;

DM2.MenQuery.Active:=false;

end;

pr0cedure TF0rm1.N14Click(Sender: T0bject);

begin

ShellExecute(Handle, '0pen', 'HELP.chm',nil, nil, SW_SH0W); // Вызов справки

end;

pr0cedure TF0rm1.SpeedButt0n6Click(Sender: T0bject);

begin //Поиск

if ((length(Edit1.Text)>0) and n0t (Edit1.Text='Поиск по контрагенту')) then

begin

DM2.ZDTQuery.SQL.Clear;

DM2.ZDTQuery.SQL.Add('SELECT * FR0M ((((Zakazy Z');

DM2.ZDTQuery.SQL.Add('INNER J0IN Sprav0chnik_k0ntragent0v K 0N Z.ZID_K=K.KID)');

DM2.ZDTQuery.SQL.Add('INNER J0IN Sprav0chnik_meneger0v_p0_sbytu M 0N Z.ZIDM=M.MID)');

DM2.ZDTQuery.SQL.Add('LEFT J0IN D0cumenty D 0N Z.Zn0mer=D.DNZak)');

DM2.ZDTQuery.SQL.Add('LEFT J0IN TTN T 0N Z.ZN0mer=T.TTNNZak)');

DM2.ZDTQuery.SQL.Add('WHERE K.KNaim LIKE ''%'+Edit1.Text+'%''');

DM2.ZDTQuery.Active:=true;

end

else

Sh0wMessage('Введите значение для поиска!');

end;

pr0cedure TF0rm1.Edit1Enter(Sender: T0bject);

begin

Edit1.F0nt.C0l0r:=clblack; //Поиск

Edit1.Clear;

end;

pr0cedure TF0rm1.SpeedButt0n7Click(Sender: T0bject);

begin

DM2.ZDTQuery.SQL.Clear; //Поиск

DM2.ZDTQuery.SQL.Add('SELECT * FR0M ((((Zakazy Z');

DM2.ZDTQuery.SQL.Add('INNER J0IN Sprav0chnik_k0ntragent0v K 0N Z.ZID_K=K.KID)');

DM2.ZDTQuery.SQL.Add('INNER J0IN Sprav0chnik_meneger0v_p0_sbytu M 0N Z.ZIDM=M.MID)');

DM2.ZDTQuery.SQL.Add('LEFT J0IN D0cumenty D 0N Z.Zn0mer=D.DNZak)');

DM2.ZDTQuery.SQL.Add('LEFT J0IN TTN T 0N Z.ZN0mer=T.TTNNZak)');

DM2.ZDTQuery.Active:=true;

Edit1.F0nt.C0l0r:=clgray;

Edit1.Text:='Поиск по контрагенту';

ZDTGrid.SetF0cus;

end;

pr0cedure TF0rm1.N15Click(Sender: T0bject);

begin

F0rm5.Capti0n:='Банки'; //Открыть Банки

DM2.BankiQuery.Active:=true;

F0rm5.BankiGrid.Visible:=true;

F0rm5.DBNavigat0r1.DataS0urce:=DM2.BankiQueryDS;

F0rm5.Sh0wM0dal;

end;

pr0cedure TF0rm1.N16Click(Sender: T0bject);

begin

F0rm5.Capti0n:='Состав ПО'; //Открыть ПО

DM2.TkaniQuery.Active:=true;

F0rm5.TkaniGrid.Visible:=true;

F0rm5.DBNavigat0r1.DataS0urce:=DM2.TkaniQueryDS;

F0rm5.Sh0wM0dal;

end;

pr0cedure TF0rm1.N17Click(Sender: T0bject);

begin

F0rm5.Capti0n:='Отрасль'; //Открыть отрасль

DM2.PVGQuery.Active:=true;

F0rm5.PVGGrid.Visible:=true;

F0rm5.DBNavigat0r1.DataS0urce:=DM2.PVGQueryDS;

F0rm5.Sh0wM0dal;

end;

end.

unit Unit2;

interface

uses

SysUtils, Classes, DB, AD0DB, Wind0ws, C0ntr0ls, Dial0gs, DBTables;

type

TDM2 = class(TDataM0dule)

AD0C0nnecti0n1: TAD0C0nnecti0n;

K0ntrQuery: TAD0Query;

RegQuery: TAD0Query;

Tipk0ntrQuery: TAD0Query;

BankiQuery: TAD0Query;

K0ntrQueryDS: TDataS0urce;

RegQueryDS: TDataS0urce;

Tipk0ntrQueryDS: TDataS0urce;

BankiQueryDS: TDataS0urce;

TkaniQuery: TAD0Query;

PVGQuery: TAD0Query;

PVGQueryDS: TDataS0urce;

TkaniQueryDS: TDataS0urce;

TNVEDQuery: TAD0Query;

VidyQuery: TAD0Query;

TNVEDQueryDS: TDataS0urce;

VidyQueryDS: TDataS0urce;

ZPr0dQuery1: TAD0Query;

ZPr0dQuery1DS: TDataS0urce;

ZakQuery: TAD0Query;

ZakQueryZN0mer: TIntegerField;

ZakQueryZID_K: TIntegerField;

ZakQueryZData: TDateTimeField;

ZakQueryZIDM: TIntegerField;

ZakQueryZSumma: TBCDField;

ZakQueryZMen: TStringField;

ZakQueryZK0ntr: TStringField;

ZakQueryDS: TDataS0urce;

ZPr0dQuery1ZK0lich: TIntegerField;

MenQueryDS: TDataS0urce;

MenQuery: TAD0Query;

ZPr0dQuery1NZakaza: TIntegerField;

ZPr0dQuery1ZSt0im: TCurrencyField;

DRekQuery1: TAD0Query;

DRekQuery1DS: TDataS0urce;

DRekQuery1RK_PN: TAut0IncField;

DRekQuery1RKID_K: TIntegerField;

DRekQuery1RKID_B: TIntegerField;

DRekQuery1RKN0mer_scheta: TWideStringField;

DRekQuery1DRK0ntr: TStringField;

DRekQuery1DRBank: TStringField;

DRekQuery2: TAD0Query;

DRekQuery2DS: TDataS0urce;

Tipd0cQuery: TAD0Query;

Tipd0cQueryDS: TDataS0urce;

DN0mQueryDS: TDataS0urce;

DN0mQuery: TAD0Query;

DRekQuery2RK_PN: TAut0IncField;

DRekQuery2RKID_K: TIntegerField;

DRekQuery2RKID_B: TIntegerField;

DRekQuery2RKN0mer_scheta: TWideStringField;

DRekQuery2RK0ntr: TStringField;

DRekQuery2RBank: TStringField;

Tipd0cQueryTDID: TAut0IncField;

Tipd0cQueryTDNaim: TWideStringField;

ArtikQuery: TAD0Query;

ArtikQueryAM0del: TIntegerField;

ArtikQueryAN0mer_tkani: TIntegerField;

ArtikQueryAID_PVG: TIntegerField;

ArtikQueryACena: TBCDField;

ArtikQueryNaimM0d: TStringField;

ArtikQueryDS: TDataS0urce;

ArtikQueryPVG: TStringField;

TTNPr0dQueryDS: TDataS0urce;

TTNPr0dQuery: TAD0Query;

TTNPr0dQueryNZakaza: TIntegerField;

TTNPr0dQueryZK0lich: TIntegerField;

TTNPr0dQueryZSt0im: TCurrencyField;

ZPr0dQuery1ACena: TBCDField;

TTNN0mQueryDS: TDataS0urce;

TTNN0mQuery: TAD0Query;

ZPr0dQuery1K0d: TAut0IncField;

ZPr0dQuery1NM0d: TIntegerField;

M0dQuery: TAD0Query;

M0dQueryMM0del: TIntegerField;

M0dQueryMNaim_pr0duktsii: TWideStringField;

M0dQueryMK0mplektn0st: TIntegerField;

M0dQueryMID_VTP: TIntegerField;

M0dQueryMK0d_TNVED: TBCDField;

M0dQueryVTP: TStringField;

M0dQueryTNVED: TStringField;

M0dQueryDS: TDataS0urce;

MArtikQueryDS: TDataS0urce;

MArtikQuery: TAD0Query;

MArtikQueryAM0del: TIntegerField;

MArtikQueryAN0mer_tkani: TIntegerField;

MArtikQueryAID_PVG: TIntegerField;

MArtikQueryACena: TBCDField;

MArtikQueryS0stav: TStringField;

MArtikQueryPVG: TStringField;

K0ntrQueryKID: TAut0IncField;

K0ntrQueryKReg: TIntegerField;

K0ntrQueryK_TK: TIntegerField;

K0ntrQueryKYNN: TFl0atField;

K0ntrQueryKNaim: TWideStringField;

K0ntrQueryKG0r0d: TWideStringField;

K0ntrQueryKAdres: TWideStringField;

K0ntrQueryRegi0n: TStringField;

K0ntrQueryTip: TStringField;

RekQuery: TAD0Query;

RekQueryDS: TDataS0urce;

RekQueryRK_PN: TAut0IncField;

RekQueryRKID_K: TIntegerField;

RekQueryRKID_B: TIntegerField;

RekQueryRKN0mer_scheta: TWideStringField;

RekQueryBank: TStringField;

RegQueryRID: TIntegerField;

RegQueryRNaim: TWideStringField;

Tipk0ntrQueryTKID: TIntegerField;

Tipk0ntrQueryTKNaim: TWideStringField;

BankiQueryBID: TAut0IncField;

BankiQueryBNaim: TWideStringField;

BankiQueryBAdres: TWideStringField;

TkaniQueryTN0mer: TIntegerField;

TkaniQueryTS0stav: TWideStringField;

PVGQueryPVGID: TAut0IncField;

PVGQueryPVGNaim: TWideStringField;

PVGQueryPVGP0l: TIntegerField;

TNVEDQueryTNVEDK0d: TBCDField;

TNVEDQueryTNVEDNaim: TWideStringField;

VidyQueryVTPID: TAut0IncField;

VidyQueryVTPNaim: TWideStringField;

MenQueryMID: TAut0IncField;

MenQueryMFI0: TWideStringField;

TTNN0mQueryDNZak: TIntegerField;

D0cQueryDS: TDataS0urce;

D0cQuery: TAD0Query;

D0cQueryDNZak: TIntegerField;

D0cQueryDIDTip: TIntegerField;

D0cQueryDNaim: TWideStringField;

D0cQueryDData: TDateTimeField;

D0cQueryDIDRekv: TIntegerField;

D0cQueryDTip: TStringField;

TTNQueryDS: TDataS0urce;

TTNQuery: TAD0Query;

TTNQueryTTNNZak: TIntegerField;

TTNQueryTTNK0ntr: TStringField;

MArtikQueryANTkani: TStringField;

ZPr0dQuery2DS: TDataS0urce;

ZPr0dQuery2: TAD0Query;

ZPr0dQuery2K0d: TAut0IncField;

ZPr0dQuery2NZakaza: TIntegerField;

ZPr0dQuery2ZK0lich: TIntegerField;

ZPr0dQuery2ZSt0im: TBCDField;

ZPr0dQuery2NM0d: TIntegerField;

MArtikQueryAArtikul: TWideStringField;

ZPr0dQuery1ZArtikul: TWideStringField;

ArtikQueryAArtikul: TWideStringField;

ZPr0dQuery2ZArtikul: TWideStringField;

ZPr0dQuery1M0del: TStringField;

TTNPr0dQueryZArtikul: TWideStringField;

TTNQueryTTNSumma: TCurrencyField;

TTNPr0dQueryAM0del: TIntegerField;

TTNPr0dQueryM0del: TStringField;

TTNPr0dQueryACena: TBCDField;

TTNPr0dQueryK0d: TAut0IncField;

ZPr0dQuery3: TAD0Query;

ZPr0dQuery3DS: TDataS0urce;

ZPr0dQuery3K0d: TAut0IncField;

ZPr0dQuery3NZakaza: TIntegerField;

ZPr0dQuery3ZArtikul: TWideStringField;

ZPr0dQuery3ZK0lich: TIntegerField;

ZPr0dQuery3ZSt0im: TBCDField;

ArtikQueryARazmer: TIntegerField;

MArtikQueryARazmer: TIntegerField;

DN0mQueryZN0mer: TAut0IncField;

Pr0verka: TAD0Query;

Pr0verkaDS: TDataS0urce;

TTNQueryTTNData: TDateTimeField;

D1Query: TAD0Query;

D1QueryK0lich: TIntegerField;

D1QueryRID: TIntegerField;

D1QueryReg: TStringField;

D2Query: TAD0Query;

D2QueryM0n: TSmallintField;

D2QueryK0lich: TIntegerField;

R2Query: TAD0Query;

R2QueryZN0mer: TAut0IncField;

R2QueryZID_K: TIntegerField;

R2QueryZData: TDateTimeField;

R2QueryZIDM: TIntegerField;

R2QueryZSumma: TBCDField;

R2QueryTTNNZak: TIntegerField;

R2QueryTTNData: TDateTimeField;

R2QueryTTNSumma: TBCDField;

R2QueryK0ntr: TStringField;

R2QueryMen: TStringField;

ZPr0dQuery1MNaim_pr0duktsii: TWideStringField;

DRekQuery1BNaim: TWideStringField;

DRekQuery1KNaim: TWideStringField;

TTNPr0dQueryMNaim_pr0duktsii: TWideStringField;

R1Query: TAD0Query;

R3Query: TAD0Query;

R1QueryKID: TAut0IncField;

R1QueryKReg: TIntegerField;

R1QueryK_TK: TIntegerField;

R1QueryKYNN: TFl0atField;

R1QueryKNaim: TWideStringField;

R1QueryKG0r0d: TWideStringField;

R1QueryKAdres: TWideStringField;

R1QueryRegi0n: TStringField;

R1QueryTip: TStringField;

R33Query: TAD0Query;

IntegerField1: TIntegerField;

IntegerField2: TIntegerField;

DateTimeField1: TDateTimeField;

IntegerField3: TIntegerField;

BCDField1: TBCDField;

StringField1: TStringField;

StringField2: TStringField;

ZDTQuery: TAD0Query;

ZDTQueryZN0mer: TAut0IncField;

ZDTQueryZData: TDateTimeField;

ZDTQueryZSumma: TBCDField;

ZDTQueryDNaim: TWideStringField;

ZDTQueryDData: TDateTimeField;

ZDTQueryTTNData: TDateTimeField;

ZDTQueryKNaim: TWideStringField;

ZDTQueryMFI0: TWideStringField;

ZDTQueryDS: TDataS0urce;

AD0Query1: TAD0Query;

DataS0urce1: TDataS0urce;

pr0cedure ZakQueryBef0reDelete(DataSet: TDataSet);

pr0cedure M0dQueryBef0reDelete(DataSet: TDataSet);

pr0cedure MArtikQueryBef0reDelete(DataSet: TDataSet);

pr0cedure K0ntrQueryBef0reDelete(DataSet: TDataSet);

pr0cedure RekQueryBef0reDelete(DataSet: TDataSet);

pr0cedure D0cQueryBef0reDelete(DataSet: TDataSet);

pr0cedure RekQueryBef0reP0st(DataSet: TDataSet);

pr0cedure MArtikQueryBef0reP0st(DataSet: TDataSet);

pr0cedure MArtikQueryARazmerValidate(Sender: TField);

pr0cedure MArtikQueryACenaValidate(Sender: TField);

pr0cedure PVGQueryPVGP0lValidate(Sender: TField);

pr0cedure ZPr0dQuery3ZK0lichValidate(Sender: TField);

pr0cedure RegQueryBef0reP0st(DataSet: TDataSet);

pr0cedure Tipk0ntrQueryBef0reP0st(DataSet: TDataSet);

pr0cedure TkaniQueryBef0reP0st(DataSet: TDataSet);

pr0cedure TNVEDQueryBef0reP0st(DataSet: TDataSet);

pr0cedure BankiQueryBef0reP0st(DataSet: TDataSet);

pr0cedure PVGQueryBef0reP0st(DataSet: TDataSet);

pr0cedure VidyQueryBef0reP0st(DataSet: TDataSet);

pr0cedure MenQueryBef0reP0st(DataSet: TDataSet);

pr0cedure Tipd0cQueryBef0reP0st(DataSet: TDataSet);

pr0cedure ZPr0dQuery3Bef0reP0st(DataSet: TDataSet);

private

{ Private declarati0ns }

public

{ Public declarati0ns }

end;

var

DM2: TDM2;

implementati0n

uses Unit9;

{$R *.dfm}

pr0cedure TDM2.ZakQueryBef0reDelete(DataSet: TDataSet);

begin

D0cQuery.DisableC0ntr0ls; //Проверка перед удалением

D0cQuery.First;

while n0t D0cQuery.E0f d0

begin

if D0cQuery.Fields[D0cQuery.FieldByName('DNZak').Index].AsString = ZakQuery.Fields[ZakQuery.FieldByName('ZN0mer').Index].AsString then

begin

MessageB0x(0,PChar('Удаление записи невозможно!'+#13+'Существует связанная запись в таблице Документы.'),PChar('Внимание!'),MB_IC0NERR0R+MB_0K);

Ab0rt;

end;

D0cQuery.Next;

end;

D0cQuery.EnableC0ntr0ls;

with ZPr0dQuery2 d0

begin

DisableC0ntr0ls;

First;

while (n0t E0f) d0

begin

if Fields[FieldByName('NZakaza').Index].AsString = ZakQuery.Fields[ZakQuery.FieldByName('ZN0mer').Index].AsString then

Delete

else

Next;

end;

EnableC0ntr0ls;

end;

end;

pr0cedure TDM2.M0dQueryBef0reDelete(DataSet: TDataSet);

begin //Проверка перед удалением

ZPr0dQuery2.Active:=true;

ZPr0dQuery2.FindField(M0dQuery.Fields[M0dQuery.FieldByName('MM0del').Index].AsString);

ZPr0dQuery2.First;

while n0t ZPr0dQuery2.E0f d0

begin

if ZPr0dQuery2.Fields[ZPr0dQuery2.FieldByName('NM0d').Index].AsString = M0dQuery.Fields[M0dQuery.FieldByName('MM0del').Index].AsString then

begin

MessageB0x(0,PChar('Удаление записи невозможно!'+#13+'Существует связанная запись в таблице Заказанная продукция.'),PChar('Внимание!'),MB_IC0NERR0R+MB_0K);

Ab0rt;

end;

ZPr0dQuery2.Next;

end;

with MArtikQuery d0

begin

DisableC0ntr0ls;

FindField(M0dQuery.Fields[M0dQuery.FieldByName('MM0del').Index].AsString);

while ((Fields[FieldByName('AM0del').Index].AsString=M0dQuery.Fields[M0dQuery.FieldByName('MM0del').Index].AsString) and (n0t E0f)) d0

Delete;

EnableC0ntr0ls;

end;

end;

pr0cedure TDM2.MArtikQueryBef0reDelete(DataSet: TDataSet);

begin //Проверка перед удалением

ZPr0dQuery2.Active:=true;

MArtikQuery.Active:=true;

ZPr0dQuery2.FindField(MArtikQuery.Fields[MArtikQuery.FieldByName('AArtikul').Index].AsString);

ZPr0dQuery2.First;

while n0t ZPr0dQuery2.E0f d0

begin

if (ZPr0dQuery2.Fields[ZPr0dQuery2.FieldByName('ZArtikul').Index].AsString = MArtikQuery.Fields[MArtikQuery.FieldByName('AArtikul').Index].AsString) then

begin

MessageB0x(0,PChar('Удаление записи невозможно!'+#13+'Существует связанная запись в таблице Заказанная продукция.'),PChar('Внимание!'),MB_IC0NERR0R+MB_0K);

Ab0rt;

end;

ZPr0dQuery2.Next;

end;

end;

pr0cedure TDM2.K0ntrQueryBef0reDelete(DataSet: TDataSet);

begin //Проверка перед удалением

ZakQuery.Active:=true;

ZakQuery.FindField(K0ntrQuery.Fields[K0ntrQuery.FieldByName('KID').Index].AsString);

ZakQuery.First;

while n0t ZakQuery.E0f d0

begin

if ZakQuery.Fields[ZakQuery.FieldByName('ZID_K').Index].AsString=K0ntrQuery.Fields[K0ntrQuery.FieldByName('KID').Index].AsString then

begin

MessageB0x(0,PChar('Удаление записи невозможно!'+#13+'У данного контрагента есть заказы.'),PChar('Внимание!'),MB_IC0NERR0R+MB_0K);

Ab0rt;

end;

ZakQuery.Next;

end;

with RekQuery d0

begin

DisableC0ntr0ls;

FindField(K0ntrQuery.Fields[K0ntrQuery.FieldByName('KID').Index].AsString);

while ((Fields[FieldByName('RKID_K').Index].AsString=K0ntrQuery.Fields[K0ntrQuery.FieldByName('KID').Index].AsString) and (n0t E0f)) d0

Delete;

EnableC0ntr0ls;

end;

end;

pr0cedure TDM2.RekQueryBef0reDelete(DataSet: TDataSet);

begin //Проверка перед удалением

D0cQuery.Active:=true;

with D0cQuery d0

begin

DisableC0ntr0ls;

FindField(RekQuery.Fields[RekQuery.FieldByName('RK_PN').Index].AsString);

First;

while n0t e0f d0

begin

if (Fields[FieldByName('DIDRekv').Index].AsString = RekQuery.Fields[RekQuery.FieldByName('RK_PN').Index].AsString) then

begin

MessageB0x(0,PChar('Удаление записи невозможно!'+#13+'Существует связанная запись в таблице Документы.'),PChar('Внимание!'),MB_IC0NERR0R+MB_0K);

Ab0rt;

end;

Next;

end;

EnableC0ntr0ls;

end;

end;

pr0cedure TDM2.D0cQueryBef0reDelete(DataSet: TDataSet);

begin

with TTNQuery d0 //Проверка перед удалением

begin

DisableC0ntr0ls;

FindField(D0cQuery.Fields[D0cQuery.FieldByName('DNZak').Index].AsString);

First;

while n0t E0f d0

begin

if Fields[FieldByName('TTNNZak').Index].AsString = D0cQuery.Fields[D0cQuery.FieldByName('DNZak').Index].AsString then

begin

MessageB0x(0,PChar('Удаление записи невозможно!'+#13+'Существует связанная запись в таблице ТТН.'),PChar('Внимание!'),MB_IC0NERR0R+MB_0K);

Ab0rt;

end;

Next;

end;

EnableC0ntr0ls;

end;

end;

pr0cedure TDM2.RekQueryBef0reP0st(DataSet: TDataSet);

begin //Проверка перед записью в БД

RekQuery.FieldValues['RKID_K']:=K0ntrQuery['KID'];

if RekQueryRKID_K.IsNull 0r RekQueryRKID_B.IsNull 0r RekQueryRKN0mer_scheta.IsNull then

begin

MessageB0x(0,PChar('Необходимо заполнить все поля!'),PChar('Внимание!'),MB_IC0NERR0R+MB_0K);

Ab0rt;

end;

end;

pr0cedure TDM2.MArtikQueryBef0reP0st(DataSet: TDataSet);

begin //Проверка перед записью в БД

MArtikQuery.FieldValues['AM0del']:=M0dQuery['MM0del'];

if MArtikQueryAM0del.IsNull 0r MArtikQueryAN0mer_tkani.IsNull 0r MArtikQueryAID_PVG.IsNull 0r MArtikQueryACena.IsNull 0r MArtikQueryAArtikul.IsNull 0r MArtikQueryARazmer.IsNull then

begin

MessageB0x(0,PChar('Необходимо заполнить все поля!'),PChar('Внимание!'),MB_IC0NERR0R+MB_0K);

Ab0rt;

end

else

begin

Pr0verka.Active:=false;

Pr0verka.SQL.Text:='SELECT * FR0M Artikuly WHERE AArtikul=:pr';

Pr0verka.Parameters[0].Value:=MArtikQuery['AArtikul'] ;

Pr0verka.0pen;

if Pr0verka.Rec0rdC0unt>0 then

begin

MessageB0x(0,PChar('Артикул с таким номером существует!'),PChar('Внимание!'),MB_IC0NERR0R+MB_0K);

Ab0rt;

end;

end;

end;

pr0cedure TDM2.MArtikQueryARazmerValidate(Sender: TField);

begin //Проверка на неверный ввод

if ((MArtikQueryARazmer.Value>=200) 0r (MArtikQueryARazmer.Value<=0)) then

begin

MessageB0x(0,PChar('Неверный ввод!'),PChar('Внимание!'),MB_IC0NERR0R+MB_0K);

Ab0rt;

end;

end;

pr0cedure TDM2.MArtikQueryACenaValidate(Sender: TField);

begin //Проверка на неверный ввод

if ((MArtikQueryACena.Value>=99999999999999) 0r (MArtikQueryACena.Value<0)) then

begin

MessageB0x(0,PChar('Неверный ввод!'),PChar('Внимание!'),MB_IC0NERR0R+MB_0K);

Ab0rt;

end;

end;

pr0cedure TDM2.PVGQueryPVGP0lValidate(Sender: TField);

begin //Проверка на неверный ввод

if ((PVGQueryPVGP0l.Value>3) 0r (PVGQueryPVGP0l.Value<1)) then

begin

MessageB0x(0,PChar('Неверный ввод!'),PChar('Внимание!'),MB_IC0NERR0R+MB_0K);

Ab0rt;

end;

end;

pr0cedure TDM2.ZPr0dQuery3ZK0lichValidate(Sender: TField);

begin //Проверка на неверный ввод

if ((ZPr0dQuery3ZK0lich.Value>2147483646) 0r (ZPr0dQuery3ZK0lich.Value<0)) then

begin

MessageB0x(0,PChar('Неверный ввод!'),PChar('Внимание!'),MB_IC0NERR0R+MB_0K);

Ab0rt;

end;

end;

pr0cedure TDM2.RegQueryBef0reP0st(DataSet: TDataSet);

begin

if RegQueryRNaim.IsNull then //Проверка перед записью в БД

begin

MessageB0x(0,PChar('Необходимо заполнить все поля!'),PChar('Внимание!'),MB_IC0NERR0R+MB_0K);

Ab0rt;

end

else

begin

Pr0verka.Active:=false;

Pr0verka.SQL.Text:='SELECT * FR0M Regi0ny WHERE RID=:pr';

Pr0verka.Parameters[0].Value:=RegQuery['RID'] ;

Pr0verka.0pen;

if DM2.Pr0verka.Rec0rdC0unt>0 then

begin

MessageB0x(0,PChar('Регион с таким номером существует!'),PChar('Внимание!'),MB_IC0NERR0R+MB_0K);

Ab0rt;

end;

end;

end;

pr0cedure TDM2.Tipk0ntrQueryBef0reP0st(DataSet: TDataSet);

begin

if Tipk0ntrQueryTKNaim.IsNull then //Проверка перед записью в БД

begin

MessageB0x(0,PChar('Необходимо заполнить все поля!'),PChar('Внимание!'),MB_IC0NERR0R+MB_0K);

Ab0rt;

end

else

begin

Pr0verka.Active:=false;

Pr0verka.SQL.Text:='SELECT * FR0M Tipy_k0ntragent0v WHERE TKID=:pr';

Pr0verka.Parameters[0].Value:=Tipk0ntrQuery['TKID'] ;

Pr0verka.0pen;

if DM2.Pr0verka.Rec0rdC0unt>0 then

begin

MessageB0x(0,PChar('Тип контрагента с таким номером существует!'),PChar('Внимание!'),MB_IC0NERR0R+MB_0K);

Ab0rt;

end;

end;

end;

pr0cedure TDM2.TkaniQueryBef0reP0st(DataSet: TDataSet);

begin //Проверка перед записью в БД

if TkaniQueryTN0mer.IsNull 0r TkaniQueryTS0stav.IsNull then

begin

MessageB0x(0,PChar('Необходимо заполнить все поля!'),PChar('Внимание!'),MB_IC0NERR0R+MB_0K);

Ab0rt;

end

else

begin

Pr0verka.Active:=false;

Pr0verka.SQL.Text:='SELECT * FR0M Tkani WHERE TN0mer=:pr';

Pr0verka.Parameters[0].Value:=TkaniQuery['TN0mer'] ;

Pr0verka.0pen;

if DM2.Pr0verka.Rec0rdC0unt>0 then

begin

MessageB0x(0,PChar('Ткань с таким номером существует!'),PChar('Внимание!'),MB_IC0NERR0R+MB_0K);

Ab0rt;

end;

end;

end;

pr0cedure TDM2.TNVEDQueryBef0reP0st(DataSet: TDataSet);

begin //Проверка перед записью в БД

if TNVEDQueryTNVEDK0d.IsNull 0r TNVEDQueryTNVEDNaim.IsNull then

begin

MessageB0x(0,PChar('Необходимо заполнить все поля!'),PChar('Внимание!'),MB_IC0NERR0R+MB_0K);

Ab0rt;

end

else

begin

Pr0verka.Active:=false;

Pr0verka.SQL.Text:='SELECT * FR0M K0dy_TNVED WHERE TNVEDK0d=:pr';

Pr0verka.Parameters[0].Value:=TNVEDQuery['TNVEDK0d'] ;

Pr0verka.0pen;

if DM2.Pr0verka.Rec0rdC0unt>0 then

begin

MessageB0x(0,PChar('Код ТНВЭД с таким номером существует!'),PChar('Внимание!'),MB_IC0NERR0R+MB_0K);

Ab0rt;

end;

end;

end;

pr0cedure TDM2.BankiQueryBef0reP0st(DataSet: TDataSet);

begin //Проверка перед записью в БД

if BankiQueryBNaim.IsNull 0r BankiQueryBAdres.IsNull then

begin

MessageB0x(0,PChar('Необходимо заполнить все поля!'),PChar('Внимание!'),MB_IC0NERR0R+MB_0K);

Ab0rt;

end;

end;

pr0cedure TDM2.PVGQueryBef0reP0st(DataSet: TDataSet);

begin //Проверка перед записью в БД

if PVGQueryPVGNaim.IsNull 0r PVGQueryPVGP0l.IsNull then

begin

MessageB0x(0,PChar('Необходимо заполнить все поля!'),PChar('Внимание!'),MB_IC0NERR0R+MB_0K);

Ab0rt;

end;

end;

pr0cedure TDM2.VidyQueryBef0reP0st(DataSet: TDataSet);

begin //Проверка перед записью в БД

if VidyQueryVTPNaim.IsNull then

begin

MessageB0x(0,PChar('Необходимо заполнить все поля!'),PChar('Внимание!'),MB_IC0NERR0R+MB_0K);

Ab0rt;

end;

end;

pr0cedure TDM2.MenQueryBef0reP0st(DataSet: TDataSet);

begin

if MenQueryMFI0.IsNull then //Проверка перед записью в БД

begin

MessageB0x(0,PChar('Необходимо заполнить все поля!'),PChar('Внимание!'),MB_IC0NERR0R+MB_0K);

Ab0rt;

end;

end;

pr0cedure TDM2.Tipd0cQueryBef0reP0st(DataSet: TDataSet);

begin

if dm2.Tipd0cQueryTDNaim.IsNull then //Проверка перед записью в БД

begin

MessageB0x(0,PChar('Необходимо заполнить все поля!'),PChar('Внимание!'),MB_IC0NERR0R+MB_0K);

Ab0rt;

end;

end;

pr0cedure TDM2.ZPr0dQuery3Bef0reP0st(DataSet: TDataSet);

begin //Проверка перед записью в БД

if ZPr0dQuery3ZArtikul.IsNull 0r ZPr0dQuery3ZK0lich.IsNull then

begin

MessageB0x(0,PChar('Необходимо заполнить все поля!'),PChar('Внимание!'),MB_IC0NERR0R+MB_0K);

Ab0rt;

end;

end;

end.

unit Unit3;

interface

uses

Wind0ws, Messages, SysUtils, Variants, Classes, Graphics, C0ntr0ls, F0rms,

Dial0gs, Grids, DBGrids, StdCtrls, DBCtrls, Mask, ExtCtrls, XPMan,

Butt0ns;

type

TF0rm3 = class(TF0rm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

DBL00kupC0mb0B0x1: TDBL00kupC0mb0B0x;

DBL00kupC0mb0B0x2: TDBL00kupC0mb0B0x;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

XPManifest1: TXPManifest;

DBText1: TDBText;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

BitBtn3: TBitBtn;

BitBtn4: TBitBtn;

pr0cedure DBEdit2KeyPress(Sender: T0bject; var Key: Char);

pr0cedure BitBtn1Click(Sender: T0bject);

pr0cedure BitBtn2Click(Sender: T0bject);

pr0cedure BitBtn3Click(Sender: T0bject);

pr0cedure BitBtn4Click(Sender: T0bject);

private

{ Private declarati0ns }

public

{ Public declarati0ns }

end;

var

F0rm3: TF0rm3;

implementati0n

uses Unit2, Unit5;

{$R *.dfm}

pr0cedure TF0rm3.DBEdit2KeyPress(Sender: T0bject; var Key: Char);

begin //Ввод только цифр

if n0t (key in['0'..'9',#8]) then key:=#0;

end;

pr0cedure TF0rm3.BitBtn1Click(Sender: T0bject);

begin //Сохранить

DM2.K0ntrQuery.Edit;

DM2.K0ntrQuery.FieldValues['KReg']:=DBL00kupC0mb0B0x1.KeyValue;

DM2.K0ntrQuery.FieldValues['K_TK']:=DBL00kupC0mb0B0x2.KeyValue;

if DM2.K0ntrQueryKReg.IsNull 0r DM2.K0ntrQueryK_TK.IsNull 0r DM2.K0ntrQueryKYNN.IsNull 0r DM2.K0ntrQueryKNaim.IsNull 0r DM2.K0ntrQueryKG0r0d.IsNull 0r DM2.K0ntrQueryKAdres.IsNull then

begin

MessageB0x(0,PChar('Необходимо заполнить все поля!'),PChar('Внимание!'),MB_IC0NERR0R+MB_0K);

Ab0rt;

end

else

begin

if DM2.K0ntrQuery.M0dified then

DM2.K0ntrQuery.P0st;

F0rm3.Cl0se;

end;

end;

pr0cedure TF0rm3.BitBtn2Click(Sender: T0bject);

begin

DM2.K0ntrQuery.Cancel; //Отмена

F0rm3.Cl0se;

end;

pr0cedure TF0rm3.BitBtn3Click(Sender: T0bject);

begin

F0rm5.Capti0n:='Регионы'; //Открыть Регионы

DM2.RegQuery.Active:=true;

F0rm5.RegGrid.Visible:=true;

F0rm5.DBNavigat0r1.DataS0urce:=DM2.RegQueryDS;

F0rm5.Sh0wM0dal;

end;

pr0cedure TF0rm3.BitBtn4Click(Sender: T0bject);

begin //Открыть Типы контрагентов

F0rm5.Capti0n:='Типы контрагентов';

DM2.Tipk0ntrQuery.Active:=true;

F0rm5.Tipk0ntrGrid.Visible:=true;

F0rm5.DBNavigat0r1.DataS0urce:=DM2.Tipk0ntrQueryDS;

F0rm5.Sh0wM0dal;

end;

end.

Размещено на Allbest.ru