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 6 by yamat0jp,
Tue Dec 29 10:58:29 2015 UTC




revision 7 by yamat0jp,
Wed Dec 30 09:56:24 2015 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, IWCompLabel, IWDBStdCtrls;


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













11


 


   FireDAC.Comp.Client;















12
 
 

















13
 type
 type

















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











#

Line 16 
 type


Line 17 
 type












17
     IWTemplateProcessorHTML1: TIWTemplateProcessorHTML;
     IWTemplateProcessorHTML1: TIWTemplateProcessorHTML;

















18
     IWDBLabel1: TIWDBLabel;
     IWDBLabel1: TIWDBLabel;

















19
     procedure IWButton2Click(Sender: TObject);
     procedure IWButton2Click(Sender: TObject);












20
 
     procedure IWButton1Click(Sender: TObject);












21
   public
   public

















22
   end;
   end;

















23
 
 











#

Line 23 
 implementation


Line 25 
 implementation












25
 
 

















26
 {$R *.dfm}
 {$R *.dfm}

















27
 
 















28


 uses Unit3, Unit1, ServerController, Unit4;


 uses Unit3;













29


 


 













30


 


 procedure TPayForm.IWButton1Click(Sender: TObject);













31


 


 var













32


 


   s: TFDQuery;













33


 


 begin













34


 


   with DM.FDQuery1 do













35


 


   begin













36


 


     Open('select number,serial from cart_data;');













37


 


     s := TFDQuery.Create(nil);













38


 


     try













39


 


       s.Connection := DM.FDConnection1;













40


 


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













41


 


       while Eof = false do













42


 


       begin













43


 


         s.AppendRecord([Fields.Fields[0].AsInteger,













44


 


           Fields.Fields[1].AsInteger]);













45


 


         Delete;













46


 


       end;













47


 


     finally













48


 


       s.Free;













49


 


     end;













50


 


   end;













51


 


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













52


 


   Release;













53


 


 end;















54
 
 

















55
 procedure TPayForm.IWButton2Click(Sender: TObject);
 procedure TPayForm.IWButton2Click(Sender: TObject);

















56
 begin
 begin





























Legend:



Removed from v.6
 


changed lines


 
Added in v.7













Back to OSDN">Back to OSDN
ViewVC Help


Powered by ViewVC 1.1.26
 /[zencart-clone]/Unit7.pas
-revision 6 by yamat0jp,
Tue Dec 29 10:58:29 2015 UTC
+revision 7 by yamat0jp,
Wed Dec 30 09:56:24 2015 UTC
 Line 7 
 uses
    IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl, IWControl, IWCompGrids,
    IWDBGrids, IWCompButton, IWCompExtCtrls, IWVCLComponent,
    IWBaseLayoutComponent, IWBaseContainerLayout, IWContainerLayout,
-   IWTemplateProcessorHTML, PngImage, Data.DB, IWCompLabel, IWDBStdCtrls;
+   IWTemplateProcessorHTML, PngImage, Data.DB, IWCompLabel, IWDBStdCtrls,
+   FireDAC.Comp.Client;
  type
    TPayForm = class(TIWAppForm)
-Line 16 
 type
+Line 17 
 type
      IWTemplateProcessorHTML1: TIWTemplateProcessorHTML;
      IWDBLabel1: TIWDBLabel;
      procedure IWButton2Click(Sender: TObject);
+     procedure IWButton1Click(Sender: TObject);
    public
    end;
-Line 23 
 implementation
+Line 25 
 implementation
  {$R *.dfm}
- uses Unit3, Unit1, ServerController, Unit4;
+ uses Unit3;
+ procedure TPayForm.IWButton1Click(Sender: TObject);
+ var
+   s: TFDQuery;
+ begin
+   with DM.FDQuery1 do
+   begin
+     Open('select number,serial from cart_data;');
+     s := TFDQuery.Create(nil);
+     try
+       s.Connection := DM.FDConnection1;
+       s.Open('select * from recent_data;');
+       while Eof = false do
+       begin
+         s.AppendRecord([Fields.Fields[0].AsInteger,
+           Fields.Fields[1].AsInteger]);
+         Delete;
+       end;
+     finally
+       s.Free;
+     end;
+   end;
+   WebApplication.ShowMessage('お買い上げありがとうございました');
+   Release;
+ end;
  procedure TPayForm.IWButton2Click(Sender: TObject);
  begin
 Legend:



Removed from v.6
 


changed lines


 
Added in v.7
 Legend:



Removed from v.6
 


changed lines


 
Added in v.7
-Removed from v.6
+Added in v.7
-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