52th BR

52-DelphiCE-VCL/MeetingOrganizer/AppxManifest.template.xml

@@ -0,0 +1,36 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Package
+   xmlns="http://schemas.microsoft.com/appx/manifest/foundation/windows10"
+   xmlns:uap="http://schemas.microsoft.com/appx/manifest/uap/windows10"
+   xmlns:rescap="http://schemas.microsoft.com/appx/manifest/foundation/windows10/restrictedcapabilities">
+  <Identity Name="%projectName%"
+	ProcessorArchitecture="%processorArchitecture%"
+			Publisher="%publisher%"
+			Version="%version%" />
+  <Properties>
+    <DisplayName>%packageDisplayName%</DisplayName>
+    <PublisherDisplayName>%publisherDisplayName%</PublisherDisplayName>
+    <Description>%description%</Description>
+    <Logo>%logo%</Logo>
+  </Properties>
+  <Resources>
+    <Resource Language="%language%" />
+  </Resources>
+  <Dependencies>
+    <TargetDeviceFamily Name="Windows.Desktop" MinVersion="%minVersion%" MaxVersionTested="%maxVersionTested%" />
+  </Dependencies>
+  <Capabilities>
+    <rescap:Capability Name="runFullTrust" />
+  </Capabilities>
+  <Applications>
+    <Application Id="%programID%"
+				Executable="%executable%"
+				EntryPoint="Windows.FullTrustApplication">
+      <uap:VisualElements BackgroundColor="#464646"
+				DisplayName="%applicationDisplayName%"
+				Square150x150Logo="%applicationLogo150%"
+				Square44x44Logo="%applicationLogo44%"
+				Description="%applicationDescription%" />
+    </Application>
+  </Applications>
+</Package>

52-DelphiCE-VCL/MeetingOrganizer/MeetingOrganizer.dpr

@@ -0,0 +1,43 @@
+program MeetingOrganizer;
+
+uses
+  Vcl.Forms,
+  uAbstractControl in 'uAbstractControl.pas',
+  uAbstractForm in 'uAbstractForm.pas' {AbstractForm} ,
+  uAbstractDataModule
+    in 'uAbstractDataModule.pas' {AbstractDataModule: TDataModule} ,
+  uAbstractDataForm in 'uAbstractDataForm.pas' {AbstractDataForm} ,
+  uAbstractDataTabForm in 'uAbstractDataTabForm.pas' {AbstractDataTabForm} ,
+  uMainDM in 'uMainDM.pas' {MainDM: TDataModule} ,
+  uMainForm in 'uMainForm.pas' {MainForm} ,
+  uMeetingControl in 'uMeetingControl.pas',
+  uMeetingDM in 'uMeetingDM.pas' {MeetingDM: TDataModule} ,
+  uMeetingForm in 'uMeetingForm.pas' {MeetingForm} ,
+  uMeetingTimeRoomForm in 'uMeetingTimeRoomForm.pas' {MeetingTimeRoomForm} ,
+  uMsgControl in 'uMsgControl.pas',
+  uRecError in 'uRecError.pas' {ReconcileErrorForm} ,
+  uRoomControl in 'uRoomControl.pas',
+  uRoomDM in 'uRoomDM.pas' {RoomDM: TDataModule} ,
+  uRoomForm in 'uRoomForm.pas' {RoomForm} ,
+  uUserControl in 'uUserControl.pas',
+  uUserDM in 'uUserDM.pas' {UserDM: TDataModule} ,
+  uUserForm in 'uUserForm.pas' {UserForm} ,
+  uUserLoginForm in 'uUserLoginForm.pas' {UserLoginForm} ,
+  Vcl.Themes,
+  Vcl.Styles;
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.MainFormOnTaskbar := True;
+  Application.Title := '';
+  TStyleManager.TrySetStyle('Sapphire Kamri');
+  Application.CreateForm(TMainForm, MainForm);
+  Application.CreateForm(TMainDM, MainDM);
+  if TUserControl.GetInstance.DoUserLogin then
+    Application.Run
+  else
+    Application.Terminate;
+
+end.

52-DelphiCE-VCL/MeetingOrganizer/uAbstractControl.pas

@@ -0,0 +1,89 @@
+unit uAbstractControl;
+
+interface
+
+uses
+  Forms, SysUtils, Classes, Variants, FireDAC.Stan.Intf, FireDAC.Stan.Option,
+  FireDAC.Stan.Error, FireDAC.UI.Intf, FireDAC.Phys.Intf, FireDAC.Stan.Def,
+  FireDAC.Stan.Pool, FireDAC.Stan.Async, FireDAC.Phys, FireDAC.Comp.Client,
+  FireDAC.DBX.Migrate;
+
+const
+  MO_ExceptionMsg = 'Meeting Organizer Error: ' + #13;
+
+type
+  TAbstractControl = class(TComponent)
+  private
+    fDBConnection: TFDConnection;
+    procedure SetDBConnection(value: TFDConnection);
+    function GetDBConnection: TFDConnection;
+  public
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
+    procedure CreateDefaultDM; virtual; abstract;
+    procedure CreateDefaultForm; virtual; abstract;
+    property DBConnection: TFDConnection read GetDBConnection
+      write SetDBConnection;
+    function DataFormat(Data: Variant; DataType: Char): string;
+  end;
+
+implementation
+
+uses
+  uMainForm;
+
+{ TAbstractControl }
+
+constructor TAbstractControl.Create(AOwner: TComponent);
+begin
+  inherited Create(AOwner);
+  DBConnection := TMainForm(Application.MainForm).DBConnection;
+  CreateDefaultDM;
+end;
+
+destructor TAbstractControl.Destroy;
+begin
+  inherited Destroy;
+end;
+
+function TAbstractControl.GetDBConnection: TFDConnection;
+begin
+  Result := fDBConnection;
+end;
+
+procedure TAbstractControl.SetDBConnection(value: TFDConnection);
+begin
+  fDBConnection := value;
+end;
+
+function TAbstractControl.DataFormat(Data: Variant; DataType: Char): string;
+begin
+  if VarIsEmpty(Data) then
+  begin
+    Result := '';
+  end
+  else
+  begin
+    if DataType = 'C' then
+    begin
+      Result := #39 + Data + #39;
+    end
+    else if DataType = 'D' then
+    begin
+      Result := 'CAST(' + #39 + FormatDateTime('mm/dd/yyyy', VarToDateTime(Data)
+        ) + #39 + ' AS DATE)'
+    end
+    else if DataType = 'T' then
+    begin
+      Result := 'CAST(' + #39 + FormatDateTime('mm/dd/yyyy hh:nn:ss',
+        VarToDateTime(Data)) + #39 + ' AS TIMESTAMP)'
+    end
+    else if DataType = 'N' then
+    begin
+      Result := StringReplace(Result, '.', '', [rfReplaceAll]);
+      Result := StringReplace(Result, ',', '.', [rfReplaceAll]);
+    end;
+  end;
+end;
+
+end.