Changeset 4
- Timestamp:
- Nov 13, 2012, 10:58:17 PM (12 years ago)
- Location:
- trunk
- Files:
-
- 34 added
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Dochazka.lpi
r3 r4 31 31 </local> 32 32 </RunParams> 33 <RequiredPackages Count=" 1">33 <RequiredPackages Count="2"> 34 34 <Item1> 35 <PackageName Value="CoolWeb"/> 36 <DefaultFilename Value="Packages/CoolWeb/CoolWeb.lpk" Prefer="True"/> 37 </Item1> 38 <Item2> 35 39 <PackageName Value="LCL"/> 36 </Item 1>40 </Item2> 37 41 </RequiredPackages> 38 42 <Units Count="5"> … … 46 50 <IsPartOfProject Value="True"/> 47 51 <ComponentName Value="Form1"/> 52 <HasResources Value="True"/> 48 53 <ResourceBaseClass Value="Form"/> 49 54 <UnitName Value="UFormMain"/> … … 53 58 <IsPartOfProject Value="True"/> 54 59 <ComponentName Value="Core"/> 60 <HasResources Value="True"/> 55 61 <ResourceBaseClass Value="DataModule"/> 56 62 <UnitName Value="UCore"/> -
trunk/Dochazka.lpr
r3 r4 8 8 {$ENDIF}{$ENDIF} 9 9 Interfaces, // this includes the LCL widgetset 10 Forms, UFormMain, UCore, UAttendance 10 Forms, UFormMain, UCore, UAttendance, CoolWeb 11 11 { you can add units after this }; 12 12 -
trunk/Tasks.txt
r3 r4 17 17 * uÅŸivatelsky definované sestavy 18 18 * podpora vÃce jazyků 19 * podpora pro zpracovánà vÃce firem -
trunk/UCore.pas
r3 r4 6 6 7 7 uses 8 Classes, SysUtils, FileUtil ;8 Classes, SysUtils, FileUtil, USqlDatabase; 9 9 10 10 type 11 12 { TCore } 13 11 14 TCore = class(TDataModule) 12 15 private 13 { private declarations }14 16 public 15 { public declarations } 17 Database: TSQLDatabase; 18 procedure InitData; 16 19 end; 17 20 … … 23 26 {$R *.lfm} 24 27 28 { TCore } 29 30 procedure TCore.InitData; 31 begin 32 try 33 DbRows := TDbRows.Create; 34 Database.Query(DbRows, ''); 35 finally 36 DbRows.Free; 37 end; 38 end; 39 25 40 end. 26 41
Note:
See TracChangeset
for help on using the changeset viewer.