Changeset 6 for trunk/UFormMain.pas

Timestamp:

Mar 14, 2013, 9:24:41 PM (11 years ago)

Author:

chronos

Message:

• Přidáno: Okno s nastavením parametrů komunikace.
• Přidáno: Pamatování si nastavení voleb.
• Přidáno: Nyní lze stahovat nové operace, výpis dle časového rozmezí a měsíční výpisy.

File:

• trunk/UFormMain.pas (modified) (5 diffs)

trunk/UFormMain.pas

@@ -1 +1 @@
 unit UFormMain;
 
-{$mode objfpc}{$H+}
+{$mode delphi{$H+}
 
 interface
@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  ExtCtrls, Menus, ActnList, httpsend, UFioAPI;
+  ExtCtrls, Menus, ActnList, Spin, EditBtn, UFioAPI, URegistry, Registry,
+  DateUtils;
 
 type
@@ -14 +15 @@
 
   TFormMain = class(TForm)
-    ADownload: TAction;
+    ADownloadInterval: TAction;
+    ADownloadMonthly: TAction;
+    ASettings: TAction;
+    ADownloadNew: TAction;
     AExit: TAction;
     AShow: TAction;
     ActionList1: TActionList;
     Button1: TButton;
+    Button2: TButton;
+    Button3: TButton;
+    Button4: TButton;
+    Button5: TButton;
+    DateEditStart: TDateEdit;
+    DateEditTo: TDateEdit;
+    GroupBox1: TGroupBox;
+    GroupBox2: TGroupBox;
+    GroupBox3: TGroupBox;
     ImageList1: TImageList;
-    LabeledEdit1: TLabeledEdit;
-    Memo1: TMemo;
+    Label1: TLabel;
+    Label2: TLabel;
+    Label3: TLabel;
+    Label4: TLabel;
     MenuItem1: TMenuItem;
     MenuItem2: TMenuItem;
     PopupMenuTray: TPopupMenu;
+    SpinEditYear: TSpinEdit;
+    SpinEditId: TSpinEdit;
     TrayIcon1: TTrayIcon;
-    procedure ADownloadExecute(Sender: TObject);
+    procedure ADownloadIntervalExecute(Sender: TObject);
+    procedure ADownloadMonthlyExecute(Sender: TObject);
+    procedure ADownloadNewExecute(Sender: TObject);
     procedure AExitExecute(Sender: TObject);
+    procedure ASettingsExecute(Sender: TObject);
     procedure AShowExecute(Sender: TObject);
+    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
+    procedure FormCreate(Sender: TObject);
   private
     { private declarations }
   public
-    { public declarations }
+    RegistryContext: TRegistryContext;
+    Token: string;
+    Format: TFioDataFormat;
+    TargetDirectory: string;
+    ReportYear: Integer;
+    ReportId: Integer;
+    ReportTimeFrom: TDateTime;
+    ReportTimeTo: TDateTime;
+    procedure LoadInterface;
+    procedure SaveInterface;
+    procedure SaveToRegistry(Context: TRegistryContext);
+    procedure LoadFromRegistry(Context: TRegistryContext);
   end;
 
@@ -42 +75 @@
 {$R *.lfm}
 
+uses
+  UFormSettings;
+
+resourcestring
+  SDownloadNotSuccess = 'StaÅŸení nebylo úspěšné';
+
+
 { TFormMain }
 
@@ -49 +89 @@
 end;
 
+procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
+begin
+  SaveInterface;
+  SaveToRegistry(RegistryContext);
+end;
+
+procedure TFormMain.FormCreate(Sender: TObject);
+begin
+  RegistryContext := RegContext(HKEY_CURRENT_USER, '\Software\Chronosoft\FioInfo');
+  LoadFromRegistry(RegistryContext);
+  LoadInterface;
+end;
+
+procedure TFormMain.LoadInterface;
+begin
+  DateEditStart.Date := ReportTimeFrom;
+  DateEditTo.Date := ReportTimeTo;
+  SpinEditYear.Value := ReportYear;
+  SpinEditId.Value := ReportId;
+end;
+
+procedure TFormMain.SaveInterface;
+begin
+  ReportTimeFrom := DateEditStart.Date;
+  ReportTimeTo := DateEditTo.Date;
+  ReportYear := SpinEditYear.Value;
+  ReportId := SpinEditId.Value;
+end;
+
+procedure TFormMain.SaveToRegistry(Context: TRegistryContext);
+begin
+  with TRegistryEx.Create do
+  try
+    RootKey := Context.RootKey;
+    OpenKey(Context.Key, True);
+    WriteString('TargetDir', TargetDirectory);
+    WriteInteger('DataFormat', Integer(Format));
+    WriteString('Token', Token);
+    WriteDate('ReportTimeFrom', ReportTimeFrom);
+    WriteDateTime('ReportTimeTo', ReportTimeTo);
+    WriteInteger('ReportYear', ReportYear);
+    WriteInteger('ReportId', ReportId);
+  finally
+    Free;
+  end;
+end;
+
+procedure TFormMain.LoadFromRegistry(Context: TRegistryContext);
+begin
+  with TRegistryEx.Create do
+  try
+    RootKey := Context.RootKey;
+    OpenKey(Context.Key, True);
+    TargetDirectory := ReadStringWithDefault('TargetDir', ExtractFileDir(Application.ExeName));
+    Format := TFioDataFormat(ReadIntegerWithDefault('DataFormat', Integer(dfXML)));
+    Token := ReadStringWithDefault('Token', '');
+    ReportTimeFrom := ReadDateTimeWithDefault('ReportTimeFrom', Now);
+    ReportTimeTo := ReadDateTimeWithDefault('ReportTimeTo', Now);
+    ReportYear := ReadIntegerWithDefault('ReportYear', YearOf(Now));
+    ReportId := ReadIntegerWithDefault('ReportId', MonthOf(Now));
+  finally
+    Free;
+  end;
+end;
+
 procedure TFormMain.AExitExecute(Sender: TObject);
 begin
-  Application.Terminate;
-end;
-
-procedure TFormMain.ADownloadExecute(Sender: TObject);
+  Close;
+end;
+
+procedure TFormMain.ASettingsExecute(Sender: TObject);
+begin
+  FormSettings.Load;
+  if FormSettings.ShowModal = mrOk then begin
+    FormSettings.Save;
+    SaveToRegistry(RegistryContext);
+  end;
+end;
+
+procedure TFormMain.ADownloadNewExecute(Sender: TObject);
 var
   FioAPI: TFioAPI;
+  List: TStringList;
 begin
   FioAPI := TFioAPI.Create;
-  try
-    FioAPI.Token := LabeledEdit1.Text;
-    FioAPI.Format := 'xml';
-    FioAPI.DownloadInterval(EncodeDate(2013, 03, 01), EncodeDate(2013, 03, 14),
-      Memo1.Lines);
+  List := TStringList.Create;
+  try
+    FioAPI.Format := Format;
+    FioAPI.Token := Token;
+    if FioAPI.DownloadLast(List) then begin
+      List.SaveToFile('VÃœpis ' + FormatDateTime('yyyy-mm-dd hh-nn-ss', Now) +
+        ExtensionSeparator + DataFormatURL[FioAPI.Format]);
+    end else ShowMessage(SDownloadNotSuccess);
   finally
     FioAPI.Free;
+    List.Free;
+  end;
+end;
+
+procedure TFormMain.ADownloadMonthlyExecute(Sender: TObject);
+var
+  FioAPI: TFioAPI;
+  List: TStringList;
+begin
+  FioAPI := TFioAPI.Create;
+  List := TStringList.Create;
+  try
+    FioAPI.Format := Format;
+    FioAPI.Token := Token;
+    if FioAPI.DownloadMonthly(SpinEditYear.Value, SpinEditId.Value, List) then begin
+      List.SaveToFile('VÃœpis měsíční ' + IntToStr(SpinEditYear.Value) +
+        '-' + IntToStr(SpinEditId.Value) +
+        ExtensionSeparator + DataFormatURL[FioAPI.Format]);
+    end else ShowMessage(SDownloadNotSuccess);
+  finally
+    FioAPI.Free;
+    List.Free;
+  end;
+end;
+
+procedure TFormMain.ADownloadIntervalExecute(Sender: TObject);
+var
+  FioAPI: TFioAPI;
+  List: TStringList;
+begin
+  FioAPI := TFioAPI.Create;
+  List := TStringList.Create;
+  try
+    FioAPI.Format := Format;
+    FioAPI.Token := Token;
+    if FioAPI.DownloadInterval(DateEditStart.Date, DateEditTo.Date, List) then begin
+      List.SaveToFile('VÃœpis ' + FormatDateTime('yyyy-mm-dd', DateEditStart.Date) +
+        ' ' + FormatDateTime('yyyy-mm-dd', DateEditTo.Date) +
+        ExtensionSeparator + DataFormatURL[FioAPI.Format]);
+    end else ShowMessage(SDownloadNotSuccess);
+  finally
+    FioAPI.Free;
+    List.Free;
   end;
 end;