Changeset 5 for trunk/UCore.pas


Ignore:
Timestamp:
Nov 14, 2012, 8:53:05 AM (12 years ago)
Author:
chronos
Message:
  • Přidáno: Uchování nastavení spojení v registrech.
Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk

    • Property svn:ignore

      •  

        old new  
        11Dochazka.lps
         2Dochazka.dbg
         3Dochazka.exe
         4heaptrclog.trc
         5lib

  • trunk/UCore.pas

    r4 r5  
    66
    77uses
    8   Classes, SysUtils, FileUtil, USqlDatabase;
     8  Registry, Classes, SysUtils, FileUtil, USqlDatabase, URegistry, UApplicationInfo;
    99
    1010type
    … …  
    1313
    1414  TCore = class(TDataModule)
     15    ApplicationInfo1: TApplicationInfo;
     16    Database: TSqlDatabase;
     17    procedure DataModuleCreate(Sender: TObject);
    1518  private
    1619  public
    17     Database: TSQLDatabase;
     20    procedure Init;
     21    procedure Done;
    1822    procedure InitData;
     23    procedure Connect;
     24    procedure LoadFromRegistry(Context: TRegistryContext);
     25    procedure SaveToRegistry(Context: TRegistryContext);
    1926  end;
    2027
    … …  
    2835{ TCore }
    2936
     37procedure TCore.DataModuleCreate(Sender: TObject);
     38begin
     39end;
     40
     41procedure TCore.Init;
     42begin
     43  LoadFromRegistry(RegContext(HKEY(ApplicationInfo1.RegistryRoot), ApplicationInfo1.RegistryKey));
     44  Connect;
     45end;
     46
     47procedure TCore.Done;
     48begin
     49  SaveToRegistry(RegContext(HKEY(ApplicationInfo1.RegistryRoot), ApplicationInfo1.RegistryKey));
     50end;
     51
    3052procedure TCore.InitData;
     53var
     54  DbRows: TDbRows;
    3155begin
    3256  try
    … …  
    3862end;
    3963
     64procedure TCore.Connect;
     65begin
     66  Database.Connect;
     67end;
     68
     69procedure TCore.LoadFromRegistry(Context: TRegistryContext);
     70begin
     71  with TRegistryEx.Create do
     72  try
     73    RootKey := Context.RootKey;
     74    OpenKey(Context.Key, True);
     75    Database.HostName := ReadStringWithDefault('HostName', 'localhost');
     76    Database.Database := ReadStringWithDefault('Schema', 'dochazka');
     77    Database.UserName := ReadStringWithDefault('UserName', 'dochazka');
     78    Database.Password := ReadStringWithDefault('Password', '');
     79  finally
     80    Free;
     81  end;
     82end;
     83
     84procedure TCore.SaveToRegistry(Context: TRegistryContext);
     85begin
     86  with TRegistryEx.Create do
     87  try
     88    RootKey := Context.RootKey;
     89    OpenKey(Context.Key, True);
     90    WriteString('HostName', Database.HostName);
     91    WriteString('Schema', Database.Database);
     92    WriteString('UserName', Database.UserName);
     93    WriteString('Password', Database.Password);
     94  finally
     95    Free;
     96  end;
     97end;
     98
    4099end.
    41100
Note: See TracChangeset for help on using the changeset viewer.