Модуль учета поставок компьютеров, оргтехнике и комплектующих

end;

procedure TForm2.Edit5KeyPress(Sender: TObject; var Key: Char);

begin

 if Key in ['0'..'9',','..'.']+[#8] then else key:=#0;

end;

procedure TForm2.Edit6KeyPress(Sender: TObject; var Key: Char);

begin

 if Key in ['0'..'9',','..'.']+[#8] then else key:=#0;

end;

procedure TForm2.Edit6MouseActivate(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y, HitTest: Integer;

  var MouseActivate: TMouseActivate);

begin

bitbtn5.Visible:=false;

bitbtn6.Visible:=true;

edit3.Width:=427;

edit6.Width:=380;

end;

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

 begin

  Form1.visible:=true;

 end;

   ПРОДОЛЖЕНИЕ ПРИЛОЖЕНИЯ 1

procedure TForm2.Panel1DblClick(Sender: TObject);

 var bytes: TBytes;

 od: TOpenDialog;

begin

  od := TOpenDialog.Create(nil);

  od.Filter := 'Изображения (*.jpg,*.bmp)| *.jpg; *.bmp';

  if od.Execute then

   if MessageDlg('Вы действительно хотите загрузить это фото?', mtConfirmation, [mbYes, mbNo], 0) = idYes then

     begin

       image2.Picture.LoadFromFile(od.FileName);

       image2.Visible:=true;

     end;

end;

procedure TForm2.ToolButton1Click(Sender: TObject);

begin

// Диалог поиска

 DBGridEhFindDlgs.ExecuteDBGridEhFindDialog(DBGridEh1, '', '', nil, false)

end;

procedure TForm2.ToolButton2Click(Sender: TObject);

begin

// Заполнение выборки

//FillGrid;

end;

procedure TForm2.DataSourceDataChange(Sender: TObject; Field: TField);

var str: TMemoryStream;  bytes: TBytes;

begin

  edit1.Text := UniQuery1.FieldByName('naimeninovanie').AsString;

  edit2.Text:= UniQuery1.FieldByName('opisanie').AsString;

  combobox2.OnDropDown(nil);

  combobox2.ItemIndex:=combobox2.Items.IndexOf(uniquery1.FieldByName('ed_izmer').AsString);

  combobox1.OnDropDown(nil);

  combobox1.ItemIndex:=combobox1.Items.IndexOf(uniquery1.FieldByName('vid').AsString);

   ПРОДОЛЖЕНИЕ ПРИЛОЖЕНИЯ 1 

bytes :=  UniQuery1.FieldByName('photo').AsBytes ;

  if Length(bytes) <> 0 then

  begin

  str := TMemoryStream.Create;

  str.Write(bytes[0], Length(bytes)) ;

  str.Seek(0,0);

  image2.Picture.Graphic := TJPEGImage.Create;

  image2.Picture.Graphic.LoadFromStream(str);

  Image2.Visible := true;

  str.Free;

  end else

  begin

  image2.Picture := nil;

  Image2.Visible := false;

  end;

end;

end.

 

unit Unit3;

interface

uses

  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, DBGridEhGrouping, Data.DB, DBAccess,

  Uni, MemDS, UniProvider, PostgreSQLUniProvider, GridsEh, DBGridEh,

  Vcl.ComCtrls, Vcl.TabNotBk, Vcl.ExtCtrls, Vcl.DBCtrls, Vcl.StdCtrls,

  Vcl.Buttons, Vcl.Imaging.jpeg, Vcl.ToolWin, Data.Bind.EngExt,

  Vcl.Bind.DBEngExt, System.Rtti, System.Bindings.Outputs, Vcl.Bind.Editors,

  Data.Bind.Components, Vcl.ImgList, DBGridEhFindDlgs;

type

  TForm3 = class(TForm)

    DBGridEh1: TDBGridEh;

    PostgreSQLUniProvider1: TPostgreSQLUniProvider;

    UniQuery1: TUniQuery;

   ПРОДОЛЖЕНИЕ ПРИЛОЖЕНИЯ 1  

   UniConnection1: TUniConnection;

    DataSource1: TDataSource;

    DBNavigator1: TDBNavigator;

    TabbedNotebook1: TTabbedNotebook;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Edit4: TEdit;

    Edit5: TEdit;

    Edit6: TEdit;

    BitBtn1: TBitBtn;

    UniQuery2: TUniQuery;

    Image1: TImage;

    Label7: TLabel;

    Label8: TLabel;

    Label9: TLabel;

    Label10: TLabel;

    Label11: TLabel;

    Label12: TLabel;

    Edit7: TEdit;

    Edit8: TEdit;

    Edit9: TEdit;

    Edit10: TEdit;

    Edit11: TEdit;

    Edit12: TEdit;

    BitBtn2: TBitBtn;

    UniQuery1id: TLargeintField;

       ПРОДОЛЖЕНИЕ ПРИЛОЖЕНИЯ 1

    UniQuery1naimeninovanie: TWideStringField;

    UniQuery1bank_schet: TWideStringField;

    UniQuery1ur_adres: TWideStringField;

    UniQuery1telephon: TWideMemoField;

    UniQuery1kont_lico: TWideStringField;

    UniQuery1osnov_dogovor: TWideStringField;

    BitBtn3: TBitBtn;

    BitBtn4: TBitBtn;

    BitBtn5: TBitBtn;

    BitBtn6: TBitBtn;

    BitBtn7: TBitBtn;

    BitBtn8: TBitBtn;

    StatusBar1: TStatusBar;

    ToolBar1: TToolBar;

    ToolButton1: TToolButton;

    ToolButton2: TToolButton;

    ImageList1: TImageList;

    BitBtn9: TBitBtn;

    BitBtn10: TBitBtn;

    BitBtn11: TBitBtn;

    BitBtn12: TBitBtn;

    BitBtn13: TBitBtn;

    BitBtn14: TBitBtn;

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

    procedure BitBtn1Click(Sender: TObject);

    procedure DataSource1DataChange(Sender: TObject; Field: TField);

    procedure BitBtn2Click(Sender: TObject);

    procedure Edit4KeyPress(Sender: TObject; var Key: Char);

    procedure Edit10KeyPress(Sender: TObject; var Key: Char);

    procedure Edit1MouseActivate(Sender: TObject; Button: TMouseButton;

      Shift: TShiftState; X, Y, HitTest: Integer;

      var MouseActivate: TMouseActivate);

    procedure Edit2MouseActivate(Sender: TObject; Button: TMouseButton;

        ПРОДОЛЖЕНИЕ ПРИЛОЖЕНИЯ 1

     Shift: TShiftState; X, Y, HitTest: Integer;

      var MouseActivate: TMouseActivate);

    procedure Edit3MouseActivate(Sender: TObject; Button: TMouseButton;

      Shift: TShiftState; X, Y, HitTest: Integer;

      var MouseActivate: TMouseActivate);

    procedure Edit4MouseActivate(Sender: TObject; Button: TMouseButton;

      Shift: TShiftState; X, Y, HitTest: Integer;

      var MouseActivate: TMouseActivate);

    procedure Edit5MouseActivate(Sender: TObject; Button: TMouseButton;

      Shift: TShiftState; X, Y, HitTest: Integer;

      var MouseActivate: TMouseActivate);

    procedure Edit6MouseActivate(Sender: TObject; Button: TMouseButton;

      Shift: TShiftState; X, Y, HitTest: Integer;

      var MouseActivate: TMouseActivate);

    procedure BitBtn1MouseActivate(Sender: TObject; Button: TMouseButton;

      Shift: TShiftState; X, Y, HitTest: Integer;

      var MouseActivate: TMouseActivate);

    procedure ToolButton1Click(Sender: TObject);

    procedure Edit7MouseActivate(Sender: TObject; Button: TMouseButton;

      Shift: TShiftState; X, Y, HitTest: Integer;

      var MouseActivate: TMouseActivate);

    procedure Edit8MouseActivate(Sender: TObject; Button: TMouseButton;

      Shift: TShiftState; X, Y, HitTest: Integer;

      var MouseActivate: TMouseActivate);

    procedure Edit9MouseActivate(Sender: TObject; Button: TMouseButton;

      Shift: TShiftState; X, Y, HitTest: Integer;

      var MouseActivate: TMouseActivate);

    procedure Edit10MouseActivate(Sender: TObject; Button: TMouseButton;

      Shift: TShiftState; X, Y, HitTest: Integer;

      var MouseActivate: TMouseActivate);

    procedure Edit11MouseActivate(Sender: TObject; Button: TMouseButton;

      Shift: TShiftState; X, Y, HitTest: Integer;

      var MouseActivate: TMouseActivate);

   ПРОДОЛЖЕНИЕ ПРИЛОЖЕНИЯ 1   

   procedure Edit12MouseActivate(Sender: TObject; Button: TMouseButton;

      Shift: TShiftState; X, Y, HitTest: Integer;

      var MouseActivate: TMouseActivate);

    procedure BitBtn2MouseActivate(Sender: TObject; Button: TMouseButton;

      Shift: TShiftState; X, Y, HitTest: Integer;

      var MouseActivate: TMouseActivate);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form3: TForm3;

implementation

{$R *.dfm}

uses Unit1;

procedure TForm3.BitBtn1Click(Sender: TObject);

begin

uniquery2.SQL.Text:='update kontragenti set naimeninovanie=:naimeninovanie where id=:id';

 uniquery2.ParamByName('id').AsInteger:=uniquery1.FieldByName('id').AsInteger;

 uniquery2.ParamByName('naimeninovanie').AsString:=edit1.Text;

uniquery2.Execute;

uniquery2.SQL.Text:='update kontragenti set bank_schet=:bank_schet where id=:id';

 uniquery2.ParamByName('id').AsInteger:=uniquery1.FieldByName('id').AsInteger;

 uniquery2.ParamByName('bank_schet').AsString:=edit2.Text;

uniquery2.Execute;

uniquery2.SQL.Text:='update kontragenti set ur_adres=:ur_adres where id=:id';

 uniquery2.ParamByName('id').AsInteger:=uniquery1.FieldByName('id').AsInteger;

 uniquery2.ParamByName('ur_adres').AsString:=edit3.Text;

uniquery2.Execute;

uniquery2.SQL.Text:='update kontragenti set telephon=:telephon where id=:id';

 uniquery2.ParamByName('id').AsInteger:=uniquery1.FieldByName('id').AsInteger;

 uniquery2.ParamByName('telephon').AsString:=edit4.Text;

   ПРОДОЛЖЕНИЕ ПРИЛОЖЕНИЯ 1

uniquery2.Execute;

uniquery2.SQL.Text:='update kontragenti set kont_lico=:kont_lico where id=:id';

 uniquery2.ParamByName('id').AsInteger:=uniquery1.FieldByName('id').AsInteger;

 uniquery2.ParamByName('kont_lico').AsString:=edit5.Text;

uniquery2.Execute;

uniquery2.SQL.Text:='update kontragenti set osnov_dogovor=:osnov_dogovor where id=:id';

 uniquery2.ParamByName('id').AsInteger:=uniquery1.FieldByName('id').AsInteger;

 uniquery2.ParamByName('osnov_dogovor').AsString:=edit6.Text;

uniquery2.Execute;

uniquery1.Refresh;

end;

procedure TForm3.BitBtn1MouseActivate(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y, HitTest: Integer;

  var MouseActivate: TMouseActivate);

begin

bitbtn3.Visible:=false;

bitbtn4.Visible:=false;

bitbtn5.Visible:=false;

bitbtn6.Visible:=false;

bitbtn7.Visible:=false;

bitbtn8.Visible:=false;

edit1.Width:=379;

edit2.Width:=379;

edit3.Width:=379;

edit4.Width:=379;

edit5.Width:=379;

edit6.Width:=379;

end;

procedure TForm3.BitBtn2Click(Sender: TObject);

begin

  uniquery2.SQL.Text:='INSERT INTO kontragenti (naimeninovanie, bank_schet, ur_adres, telephon, kont_lico, osnov_dogovor)';

  uniquery2.SQL.Add('VALUES (:naimeninovanie, :bank_schet, :ur_adres, :telephon, :kont_lico, :osnov_dogovor)');

     ПРОДОЛЖЕНИЕ ПРИЛОЖЕНИЯ 1

  uniquery2.ParamByName('naimeninovanie').AsString:=edit7.Text;

  uniquery2.ParamByName('bank_schet').AsString:=edit8.Text;

  uniquery2.ParamByName('ur_adres').AsString:=edit9.Text;

  uniquery2.ParamByName('telephon').AsString:=edit10.Text;

  uniquery2.ParamByName('kont_lico').AsString:=edit11.Text;

  uniquery2.ParamByName('osnov_dogovor').AsString:=edit12.Text;

  uniquery2.Execute;

  uniquery1.Refresh;

  edit7.Clear;

  edit8.Clear;

  edit9.Clear;

  edit10.Clear;

  edit11.Clear;

  edit12.Clear;

end;

procedure TForm3.BitBtn2MouseActivate(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y, HitTest: Integer;

  var MouseActivate: TMouseActivate);

begin

bitbtn9.Visible:=false;

bitbtn10.Visible:=false;

bitbtn11.Visible:=false;

bitbtn12.Visible:=false;

bitbtn13.Visible:=false;

bitbtn14.Visible:=false;

edit7.Width:=379;

edit8.Width:=379;

edit9.Width:=379;

edit10.Width:=379;

edit11.Width:=379;

edit12.Width:=379;

end;

procedure TForm3.DataSource1DataChange(Sender: TObject; Field: TField);

   ПРОДОЛЖЕНИЕ ПРИЛОЖЕНИЯ 1

begin

edit1.Text:=uniquery1.FieldByName('naimeninovanie').AsString;

edit2.Text:=uniquery1.FieldByName('bank_schet').AsString;

edit3.Text:=uniquery1.FieldByName('ur_adres').AsString;

edit4.Text:=uniquery1.FieldByName('telephon').AsString;

edit5.Text:=uniquery1.FieldByName('kont_lico').AsString;

edit6.Text:=uniquery1.FieldByName('osnov_dogovor').AsString;

end;

procedure TForm3.Edit10KeyPress(Sender: TObject; var Key: Char);

begin

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

end;

procedure TForm3.Edit10MouseActivate(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y, HitTest: Integer;

  var MouseActivate: TMouseActivate);

begin

bitbtn9.Visible:=false;

bitbtn10.Visible:=false;

bitbtn11.Visible:=false;

bitbtn12.Visible:=true;

bitbtn13.Visible:=false;

bitbtn14.Visible:=false;

edit7.Width:=379;

edit8.Width:=379;

edit9.Width:=379;

edit10.Width:=332;

edit11.Width:=379;

edit12.Width:=379;

end;

procedure TForm3.Edit11MouseActivate(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y, HitTest: Integer;

  var MouseActivate: TMouseActivate);

begin

   ПРОДОЛЖЕНИЕ ПРИЛОЖЕНИЯ 1

bitbtn9.Visible:=false;

bitbtn10.Visible:=false;

bitbtn11.Visible:=false;

bitbtn12.Visible:=false;

bitbtn13.Visible:=true;

bitbtn14.Visible:=false;

edit7.Width:=379;

edit8.Width:=379;

edit9.Width:=379;

edit10.Width:=379;

edit11.Width:=332;

edit12.Width:=379;

end;

procedure TForm3.Edit12MouseActivate(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y, HitTest: Integer;

  var MouseActivate: TMouseActivate);

begin

bitbtn9.Visible:=false;

bitbtn10.Visible:=false;

bitbtn11.Visible:=false;

bitbtn12.Visible:=false;

bitbtn13.Visible:=false;

bitbtn14.Visible:=true;

edit7.Width:=379;

edit8.Width:=379;

edit9.Width:=379;

edit10.Width:=379;

edit11.Width:=379;

edit12.Width:=332;

end;

procedure TForm3.Edit1MouseActivate(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y, HitTest: Integer;

  var MouseActivate: TMouseActivate);

   ПРОДОЛЖЕНИЕ ПРИЛОЖЕНИЯ 1

begin

bitbtn3.Visible:=true;

bitbtn4.Visible:=false;

bitbtn5.Visible:=false;

bitbtn6.Visible:=false;

bitbtn7.Visible:=false;

bitbtn8.Visible:=false;

edit1.Width:=332;

edit2.Width:=379;

edit3.Width:=379;

edit4.Width:=379;

edit5.Width:=379;

edit6.Width:=379;

end;

procedure TForm3.Edit2MouseActivate(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y, HitTest: Integer;

  var MouseActivate: TMouseActivate);

begin

bitbtn3.Visible:=false;

bitbtn4.Visible:=true;

bitbtn5.Visible:=false;

bitbtn6.Visible:=false;

bitbtn7.Visible:=false;

bitbtn8.Visible:=false;

edit1.Width:=379;

edit2.Width:=332;

edit3.Width:=379;

edit4.Width:=379;

edit5.Width:=379;

edit6.Width:=379;

end;

procedure TForm3.Edit3MouseActivate(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y, HitTest: Integer;

   ПРОДОЛЖЕНИЕ ПРИЛОЖЕНИЯ 1

 var MouseActivate: TMouseActivate);

begin

bitbtn3.Visible:=false;

bitbtn4.Visible:=false;

bitbtn5.Visible:=true;

bitbtn6.Visible:=false;

bitbtn7.Visible:=false;

bitbtn8.Visible:=false;

edit1.Width:=379;

edit2.Width:=379;

edit3.Width:=332;

edit4.Width:=379;

edit5.Width:=379;

edit6.Width:=379;

end;

procedure TForm3.Edit4KeyPress(Sender: TObject; var Key: Char);

begin

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

end;

procedure TForm3.Edit4MouseActivate(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y, HitTest: Integer;

  var MouseActivate: TMouseActivate);

begin

bitbtn3.Visible:=false;

bitbtn4.Visible:=false;

bitbtn5.Visible:=false;

bitbtn6.Visible:=true;

bitbtn7.Visible:=false;

bitbtn8.Visible:=false;

edit1.Width:=379;

edit2.Width:=379;

edit3.Width:=379;

edit4.Width:=332;

   ПРОДОЛЖЕНИЕ ПРИЛОЖЕНИЯ 1

 edit5.Width:=379;

 edit6.Width:=379;

end;

procedure TForm3.Edit5MouseActivate(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y, HitTest: Integer;

  var MouseActivate: TMouseActivate);

begin

bitbtn3.Visible:=false;

bitbtn4.Visible:=false;

bitbtn5.Visible:=false;

bitbtn6.Visible:=false;

bitbtn7.Visible:=true;

bitbtn8.Visible:=false;

edit1.Width:=379;

edit2.Width:=379;

edit3.Width:=379;

edit4.Width:=379;

edit5.Width:=332;

edit6.Width:=379;

end;

procedure TForm3.Edit6MouseActivate(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y, HitTest: Integer;

  var MouseActivate: TMouseActivate);

begin

bitbtn3.Visible:=false;

bitbtn4.Visible:=false;

bitbtn5.Visible:=false;

bitbtn6.Visible:=false;

bitbtn7.Visible:=false;

bitbtn8.Visible:=true;

edit1.Width:=379;

edit2.Width:=379;

 edit3.Width:=379;

   ПРОДОЛЖЕНИЕ ПРИЛОЖЕНИЯ 1

 edit4.Width:=379;

edit5.Width:=379;

edit6.Width:=332;

end;

procedure TForm3.Edit7MouseActivate(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y, HitTest: Integer;

  var MouseActivate: TMouseActivate);

begin

bitbtn9.Visible:=true;

bitbtn10.Visible:=false;

bitbtn11.Visible:=false;

bitbtn12.Visible:=false;

bitbtn13.Visible:=false;

bitbtn14.Visible:=false;

edit7.Width:=332;

edit8.Width:=379;

edit9.Width:=379;

edit10.Width:=379;

edit11.Width:=379;

edit12.Width:=379;

end;

procedure TForm3.Edit8MouseActivate(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y, HitTest: Integer;

  var MouseActivate: TMouseActivate);

begin

bitbtn9.Visible:=false;

bitbtn10.Visible:=true;

bitbtn11.Visible:=false;

bitbtn12.Visible:=false;

bitbtn13.Visible:=false;

bitbtn14.Visible:=false;

edit7.Width:=379;

edit8.Width:=332;

   ПРОДОЛЖЕНИЕ ПРИЛОЖЕНИЯ 1

 edit9.Width:=379;

 edit10.Width:=379;

edit11.Width:=379;

edit12.Width:=379;

end;

procedure TForm3.Edit9MouseActivate(Sender: TObject; Button: TMouseButton;

  Shift: TShiftState; X, Y, HitTest: Integer;

  var MouseActivate: TMouseActivate);

begin

bitbtn9.Visible:=false;

bitbtn10.Visible:=false;

bitbtn11.Visible:=true;

bitbtn12.Visible:=false;

bitbtn13.Visible:=false;

bitbtn14.Visible:=false;

edit7.Width:=379;

edit8.Width:=379;

edit9.Width:=332;

edit10.Width:=379;

edit11.Width:=379;

edit12.Width:=379;

end;

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

begin

Form1.visible:=true;

end;

procedure TForm3.ToolButton1Click(Sender: TObject);

begin

// Диалог поиска

 DBGridEhFindDlgs.ExecuteDBGridEhFindDialog(DBGridEh1, '', '', nil, false)

end;

end.

 

   ПРОДОЛЖЕНИЕ ПРИЛОЖЕНИЯ 1

unit Unit4;

interface

uses

  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, DBGridEhGrouping, Data.DB, Vcl.ComCtrls,

  Vcl.TabNotBk, GridsEh, DBGridEh, Vcl.ExtCtrls, Vcl.DBCtrls, UniProvider,

  PostgreSQLUniProvider, MemDS, DBAccess, Uni, Vcl.Imaging.jpeg, Vcl.StdCtrls,

  Vcl.Buttons, DBGridEhFindDlgs, Vcl.ImgList, Vcl.ToolWin;

type

  TForm4 = class(TForm)

    UniConnection1: TUniConnection;

    UniQuery1: TUniQuery;

    UniQuery2: TUniQuery;

    PostgreSQLUniProvider1: TPostgreSQLUniProvider;

    DataSource1: TDataSource;

    DBNavigator1: TDBNavigator;

    DBGridEh1: TDBGridEh;

    TabbedNotebook1: TTabbedNotebook;

    UniQuery1pred_dogovora: TWideStringField;

    UniQuery1data_dogovora: TDateField;

    UniQuery1nomer_dogovora: TIntegerField;

    UniQuery1postavchik: TWideStringField;

    UniQuery1skan: TWideStringField;

    Image1: TImage;

    DateTimePicker1: TDateTimePicker;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;