Changeset 20 for trunk/Application/UDataTypes.pas

Timestamp:

Jun 15, 2011, 11:11:59 AM (13 years ago)

Author:

george

Message:

• Added: Import relation one and many from existed database.

File:

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

trunk/Application/UDataTypes.pas

@@ -107 +107 @@
   end;
 
+  TDataTypeDateTime = class(TDataType)
+    Value: TDateTime;
+    Default: TDateTime;
+    Min: TDateTime;
+    Max: TDateTime;
+    function CreateControl(Owner: TComponent): TWinControl; override;
+    function GetControlValue(Control: TWinControl): string; override;
+    procedure SetupControl(Control: TWinControl); override;
+    procedure Load(CellValue: string); override;
+  end;
+
   { TDataTypeFloat }
 
@@ -147 +158 @@
     Result := TDataTypeDate.Create;
   end else
+  if BaseType = Integer(vtDateTime) then begin
+    Result := TDataTypeDateTime.Create;
+  end else
   if BaseType = Integer(vtFloat) then begin
     Result := TDataTypeFloat.Create;
@@ -168 +182 @@
   end;
   Result.CustomType := ACustomType;
+end;
+
+{ TDataTypeDateTime }
+
+function TDataTypeDateTime.CreateControl(Owner: TComponent): TWinControl;
+begin
+  Result := TDateEdit.Create(Owner);
+end;
+
+function TDataTypeDateTime.GetControlValue(Control: TWinControl): string;
+begin
+  Result := DateTimeToSQL(TDateEdit(Control).Date);
+end;
+
+procedure TDataTypeDateTime.SetupControl(Control: TWinControl);
+begin
+  TDateEdit(Control).Date := Value;
+end;
+
+procedure TDataTypeDateTime.Load(CellValue: string);
+begin
+  Value := SQLToDateTime(CellValue);
 end;