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, IWCompCheckbox, FireDAC.Stan.Option,
  FireDAC.Stan.Param, FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf,
  FireDAC.DApt.Intf, FireDAC.Stan.Async, FireDAC.DApt, FireDAC.Comp.DataSet,
  FireDAC.Comp.Client, IWDBGrids;

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;
    IWDBCheckBox1: TIWDBCheckBox;
    IWDBGrid1: TIWDBGrid;
    FDQuery1: TFDQuery;
    DataSource1: TDataSource;
    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);
    procedure IWDBNavigator1Delete(Sender: TObject);
    procedure IWDBNavigator1Edit(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
  DM.FDTable2.Filtered := false;
  FDQuery1.Open;
  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.Fields[0].AsInteger;
    DM.FDQuery1.SQL.Clear;
    DM.FDQuery1.SQL.Add
      ('select * from item_data where master = :num and agree = true;');
    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;
  FDQuery1.Close;
  DM.FDTable2.Filtered := true;
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;
        inc(serial);
      end;
    nbDelete:
      if DM.FDTable2.Locate('SERIAL', DM.FDQuery1.FieldByName('SERIAL').AsInteger) = true then
      begin
        DM.FDTable2.Edit;
        DM.FDTable2.FieldByName('SERIAL').AsInteger := -1;
        DM.FDTable2.FieldByName('AGREE').AsBoolean := false;
        DM.FDTable2.Post;
        Handled := true;
        DM.FDTable2.Refresh;
        IWDBNavigator1Delete(Sender);
        IWDBGrid1.Refresh;
      end;
    else
      if DM.FDTableView.State = dsInsert then
        DM.FDTableView.Delete
      else if DM.FDTableView.State = dsEdit then
        DM.FDTableView.Cancel;
  end;
end;

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

procedure TAdminFile.IWDBNavigator1Edit(Sender: TObject);
begin
  if DM.FDTableView.State = dsInsert then
    IWDBNavigator1Insert(Sender);
end;

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

procedure TAdminFile.IWDBNavigator1Post(Sender: TObject);
var
  i: Integer;
begin
  DM.FDTable2.Refresh;
  if DM.FDTable2.Locate('SERIAL', serial) = true then
  begin
    DM.FDTable2.Edit;
    DM.FDTable2.FieldByName('AGREE').AsBoolean := false;
    DM.FDTable2.Post;
  end;
  DM.FDTableView.Refresh;
  DM.FDQuery1.Refresh;
  FDQuery1.Refresh;
  IWGrid1Render(nil);
end;

procedure TAdminFile.IWGrid1CellClick(ASender: TObject;
  const ARow, AColumn: Integer);
begin
  if DM.FDTableView.State = dsEdit then
    DM.FDTableView.Cancel;
  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;
  if IWGrid1.ColumnCount > DM.FDQuery1.RecordCount then
  begin
    IWGrid1.RowCount := 1;
    IWGrid1.ColumnCount := DM.FDQuery1.RecordCount;
  end
  else
  begin
    i := DM.FDQuery1.RecordCount div IWGrid1.ColumnCount;
    if DM.FDQuery1.RecordCount mod IWGrid1.ColumnCount > 0 then
      inc(i);
    IWGrid1.RowCount := i;
  end;
  dummy.Free;
  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.