Changeset 20 for trunk


Ignore:
Timestamp:
Nov 15, 2012, 8:59:57 PM (12 years ago)
Author:
chronos
Message:
  • Přidáno: Modul, který bude obsahovat implementaci komunikace s přístupovými terminály firmy Chiyu.
Location:
trunk
Files:
7 added
7 edited

Legend:

Unmodified
Added
Removed

  • trunk/Application/URegistredModules.pas

    r19 r20  
    1515
    1616uses
    17   UModuleAttendance;
     17  UModuleAttendance, UModuleChiyuAccessControlers;
    1818
    1919procedure RegisterModules(ModuleManager: TModuleManager);
    … …  
    2424    Modules.BeginUpdate;
    2525    RegisterModule(TModuleAttendance.Create(nil));
     26    RegisterModule(TModuleChiyuAccessControlers.Create(nil));
    2627  finally
    2728    Modules.EndUpdate;

  • trunk/Dochazka.lpi

    r19 r20  
    106106      </Item8>
    107107    </RequiredPackages>
    108     <Units Count="14">
     108    <Units Count="17">
    109109      <Unit0>
    110110        <Filename Value="Dochazka.lpr"/>
    … …  
    197197        <UnitName Value="UDataModel"/>
    198198      </Unit13>
     199      <Unit14>
     200        <Filename Value="Modules/Attendance/UFormVirtualTerminal.pas"/>
     201        <IsPartOfProject Value="True"/>
     202        <ComponentName Value="FormVirtualAccessControler"/>
     203        <HasResources Value="True"/>
     204        <ResourceBaseClass Value="Form"/>
     205        <UnitName Value="UFormVirtualTerminal"/>
     206      </Unit14>
     207      <Unit15>
     208        <Filename Value="Modules/Attendance/UAccessControler.pas"/>
     209        <IsPartOfProject Value="True"/>
     210        <UnitName Value="UAccessControler"/>
     211      </Unit15>
     212      <Unit16>
     213        <Filename Value="Modules/ChiyuAccessControlers/UModuleChiyuAccessControlers.pas"/>
     214        <IsPartOfProject Value="True"/>
     215        <ComponentName Value="DataModule1"/>
     216        <HasResources Value="True"/>
     217        <ResourceBaseClass Value="DataModule"/>
     218        <UnitName Value="UModuleChiyuAccessControlers"/>
     219      </Unit16>
    199220    </Units>
    200221  </ProjectOptions>
    … …  
    206227    <SearchPaths>
    207228      <IncludeFiles Value="$(ProjOutDir)"/>
    208       <OtherUnitFiles Value="Forms;Common;Application;Modules/Attendance"/>
     229      <OtherUnitFiles Value="Forms;Common;Application;Modules/Attendance;Modules/ChiyuAccessControlers"/>
    209230      <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
    210231    </SearchPaths>

  • trunk/Dochazka.lpr

    r16 r20  
    1111  CoolTranslator, UFormSetting, SysUtils, UFormList, UFormEdit, UDataView,
    1212  URegistredModules, TemplateGenerics, synapse, TEditExtensions,
    13   UFormConnection, UModuleAttendance, UDataModel
    14   { you can add units after this };
     13  UFormConnection, UModuleAttendance, UDataModel, UFormVirtualTerminal,
     14UAccessControler, UModuleChiyuAccessControlers;
    1515
    1616{$R *.res}

  • trunk/Forms/UFormList.pas

    r16 r20  
    1111
    1212type
     13  TColumnControlType = (ctText, ctReference, ctBoolean);
     14
    1315  TDbColumn = class
    1416    Caption: string;
    … …  
    1618    Visible: Boolean;
    1719    Width: Integer;
     20    ControlType: TColumnControlType;
     21    ReferencedTable: string;
    1822  end;
    1923
    … …  
    2125
    2226  TListDbColumn = class(TListObject)
    23     procedure AddItem(Caption, Name: string; Visible: Boolean; Width: Integer);
     27    function AddItem(Caption, Name: string; Visible: Boolean; Width: Integer): TDbColumn;
    2428  end;
    2529
    … …  
    128132{ TListColumns }
    129133
    130 procedure TListDbColumn.AddItem(Caption, Name: string; Visible: Boolean;
    131   Width: Integer);
    132 var
    133   NewItem: TDbColumn;
    134 begin
    135   NewItem := TDbColumn.Create;
    136   NewItem.Caption := Caption;
    137   NewItem.Name := Name;
    138   NewItem.Visible := Visible;
    139   NewItem.Width := Width;
    140   Add(NewItem);
     134function TListDbColumn.AddItem(Caption, Name: string; Visible: Boolean;
     135  Width: Integer): TDbColumn;
     136begin
     137  Result := TDbColumn.Create;
     138  Result.Caption := Caption;
     139  Result.Name := Name;
     140  Result.Visible := Visible;
     141  Result.Width := Width;
     142  Add(Result);
    141143end;
    142144

  • trunk/Languages/ChronIS.cs.po

    r19 r20  
    1919msgstr "Číst nová data z terminálu"
    2020
    21 #: tform1.actionexit.caption
    22 msgctxt "tform1.actionexit.caption"
    23 msgid "Exit"
    24 msgstr "Ukončit"
    25 
    2621#: tform1.caption
     22#, fuzzy
     23#| msgid "Attendance"
    2724msgctxt "tform1.caption"
    28 msgid "Attendance"
     25msgid "Form1"
    2926msgstr "Docházka"
    30 
    31 #: tform1.menuitemsystem.caption
    32 msgctxt "tform1.menuitemsystem.caption"
    33 msgid "System"
    34 msgstr "Systém"
    35 
    36 #: tform1.tabsheetattendance.caption
    37 msgctxt "tform1.tabsheetattendance.caption"
    38 msgid "Attendance"
    39 msgstr "Docházka"
    40 
    41 #: tform1.tabsheetholidays.caption
    42 msgctxt "tform1.tabsheetholidays.caption"
    43 msgid "Holidays"
    44 msgstr "Svátky"
    45 
    46 #: tform1.tabsheetoperations.caption
    47 msgctxt "tform1.tabsheetoperations.caption"
    48 msgid "Operations"
    49 msgstr "Operace"
    50 
    51 #: tform1.tabsheetterminals.caption
    52 msgctxt "tform1.tabsheetterminals.caption"
    53 msgid "Terminals"
    54 msgstr "Terminály"
    55 
    56 #: tform1.tabsheetusers.caption
    57 msgctxt "tform1.tabsheetusers.caption"
    58 msgid "Users"
    59 msgstr "UÅŸivatelé"
    60 
    61 #: tform2.caption
    62 msgctxt "tform2.caption"
    63 msgid "Setting"
    64 msgstr "Nastavení"
    6527
    6628#: tformconnection.buttoncancel.caption
    … …  
    255217msgstr "Nastavení"
    256218
     219#: tformvirtualaccesscontroler.caption
     220msgid "Virtual Access Controler"
     221msgstr ""
     222
    257223#: uformedit.sitemnotfound
    258224msgid "Item not found"
    … …  
    572538msgstr "Rok"
    573539
     540#: umodulechiyuaccesscontrolers.schiyuaccesscontrolers
     541msgid "Chiyu Technology Access Controlers"
     542msgstr ""
     543

  • trunk/Languages/ChronIS.po

    r19 r20  
    88#: tdatamoduleattendance.areadfromterminal.hint
    99msgid "Read new data from terminal"
     10msgstr ""
     11
     12#: tform1.caption
     13msgid "Form1"
    1014msgstr ""
    1115
    … …  
    192196msgstr ""
    193197
     198#: tformvirtualaccesscontroler.caption
     199msgid "Virtual Access Controler"
     200msgstr ""
     201
    194202#: uformedit.sitemnotfound
    195203msgid "Item not found"
    … …  
    508516msgstr ""
    509517
     518#: umodulechiyuaccesscontrolers.schiyuaccesscontrolers
     519msgid "Chiyu Technology Access Controlers"
     520msgstr ""
     521

  • trunk/Modules/Attendance/UModuleAttendance.pas

    r19 r20  
    5252    procedure DoStart; override;
    5353    procedure DoStop; override;
     54    procedure DoInstall; override;
     55    procedure DoUninstall; override;
    5456  public
    5557    constructor Create(Owner: TComponent); override;
    … …  
    187189        ReferencedTable := 'User';
    188190      with AddItem(SOperation, 'Operation', ctReference, True, Bounds(1, 1, 1, 1)) do
    189         ReferencedTable := 'User';
     191        ReferencedTable := 'Operation';
    190192      with AddItem(STerminal, 'Terminal', ctReference, True, Bounds(3, 1, 1, 1)) do
    191         ReferencedTable := 'User';
     193        ReferencedTable := 'Terminal';
    192194    end;
    193195    Name := 'Passage';
    … …  
    283285      AddItem(SAddress, 'Address', True, 120);
    284286      AddItem(SPort, 'Port', True, 50);
    285       AddItem(SType, 'Type', True, 80);
     287      with AddItem(SType, 'Type', True, 80) do
     288        ReferencedTable := 'TerminalType';
    286289      AddItem(SNote, 'Note', True, 80);
    287290    end;
    … …  
    298301      AddItem(SAddress, 'Address', ctEdit, True, Bounds(1, 1, 1, 1));
    299302      AddItem(SPort, 'Port', ctSpinEdit, True, Bounds(3, 1, 1, 1));
    300       AddItem(SType, 'Type', ctComboBox, True, Bounds(1, 2, 1, 1));
     303      with AddItem(SType, 'Type', ctReference, True, Bounds(1, 2, 1, 1)) do
     304        ReferencedTable := 'TerminalType';
    301305      AddItem(SNote, 'Note', ctMemo, True, Bounds(0, 4, 4, 4), alTop);
    302306    end;
    … …  
    377381end;
    378382
     383procedure TModuleAttendance.DoInstall;
     384begin
     385  inherited DoInstall;
     386end;
     387
     388procedure TModuleAttendance.DoUninstall;
     389begin
     390  inherited DoUninstall;
     391end;
     392
    379393constructor TModuleAttendance.Create(Owner: TComponent);
    380394begin
Note: See TracChangeset for help on using the changeset viewer.