116
uses datmod;
{$R *.dfm}
procedure TfmPolom.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
Var
a : string;
begin
if button = nbInsert then
begin
fmDatMod.IBStoredProc1.StoredProcName := 'POLOMKA_KOD_AUTOINC';
fmdatmod.IBStoredProc1.ExecProc;
a := fmdatmod.IBStoredProc1.ParamByName('NEW_VALUE').AsString;
fmdatmod.t_polomka.FieldByName('kod').AsString:=a;
end;
end;
end.
unit price;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls, ExtCtrls, Grids, DBGrids, Menus;
type
TfmPrice = class(TForm)
GroupBox1: TGroupBox;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
DBLookupComboBox1: TDBLookupComboBox;
Button1: TButton;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
procedure Button1Click(Sender: TObject);
procedure DBGrid1DblClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
flag : string;
end;
var
fmPrice: TfmPrice;
implementation
uses datmod, zapchast;
{$R *.dfm}
procedure TfmPrice.Button1Click(Sender: TObject);
begin
fmZapchast.Show;
fmZapchast.flag := 'price';
end;
procedure TfmPrice.DBGrid1DblClick(Sender: TObject);
begin
if flag = 'adres' then
begin
fmdatmod.t_pos_rem.edit;
fmdatmod.t_pos_remFK_PRICE.AsString := fmdatmod.t_priceKOD.AsString;
fmPrice.Close;
end;
end;
procedure TfmPrice.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
Var
a : string;
begin
if button = nbInsert then
begin
fmDatMod.IBStoredProc1.StoredProcName := 'PRICE_KOD_AUTOINC';
fmdatmod.IBStoredProc1.ExecProc;
117
a := fmdatmod.IBStoredProc1.ParamByName('NEW_VALUE').AsString;
fmdatmod.t_price.FieldByName('kod').AsString:=a;
end;
end;
end.
unit zapchast;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Mask;
type
TfmZapchast = class(TForm)
DBGrid1: TDBGrid;
GroupBox1: TGroupBox;
DBNavigator1: TDBNavigator;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBLookupComboBox1: TDBLookupComboBox;
procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
procedure DBGrid1DblClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
flag : string;
end;
var
fmZapchast: TfmZapchast;
implementation
uses datmod;
{$R *.dfm}
procedure TfmZapchast.DBGrid1DblClick(Sender: TObject);
begin
if flag = 'price' then
begin
fmdatmod.t_price.edit;
fmdatmod.t_priceFK_zapch.AsString := fmdatmod.t_zapchastKOD.AsString;
fmZapchast.Close;
end;
end;
procedure TfmZapchast.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
Var
a : string;
begin
if button = nbInsert then
begin
fmDatMod.IBStoredProc1.StoredProcName := 'ZAPCHAST_KOD_AUTOINC';
fmdatmod.IBStoredProc1.ExecProc;
a := fmdatmod.IBStoredProc1.ParamByName('NEW_VALUE').AsString;
fmdatmod.t_zapchast.FieldByName('kod').AsString:=a;
end;
end;
end.
