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 5 by yamat0jp, Tue Dec 29 08:41:54 2015 UTC
# Line 1  Line 1 
1  object DataModule1: TDataModule1  object CartForm: TCartForm
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'    OnRender = IWAppFormRender
8      Connection = FDConnection1    AllowPageAccess = True
9      UpdateOptions.UpdateTableName = 'USER_DATA'    ConnectionMode = cmAny
10      TableName = 'USER_DATA'    OnCreate = IWAppFormCreate
11      Left = 87    Background.Fixed = False
12      Top = 6    LayoutMgr = IWTemplateProcessorHTML1
13      object FDTable1NAME: TWideStringField    HandleTabs = False
14        FieldName = 'NAME'    LeftToRight = True
15        Origin = 'NAME'    LockUntilLoaded = True
16        Required = True    LockOnSubmit = True
17        Size = 80    ShowHint = True
18      end    XPTheme = True
19      object FDTable1EMAIL: TWideStringField    DesignLeft = 8
20        FieldName = 'EMAIL'    DesignTop = 8
21        Origin = 'EMAIL'    object IWGrid1: TIWGrid
22        Size = 80      Left = 128
     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  
23      Top = 128      Top = 128
24        Width = 300
25        Height = 150
26        BorderColors.Color = clNone
27        BorderColors.Light = clNone
28        BorderColors.Dark = clNone
29        BGColor = clNone
30        BorderSize = 1
31        BorderStyle = tfDefault
32        Caption = 'IWGrid1'
33        CellPadding = 0
34        CellSpacing = 0
35        Font.Color = clNone
36        Font.Size = 10
37        Font.Style = []
38        FrameBuffer = 40
39        Lines = tlAll
40        UseFrame = False
41        UseSize = True
42        FriendlyName = 'IWGrid1'
43        ColumnCount = 5
44        OnCellClick = IWGrid1CellClick
45        RowCount = 1
46        ShowEmptyCells = True
47        ShowInvisibleRows = True
48        ScrollToCurrentRow = False
49    end    end
50    object FDQuery1: TFDQuery    object IWButton1: TIWButton
     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  
51      Left = 152      Left = 152
52      Top = 176      Top = 304
53        Width = 121
54        Height = 25
55        Caption = #27770#28168#30011#38754#12408#36914#12416
56        Color = clBtnFace
57        Font.Color = clNone
58        Font.Size = 10
59        Font.Style = []
60        FriendlyName = 'IWButton1'
61        TabOrder = 0
62        OnClick = IWButton1Click
63      end
64      object IWButton2: TIWButton
65        Left = 312
66        Top = 304
67        Width = 75
68        Height = 25
69        Caption = #25147#12427
70        Color = clBtnFace
71        Font.Color = clNone
72        Font.Size = 10
73        Font.Style = []
74        FriendlyName = 'IWButton2'
75        TabOrder = 1
76        OnClick = IWButton2Click
77      end
78      object IWLabel1: TIWLabel
79        Left = 215
80        Top = 106
81        Width = 58
82        Height = 16
83        Font.Color = clNone
84        Font.Size = 10
85        Font.Style = []
86        HasTabOrder = False
87        FriendlyName = 'IWLabel1'
88        Caption = 'IWLabel1'
89      end
90      object IWTemplateProcessorHTML1: TIWTemplateProcessorHTML
91        TagType = ttIntraWeb
92        Templates.Default = 'cart.htm'
93        Left = 264
94        Top = 184
95    end    end
96  end  end
Legend:
Removed from v.1  
changed lines
  Added in v.5
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help