Changeset 4


Ignore:
Timestamp:
Nov 13, 2012, 10:58:17 PM (13 years ago)
Author:
chronos
Message:
  • Přidáno: Balíček CoolWeb pro přístup k SQL databázi.
  • Přidáno: Struktura databáze.
Location:
trunk
Files:
34 added
4 edited

Legend:

Unmodified
Added
Removed

  • trunk/Dochazka.lpi

    r3 r4  
    3131      </local>
    3232    </RunParams>
    33     <RequiredPackages Count="1">
     33    <RequiredPackages Count="2">
    3434      <Item1>
     35        <PackageName Value="CoolWeb"/>
     36        <DefaultFilename Value="Packages/CoolWeb/CoolWeb.lpk" Prefer="True"/>
     37      </Item1>
     38      <Item2>
    3539        <PackageName Value="LCL"/>
    36       </Item1>
     40      </Item2>
    3741    </RequiredPackages>
    3842    <Units Count="5">
    … …  
    4650        <IsPartOfProject Value="True"/>
    4751        <ComponentName Value="Form1"/>
     52        <HasResources Value="True"/>
    4853        <ResourceBaseClass Value="Form"/>
    4954        <UnitName Value="UFormMain"/>
    … …  
    5358        <IsPartOfProject Value="True"/>
    5459        <ComponentName Value="Core"/>
     60        <HasResources Value="True"/>
    5561        <ResourceBaseClass Value="DataModule"/>
    5662        <UnitName Value="UCore"/>

  • trunk/Dochazka.lpr

    r3 r4  
    88  {$ENDIF}{$ENDIF}
    99  Interfaces, // this includes the LCL widgetset
    10   Forms, UFormMain, UCore, UAttendance
     10  Forms, UFormMain, UCore, UAttendance, CoolWeb
    1111  { you can add units after this };
    1212

  • trunk/Tasks.txt

    r3 r4  
    1717* uşivatelsky definované sestavy
    1818* podpora více jazyků
     19* podpora pro zpracování více firem

  • trunk/UCore.pas

    r3 r4  
    66
    77uses
    8   Classes, SysUtils, FileUtil;
     8  Classes, SysUtils, FileUtil, USqlDatabase;
    99
    1010type
     11
     12  { TCore }
     13
    1114  TCore = class(TDataModule)
    1215  private
    13     { private declarations }
    1416  public
    15     { public declarations }
     17    Database: TSQLDatabase;
     18    procedure InitData;
    1619  end;
    1720
    … …  
    2326{$R *.lfm}
    2427
     28{ TCore }
     29
     30procedure TCore.InitData;
     31begin
     32  try
     33    DbRows := TDbRows.Create;
     34    Database.Query(DbRows, '');
     35  finally
     36    DbRows.Free;
     37  end;
     38end;
     39
    2540end.
    2641
Note: See TracChangeset for help on using the changeset viewer.