Changeset 15 for trunk/Application/UDataTypes.pas

Timestamp:

Jun 13, 2011, 8:25:31 AM (13 years ago)

Author:

george

Message:

• Modified: USqlDatabase used from CoolWeb package.
• Added: Store item data to database for Add and Edit dialog.

Location:

trunk

Files:

• . (modified) (1 prop)
• Application/UDataTypes.pas (modified) (12 diffs)

trunk

@@ -4 +4 @@
 heaptrclog.trc
 chronis.exe
+DebugLog.txt

@@ -4 +4 @@
 heaptrclog.trc
 chronis.exe
+DebugLog.txt

trunk/Application/UDataTypes.pas

@@ -16 +16 @@
     function CreateControl(Owner: TComponent): TWinControl; virtual;
     procedure SetupControl(Control: TWinControl); virtual;
+    function GetControlValue(Control: TWinControl): string; virtual;
     procedure Load(CellValue: string); virtual;
     procedure LoadDef(CustomType: Integer); virtual;
@@ -30 +31 @@
     function CreateControl(Owner: TComponent): TWinControl; override;
     procedure SetupControl(Control: TWinControl); override;
+    function GetControlValue(Control: TWinControl): string; override;
     procedure Load(CellValue: string); override;
     procedure LoadDef(CustomType: Integer); override;
@@ -42 +44 @@
     function CreateControl(Owner: TComponent): TWinControl; override;
     procedure SetupControl(Control: TWinControl); override;
+    function GetControlValue(Control: TWinControl): string; override;
     procedure Load(CellValue: string); override;
   end;
@@ -62 +65 @@
     Default: Boolean;
     function CreateControl(Owner: TComponent): TWinControl; override;
+    function GetControlValue(Control: TWinControl): string; override;
     procedure SetupControl(Control: TWinControl); override;
     procedure Load(CellValue: string); override;
@@ -83 +87 @@
     Max: TDateTime;
     function CreateControl(Owner: TComponent): TWinControl; override;
+    function GetControlValue(Control: TWinControl): string; override;
     procedure SetupControl(Control: TWinControl); override;
     procedure Load(CellValue: string); override;
@@ -95 +100 @@
     Max: Double;
     function CreateControl(Owner: TComponent): TWinControl; override;
+    function GetControlValue(Control: TWinControl): string; override;
     procedure SetupControl(Control: TWinControl); override;
     procedure Load(CellValue: string); override;
@@ -185 +191 @@
 end;
 
+function TDataTypeFloat.GetControlValue(Control: TWinControl): string;
+begin
+  Result := MySQLFloatToStr(TFloatSpinEdit(Control).Value);
+end;
+
 procedure TDataTypeFloat.SetupControl(Control: TWinControl);
 begin
@@ -202 +213 @@
 end;
 
+function TDataTypeDate.GetControlValue(Control: TWinControl): string;
+begin
+  Result := DateTimeToSQL(TDateEdit(Control).Date);
+end;
+
 procedure TDataTypeDate.SetupControl(Control: TWinControl);
 begin
@@ -217 +233 @@
 begin
   Result := TCheckBox.Create(Owner);
+end;
+
+function TDataTypeBoolean.GetControlValue(Control: TWinControl): string;
+begin
+  Result := IntToStr(Integer(TCheckBox(Control).Checked));
 end;
 
@@ -242 +263 @@
 end;
 
+function TDataTypeNumber.GetControlValue(Control: TWinControl): string;
+begin
+  Result := IntToStr(TSpinEdit(Control).Value);
+end;
+
 procedure TDataTypeNumber.Load(CellValue: string);
 begin
@@ -265 +291 @@
 end;
 
+function TDataTypeString.GetControlValue(Control: TWinControl): string;
+begin
+  Result := TEdit(Control).Text;
+end;
+
 procedure TDataTypeString.Load(CellValue: string);
 begin
@@ -282 +313 @@
 end;
 
+function TDataType.GetControlValue(Control: TWinControl): string;
+begin
+
+end;
+
 procedure TDataType.Load(CellValue: string);
 begin

@@ -4 +4 @@
 heaptrclog.trc
 chronis.exe
+DebugLog.txt