unit SqliteComponentEditor;

Classes, SysUtils, FileUtil, LazFileUtils, LResources, Forms, Controls, Dialogs, StdCtrls,

Buttons, customsqliteds, ComponentEditors, LazarusPackageIntf, LazIdeIntf,

FieldsEditor, SqliteCompStrings;

{TSqliteEditor}

TSqliteEditor = class(TFieldsComponentEditor)

private

FVerbOffset: Integer;

public

procedure ExecuteVerb(Index: Integer); override;

function GetVerb(Index: Integer): string; override;

function GetVerbCount: Integer; override;

procedure Edit; override;

end;

{ TSqliteTableEditorForm }

TSqliteTableEditorForm = class(TForm)

butCreate: TButton;

butClose: TButton;

butAdd: TButton;

butDelete: TButton;

comboFieldType: TComboBox;

editFieldName: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

lblFilePath: TLabel;

listFields: TListBox;

DataSet: TCustomSqliteDataSet;

procedure FormCreate(Sender: TObject);

procedure LoadCurrentFields;

procedure FillComboValues;

procedure SetComboValue(AObject: TObject);

procedure SqliteTableEditorFormShow(Sender: TObject);

procedure butAddClick(Sender: TObject);

procedure butCancelClick(Sender: TObject);

procedure butDeleteClick(Sender: TObject);

procedure butOkClick(Sender: TObject);

procedure comboFieldTypeChange(Sender: TObject);

procedure editFieldNameEditingDone(Sender: TObject);

procedure listFieldsSelectionChange(Sender: TObject; User: boolean);

private

{ private declarations }

public

{ public declarations }

end;

db;

function StringListHasDuplicates(const List:TStrings):boolean;

i,j:Integer;

Result:=False;

for i := 0 to List.Count - 1 do

for j:= i+1 to List.Count - 1 do

if AnsiCompareText(List[i],List[j]) = 0 then

begin

Result:=True;

Exit;

end;

end;

procedure TSqliteEditor.ExecuteVerb(Index: Integer);

case Index - FVerbOffset of

0: Edit;

else

inherited ExecuteVerb(Index);

end;

end;

function TSqliteEditor.GetVerb(Index: Integer): string;

case Index - FVerbOffset of

0:

begin

Result := sCreateEditTable

end;

else

Result := inherited GetVerb(Index);

end;

end;

function TSqliteEditor.GetVerbCount: Integer;

FVerbOffset := inherited GetVerbCount;

Result := FVerbOffset + 1;

end;

procedure TSqliteEditor.Edit;

ADataSet:TCustomSqliteDataSet;

OldDir, ProjectDir:String;

ADataSet:=TCustomSqliteDataSet(GetComponent);

if ADataSet.Filename = '' then

begin

ShowMessage(sFileNameNotSetItSNotPossibleToCreateEditATable);

exit;

end;

if ADataSet.TableName = '' then

begin

ShowMessage(sTableNameNotSetItSNotPossibleToCreateEditATable);

exit;

end;

with TSqliteTableEditorForm.Create(Application) do

begin

try

// In case Filename is a relative one, change dir to project dir

// so the datafile will be created in the right place

OldDir := GetCurrentDirUTF8;

ProjectDir := ExtractFilePath (LazarusIDE.ActiveProject.MainFile.FileName);

if ProjectDir <> '' then

SetCurrentDirUTF8(ProjectDir);

Dataset := ADataset;

ShowModal;

finally

SetCurrentDirUTF8(OldDir);

Free;

end;

end;

end;

procedure TSqliteTableEditorForm.butAddClick(Sender: TObject);

//In the case there's no items

editFieldName.Enabled:=True;

comboFieldType.Enabled:=True;

listFields.Items.AddObject('AFieldName',TObject(ftString));

listFields.ItemIndex:=listFields.Items.Count-1;

editFieldName.Text:='AFieldName';

editFieldName.SetFocus;

end;

procedure TSqliteTableEditorForm.LoadCurrentFields;

OldSql:String;

OldActive:Boolean;

i:Integer;

with Dataset do

begin

OldSql:=Sql;

OldActive:=Active;

Sql:='Select * from '+TableName+' where 1 = 0';//dummy sql

Close;

Open;

for i:=0 to FieldDefs.Count - 1 do

listFields.Items.AddObject(FieldDefs[i].Name,

TObject(PtrInt(FieldDefs[i].DataType)));

listFields.ItemIndex:=0;

Sql:=OldSql;

Active:=OldActive;

end;

end;

procedure TSqliteTableEditorForm.FormCreate(Sender: TObject);

Label1.Caption := sFieldName;

Label2.Caption := sFieldType;

butCreate.Caption := sCreateTable;

butClose.Caption := sClose;

butAdd.Caption := sAdd;

butDelete.Caption := sDelete;

end;

procedure TSqliteTableEditorForm.FillComboValues;

with comboFieldType.Items do

begin

Clear;

AddObject('String',TObject(ftString));

AddObject('Integer',TObject(ftInteger));

AddObject('LargeInt',TObject(ftLargeInt));

AddObject('AutoInc',TObject(ftAutoInc));

AddObject('Word',TObject(ftWord));

AddObject('Float',TObject(ftFloat));

AddObject('Currency',TObject(ftCurrency));

AddObject('Boolean',TObject(ftBoolean));

AddObject('DateTime',TObject(ftDateTime));

AddObject('Date',TObject(ftDate));

AddObject('Time',TObject(ftTime));

AddObject('Memo',TObject(ftMemo));

end;

end;

procedure TSqliteTableEditorForm.SetComboValue(AObject: TObject);

AIndex:Integer;

AIndex:=comboFieldType.Items.IndexOfObject(AObject);

if AIndex <> -1 then

comboFieldType.ItemIndex:=AIndex

else

raise Exception.Create(sTableEditorFieldTypeNotRecognized);

end;

procedure TSqliteTableEditorForm.SqliteTableEditorFormShow(Sender: TObject);

FillComboValues;

if Dataset.TableExists then

begin

LoadCurrentFields;

end

else

begin

editFieldName.Enabled:=False;

comboFieldType.Enabled:=False;

end;

lblFilePath.Caption := Format(sFilePath, [ExpandFileNameUTF8(DataSet.FileName)]);

label3.caption := Format(sTableName, [DataSet.TableName]);

end;

procedure TSqliteTableEditorForm.butCancelClick(Sender: TObject);

Close;

end;

procedure TSqliteTableEditorForm.butDeleteClick(Sender: TObject);

AIndex: Integer;

AIndex:=listFields.ItemIndex;

if AIndex <> -1 then

begin

listFields.Items.Delete(AIndex);

if listFields.Items.Count = 0 then

begin

editFieldName.Text:='';

editFieldName.Enabled:=False;

comboFieldType.ItemIndex:=-1;

comboFieldType.Enabled:=False;

end

else

begin

if AIndex <> 0 then

listFields.ItemIndex:=Pred(AIndex)

else

listFields.ItemIndex:=AIndex;

end;

end;

end;

procedure TSqliteTableEditorForm.butOkClick(Sender: TObject);

i:Integer;

if listFields.Items.Count = 0 then

begin

ShowMessage(sNoFieldsAddedTableWillNotBeCreated);

Exit;

end;

if StringListHasDuplicates(listFields.Items) then

begin

ShowMessage(sItSNotAllowedFieldsWithTheSameName);

Exit;

end;

if Dataset.TableExists then

begin

if MessageDlg(Format(sATableNamedAlreadyExistsAreYouSureYouWantToReplace, [Dataset.TableName, LineEnding]),

mtWarning,[mbYes,mbNo],0) <> mrYes then

exit

else

DataSet.ExecSQL('DROP TABLE '+DataSet.TableName+';');

end;

with DataSet.FieldDefs do

begin

Clear;

for i:= 0 to listFields.Items.Count - 1 do

Add(listFields.Items[i],TFieldType(PtrInt(listFields.Items.Objects[i])));

end;

DataSet.CreateTable;

if Dataset.TableExists then

ShowMessage(sTableCreatedSuccessfully)

else

ShowMessage(sItWasNotPossibleToCreateTheTable);

end;

procedure TSqliteTableEditorForm.comboFieldTypeChange(Sender: TObject);

if listFields.ItemIndex <> -1 then

listFields.Items.Objects[listFields.ItemIndex]:=TObject(comboFieldType.Items.Objects[comboFieldType.ItemIndex]);

end;

procedure TSqliteTableEditorForm.editFieldNameEditingDone(Sender: TObject);

if listFields.ItemIndex <> -1 then

listFields.Items[listFields.ItemIndex]:=editFieldName.Text;

end;

procedure TSqliteTableEditorForm.listFieldsSelectionChange(Sender: TObject;

User: boolean);

if (listFields.ItemIndex <> -1) then

begin

editFieldName.Text:=listFields.Items[listFields.ItemIndex];

SetComboValue(listFields.Items.Objects[listFields.ItemIndex]);

end;

end;

end.