Develop and Download Open Source Software

zencart-clone

Browse Subversion Repository

/[zencart-clone]/Unit4.dfm

Diff of /Unit4.dfm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1 by yamat0jp, Sun Nov 22 11:18:44 2015 UTC revision 2 by yamat0jp, Sat Dec 19 14:35:42 2015 UTC
# Line 1  Line 1 
1  object DataModule1: TDataModule1  object PayForm: TPayForm
2    OldCreateOrder = False    Left = 0
3    Height = 228    Top = 0
4    Width = 215    Width = 555
5    object FDTable1: TFDTable    Height = 400
6      Active = True    RenderInvisibleControls = True
7      IndexFieldNames = 'NUMBER'    AllowPageAccess = True
8      Connection = FDConnection1    ConnectionMode = cmAny
9      UpdateOptions.UpdateTableName = 'USER_DATA'    Background.Fixed = False
10      TableName = 'USER_DATA'    HandleTabs = False
11      Left = 87    LeftToRight = True
12      Top = 6    LockUntilLoaded = True
13      object FDTable1NAME: TWideStringField    LockOnSubmit = True
14        FieldName = 'NAME'    ShowHint = True
15        Origin = 'NAME'    XPTheme = True
16        Required = True    DesignLeft = 8
17        Size = 80    DesignTop = 8
     end  
     object FDTable1EMAIL: TWideStringField  
       FieldName = 'EMAIL'  
       Origin = 'EMAIL'  
       Size = 80  
     end  
     object FDTable1BIRTH: TDateField  
       FieldName = 'BIRTH'  
       Origin = 'BIRTH'  
     end  
     object FDTable1ADDRESS: TWideStringField  
       FieldName = 'ADDRESS'  
       Origin = 'ADDRESS'  
       Size = 480  
     end  
     object FDTable1PASSWORD: TWideStringField  
       FieldName = 'PASSWORD'  
       Origin = '"PASSWORD"'  
       Size = 80  
     end  
     object FDTable1NUMBER: TIntegerField  
       FieldName = 'NUMBER'  
       Origin = 'NUMBER'  
       ReadOnly = True  
     end  
   end  
   object FDTable2: TFDTable  
     Active = True  
     IndexFieldNames = 'SERIAL'  
     Connection = FDConnection1  
     UpdateOptions.UpdateTableName = 'ITEM_DATA'  
     TableName = 'ITEM_DATA'  
     Left = 15  
     Top = 5  
     object FDTable2NAME: TWideStringField  
       FieldName = 'NAME'  
       Origin = 'NAME'  
       Required = True  
       Size = 480  
     end  
     object FDTable2MAKER: TWideStringField  
       FieldName = 'MAKER'  
       Origin = 'MAKER'  
       Size = 480  
     end  
     object FDTable2STOCK: TIntegerField  
       FieldName = 'STOCK'  
       Origin = 'STOCK'  
     end  
     object FDTable2WEIGHT: TIntegerField  
       FieldName = 'WEIGHT'  
       Origin = 'WEIGHT'  
     end  
     object FDTable2DATE: TDateField  
       FieldName = 'DATE'  
       Origin = '"DATE"'  
     end  
     object FDTable2COMMENT: TMemoField  
       FieldName = 'COMMENT'  
       Origin = 'COMMENT'  
       BlobType = ftMemo  
     end  
     object FDTable2CATEGORY: TWideStringField  
       FieldName = 'CATEGORY'  
       Origin = 'CATEGORY'  
       Size = 80  
     end  
     object FDTable2IMAGE: TBlobField  
       FieldName = 'IMAGE'  
       Origin = 'IMAGE'  
     end  
     object FDTable2PRICE: TIntegerField  
       FieldName = 'PRICE'  
       Origin = 'PRICE'  
       Required = True  
     end  
     object FDTable2THUMBNAIL: TBlobField  
       FieldName = 'THUMBNAIL'  
       Origin = 'THUMBNAIL'  
     end  
     object FDTable2SERIAL: TIntegerField  
       FieldName = 'SERIAL'  
       Origin = 'SERIAL'  
     end  
   end  
   object item: TDataSource  
     DataSet = FDTable2  
     Left = 24  
     Top = 77  
   end  
   object user: TDataSource  
     DataSet = FDTable1  
     Left = 87  
     Top = 62  
   end  
   object FDConnection1: TFDConnection  
     Params.Strings = (  
       'User_Name=sysdba'  
       'Password=masterkey'  
       'CharacterSet=UTF8'  
         
         'Database=E:\fuke masasi\My App\zencart_clone\Win64\Release\wwwro' +  
         'ot\db\MYCART.GDB'  
       'DriverID=IB')  
     Connected = True  
     LoginPrompt = False  
     Left = 152  
     Top = 78  
   end  
   object FDTable3: TFDTable  
     Active = True  
     Connection = FDConnection1  
     UpdateOptions.UpdateTableName = 'FORM_DATA'  
     TableName = 'FORM_DATA'  
     Left = 24  
     Top = 128  
     object FDTable3NAME: TWideStringField  
       FieldName = 'NAME'  
       Origin = 'NAME'  
       Size = 80  
     end  
     object FDTable3BGCOLOR: TIntegerField  
       FieldName = 'BGCOLOR'  
       Origin = 'BGCOLOR'  
     end  
   end  
   object form: TDataSource  
     DataSet = FDTable3  
     Left = 96  
     Top = 128  
   end  
   object FDQuery1: TFDQuery  
     Connection = FDConnection1  
     SQL.Strings = (  
       'select name,maker,image,volume,price'  
       ' from cart_data join item_data'  
       ' on (cart_data.serial = item_data.serial)'  
       ' where number = :num;')  
     Left = 96  
     Top = 176  
     ParamData = <  
       item  
         Name = 'NUM'  
         DataType = ftInteger  
         ParamType = ptInput  
         Value = 0  
       end>  
   end  
   object cart: TDataSource  
     DataSet = FDQuery1  
     Left = 152  
     Top = 176  
   end  
18  end  end
Legend:
Removed from v.1  
changed lines
  Added in v.2
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help