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 1 - (hide annotations) (download)
Wed Sep 23 09:26:54 2015 UTC (8 years, 5 months ago) by yamat0jp
File size: 4778 byte(s) 
危険なクッキー送信を訂正

デバッグ環境をひとまず無視（xamppで開発しています）

ログアウトさせる機能実装（オートログアウトはやめました）

※注意
　リソースにhtmlファイルを含めたので.res, .dresファイルをcgiファイルと同じフォルダにおいてください。

　sqliteファイル(.sdb)にパーミッションを設定しないと不正アクセスされます。
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     end>
51     BeforeDispatch = WebModuleBeforeDispatch
52     Height = 230
53     Width = 415
54     object FDTable1: TFDTable
55     Connection = FDConnection1
56     UpdateOptions.UpdateTableName = 'pbbs'
57     TableName = 'pbbs'
58     Left = 56
59     Top = 144
60     object FDTable1name: TWideMemoField
61     FieldName = 'name'
62     Origin = 'name'
63     BlobType = ftWideMemo
64     end
65     object FDTable1no: TIntegerField
66     FieldName = 'no'
67     Origin = 'no'
68     end
69     object FDTable1date: TWideMemoField
70     FieldName = 'date'
71     Origin = 'date'
72     BlobType = ftWideMemo
73     end
74     object FDTable1sub: TWideMemoField
75     FieldName = 'sub'
76     Origin = 'sub'
77     BlobType = ftWideMemo
78     end
79     object FDTable1com: TWideMemoField
80     FieldName = 'com'
81     Origin = 'com'
82     BlobType = ftWideMemo
83     end
84     object FDTable1pass: TWideMemoField
85     FieldName = 'pass'
86     Origin = 'pass'
87     BlobType = ftWideMemo
88     end
89     object FDTable1line: TIntegerField
90     FieldName = 'line'
91     Origin = 'line'
92     end
93     end
94     object FDConnection1: TFDConnection
95     Params.Strings = (
96     'Database=E:\Program Files (x86)\xampp\cgi-bin\data.sdb'
97     'LockingMode=Normal'
98     'DriverID=SQLite')
99     Left = 56
100     Top = 80
101     end
102     object FDTable2: TFDTable
103     Connection = FDConnection1
104     UpdateOptions.UpdateTableName = 'information'
105     TableName = 'information'
106     Left = 120
107     Top = 144
108     object FDTable2home: TWideMemoField
109     FieldName = 'home'
110     Origin = 'home'
111     BlobType = ftWideMemo
112     end
113     object FDTable2title: TWideMemoField
114     FieldName = 'title'
115     Origin = 'title'
116     BlobType = ftWideMemo
117     end
118     object FDTable2title2: TWideMemoField
119     FieldName = 'title2'
120     Origin = 'title2'
121     BlobType = ftWideMemo
122     end
123     object FDTable2pass: TWideMemoField
124     FieldName = 'pass'
125     Origin = 'pass'
126     BlobType = ftWideMemo
127     end
128     object FDTable2ngwords: TWideMemoField
129     FieldName = 'ngwords'
130     Origin = 'ngwords'
131     BlobType = ftWideMemo
132     end
133     end
134     object PageProducer1: TPageProducer
135     OnHTMLTag = PageProducer1HTMLTag
136     Left = 200
137     Top = 24
138     end
139     object DataSetPageProducer2: TDataSetPageProducer
140     HTMLDoc.Strings = (
141     '<hr size=1>[<#no>]'
142     '<font size="+1" color="#D01166"><b><#sub></b></font><br>'
143    
144     ' Name:<font color="#007000"><b><#name></b></font><font size="-1' +
145     '"> Date:<#date></font>'
146     '<p><tt><#com><br></tt></p>')
147     DataSet = FDTable1
148     OnHTMLTag = DataSetPageProducer2HTMLTag
149     Left = 312
150     Top = 104
151     end
152     object adminDS: TDataSetPageProducer
153     HTMLDoc.Strings = (
154     '<tr>'
155     '<th><input type=checkbox name="<#no>" value="<#no>"></th>'
156     '<th><#no></th>'
157     '<th><font size="-1"><#date></font></th>'
158     '<th><font size="+1" color="#D01166"><b><#sub></b></font></th>'
159     '<th><font color="#007000"><b><#name></b></font></th>'
160     '</tr>')
161     DataSet = FDTable1
162     OnHTMLTag = DataSetPageProducer2HTMLTag
163     Left = 312
164     Top = 168
165     end
166     object FDTable3: TFDTable
167     Connection = FDConnection1
168     UpdateOptions.UpdateTableName = 'setting'
169     TableName = 'setting'
170     Left = 184
171     Top = 144
172     object FDTable3link: TIntegerField
173     FieldName = 'link'
174     Origin = 'link'
175     end
176     object FDTable3count: TIntegerField
177     FieldName = 'count'
178     Origin = 'count'
179     end
180     object FDTable3line: TIntegerField
181     FieldName = 'line'
182     Origin = 'line'
183     end
184     end
185     end
Back to OSDN">Back to OSDN
 ViewVC Help
Powered by ViewVC 1.1.26  
About OSDN
Find Software
Develop Software
Help