Difference between revisions of "JCSV (Jans CSV Components)"
Line 23: | Line 23: | ||
[[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. | ||
+ | |||
+ | 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. | ||
+ | |||
Example of JCSV can be found at [http://sourceforge.net/projects/lazarus-ccr/files/Demos The Lazarus -ccr sf download location]. | Example of JCSV can be found at [http://sourceforge.net/projects/lazarus-ccr/files/Demos The Lazarus -ccr sf download location]. |
Revision as of 01:05, 20 September 2009
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.
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.
Example of JCSV can be found at The Lazarus -ccr sf download location.
Change Log
- Version 1.0 date
Dependencies / System Requirements
- None
Status: Stable / Alpha
Issues:
Installation
- Use *.lpk file to install