Changeset 23 for trunk/Forms

Timestamp:

Nov 16, 2012, 1:26:29 PM (12 years ago)

Author:

chronos

Message:

• Přidáno: Rozpracovaná třídy pro komunikaci s přístupovým terminálem BF-630. Přiložen popis protokolu.

Location:

trunk/Forms

Files:

• UFormConnection.pas (modified) (1 diff)
• UFormList.lfm (modified) (2 diffs)
• UFormList.pas (modified) (5 diffs)
• UFormMain.pas (modified) (1 diff)

trunk/Forms/UFormConnection.pas

@@ -44 +44 @@
   EditHostName.Text := Database.HostName;
   EditUserName.Text := Database.UserName;
-  EditPassword.Text := '';
+  EditPassword.Text := Database.Password;
   EditSchema.Text := Database.Database;
 end;

trunk/Forms/UFormList.lfm

@@ -134 +134 @@
       Hint = 'Send to printer'
       ImageIndex = 6
+      OnExecute = APrintExecute
     end
     object AExport: TAction
@@ -342 +343 @@
     end
   end
+  object PrintPreview1: TPrintPreview
+    Zoom = 1
+    left = 240
+    top = 112
+  end
 end

trunk/Forms/UFormList.pas

@@ -8 +8 @@
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
   ActnList, Menus, StdCtrls, ExtCtrls, SpecializedList, USqlDatabase,
-  UListViewSort, UDataView, URegistry;
+  UListViewSort, UDataView, URegistry, UPrintPreview;
 
 type
@@ -61 +61 @@
     Panel1: TPanel;
     PopupMenu1: TPopupMenu;
+    PrintPreview1: TPrintPreview;
     ToolBar1: TToolBar;
     ToolButton1: TToolButton;
@@ -73 +74 @@
     procedure ADuplicateExecute(Sender: TObject);
     procedure AModifyExecute(Sender: TObject);
+    procedure APrintExecute(Sender: TObject);
     procedure AReloadExecute(Sender: TObject);
     procedure FormCreate(Sender: TObject);
@@ -171 +173 @@
 end;
 
+procedure TFormList.APrintExecute(Sender: TObject);
+begin
+  PrintPreview1.Preview;
+end;
+
 procedure TFormList.AReloadExecute(Sender: TObject);
 begin
@@ -277 +284 @@
     Filter := Filter + ', `' + Name + '`';
   end;
-  Core.Database.Query(DbRows, 'SELECT ' + Filter + ' FROM ' + View.Name);
+  if Core.Database.Connected then
+    Core.Database.Query(DbRows, 'SELECT ' + Filter + ' FROM ' + View.Name);
 
   ListView1.Items.Count := DbRows.Count;

trunk/Forms/UFormMain.pas

@@ -156 +156 @@
 begin
   UpdateInterface;
+  AConnect.Execute;
 end;