svn/view/Unit7.pas

unit Unit7;

interface

uses
  Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes, Vcl.Controls,
  IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl, IWControl, IWCompGrids,
  IWDBGrids, IWCompButton, IWCompExtCtrls, IWVCLComponent,
  IWBaseLayoutComponent, IWBaseContainerLayout, IWContainerLayout,
  IWTemplateProcessorHTML, PngImage, Data.DB, IWCompLabel, IWDBStdCtrls,
  FireDAC.Comp.Client, IWCompRadioButton, IWCompEdit, Variants;

type
  TPayForm = class(TIWAppForm)
    IWButton1: TIWButton;
    IWButton2: TIWButton;
    IWTemplateProcessorHTML1: TIWTemplateProcessorHTML;
    IWDBLabel1: TIWDBLabel;
    IWDBLabel2: TIWDBLabel;
    IWButton3: TIWButton;
    IWRadioButton1: TIWRadioButton;
    IWRadioButton2: TIWRadioButton;
    IWEdit1: TIWEdit;
    IWDBLabel3: TIWDBLabel;
    procedure IWButton2Click(Sender: TObject);
    procedure IWButton1Click(Sender: TObject);
    procedure IWButton3Click(Sender: TObject);
  public
  end;

implementation

{$R *.dfm}

uses Unit3, Unit1, ServerController;

procedure TPayForm.IWButton1Click(Sender: TObject);
var
  i, j, k, m, n: integer;
  s: string;
  v: Variant;
  temp: TFDQuery;
begin
  if (IWRadioButton2.Checked = true) and
    (DM.FDTable1.FieldByName('ADDRESS2').AsString = '') then
  begin
    if IWEdit1.Visible = true then
    begin
      IWEdit1.Text := '';
      IWEdit1.Hide;
      IWDBLabel3.Show;
    end;
    WebApplication.ShowMessage('�z�B���Z�����s������');
    Exit;
  end;
  if IWRadioButton1.Checked = true then
    s := IWDBLabel1.Text
  else
    s := IWDBLabel3.Text;
  i := DM.FDTable1.FieldByName('NUMBER').AsInteger;
  v := DM.FDTable4.Lookup('NUMBER', i, 'EMAIL;ADDRESS');
  if VarIsNull(v) = false then
  begin
    if (v[0] <> IWDBLabel2.Text) or (v[1] <> s) then
    begin
      DM.FDTable6.Last;
      i := DM.FDTable6.FieldByName('NUMBER').AsInteger + 1;
      DM.FDTable4.Append;
      DM.FDTable4.FieldByName('NUMBER').AsInteger := i;
      DM.FDTable4.FieldByName('ID').AsString := IWDBLabel2.Text;
      DM.FDTable4.FieldByName('EMAIL').AsString :=
        DM.FDTable1.FieldByName('EMAIL').AsString;
      DM.FDTable4.FieldByName('ADDRESS').AsString := s;
      DM.FDTable4.Post;
    end;
  end
  else
  begin
    DM.FDTable4.Append;
    DM.FDTable4.FieldByName('NUMBER').AsInteger :=
      DM.FDTable1.FieldByName('NUMBER').AsInteger;
    DM.FDTable4.FieldByName('ID').AsString :=
      DM.FDTable1.FieldByName('NAME').AsString;
    DM.FDTable4.FieldByName('EMAIL').AsString :=
      DM.FDTable1.FieldByName('EMAIL').AsString;
    DM.FDTable4.FieldByName('ADDRESS').AsString :=
      DM.FDTable1.FieldByName('ADDRESS').AsString;
    DM.FDTable4.Post;
  end;
  DM.FDTable6.Last;
  m := DM.FDTable6.FieldByName('ORDER').AsInteger + 1;
  j := 0;
  DM.FDTable5.MasterSource := nil;
  DM.FDTable5.Last;
  k := DM.FDTable5.FieldByName('KEYFIELD').AsInteger;
  DM.FDTable5.MasterSource := DM.order;
  DM.FDQuery1.Open('select * from cart_data');
  DM.FDQuery1.First;
  temp := TFDQuery.Create(Self);
  try
    temp.Connection := DM.FDConnection1;
    temp.Open('select * from recent_data;');
    while DM.FDQuery1.Eof = false do
    begin
      if DM.FDTable2.Locate('SERIAL', DM.FDQuery1.FieldByName('SERIAL')
        .AsInteger) = true then
      begin
        inc(k);
        DM.FDTable5.Append;
        DM.FDTable5.FieldByName('VOLUME').AsInteger :=
          DM.FDQuery1.FieldByName('VOLUME').AsInteger;
        DM.FDTable5.FieldByName('NAME').AsString :=
          DM.FDTable2.FieldByName('NAME').AsString;
        DM.FDTable5.FieldByName('MAKER').AsString :=
          DM.FDTable2.FieldByName('MAKER').AsString;
        DM.FDTable5.FieldByName('PRICE').AsInteger :=
          DM.FDTable2.FieldByName('PRICE').AsInteger;
        DM.FDTable5.FieldByName('KEYFIELD').AsInteger := k;
        DM.FDTable5.FieldByName('ORDER').AsInteger := m;
        DM.FDTable5.FieldByName('CHECKVALUE').AsBoolean := false;
        n := DM.FDTable2.FieldByName('SERIAL').AsInteger;
        DM.FDTable5.FieldByName('SERIAL').AsInteger := n;
        DM.FDTable5.Post;
        temp.AppendRecord([i, n, Date]);
        j := j + DM.FDTable2.FieldByName('PRICE').AsInteger *
          DM.FDQuery1.FieldByName('VOLUME').AsInteger;
      end;
      DM.FDQuery1.Delete;
    end;
  finally
    temp.Free;
  end;
  DM.FDQuery1.Open('select * from recent_data;');
  DM.FDQuery1.First;
  while DM.FDQuery1.Eof = false do
    if Date + 30 < DM.FDQuery1.FieldByName('DATE').AsDateTime then
      DM.FDQuery1.Delete
    else
      DM.FDQuery1.Next;
  with DM.FDTable5 do
  begin
    First;
    while Eof = false do
    begin
      DM.FDQuery1.AppendRecord([i, FieldByName('SERIAL').AsInteger, Date]);
      Next;
    end;
  end;
  with DM.FDTable6 do
  begin
    Append;
    FieldByName('ORDER').AsInteger := m;
    FieldByName('NUMBER').AsInteger := i;
    FieldByName('LASTORDER').AsDateTime := Date;
    FieldByName('PRICE').AsInteger := j;
    Post;
  end;
  WebApplication.ShowMessage('��������������������������������');
  Release;
  IWForm1.Thumbnail := true;
end;

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

procedure TPayForm.IWButton3Click(Sender: TObject);
begin
  if IWDBLabel3.Visible = true then
  begin
    IWEdit1.Text := IWDBLabel3.Caption;
    IWDBLabel3.Hide;
    IWEdit1.Show;
  end
  else
  begin
    DM.FDTable1.Edit;
    DM.FDTable1.FieldByName('ADDRESS2').AsString := IWEdit1.Text;
    DM.FDTable1.Post;
    IWEdit1.Hide;
    IWDBLabel3.Show;
  end;
end;

end.