- Timestamp:
- Jun 3, 2010, 3:16:40 PM (15 years ago)
- Location:
- trunk
- Files:
-
- 9 added
- 3 deleted
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/UMainForm.lfm
r2 r3 36 36 TabOrder = 1 37 37 ViewStyle = vsReport 38 OnDblClick = ListView1DblClick 39 OnKeyPress = ListView1KeyPress 40 OnResize = ListView1Resize 41 OnSelectItem = ListView1SelectItem 38 42 end 39 43 object Label1: TLabel -
trunk/UMainForm.pas
r2 r3 7 7 uses 8 8 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls, 9 StdCtrls, USqlDatabase, DOM, XMLRead, XMLWrite, UPersistentForm ;9 StdCtrls, USqlDatabase, DOM, XMLRead, XMLWrite, UPersistentForm, UItemView; 10 10 11 11 const … … 24 24 procedure FormCreate(Sender: TObject); 25 25 procedure FormShow(Sender: TObject); 26 procedure ListView1DblClick(Sender: TObject); 27 procedure ListView1KeyPress(Sender: TObject; var Key: char); 28 procedure ListView1Resize(Sender: TObject); 29 procedure ListView1SelectItem(Sender: TObject; Item: TListItem; 30 Selected: Boolean); 26 31 procedure TreeView1Change(Sender: TObject; Node: TTreeNode); 27 32 private 28 33 procedure LoadConfiguration; 29 34 public 35 SelectedObject: Integer; 36 SelectedItem: Integer; 30 37 PersistentForm: TPersistentForm; 31 38 Database: TSQLDatabase; 32 39 procedure LoadTree; 40 procedure LoadItemList; 33 41 end; 34 42 … … 93 101 end; 94 102 103 procedure TMainForm.ListView1DblClick(Sender: TObject); 104 begin 105 ItemViewForm.Show; 106 end; 107 108 procedure TMainForm.ListView1KeyPress(Sender: TObject; var Key: char); 109 begin 110 if Key = #13 then ListView1DblClick(Sender); 111 end; 112 113 procedure TMainForm.ListView1Resize(Sender: TObject); 114 var 115 I: Integer; 116 begin 117 for I := 0 to ListView1.Columns.Count - 1 do 118 ListView1.Columns[I].Width := ListView1.Width div ListView1.Columns.Count; 119 end; 120 121 procedure TMainForm.ListView1SelectItem(Sender: TObject; Item: TListItem; 122 Selected: Boolean); 123 begin 124 if Assigned(ListView1.Selected) then 125 SelectedItem := Integer(ListView1.Selected.Data) 126 else SelectedItem := 0; 127 end; 128 95 129 procedure TMainForm.TreeView1Change(Sender: TObject; Node: TTreeNode); 96 var 97 DbRows: TDbRows; 98 Properties: TDbRows; 99 Values: TDbRows; 100 I: Integer; 101 C: Integer; 102 NewItem: TListItem; 103 NewColumn: TListColumn; 104 begin 105 if Assigned(TreeView1.Selected) then 106 with ListView1, Items do begin 107 Clear; 108 DbRows := Database.Query('SELECT * FROM `Object` WHERE `Id`=' + IntToStr(TreeView1.Selected.ImageIndex)); 109 if DbRows.Count = 1 then begin 110 // Load column names 111 Properties := Database.Query('SELECT * FROM `Property` WHERE `Object`=' + 112 DbRows[0].Values['Id']); 113 Columns.Clear; 114 NewColumn := Columns.Add; 115 NewColumn.Caption := 'Id'; 116 for I := 0 to Properties.Count - 1 do begin 117 NewColumn := Columns.Add; 118 NewColumn.Caption := DbRows[I].Values['Name']; 119 end; 120 121 // Load items 122 Values := Database.Query('SELECT * FROM `' + DbRows[0].Values['Schema'] + '`.`' + 123 DbRows[0].Values['Table'] + '`'); 124 for I := 0 to Values.Count - 1 do begin 125 NewItem := Items.Add; 126 NewItem.Caption := Values[I].Values['Id']; 127 for C := 0 to Properties.Count - 1 do begin 128 NewItem.SubItems.Add(Values[I].Values[Properties[C].Values['ColumnName']]); 129 end; 130 end; 131 Values.Destroy; 132 Properties.Destroy; 133 end; 134 DbRows.Destroy; 135 end; 130 begin 131 LoadItemList; 136 132 end; 137 133 … … 163 159 end; 164 160 161 procedure TMainForm.LoadItemList; 162 var 163 DbRows: TDbRows; 164 Properties: TDbRows; 165 Values: TDbRows; 166 I: Integer; 167 C: Integer; 168 NewItem: TListItem; 169 NewColumn: TListColumn; 170 begin 171 SelectedObject := 0; 172 if Assigned(TreeView1.Selected) then 173 with ListView1, Items do begin 174 Clear; 175 DbRows := Database.Query('SELECT * FROM `Object` WHERE `Id`=' + IntToStr(TreeView1.Selected.ImageIndex)); 176 if DbRows.Count = 1 then begin 177 SelectedObject := StrToInt(DbRows[0].Values['Id']); 178 179 // Load column names 180 Properties := Database.Query('SELECT * FROM `Property` WHERE `Object`=' + 181 DbRows[0].Values['Id']); 182 Columns.Clear; 183 NewColumn := Columns.Add; 184 NewColumn.Caption := 'Id'; 185 for I := 0 to Properties.Count - 1 do begin 186 NewColumn := Columns.Add; 187 NewColumn.Caption := Properties[I].Values['Name']; 188 end; 189 190 ListView1Resize(Self); 191 192 // Load items 193 Values := Database.Query('SELECT * FROM `' + DbRows[0].Values['Schema'] + '`.`' + 194 DbRows[0].Values['Table'] + '`'); 195 for I := 0 to Values.Count - 1 do begin 196 NewItem := Items.Add; 197 NewItem.Caption := Values[I].Values[DbRows[0].Values['PrimaryKey']]; 198 NewItem.Data := Pointer(StrToInt(Values[I].Values[DbRows[0].Values['PrimaryKey']])); 199 for C := 0 to Properties.Count - 1 do begin 200 NewItem.SubItems.Add(Values[I].Values[Properties[C].Values['ColumnName']]); 201 end; 202 end; 203 Values.Destroy; 204 Properties.Destroy; 205 end; 206 DbRows.Destroy; 207 end; 208 end; 209 165 210 end. 166 211 -
trunk/chronis.lpi
r2 r3 37 37 </Item1> 38 38 </RequiredPackages> 39 <Units Count="1 5">39 <Units Count="13"> 40 40 <Unit0> 41 41 <Filename Value="chronis.lpr"/> 42 42 <IsPartOfProject Value="True"/> 43 43 <UnitName Value="chronis"/> 44 <EditorIndex Value=" 3"/>44 <EditorIndex Value="4"/> 45 45 <WindowIndex Value="0"/> 46 46 <TopLine Value="1"/> 47 <CursorPos X="59" Y="2 0"/>48 <UsageCount Value=" 30"/>47 <CursorPos X="59" Y="22"/> 48 <UsageCount Value="144"/> 49 49 <Loaded Value="True"/> 50 50 </Unit0> … … 57 57 <TopLine Value="1"/> 58 58 <CursorPos X="29" Y="1"/> 59 <UsageCount Value=" 27"/>59 <UsageCount Value="16"/> 60 60 </Unit1> 61 61 <Unit2> … … 67 67 <TopLine Value="1"/> 68 68 <CursorPos X="37" Y="1"/> 69 <UsageCount Value=" 27"/>69 <UsageCount Value="16"/> 70 70 </Unit2> 71 71 <Unit3> 72 72 <Filename Value="USqlDatabase.pas"/> 73 73 <UnitName Value="USqlDatabase"/> 74 <EditorIndex Value="4"/>75 74 <WindowIndex Value="0"/> 76 75 <TopLine Value="330"/> 77 76 <CursorPos X="1" Y="347"/> 78 <UsageCount Value="26"/> 79 <Loaded Value="True"/> 77 <UsageCount Value="82"/> 80 78 </Unit3> 81 79 <Unit4> 82 80 <Filename Value="UMainForm.pas"/> 83 <IsPartOfProject Value="True"/>84 81 <ComponentName Value="MainForm"/> 85 82 <HasResources Value="True"/> 86 83 <ResourceBaseClass Value="Form"/> 87 84 <UnitName Value="UMainForm"/> 88 <IsVisibleTab Value="True"/>89 85 <EditorIndex Value="0"/> 90 86 <WindowIndex Value="0"/> 91 <TopLine Value="84"/> 92 <CursorPos X="51" Y="100"/> 93 <UsageCount Value="23"/> 87 <TopLine Value="87"/> 88 <CursorPos X="26" Y="95"/> 89 <FoldState Value=" T0iFbM3i"/> 90 <UsageCount Value="136"/> 94 91 <Loaded Value="True"/> 95 92 </Unit4> 96 93 <Unit5> 97 94 <Filename Value="ULoginForm.pas"/> 98 <IsPartOfProject Value="True"/>99 95 <ComponentName Value="LoginForm"/> 100 96 <HasResources Value="True"/> … … 104 100 <TopLine Value="1"/> 105 101 <CursorPos X="24" Y="14"/> 106 <UsageCount Value=" 23"/>102 <UsageCount Value="136"/> 107 103 </Unit5> 108 104 <Unit6> 109 <Filename Value="../../../lazarus/trunk/lcl/comctrls.pp"/> 110 <UnitName Value="ComCtrls"/> 111 <WindowIndex Value="0"/> 112 <TopLine Value="2651"/> 113 <CursorPos X="3" Y="2669"/> 105 <Filename Value="Common/UPersistentForm.pas"/> 106 <IsPartOfProject Value="True"/> 107 <UnitName Value="UPersistentForm"/> 108 <EditorIndex Value="3"/> 109 <WindowIndex Value="0"/> 110 <TopLine Value="42"/> 111 <CursorPos X="33" Y="46"/> 114 112 <SyntaxHighlighter Value="FreePascal"/> 115 <UsageCount Value="10"/> 113 <UsageCount Value="134"/> 114 <Loaded Value="True"/> 116 115 <DefaultSyntaxHighlighter Value="Text"/> 117 116 </Unit6> 118 117 <Unit7> 119 <Filename Value="../../../lazarus/trunk/lcl/include/customform.inc"/> 120 <WindowIndex Value="0"/> 121 <TopLine Value="819"/> 122 <CursorPos X="1" Y="838"/> 123 <SyntaxHighlighter Value="FreePascal"/> 124 <UsageCount Value="11"/> 118 <Filename Value="Common/USqlDatabase.pas"/> 119 <IsPartOfProject Value="True"/> 120 <UnitName Value="USqlDatabase"/> 121 <UsageCount Value="134"/> 125 122 <DefaultSyntaxHighlighter Value="Text"/> 126 123 </Unit7> 127 124 <Unit8> 128 <Filename Value="Common/UPersistentForm.pas"/>129 <IsPartOfProject Value="True"/>130 <UnitName Value="UPersistentForm"/>131 <EditorIndex Value="1"/>132 <WindowIndex Value="0"/>133 <TopLine Value="1"/>134 <CursorPos X="36" Y="19"/>135 <SyntaxHighlighter Value="FreePascal"/>136 <UsageCount Value="21"/>137 <Loaded Value="True"/>138 <DefaultSyntaxHighlighter Value="Text"/>139 </Unit8>140 <Unit9>141 <Filename Value="Common/USqlDatabase.pas"/>142 <IsPartOfProject Value="True"/>143 <UnitName Value="USqlDatabase"/>144 <UsageCount Value="21"/>145 <DefaultSyntaxHighlighter Value="Text"/>146 </Unit9>147 <Unit10>148 <Filename Value="../../../lazarus/trunk/lcl/forms.pp"/>149 <UnitName Value="Forms"/>150 <WindowIndex Value="0"/>151 <TopLine Value="579"/>152 <CursorPos X="15" Y="596"/>153 <SyntaxHighlighter Value="FreePascal"/>154 <UsageCount Value="10"/>155 <DefaultSyntaxHighlighter Value="Text"/>156 </Unit10>157 <Unit11>158 125 <Filename Value="Common/URegistry.pas"/> 159 126 <IsPartOfProject Value="True"/> 160 127 <UnitName Value="URegistry"/> 161 <EditorIndex Value="2"/>162 128 <WindowIndex Value="0"/> 163 129 <TopLine Value="32"/> 164 130 <CursorPos X="21" Y="13"/> 165 131 <SyntaxHighlighter Value="FreePascal"/> 132 <UsageCount Value="134"/> 133 <DefaultSyntaxHighlighter Value="Text"/> 134 </Unit8> 135 <Unit9> 136 <Filename Value="Forms/UItemView.pas"/> 137 <IsPartOfProject Value="True"/> 138 <ComponentName Value="ItemViewForm"/> 139 <ResourceBaseClass Value="Form"/> 140 <UnitName Value="UItemView"/> 141 <IsVisibleTab Value="True"/> 142 <EditorIndex Value="1"/> 143 <WindowIndex Value="0"/> 144 <TopLine Value="45"/> 145 <CursorPos X="3" Y="61"/> 146 <UsageCount Value="30"/> 147 <Loaded Value="True"/> 148 </Unit9> 149 <Unit10> 150 <Filename Value="Forms/UItemEdit.pas"/> 151 <IsPartOfProject Value="True"/> 152 <ComponentName Value="ItemEditForm"/> 153 <ResourceBaseClass Value="Form"/> 154 <UnitName Value="UItemEdit"/> 155 <EditorIndex Value="2"/> 156 <WindowIndex Value="0"/> 157 <TopLine Value="2"/> 158 <CursorPos X="33" Y="17"/> 166 159 <UsageCount Value="20"/> 167 160 <Loaded Value="True"/> 161 </Unit10> 162 <Unit11> 163 <Filename Value="Forms/ULoginForm.pas"/> 164 <IsPartOfProject Value="True"/> 165 <HasResources Value="True"/> 166 <UnitName Value="ULoginForm"/> 167 <UsageCount Value="20"/> 168 168 <DefaultSyntaxHighlighter Value="Text"/> 169 169 </Unit11> 170 170 <Unit12> 171 <Filename Value="/usr/share/fpcsrc/packages/fcl-registry/src/registry.pp"/> 172 <UnitName Value="registry"/> 173 <WindowIndex Value="0"/> 174 <TopLine Value="1"/> 175 <CursorPos X="5" Y="14"/> 176 <SyntaxHighlighter Value="FreePascal"/> 177 <UsageCount Value="10"/> 171 <Filename Value="Forms/UMainForm.pas"/> 172 <IsPartOfProject Value="True"/> 173 <HasResources Value="True"/> 174 <UnitName Value="UMainForm"/> 175 <UsageCount Value="20"/> 178 176 <DefaultSyntaxHighlighter Value="Text"/> 179 177 </Unit12> 180 <Unit13>181 <Filename Value="/usr/share/fpcsrc/packages/fcl-registry/src/regdef.inc"/>182 <WindowIndex Value="0"/>183 <TopLine Value="4"/>184 <CursorPos X="17" Y="21"/>185 <SyntaxHighlighter Value="FreePascal"/>186 <UsageCount Value="10"/>187 <DefaultSyntaxHighlighter Value="Text"/>188 </Unit13>189 <Unit14>190 <Filename Value="/usr/share/fpcsrc/rtl/objpas/sysutils/sysutilh.inc"/>191 <WindowIndex Value="0"/>192 <TopLine Value="17"/>193 <CursorPos X="4" Y="34"/>194 <SyntaxHighlighter Value="FreePascal"/>195 <UsageCount Value="10"/>196 <DefaultSyntaxHighlighter Value="Text"/>197 </Unit14>198 178 </Units> 199 <JumpHistory Count=" 26" HistoryIndex="25">179 <JumpHistory Count="30" HistoryIndex="29"> 200 180 <Position1> 201 <Filename Value=" UMainForm.pas"/>202 <Caret Line=" 110" Column="3" TopLine="100"/>181 <Filename Value="Forms/UItemView.pas"/> 182 <Caret Line="87" Column="40" TopLine="74"/> 203 183 </Position1> 204 184 <Position2> 205 185 <Filename Value="UMainForm.pas"/> 206 <Caret Line="1 15" Column="1" TopLine="100"/>186 <Caret Line="146" Column="28" TopLine="92"/> 207 187 </Position2> 208 188 <Position3> 209 189 <Filename Value="UMainForm.pas"/> 210 <Caret Line=" 116" Column="1" TopLine="100"/>190 <Caret Line="40" Column="23" TopLine="12"/> 211 191 </Position3> 212 192 <Position4> 213 193 <Filename Value="UMainForm.pas"/> 214 <Caret Line="1 14" Column="29" TopLine="100"/>194 <Caret Line="198" Column="92" TopLine="171"/> 215 195 </Position4> 216 196 <Position5> 217 <Filename Value=" USqlDatabase.pas"/>218 <Caret Line=" 182" Column="11" TopLine="168"/>197 <Filename Value="Forms/UItemView.pas"/> 198 <Caret Line="43" Column="1" TopLine="27"/> 219 199 </Position5> 220 200 <Position6> 221 <Filename Value=" USqlDatabase.pas"/>222 <Caret Line=" 392" Column="26" TopLine="370"/>201 <Filename Value="Common/UPersistentForm.pas"/> 202 <Caret Line="62" Column="1" TopLine="42"/> 223 203 </Position6> 224 204 <Position7> 225 <Filename Value=" UMainForm.pas"/>226 <Caret Line=" 120" Column="49" TopLine="100"/>205 <Filename Value="Common/UPersistentForm.pas"/> 206 <Caret Line="63" Column="1" TopLine="42"/> 227 207 </Position7> 228 208 <Position8> 229 <Filename Value=" UMainForm.pas"/>230 <Caret Line=" 45" Column="41" TopLine="17"/>209 <Filename Value="Common/UPersistentForm.pas"/> 210 <Caret Line="64" Column="1" TopLine="42"/> 231 211 </Position8> 232 212 <Position9> 233 <Filename Value=" UMainForm.pas"/>234 <Caret Line=" 80" Column="18" TopLine="75"/>213 <Filename Value="Common/UPersistentForm.pas"/> 214 <Caret Line="65" Column="1" TopLine="42"/> 235 215 </Position9> 236 216 <Position10> 237 <Filename Value=" Common/UPersistentForm.pas"/>238 <Caret Line=" 8" Column="47" TopLine="1"/>217 <Filename Value="Forms/UItemView.pas"/> 218 <Caret Line="76" Column="15" TopLine="76"/> 239 219 </Position10> 240 220 <Position11> 241 <Filename Value=" Common/UPersistentForm.pas"/>242 <Caret Line=" 29" Column="24" TopLine="12"/>221 <Filename Value="Forms/UItemView.pas"/> 222 <Caret Line="77" Column="15" TopLine="77"/> 243 223 </Position11> 244 224 <Position12> 245 <Filename Value=" UMainForm.pas"/>246 <Caret Line="7 7" Column="15" TopLine="75"/>225 <Filename Value="Forms/UItemView.pas"/> 226 <Caret Line="76" Column="15" TopLine="76"/> 247 227 </Position12> 248 228 <Position13> 249 <Filename Value=" Common/UPersistentForm.pas"/>250 <Caret Line=" 37" Column="12" TopLine="12"/>229 <Filename Value="Forms/UItemView.pas"/> 230 <Caret Line="77" Column="15" TopLine="77"/> 251 231 </Position13> 252 232 <Position14> 253 <Filename Value=" Common/UPersistentForm.pas"/>254 <Caret Line=" 44" Column="15" TopLine="21"/>233 <Filename Value="Forms/UItemView.pas"/> 234 <Caret Line="78" Column="15" TopLine="78"/> 255 235 </Position14> 256 236 <Position15> 257 <Filename Value=" Common/UPersistentForm.pas"/>258 <Caret Line=" 46" Column="21" TopLine="29"/>237 <Filename Value="Forms/UItemEdit.pas"/> 238 <Caret Line="8" Column="26" TopLine="1"/> 259 239 </Position15> 260 240 <Position16> 261 <Filename Value=" Common/UPersistentForm.pas"/>262 <Caret Line=" 29" Column="69" TopLine="25"/>241 <Filename Value="Forms/UItemView.pas"/> 242 <Caret Line="65" Column="23" TopLine="54"/> 263 243 </Position16> 264 244 <Position17> 265 <Filename Value=" Common/UPersistentForm.pas"/>266 <Caret Line=" 51" Column="71" TopLine="33"/>245 <Filename Value="Forms/UItemView.pas"/> 246 <Caret Line="64" Column="23" TopLine="53"/> 267 247 </Position17> 268 248 <Position18> 269 <Filename Value=" Common/UPersistentForm.pas"/>270 <Caret Line=" 52" Column="23" TopLine="37"/>249 <Filename Value="Forms/UItemEdit.pas"/> 250 <Caret Line="8" Column="26" TopLine="1"/> 271 251 </Position18> 272 252 <Position19> 273 <Filename Value=" Common/UPersistentForm.pas"/>274 <Caret Line=" 54" Column="98" TopLine="37"/>253 <Filename Value="Forms/UItemEdit.pas"/> 254 <Caret Line="9" Column="11" TopLine="1"/> 275 255 </Position19> 276 256 <Position20> 277 <Filename Value=" Common/UPersistentForm.pas"/>278 <Caret Line=" 74" Column="53" TopLine="46"/>257 <Filename Value="Forms/UItemEdit.pas"/> 258 <Caret Line="38" Column="9" TopLine="3"/> 279 259 </Position20> 280 260 <Position21> 281 <Filename Value=" Common/UPersistentForm.pas"/>282 <Caret Line=" 75" Column="19" TopLine="54"/>261 <Filename Value="Forms/UItemEdit.pas"/> 262 <Caret Line="44" Column="9" TopLine="9"/> 283 263 </Position21> 284 264 <Position22> 285 <Filename Value=" Common/URegistry.pas"/>286 <Caret Line=" 8" Column="9" TopLine="1"/>265 <Filename Value="Forms/UItemEdit.pas"/> 266 <Caret Line="52" Column="1" TopLine="15"/> 287 267 </Position22> 288 268 <Position23> 289 <Filename Value=" Common/UPersistentForm.pas"/>290 <Caret Line=" 8" Column="49" TopLine="1"/>269 <Filename Value="Forms/UItemEdit.pas"/> 270 <Caret Line="26" Column="29" TopLine="1"/> 291 271 </Position23> 292 272 <Position24> 293 <Filename Value=" Common/UPersistentForm.pas"/>294 <Caret Line=" 84" Column="28" TopLine="54"/>273 <Filename Value="Forms/UItemEdit.pas"/> 274 <Caret Line="35" Column="13" TopLine="1"/> 295 275 </Position24> 296 276 <Position25> 297 <Filename Value=" Common/UPersistentForm.pas"/>298 <Caret Line=" 84" Column="10" TopLine="54"/>277 <Filename Value="Forms/UItemEdit.pas"/> 278 <Caret Line="63" Column="20" TopLine="44"/> 299 279 </Position25> 300 280 <Position26> 301 <Filename Value=" UMainForm.pas"/>302 <Caret Line=" 25" Column="15" TopLine="7"/>281 <Filename Value="Forms/UItemView.pas"/> 282 <Caret Line="9" Column="13" TopLine="76"/> 303 283 </Position26> 284 <Position27> 285 <Filename Value="Forms/UItemView.pas"/> 286 <Caret Line="26" Column="1" TopLine="1"/> 287 </Position27> 288 <Position28> 289 <Filename Value="Forms/UItemView.pas"/> 290 <Caret Line="35" Column="27" TopLine="1"/> 291 </Position28> 292 <Position29> 293 <Filename Value="Forms/UItemView.pas"/> 294 <Caret Line="24" Column="21" TopLine="16"/> 295 </Position29> 296 <Position30> 297 <Filename Value="Forms/UItemView.pas"/> 298 <Caret Line="55" Column="3" TopLine="53"/> 299 </Position30> 304 300 </JumpHistory> 305 301 </ProjectOptions> … … 312 308 <IncludeFiles Value="$(ProjOutDir)/"/> 313 309 <Libraries Value="/usr/lib/mysql/;/usr/lib64/mysql/"/> 314 <OtherUnitFiles Value="Common/ "/>310 <OtherUnitFiles Value="Common/;Forms/"/> 315 311 <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/> 316 312 </SearchPaths> -
trunk/chronis.lpr
r2 r3 8 8 {$ENDIF}{$ENDIF} 9 9 Interfaces, // this includes the LCL widgetset 10 Forms, UMainForm, ULoginForm, UPersistentForm, URegistry, USqlDatabase 10 Forms, UPersistentForm, URegistry, USqlDatabase, 11 UItemView, UItemEdit, ULoginForm, UMainForm 11 12 { you can add units after this }; 12 13 … … 15 16 begin 16 17 Application.Initialize; 17 Application.CreateForm(TMainForm, MainForm); 18 Application.CreateForm(TItemViewForm, ItemViewForm); 19 Application.CreateForm(TItemEditForm, ItemEditForm); 18 20 Application.Run; 19 21 end.
Note:
See TracChangeset
for help on using the changeset viewer.