Diff of /Unit3.pas

OSDN > Find Software > zencart-clone

 Browse Subversion Repository



/[zencart-clone]/Unit3.pas




Diff of /Unit3.pas



 Parent Directory

|  Revision Log



|  Patch














revision 14 by yamat0jp,
Fri Jul 29 10:50:16 2016 UTC




revision 15 by yamat0jp,
Fri Aug  5 10:33:26 2016 UTC






#

Line 7 
 uses


Line 7 
 uses












7
   FireDAC.Stan.Param, FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf,
   FireDAC.Stan.Param, FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf,

















8
   FireDAC.DApt.Intf, FireDAC.Stan.Async, FireDAC.DApt, FireDAC.UI.Intf,
   FireDAC.DApt.Intf, FireDAC.Stan.Async, FireDAC.DApt, FireDAC.UI.Intf,

















9
   FireDAC.Stan.Def, FireDAC.Stan.Pool, FireDAC.Phys, FireDAC.Phys.IB,
   FireDAC.Stan.Def, FireDAC.Stan.Pool, FireDAC.Phys, FireDAC.Phys.IB,















10


   FireDAC.Phys.IBDef, Data.DB, FireDAC.Comp.Client, FireDAC.Comp.DataSet;


   FireDAC.Phys.IBDef, Data.DB, FireDAC.Comp.Client, FireDAC.Comp.DataSet,













11


 


   FireDAC.Comp.BatchMove.DataSet, FireDAC.Comp.BatchMove;















12
 
 

















13
 type
 type

















14
   TDataModule3 = class(TDataModule)
   TDataModule3 = class(TDataModule)











#

Line 66 
 type


Line 67 
 type












67
     FDTable4ID: TWideStringField;
     FDTable4ID: TWideStringField;

















68
     FDTable4ADDRESS: TWideStringField;
     FDTable4ADDRESS: TWideStringField;

















69
     FDTable4EMAIL: TWideStringField;
     FDTable4EMAIL: TWideStringField;












70
 
     FDTransaction1: TFDTransaction;







71
 
     FDTable7: TFDTable;







72
 
     DataSource1: TDataSource;







73
 
     FDTable7NAME: TWideStringField;







74
 
     FDTable7NUMBER: TIntegerField;







75
 
     FDTable7EMAIL: TWideStringField;







76
 
     FDTable7BANK: TWideStringField;







77
 
     FDTable7TEL: TWideStringField;







78
 
     FDTable7ADDRESS: TWideStringField;







79
 
     FDTable7PASSWORD: TWideStringField;







80
 
     FDTableView: TFDTable;







81
 
     view: TDataSource;







82
 
     FDTableViewNAME: TWideStringField;







83
 
     FDTableViewMAKER: TWideStringField;







84
 
     FDTableViewSTOCK: TIntegerField;







85
 
     FDTableViewWEIGHT: TIntegerField;







86
 
     FDTableViewDATE: TDateField;







87
 
     FDTableViewCATEGORY: TWideStringField;







88
 
     FDTableViewTHUMBNAIL: TBlobField;







89
 
     FDTableViewIMAGE: TBlobField;







90
 
     FDTableViewPRICE: TIntegerField;







91
 
     FDTableViewCOMMENT: TWideMemoField;







92
 
     FDTableViewMASTER: TIntegerField;







93
 
     FDTableViewSERIAL: TIntegerField;












94
   private
   private

















95
     { Private 宣言 }
     { Private 宣言 }

















96
   public
   public





























Legend:



Removed from v.14
 


changed lines


 
Added in v.15













Back to OSDN">Back to OSDN
ViewVC Help


Powered by ViewVC 1.1.26
 /[zencart-clone]/Unit3.pas
-revision 14 by yamat0jp,
Fri Jul 29 10:50:16 2016 UTC
+revision 15 by yamat0jp,
Fri Aug  5 10:33:26 2016 UTC
 Line 7 
 uses
    FireDAC.Stan.Param, FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf,
    FireDAC.DApt.Intf, FireDAC.Stan.Async, FireDAC.DApt, FireDAC.UI.Intf,
    FireDAC.Stan.Def, FireDAC.Stan.Pool, FireDAC.Phys, FireDAC.Phys.IB,
-   FireDAC.Phys.IBDef, Data.DB, FireDAC.Comp.Client, FireDAC.Comp.DataSet;
+   FireDAC.Phys.IBDef, Data.DB, FireDAC.Comp.Client, FireDAC.Comp.DataSet,
+   FireDAC.Comp.BatchMove.DataSet, FireDAC.Comp.BatchMove;
  type
    TDataModule3 = class(TDataModule)
-Line 66 
 type
+Line 67 
 type
      FDTable4ID: TWideStringField;
      FDTable4ADDRESS: TWideStringField;
      FDTable4EMAIL: TWideStringField;
+     FDTransaction1: TFDTransaction;
+     FDTable7: TFDTable;
+     DataSource1: TDataSource;
+     FDTable7NAME: TWideStringField;
+     FDTable7NUMBER: TIntegerField;
+     FDTable7EMAIL: TWideStringField;
+     FDTable7BANK: TWideStringField;
+     FDTable7TEL: TWideStringField;
+     FDTable7ADDRESS: TWideStringField;
+     FDTable7PASSWORD: TWideStringField;
+     FDTableView: TFDTable;
+     view: TDataSource;
+     FDTableViewNAME: TWideStringField;
+     FDTableViewMAKER: TWideStringField;
+     FDTableViewSTOCK: TIntegerField;
+     FDTableViewWEIGHT: TIntegerField;
+     FDTableViewDATE: TDateField;
+     FDTableViewCATEGORY: TWideStringField;
+     FDTableViewTHUMBNAIL: TBlobField;
+     FDTableViewIMAGE: TBlobField;
+     FDTableViewPRICE: TIntegerField;
+     FDTableViewCOMMENT: TWideMemoField;
+     FDTableViewMASTER: TIntegerField;
+     FDTableViewSERIAL: TIntegerField;
    private
      { Private 宣言 }
    public
 Legend:



Removed from v.14
 


changed lines


 
Added in v.15
 Legend:



Removed from v.14
 


changed lines


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