svn/view/Unit11.pas

unit Unit11;

interface

uses
  Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes, IWDBStdCtrls,
  Vcl.Controls, IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl, IWControl,
  IWCompEdit, IWVCLComponent, IWBaseLayoutComponent, IWBaseContainerLayout,
  IWContainerLayout, IWTemplateProcessorHTML, IWCompExtCtrls, IWDBExtCtrls,
  IWCompButton, Vcl.Dialogs, Data.DB,
  IWCompText, FireDAC.UI.Intf, FireDAC.VCLUI.Login, FireDAC.Stan.Intf,
  FireDAC.Comp.UI, IWCompGrids, Vcl.Forms, IWVCLBaseContainer,
  IWContainer, IWHTMLContainer, IWHTML40Container, IWRegion, IWCompLabel,
  Vcl.Imaging.pngimage;

type
  TAdminFile = class(TIWAppForm)
    IWTemplateProcessorHTML1: TIWTemplateProcessorHTML;
    IWGrid1: TIWGrid;
    IWImage1: TIWImage;
    IWDBText1: TIWDBText;
    IWDBEdit6: TIWDBEdit;
    IWDBEdit5: TIWDBEdit;
    IWButton1: TIWButton;
    IWDBNavigator1: TIWDBNavigator;
    IWDBEdit4: TIWDBEdit;
    IWDBEdit3: TIWDBEdit;
    IWDBEdit2: TIWDBEdit;
    IWDBEdit1: TIWDBEdit;
    FDGUIxLoginDialog1: TFDGUIxLoginDialog;
    FileOpenDialog1: TFileOpenDialog;
    IWRegion1: TIWRegion;
    IWLabel1: TIWLabel;
    IWLabel2: TIWLabel;
    IWLabel3: TIWLabel;
    IWLabel4: TIWLabel;
    IWLabel5: TIWLabel;
    IWLabel6: TIWLabel;
    IWButton2: TIWButton;
    procedure IWAppFormCreate(Sender: TObject);
    procedure IWButton1Click(Sender: TObject);
    procedure IWDBNavigator1BeforeAction(Sender: TObject;
      NavButton: TNavigateBtn; var Handled: Boolean);
    procedure IWButton2Click(Sender: TObject);
    procedure IWAppFormDestroy(Sender: TObject);
    procedure IWDBNavigator1Post(Sender: TObject);
    procedure IWGrid1Render(Sender: TObject);
    procedure IWGrid1CellClick(ASender: TObject; const ARow, AColumn: Integer);
    procedure IWDBNavigator1Insert(Sender: TObject);
  private
    serial: Integer;
    dummy: TComponent;
    png: TPngImage;
    procedure Local(DataSet: TDataSet);
    procedure ReadPng(DataSet: TDataSet);
  public
  end;

implementation

{$R *.dfm}

uses Unit3;

procedure TAdminFile.IWAppFormCreate(Sender: TObject);
begin
  if DM.FDTable7.Locate('NUMBER', 1) = true then
  begin
    png := TPngImage.Create;
    with DM.FDTableView do
    begin
      AfterScroll := Local;
      AfterEdit := ReadPng;
      AfterInsert := ReadPng;
      Filter := 'MASTER = ' + QuotedStr(DM.FDTable7.FieldByName('NUMBER')
        .AsString);
    end;
    DM.FDQuery1.Open('select MAX(serial) as serial from item_data;');
    serial := DM.FDQuery1.FieldByName('SERIAL').AsInteger;
    DM.FDQuery1.SQL.Clear;
    DM.FDQuery1.SQL.Add('select * from item_data where master = :num;');
    DM.FDQuery1.ParamByName('NUM').AsInteger :=
      DM.FDTable7.FieldByName('NUMBER').AsInteger;
    DM.FDQuery1.Open;
    Local(nil);
  end
  else
    Release;
end;

procedure TAdminFile.IWAppFormDestroy(Sender: TObject);
begin
  png.Free;
  dummy.Free;
end;

procedure TAdminFile.IWButton1Click(Sender: TObject);
begin
  if FileOpenDialog1.Execute = true then
  begin
    IWImage1.Picture.LoadFromFile(FileOpenDialog1.FileName);
    DM.FDTableView.Edit;
  end;
end;

procedure TAdminFile.IWButton2Click(Sender: TObject);
begin
  Release;
end;

procedure TAdminFile.IWDBNavigator1BeforeAction(Sender: TObject;
  NavButton: TNavigateBtn; var Handled: Boolean);
var
  s: TStream;
begin
  case NavButton of
    nbPost:
      begin
        DM.FDTableView.FieldByName('MASTER').AsInteger :=
          DM.FDTable7.FieldByName('NUMBER').AsInteger;
        if Assigned(IWImage1.Picture.Graphic) = true then
        begin
          s := DM.FDTableView.CreateBlobStream
            (DM.FDTableView.FieldByName('IMAGE'), bmWrite);
          try
            IWImage1.Picture.Graphic.SaveToStream(s);
          finally
            s.Free;
          end;
          s := DM.FDTableView.CreateBlobStream
            (DM.FDTableView.FieldByName('THUMBNAIL'), bmWrite);
          try
            IWImage1.Picture.Graphic.SaveToStream(s);
          finally
            s.Free;
          end;
        end;
        inc(serial);
      end;
  else
    if DM.FDTableView.State = dsInsert then
      DM.FDTableView.Delete;
  end;
end;

procedure TAdminFile.IWDBNavigator1Insert(Sender: TObject);
begin
  DM.FDTableView.FieldByName('SERIAL').AsInteger := serial + 1;
end;

procedure TAdminFile.IWDBNavigator1Post(Sender: TObject);
begin
  DM.FDTable2.Refresh;
  DM.FDQuery1.Refresh;
  IWGrid1Render(nil);
end;

procedure TAdminFile.IWGrid1CellClick(ASender: TObject;
  const ARow, AColumn: Integer);
begin
  DM.FDTableView.Locate('SERIAL', Integer(IWGrid1.Cell[ARow, AColumn].Tag));
end;

procedure TAdminFile.IWGrid1Render(Sender: TObject);
var
  i, j, k: Integer;
  s: TIWImage;
  t: TStream;
  ACell: TIWGridCell;
begin
  k := DM.FDTableView.FieldByName('SERIAL').AsInteger;
  IWGrid1.ColumnCount := 5;
  i := DM.FDQuery1.RecordCount div IWGrid1.ColumnCount;
  if i = 0 then
    IWGrid1.ColumnCount := DM.FDQuery1.RecordCount;
  if DM.FDQuery1.RecordCount mod IWGrid1.ColumnCount >= 0 then
    inc(i);
  IWGrid1.RowCount := i;
  dummy := TComponent.Create(IWGrid1);
  DM.FDQuery1.First;
  for i := 0 to IWGrid1.RowCount - 1 do
    for j := 0 to IWGrid1.ColumnCount - 1 do
    begin
      if DM.FDQuery1.Eof = true then
        Exit;
      s := TIWImage.Create(dummy);
      ACell := IWGrid1.Cell[i, j];
      ACell.Control := s;
      t := DM.FDQuery1.CreateBlobStream
        (DM.FDQuery1.FieldByName('THUMBNAIL'), bmRead);
      try
        png.LoadFromStream(t);
      finally
        t.Free;
      end;
      s.Picture.Assign(png);
      ACell.Text := DM.FDQuery1.FieldByName('NAME').AsString;
      ACell.Tag := Pointer(DM.FDQuery1.FieldByName('SERIAL').AsInteger);
      ACell.Clickable := k <> DM.FDQuery1.FieldByName('SERIAL').AsInteger;
      DM.FDQuery1.Next;
    end;
end;

procedure TAdminFile.Local(DataSet: TDataSet);
var
  s: TStream;
begin
  s := DM.FDTableView.CreateBlobStream
    (DM.FDTableView.FieldByName('THUMBNAIL'), bmRead);
  try
    png.LoadFromStream(s);
  finally
    s.Free;
  end;
  IWImage1.Picture.Assign(png);
end;

procedure TAdminFile.ReadPng(DataSet: TDataSet);
var
  s: TStream;
begin
  if (DM.FDTableView.FieldByName('THUMBNAIL').IsNull = true) and
    (FileOpenDialog1.Execute = true) then
  begin
    png.LoadFromFile(FileOpenDialog1.FileName);
    s := DM.FDTableView.CreateBlobStream
      (DM.FDTableView.FieldByName('THUMBNAIL'), bmWrite);
    try
      png.SaveToStream(s);
    finally
      s.Free;
    end;
    IWImage1.Picture.Assign(png);
  end;
end;

end.