Changeset 21 for trunk/Application

Timestamp:

Jun 16, 2011, 10:32:01 AM (13 years ago)

Author:

george

Message:

• Added: Item selection form for TypeRelationOne.
• Modified: Primary keys have to have their property record for each object.
• Added: Object propery havet to be initialized with Editable flag.

File:

• trunk/Application/UDataTypes.pas (modified) (7 diffs)

trunk/Application/UDataTypes.pas

@@ -18 +18 @@
     function GetControlValue(Control: TWinControl): string; virtual;
     procedure Load(CellValue: string); virtual;
-    procedure LoadDef(CustomType: Integer); virtual;
+    procedure LoadDef(ACustomType: Integer); virtual;
     procedure SetDefault; virtual;
     function GetStringValue: string; virtual;
@@ -74 +74 @@
 
   TDataTypeRelationOne = class(TDataType)
+  private
+    procedure ButtonClickExecute(Sender: TObject);
+  public
     ObjectId: Integer;
     SelectedItemName: string;
@@ -79 +82 @@
     procedure SetupControl(Control: TWinControl); override;
     procedure Load(CellValue: string); override;
+    procedure LoadDef(ACustomType: Integer); override;
   end;
 
@@ -137 +141 @@
 
 uses
-  USqlDatabase, USystem, UCore;
+  USqlDatabase, USystem, UCore, UItemSelect;
 
 function GetDataType(ACustomType: Integer): TDataType;
@@ -247 +251 @@
 { TDataTypeRelationOne }
 
+procedure TDataTypeRelationOne.ButtonClickExecute(Sender: TObject);
+begin
+  ItemSelectForm.ObjectId := ObjectId;
+  ItemSelectForm.ShowModal;
+end;
+
 function TDataTypeRelationOne.CreateControl(Owner: TComponent): TWinControl;
 begin
-  Result := TEdit.Create(Owner);
-  TEdit(Result).Enabled := False;
+  Result := TEditButton.Create(Owner);
+  TEditButton(Result).Enabled := False;
+  TEditButton(Result).Button.Enabled := True;
+  TEditButton(Result).Button.OnClick := ButtonClickExecute;
 end;
 
 procedure TDataTypeRelationOne.SetupControl(Control: TWinControl);
 begin
-  TEdit(Control).Text := SelectedItemName;
+  TEditButton(Control).Text := SelectedItemName;
 end;
 
@@ -261 +273 @@
 begin
   SelectedItemName := CellValue;
+end;
+
+procedure TDataTypeRelationOne.LoadDef(ACustomType: Integer);
+var
+  DbRows: TDbRows;
+begin
+  try
+    DbRows := TDbRows.Create;
+    Core.System.Database.Select(DbRows, TypeRelationOne, '*', 'CustomType=' + IntToStr(ACustomType));
+    ObjectId := StrToInt(DbRows[0].Values['Object']);
+  finally
+    DbRows.Free;
+  end;
 end;
 
@@ -420 +445 @@
 end;
 
-procedure TDataType.LoadDef(CustomType: Integer);
+procedure TDataType.LoadDef(ACustomType: Integer);
 begin