Changeset 3 for trunk/Forms/UFormRecords.pas

Timestamp:

Jan 18, 2015, 5:25:37 PM (9 years ago)

Author:

chronos

Message:

• Added: Support for editing String and DateTime value types in record edit form.

Location:

trunk

Files:

• . (modified) (1 prop)
• Forms/UFormRecords.pas (modified) (5 diffs)

trunk

@@ -3 +3 @@
 MyData.lps
 data.xml
+Config.xml

@@ -3 +3 @@
 MyData.lps
 data.xml
+Config.xml

trunk/Forms/UFormRecords.pas

@@ -31 +31 @@
     procedure ARemoveExecute(Sender: TObject);
     procedure FormShow(Sender: TObject);
+    procedure ListView1Data(Sender: TObject; Item: TListItem);
     procedure ListView1SelectItem(Sender: TObject; Item: TListItem;
       Selected: Boolean);
@@ -46 +47 @@
 implementation
 
+uses
+  UFormRecord;
+
 {$R *.lfm}
 
@@ -53 +57 @@
 begin
   Caption := 'Table - ' + Table.Name;
-  UpdateInterface;
+  ReloadList;
+end;
+
+procedure TFormRecords.ListView1Data(Sender: TObject; Item: TListItem);
+var
+  I: Integer;
+begin
+  if (Item.Index >= 0) and (Item.Index < Table.Records.Count) then
+  with TRecord(Table.Records[Item.Index]) do begin
+    for I := 0 to Table.Fields.Count - 1 do begin
+      if I = 0 then Item.Caption := TValue(Values[0]).GetString
+        else Item.SubItems.Add(TValue(Values[I]).GetString);
+    end;
+    Item.Data := Table.Records[Item.Index];
+  end
 end;
 
@@ -64 +82 @@
 procedure TFormRecords.AModifyExecute(Sender: TObject);
 begin
-
+  if Assigned(ListView1.Selected) then begin
+    FormRecord.Table := Table;
+    FormRecord.Load(TRecord(ListView1.Selected.Data));
+    if FormRecord.ShowModal = mrOk then begin
+      FormRecord.Save(TRecord(ListView1.Selected.Data));
+      ReloadList;
+    end;
+  end;
 end;
 
 procedure TFormRecords.ARemoveExecute(Sender: TObject);
 begin
-
+  if Assigned(ListView1.Selected) then begin
+    Table.Records.Remove(ListView1.Selected.Data);
+    ReloadList;
+  end;
 end;
 
 procedure TFormRecords.AAddExecute(Sender: TObject);
+var
+  NewRecord: TRecord;
+  ValueClass: TValueClass;
+  I: Integer;
+  NewValue: TValue;
 begin
+  NewRecord := TRecord.Create;
+  NewRecord.Parent := Table;
+  NewRecord.Values.Count := Table.Fields.Count;
+  for I := 0 to Table.Fields.Count - 1 do begin
+    ValueClass := TField(Table.Fields[I]).GetValueClass;
+    NewValue := ValueClass.Create;
+    NewRecord.Values[I] := NewValue;
+  end;
 
+  FormRecord.Table := Table;
+  FormRecord.Load(NewRecord);
+  if FormRecord.ShowModal = mrOk then begin
+    FormRecord.Save(NewRecord);
+    Table.Records.Add(NewRecord);
+    ReloadList;
+  end else NewRecord.Free;
 end;
 
@@ -84 +132 @@
 
 procedure TFormRecords.ReloadList;
+var
+  I: Integer;
+  NewColumn: TListColumn;
 begin
+  ListView1.Columns.Clear;
+  for I := 0 to Table.Fields.Count - 1 do begin
+    NewColumn := ListView1.Columns.Add;
+    NewColumn.Caption := TField(Table.Fields[I]).TextBefore;
+    NewColumn.Width := 200;
+  end;
+
   ListView1.Items.Count := Table.Records.Count;
   ListView1.Repaint;

@@ -3 +3 @@
 MyData.lps
 data.xml
+Config.xml