pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fpspreadsheet: Extend db_export_import demo to show explicit conversion of a column to text format.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7315 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-01-24 11:45:25 +00:00
parent e8149045e9
commit 9e2424d40d
3 changed files with 27 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/fpspreadsheet/examples/db_import_export/db_export_import.lpi
View File

@ -1,11 +1,13 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="11"/>
<Version Value="12"/>
<PathDelim Value="\"/>
<General>
<Flags>
<CompatibilityMode Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="db_export_import"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>

4
components/fpspreadsheet/examples/db_import_export/main.lfm
View File

@ -8,7 +8,7 @@ object Form1: TForm1
ClientWidth = 521
OnCreate = FormCreate
OnDestroy = FormDestroy
LCLVersion = '1.9.0.0'
LCLVersion = '2.1.0.0'
object PageControl: TPageControl
Left = 4
Height = 302
@ -95,7 +95,7 @@ object Form1: TForm1
Left = 8
Height = 15
Top = 40
Width = 324
Width = 325
Caption = 'Please note: the binary xls files can handle only 65536 records.'
ParentColor = False
end

24
components/fpspreadsheet/examples/db_import_export/main.pas
View File

@ -55,6 +55,7 @@ type
FHeaderTemplateCell: PCell;
FDateTemplateCell: PCell;
FCurrencyTemplatecell: PCell;
FSocialSecurityTemplateCell: PCell;
FImportedFieldNames: TStringList;
FImportedRowCells: Array of TCell;
// Actual export code when using FPSpreadsheet's fpsexport:
@ -130,6 +131,15 @@ const
{ TForm1 }
function RandomNumberStr(ALength: Integer): String;
var
i: Integer;
begin
SetLength(Result, ALength);
for i := 1 to ALength do
Result[i] := char(ord('0') + Random(10));
end;
{ This procedure creates a test dbf table with random data for us to play with }
procedure TForm1.BtnCreateDatabaseClick(Sender: TObject);
var
@ -163,6 +173,7 @@ begin
FExportDataset.FieldDefs.Add('Last name', ftString);
FExportDataset.FieldDefs.Add('First name', ftString);
FExportDataset.FieldDefs.Add('City', ftString);
FExportDataset.FieldDefs.Add('Social sec', ftString);
FExportDataset.FieldDefs.Add('Birthday', ftDate);
FExportDataset.FieldDefs.Add('Salary', ftCurrency);
FExportDataset.FieldDefs.Add('Work begin', ftDateTime);
@ -196,6 +207,7 @@ begin
FExportDataset.FieldByName('Size').AsFloat := (160 + Random(50)) / 100;
FExportDataSet.FieldByName('Work begin').AsDateTime := 40000+EncodeTime(6+Random(4), Random(60), Random(60), 0);
FExportDataSet.FieldByName('Work end').AsDateTime := EncodeTime(15+Random(4), Random(60), Random(60), 0);
FExportDataSet.FieldByName('Social sec').AsString := RandomNumberStr(16);
FExportDataset.Post;
end;
@ -408,11 +420,12 @@ begin
Exporter.ExportFields.AddField('City');
Exporter.Execute;
// On the second sheet we want "Last name", "First name" and "Birthday"
// On the second sheet we want "Last name", "First name", "Birthday" and "Social security number"
Exporter.ExportFields.Clear;
Exporter.ExportFields.AddField('Last name');
Exporter.ExportFields.AddField('First name');
Exporter.ExportFields.AddField('Birthday');
Exporter.ExportFields.AddField('Social sec');
Exporter.Execute;
// On the third sheet we want "Last name", "First name" and "Income"
@ -538,6 +551,10 @@ begin
FCurrencyTemplateCell := worksheet.GetCell(0, 2);
worksheet.WriteNumberFormat(FCurrencyTemplateCell, nfCurrency);
// Use cell D1 as format template for social security number column
FSocialSecurityTemplatecell := worksheet.GetCell(0, 3);
worksheet.WriteNumberFormat(FSocialSecurityTemplateCell, nfText);
// Make rows a bit wider
worksheet.WriteColWidth(0, 20);
worksheet.WriteColWidth(1, 20);
@ -684,8 +701,9 @@ begin
if FExportDataset.Fields[ACol].DataType = ftDate then
AStyleCell := FDateTemplateCell
else if FExportDataset.Fields[ACol].DataType = ftCurrency then
AStyleCell := FCurrencyTemplateCell;
AStyleCell := FCurrencyTemplateCell
else if SameText(FExportDataset.Fields[ACol].FieldName, 'Social sec') then
AStyleCell := FSocialSecurityTemplateCell;
if ACol = Sender.VirtualColCount-1 then
begin
// Move to next record after last field has been written