Difference between revisions of "JCSV (Jans CSV Components)"
(11 intermediate revisions by 5 users not shown) | |||
Line 1: | Line 1: | ||
=== About === | === About === | ||
''JCSV (Jans Freeware CSV Database Components'' is a set of components for using a CSV Database | ''JCSV (Jans Freeware CSV Database Components'' is a set of components for using a CSV Database | ||
− | |||
The download contains the component, an installation package. | The download contains the component, an installation package. | ||
− | |||
− | |||
=== Author === | === Author === | ||
Line 16: | Line 13: | ||
=== Download === | === Download === | ||
The latest stable release can be found on [http://sourceforge.net/projects/lazarus-ccr/files/JCSV/ the lazarus-ccr sf download location]. | The latest stable release can be found on [http://sourceforge.net/projects/lazarus-ccr/files/JCSV/ the lazarus-ccr sf download location]. | ||
− | + | Also from [http://www.users.on.net/~dave.stewart/index.html David's Freeware]. | |
===Example Program=== | ===Example Program=== | ||
Line 24: | Line 21: | ||
[[Image:Example.png]] | [[Image:Example.png]] | ||
− | + | You can search on any field by using the search button in the navigator. as shown in the images below. | |
+ | |||
+ | [[Image:Csv.png]] | ||
+ | |||
+ | [[Image:Csv1.png]] | ||
+ | |||
+ | [[Image:Csv2.png]] | ||
+ | |||
+ | The example code is listed below also. | ||
+ | |||
+ | <syntaxhighlight lang=pascal> | ||
+ | uses | ||
+ | Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs, | ||
+ | StdCtrls, jvCSVBase; | ||
+ | |||
+ | type | ||
+ | |||
+ | { TForm1 } | ||
+ | |||
+ | TForm1 = class(TForm) | ||
+ | Button1: TButton; | ||
+ | CSVBase: TjvCSVBase; | ||
+ | jvCSVCheckBox1: TjvCSVCheckBox; | ||
+ | jvCSVComboBox1: TjvCSVComboBox; | ||
+ | jvCSVEdit1: TjvCSVEdit; | ||
+ | jvCSVEdit2: TjvCSVEdit; | ||
+ | jvCSVEdit3: TjvCSVEdit; | ||
+ | jvCSVEdit4: TjvCSVEdit; | ||
+ | jvCSVEdit5: TjvCSVEdit; | ||
+ | jvCSVEdit6: TjvCSVEdit; | ||
+ | jvCSVEdit7: TjvCSVEdit; | ||
+ | jvCSVEdit8: TjvCSVEdit; | ||
+ | jvCSVEdit9: TjvCSVEdit; | ||
+ | jvCSVLabel1: TjvCSVLabel; | ||
+ | jvCSVNavigator1: TjvCSVNavigator; | ||
+ | Label1: TLabel; | ||
+ | Label2: TLabel; | ||
+ | Label3: TLabel; | ||
+ | Label4: TLabel; | ||
+ | procedure Button1Click(Sender: TObject); | ||
+ | procedure FormShow(Sender: TObject); | ||
+ | private | ||
+ | { private declarations } | ||
+ | public | ||
+ | { public declarations } | ||
+ | end; | ||
+ | |||
+ | var | ||
+ | Form1: TForm1; | ||
+ | |||
+ | implementation | ||
+ | |||
+ | { TForm1 } | ||
+ | |||
+ | procedure TForm1.FormShow(Sender: TObject); | ||
+ | begin | ||
+ | CSVbase.DataBaseOpen(ExtractFilePath(ParamStr(0))+'example.csv'); | ||
+ | end; | ||
+ | |||
+ | procedure TForm1.Button1Click(Sender: TObject); | ||
+ | begin | ||
+ | jvCSVEdit8.Caption:= FormatDateTime('dd/mm/yy',now); | ||
+ | end; | ||
+ | |||
+ | initialization | ||
+ | {$I Unit1.lrs} | ||
+ | |||
+ | end.</syntaxhighlight> | ||
=== Change Log === | === Change Log === | ||
Line 39: | Line 103: | ||
=== Installation === | === Installation === | ||
* Use *.lpk file to install | * Use *.lpk file to install | ||
+ | |||
+ | === See Also === | ||
+ | |||
+ | *[[CsvDocument]] | ||
+ | *[[CSV]] | ||
+ | *[[ZMSQL]] | ||
+ | |||
+ | [[Category:Components]] | ||
+ | [[Category:Data import and export]] |
Latest revision as of 20:54, 10 February 2020
About
JCSV (Jans Freeware CSV Database Components is a set of components for using a CSV Database
The download contains the component, an installation package.
Author
Jan Verhoeven Email jan1.verhoeven at wxs.nl Modified by David Stewart Email davesimplewear at yahoo dot com
License
modified LGPL (same as the FPC RTL and the Lazarus LCL). You can contact the author if the modified LGPL doesn't work with your project licensing.
Download
The latest stable release can be found on the lazarus-ccr sf download location. Also from David's Freeware.
Example Program
To create the example first create your csv database, using your text editor type the field names you wish to use, as in the image below.
You can search on any field by using the search button in the navigator. as shown in the images below.
The example code is listed below also.
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
StdCtrls, jvCSVBase;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
CSVBase: TjvCSVBase;
jvCSVCheckBox1: TjvCSVCheckBox;
jvCSVComboBox1: TjvCSVComboBox;
jvCSVEdit1: TjvCSVEdit;
jvCSVEdit2: TjvCSVEdit;
jvCSVEdit3: TjvCSVEdit;
jvCSVEdit4: TjvCSVEdit;
jvCSVEdit5: TjvCSVEdit;
jvCSVEdit6: TjvCSVEdit;
jvCSVEdit7: TjvCSVEdit;
jvCSVEdit8: TjvCSVEdit;
jvCSVEdit9: TjvCSVEdit;
jvCSVLabel1: TjvCSVLabel;
jvCSVNavigator1: TjvCSVNavigator;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
procedure Button1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{ TForm1 }
procedure TForm1.FormShow(Sender: TObject);
begin
CSVbase.DataBaseOpen(ExtractFilePath(ParamStr(0))+'example.csv');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
jvCSVEdit8.Caption:= FormatDateTime('dd/mm/yy',now);
end;
initialization
{$I Unit1.lrs}
end.
Change Log
- Version 1.0 date
Dependencies / System Requirements
- None
Status: Stable / Alpha
Issues:
Installation
- Use *.lpk file to install