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, Graphics,
  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, IWCompFileUploader;

type
  TAdminFile = class(TIWAppForm)
    IWTemplateProcessorHTML1: TIWTemplateProcessorHTML;
    IWGrid1: TIWGrid;
    IWDBText1: TIWDBText;
    IWDBEdit6: TIWDBEdit;
    IWDBEdit5: TIWDBEdit;
    IWButton1: TIWButton;
    IWDBNavigator1: TIWDBNavigator;
    IWDBEdit4: TIWDBEdit;
    IWDBEdit3: TIWDBEdit;
    IWDBEdit2: TIWDBEdit;
    IWDBEdit1: TIWDBEdit;
    IWRegion1: TIWRegion;
    IWLabel1: TIWLabel;
    IWLabel2: TIWLabel;
    IWLabel3: TIWLabel;
    IWLabel4: TIWLabel;
    IWLabel5: TIWLabel;
    IWLabel6: TIWLabel;
    IWButton2: TIWButton;
    IWFileUploader1: TIWFileUploader;
    IWImage1: TIWImage;
    FileOpenDialog1: TFileOpenDialog;
    IWButton3: 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);
    procedure IWButton3Click(Sender: TObject);
  private
    serial: Integer;
    dummy: TComponent;
    procedure Local(DataSet: TDataSet);
  public
  end;

implementation

{$R *.dfm}

uses Unit3, ServerController;

procedure TAdminFile.IWAppFormCreate(Sender: TObject);
begin
  if DM.FDTable7.Locate('NUMBER', 1) = true then
  begin
    with DM.FDTableView do
    begin
      AfterScroll := Local;
      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
  dummy.Free;
end;

procedure TAdminFile.IWButton1Click(Sender: TObject);
var
  s: TBitmap;
  t: TPicture;
begin
  if FileOpenDialog1.Execute = true then
  begin
    IWImage1.Picture.LoadFromFile(FileOpenDialog1.FileName);
    DM.FDTableView.Edit;
    UserSession.ImgToField(IWImage1.Picture,
      DM.FDTableView.FieldByName('IMAGE'));
    s := TBitmap.Create;
    t := TPicture.Create;
    try
      s.Width := 50;
      s.Height := 50;
      s.Canvas.StretchDraw(Rect(0, 0, 50, 50), IWImage1.Picture.Graphic);
      t.Assign(s);
      UserSession.ImgToField(t, DM.FDTableView.FieldByName('THUMBNAIL'));
    finally
      s.Free;
      t.Free;
    end;
  end;
end;

procedure TAdminFile.IWButton2Click(Sender: TObject);
begin
  DM.FDTableView.AfterScroll := nil;
  Release;
end;

procedure TAdminFile.IWButton3Click(Sender: TObject);
begin
  IWImage1.Picture.Assign(nil);
  DM.FDTableView.Edit;
end;

procedure TAdminFile.IWDBNavigator1BeforeAction(Sender: TObject;
  NavButton: TNavigateBtn; var Handled: Boolean);
begin
  case NavButton of
    nbPost:
      begin
        DM.FDTableView.FieldByName('MASTER').AsInteger :=
          DM.FDTable7.FieldByName('NUMBER').AsInteger;
        Local(nil);
        inc(serial);
      end;
  else
    if DM.FDTableView.State = dsInsert then
      DM.FDTableView.Delete;
  end;
end;

procedure TAdminFile.IWDBNavigator1Insert(Sender: TObject);
begin
  IWImage1.Picture.Assign(nil);
  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;
  ACell: TIWGridCell;
begin
  k := DM.FDTableView.FieldByName('SERIAL').AsInteger;
  IWGrid1.ColumnCount := 5;
  i := DM.FDQuery1.RecordCount div IWGrid1.ColumnCount;
  if i = 0 then
  begin
    IWGrid1.ColumnCount := DM.FDQuery1.RecordCount;
    i := 1;
  end
  else 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;
      ACell.Text := DM.FDQuery1.FieldByName('NAME').AsString;
      ACell.Tag := Pointer(DM.FDQuery1.FieldByName('SERIAL').AsInteger);
      ACell.Clickable := k <> DM.FDQuery1.FieldByName('SERIAL').AsInteger;
      UserSession.FieldToImg(s.Picture, DM.FDQuery1.FieldByName('THUMBNAIL'));
      DM.FDQuery1.Next;
    end;
end;

procedure TAdminFile.Local(DataSet: TDataSet);
begin
  UserSession.FieldToImg(IWImage1.Picture, DM.FDTableView.FieldByName('IMAGE'));
end;

end.