Develop and Download Open Source Software

mybbs

Browse Subversion Repository

/[bbs-as-pbbs]/WebModuleUnit1.dfm

Annotation of /WebModuleUnit1.dfm

Parent Directory Parent Directory | Revision Log Revision Log

Revision 18 - (hide annotations) (download)
Thu Sep 29 08:48:40 2016 UTC (7 years, 5 months ago) by yamat0jp
File size: 5147 byte(s) 
text-align:center
regist(var com)
HTMLに関する書き換え
1 yamat0jp 1 object WebModule1: TWebModule1
2     OldCreateOrder = False
3     OnCreate = WebModuleCreate
4     OnDestroy = WebModuleDestroy
5     Actions = <
6     item
7     Default = True
8     Enabled = False
9     Name = 'index'
10     PathInfo = '/index'
11     OnAction = WebModule1DefaultHandlerAction
12     end
13     item
14     MethodType = mtPost
15     Name = 'regist'
16     PathInfo = '/regist'
17     OnAction = WebModule1registAction
18     end
19     item
20     Name = 'admin'
21     PathInfo = '/admin'
22     OnAction = WebModule1adminAction
23     end
24     item
25     Name = 'userdel'
26     PathInfo = '/userdel'
27     OnAction = WebModule1userdelAction
28     end
29     item
30     MethodType = mtPost
31     Name = 'admindel'
32     PathInfo = '/admindel'
33     OnAction = WebModule1admindelAction
34     end
35     item
36     Name = 'login'
37     PathInfo = '/login'
38     OnAction = WebModule1loginAction
39     end
40     item
41     MethodType = mtPost
42     Name = 'setup'
43     PathInfo = '/setup'
44     OnAction = WebModule1setupAction
45     end
46     item
47     Name = 'search'
48     PathInfo = '/search'
49     OnAction = WebModule1searchAction
50 yamat0jp 3 end
51     item
52     MethodType = mtPost
53     Name = 'adminset'
54     PathInfo = '/adminset'
55     OnAction = WebModule1adminsetAction
56 yamat0jp 13 end
57     item
58 yamat0jp 18 MethodType = mtGet
59 yamat0jp 13 Name = 'css'
60     PathInfo = '/css'
61     OnAction = WebModule1cssAction
62 yamat0jp 1 end>
63     BeforeDispatch = WebModuleBeforeDispatch
64 yamat0jp 13 AfterDispatch = WebModuleAfterDispatch
65 yamat0jp 1 Height = 230
66     Width = 415
67     object FDTable1: TFDTable
68     Connection = FDConnection1
69     UpdateOptions.UpdateTableName = 'pbbs'
70     TableName = 'pbbs'
71     Left = 56
72     Top = 144
73     object FDTable1name: TWideMemoField
74     FieldName = 'name'
75     Origin = 'name'
76     BlobType = ftWideMemo
77     end
78     object FDTable1no: TIntegerField
79     FieldName = 'no'
80     Origin = 'no'
81     end
82     object FDTable1date: TWideMemoField
83     FieldName = 'date'
84     Origin = 'date'
85     BlobType = ftWideMemo
86     end
87     object FDTable1sub: TWideMemoField
88     FieldName = 'sub'
89     Origin = 'sub'
90     BlobType = ftWideMemo
91     end
92     object FDTable1com: TWideMemoField
93     FieldName = 'com'
94     Origin = 'com'
95     BlobType = ftWideMemo
96     end
97     object FDTable1pass: TWideMemoField
98     FieldName = 'pass'
99     Origin = 'pass'
100     BlobType = ftWideMemo
101     end
102     object FDTable1line: TIntegerField
103     FieldName = 'line'
104     Origin = 'line'
105     end
106     end
107     object FDConnection1: TFDConnection
108     Params.Strings = (
109     'LockingMode=Normal'
110     'DriverID=SQLite')
111     Left = 56
112     Top = 80
113     end
114     object FDTable2: TFDTable
115     Connection = FDConnection1
116     UpdateOptions.UpdateTableName = 'information'
117     TableName = 'information'
118     Left = 120
119     Top = 144
120     object FDTable2home: TWideMemoField
121     FieldName = 'home'
122     Origin = 'home'
123 yamat0jp 17 BlobType = ftWideString
124 yamat0jp 1 end
125     object FDTable2title: TWideMemoField
126     FieldName = 'title'
127     Origin = 'title'
128 yamat0jp 17 BlobType = ftWideString
129 yamat0jp 1 end
130     object FDTable2title2: TWideMemoField
131     FieldName = 'title2'
132     Origin = 'title2'
133     BlobType = ftWideMemo
134     end
135     object FDTable2pass: TWideMemoField
136     FieldName = 'pass'
137     Origin = 'pass'
138 yamat0jp 17 BlobType = ftWideString
139 yamat0jp 1 end
140     object FDTable2ngwords: TWideMemoField
141     FieldName = 'ngwords'
142     Origin = 'ngwords'
143     BlobType = ftWideMemo
144     end
145 yamat0jp 4 object FDTable2mente: TBooleanField
146     FieldName = 'mente'
147     end
148 yamat0jp 1 end
149     object PageProducer1: TPageProducer
150     OnHTMLTag = PageProducer1HTMLTag
151     Left = 200
152     Top = 24
153     end
154     object DataSetPageProducer2: TDataSetPageProducer
155     HTMLDoc.Strings = (
156 yamat0jp 13 '<hr size=1>'
157     '<section id=number>[<#no>]</section>'
158     '<section id=title><#sub></section>'
159     '<section id=name> Name:<h1><#name></h1></section>'
160     '<section id=date> Date:<h1><#date></h1></section>'
161 yamat0jp 18 '<section id=comment><#com></section>'
162 yamat0jp 13 '')
163 yamat0jp 1 DataSet = FDTable1
164     OnHTMLTag = DataSetPageProducer2HTMLTag
165     Left = 312
166     Top = 104
167     end
168     object adminDS: TDataSetPageProducer
169     HTMLDoc.Strings = (
170     '<tr>'
171     '<th><input type=checkbox name="<#no>" value="<#no>"></th>'
172     '<th><#no></th>'
173     '<th><font size="-1"><#date></font></th>'
174     '<th><font size="+1" color="#D01166"><b><#sub></b></font></th>'
175     '<th><font color="#007000"><b><#name></b></font></th>'
176     '</tr>')
177     DataSet = FDTable1
178     OnHTMLTag = DataSetPageProducer2HTMLTag
179     Left = 312
180     Top = 168
181     end
182     object FDTable3: TFDTable
183     Connection = FDConnection1
184     UpdateOptions.UpdateTableName = 'setting'
185     TableName = 'setting'
186     Left = 184
187     Top = 144
188     object FDTable3link: TIntegerField
189     FieldName = 'link'
190     Origin = 'link'
191     end
192     object FDTable3count: TIntegerField
193     FieldName = 'count'
194     Origin = 'count'
195     end
196     object FDTable3line: TIntegerField
197     FieldName = 'line'
198     Origin = 'line'
199     end
200     end
201     end
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help