Diff of /Unit7.pas

OSDN > Find Software > zencart-clone

 Browse Subversion Repository



/[zencart-clone]/Unit7.pas




Diff of /Unit7.pas



 Parent Directory

|  Revision Log



|  Patch














revision 5 by yamat0jp,
Tue Dec 29 08:41:54 2015 UTC




revision 17 by yamat0jp,
Wed Aug 24 12:31:07 2016 UTC






#

Line 7 
 uses


Line 7 
 uses












7
   IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl, IWControl, IWCompGrids,
   IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl, IWControl, IWCompGrids,

















8
   IWDBGrids, IWCompButton, IWCompExtCtrls, IWVCLComponent,
   IWDBGrids, IWCompButton, IWCompExtCtrls, IWVCLComponent,

















9
   IWBaseLayoutComponent, IWBaseContainerLayout, IWContainerLayout,
   IWBaseLayoutComponent, IWBaseContainerLayout, IWContainerLayout,















10


   IWTemplateProcessorHTML, PngImage, Data.DB;


   IWTemplateProcessorHTML, PngImage, Data.DB, IWCompLabel, IWDBStdCtrls,













11


 


   FireDAC.Comp.Client, IWCompRadioButton, IWCompEdit, Variants;















12
 
 

















13
 type
 type

















14
   TPayForm = class(TIWAppForm)
   TPayForm = class(TIWAppForm)

















15
     IWButton1: TIWButton;
     IWButton1: TIWButton;

















16
     IWButton2: TIWButton;
     IWButton2: TIWButton;

















17
     IWTemplateProcessorHTML1: TIWTemplateProcessorHTML;
     IWTemplateProcessorHTML1: TIWTemplateProcessorHTML;












18
 
     IWDBLabel1: TIWDBLabel;







19
 
     IWDBLabel2: TIWDBLabel;







20
 
     IWButton3: TIWButton;







21
 
     IWRadioButton1: TIWRadioButton;







22
 
     IWRadioButton2: TIWRadioButton;







23
 
     IWEdit1: TIWEdit;







24
 
     IWDBLabel3: TIWDBLabel;







25
 
     procedure IWButton2Click(Sender: TObject);







26
 
     procedure IWButton1Click(Sender: TObject);







27
 
     procedure IWButton3Click(Sender: TObject);












28
   public
   public

















29
   end;
   end;

















30
 
 











#

Line 21 
 implementation


Line 32 
 implementation












32
 
 

















33
 {$R *.dfm}
 {$R *.dfm}

















34
 
 















35


 uses Unit3, Unit1, ServerController, Unit4;


 uses Unit3, Unit1, ServerController;













36


 


 













37


 


 procedure TPayForm.IWButton1Click(Sender: TObject);













38


 


 var













39


 


   i, j, k, m, n: integer;













40


 


   s: string;













41


 


   v: Variant;













42


 


   temp: TFDQuery;













43


 


 begin













44


 


   if (IWRadioButton2.Checked = true) and













45


 


     (DM.FDTable1.FieldByName('ADDRESS2').AsString = '') then













46


 


   begin













47


 


     if IWEdit1.Visible = true then













48


 


     begin













49


 


       IWEdit1.Text := '';













50


 


       IWEdit1.Hide;













51


 


       IWDBLabel3.Show;













52


 


     end;













53


 


     WebApplication.ShowMessage('配達先住所が不正です');













54


 


     Exit;













55


 


   end;













56


 


   if IWRadioButton1.Checked = true then













57


 


     s := IWDBLabel1.Text













58


 


   else













59


 


     s := IWDBLabel3.Text;













60


 


   i := DM.FDTable1.FieldByName('NUMBER').AsInteger;













61


 


   v := DM.FDTable4.Lookup('NUMBER', i, 'EMAIL;ADDRESS');













62


 


   if VarIsNull(v) = false then













63


 


   begin













64


 


     if (v[0] <> IWDBLabel2.Text) or (v[1] <> s) then













65


 


     begin













66


 


       DM.FDTable6.Last;













67


 


       i := DM.FDTable6.FieldByName('NUMBER').AsInteger + 1;













68


 


       DM.FDTable4.Append;













69


 


       DM.FDTable4.FieldByName('NUMBER').AsInteger := i;













70


 


       DM.FDTable4.FieldByName('ID').AsString := IWDBLabel2.Text;













71


 


       DM.FDTable4.FieldByName('EMAIL').AsString :=













72


 


         DM.FDTable1.FieldByName('EMAIL').AsString;













73


 


       DM.FDTable4.FieldByName('ADDRESS').AsString := s;













74


 


       DM.FDTable4.Post;













75


 


     end;













76


 


   end













77


 


   else













78


 


   begin













79


 


     DM.FDTable4.Append;













80


 


     DM.FDTable4.FieldByName('NUMBER').AsInteger :=













81


 


       DM.FDTable1.FieldByName('NUMBER').AsInteger;













82


 


     DM.FDTable4.FieldByName('ID').AsString :=













83


 


       DM.FDTable1.FieldByName('NAME').AsString;













84


 


     DM.FDTable4.FieldByName('EMAIL').AsString :=













85


 


       DM.FDTable1.FieldByName('EMAIL').AsString;













86


 


     DM.FDTable4.FieldByName('ADDRESS').AsString :=













87


 


       DM.FDTable1.FieldByName('ADDRESS').AsString;













88


 


     DM.FDTable4.Post;













89


 


   end;













90


 


   DM.FDTable6.Last;













91


 


   m := DM.FDTable6.FieldByName('ORDER').AsInteger + 1;













92


 


   j := 0;













93


 


   DM.FDTable5.MasterSource := nil;













94


 


   DM.FDTable5.Last;













95


 


   k := DM.FDTable5.FieldByName('KEYFIELD').AsInteger;













96


 


   DM.FDTable5.MasterSource := DM.order;













97


 


   DM.FDQuery1.Open('select * from cart_data');













98


 


   DM.FDQuery1.First;













99


 


   temp := TFDQuery.Create(Self);













100


 


   try













101


 


     temp.Connection := DM.FDConnection1;













102


 


     temp.Open('select * from recent_data;');













103


 


     while DM.FDQuery1.Eof = false do













104


 


     begin













105


 


       if DM.FDTable2.Locate('SERIAL', DM.FDQuery1.FieldByName('SERIAL')













106


 


         .AsInteger) = true then













107


 


       begin













108


 


         inc(k);













109


 


         DM.FDTable5.Append;













110


 


         DM.FDTable5.FieldByName('VOLUME').AsInteger :=













111


 


           DM.FDQuery1.FieldByName('VOLUME').AsInteger;













112


 


         DM.FDTable5.FieldByName('NAME').AsString :=













113


 


           DM.FDTable2.FieldByName('NAME').AsString;













114


 


         DM.FDTable5.FieldByName('MAKER').AsString :=













115


 


           DM.FDTable2.FieldByName('MAKER').AsString;













116


 


         DM.FDTable5.FieldByName('PRICE').AsInteger :=













117


 


           DM.FDTable2.FieldByName('PRICE').AsInteger;













118


 


         DM.FDTable5.FieldByName('KEYFIELD').AsInteger := k;













119


 


         DM.FDTable5.FieldByName('ORDER').AsInteger := m;













120


 


         DM.FDTable5.FieldByName('CHECKVALUE').AsBoolean := false;













121


 


         n := DM.FDTable2.FieldByName('SERIAL').AsInteger;













122


 


         DM.FDTable5.FieldByName('SERIAL').AsInteger := n;













123


 


         DM.FDTable5.Post;













124


 


         temp.AppendRecord([i, n, Date]);













125


 


         j := j + DM.FDTable2.FieldByName('PRICE').AsInteger *













126


 


           DM.FDQuery1.FieldByName('VOLUME').AsInteger;













127


 


       end;













128


 


       DM.FDQuery1.Delete;













129


 


     end;













130


 


   finally













131


 


     temp.Free;













132


 


   end;













133


 


   DM.FDQuery1.Open('select * from recent_data;');













134


 


   DM.FDQuery1.First;













135


 


   while DM.FDQuery1.Eof = false do













136


 


     if Date + 30 < DM.FDQuery1.FieldByName('DATE').AsDateTime then













137


 


       DM.FDQuery1.Delete













138


 


     else













139


 


       DM.FDQuery1.Next;













140


 


   with DM.FDTable5 do













141


 


   begin













142


 


     First;













143


 


     while Eof = false do













144


 


     begin













145


 


       DM.FDQuery1.AppendRecord([i, FieldByName('SERIAL').AsInteger, Date]);













146


 


       Next;













147


 


     end;













148


 


   end;













149


 


   with DM.FDTable6 do













150


 


   begin













151


 


     Append;













152


 


     FieldByName('ORDER').AsInteger := m;













153


 


     FieldByName('NUMBER').AsInteger := i;













154


 


     FieldByName('LASTORDER').AsDateTime := Date;













155


 


     FieldByName('PRICE').AsInteger := j;













156


 


     Post;













157


 


   end;













158


 


   WebApplication.ShowMessage('お買い上げありがとうございました');













159


 


   Release;













160


 


   IWForm1.Thumbnail := true;













161


 


 end;













162


 


 













163


 


 procedure TPayForm.IWButton2Click(Sender: TObject);













164


 


 begin













165


 


   Release;













166


 


 end;













167


 


 













168


 


 procedure TPayForm.IWButton3Click(Sender: TObject);













169


 


 begin













170


 


   if IWDBLabel3.Visible = true then













171


 


   begin













172


 


     IWEdit1.Text := IWDBLabel3.Caption;













173


 


     IWDBLabel3.Hide;













174


 


     IWEdit1.Show;













175


 


   end













176


 


   else













177


 


   begin













178


 


     DM.FDTable1.Edit;













179


 


     DM.FDTable1.FieldByName('ADDRESS2').AsString := IWEdit1.Text;













180


 


     DM.FDTable1.Post;













181


 


     IWEdit1.Hide;













182


 


     IWDBLabel3.Show;













183


 


   end;













184


 


 end;















185
 
 

















186
 end.
 end.





























Legend:



Removed from v.5
 


changed lines


 
Added in v.17













Back to OSDN">Back to OSDN
ViewVC Help


Powered by ViewVC 1.1.26
 /[zencart-clone]/Unit7.pas
-revision 5 by yamat0jp,
Tue Dec 29 08:41:54 2015 UTC
+revision 17 by yamat0jp,
Wed Aug 24 12:31:07 2016 UTC
 Line 7 
 uses
    IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl, IWControl, IWCompGrids,
    IWDBGrids, IWCompButton, IWCompExtCtrls, IWVCLComponent,
    IWBaseLayoutComponent, IWBaseContainerLayout, IWContainerLayout,
-   IWTemplateProcessorHTML, PngImage, Data.DB;
+   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;
-Line 21 
 implementation
+Line 32 
 implementation
  {$R *.dfm}
- uses Unit3, Unit1, ServerController, Unit4;
+ 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('配達先住所が不正です');
+     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.
 Legend:



Removed from v.5
 


changed lines


 
Added in v.17
 Legend:



Removed from v.5
 


changed lines


 
Added in v.17
-Removed from v.5
+Added in v.17
-Back to OSDN">Back to OSDN
+ViewVC Help
 Powered by ViewVC 1.1.26

Develop and Download Open Source Software

zencart-clone

Browse Subversion Repository