haentschman

Hi...

NOT with WITH:

with TFDQuery.Create(self) do

Hi...

Quote

Especially if I need a change, I'll make it in one place.

...+1

...nothing. 😎

Why you want to change?

Hi...😋

Quote

table

...not query?

Hi...😎

Quote

I must have an id field.... 

...always! Per table or better per database. 😉 Per database = the ID is complete unique.

id varchar(10) not null primary key,

... never string!

ID int not null primary key,

Hi...welcome here.

First:

Quote

data to an Access database

...why ACCESS and ADO? 🤢 ...😉

For the future: can you change the database? 😉

const ISQL = 'INSERT INTO JobCard (ID ,OrderNo ,JobName)  VALUES ( :ID :OrderNo, :JobName)';

...better than the ADD orgy. It is even better to store the SQL outside the "form" or "datamodule" as SQL file. 😉

Quote

I am a newbie

...i know. No problem. Learning by doing... 😉

Quote

On 11/3/2021 at 9:00 AM, Daniel said:  I gave the whole project to another MVP, I will ask about the progress.

Two month...What is the status? Which MVP?

Quote

at the moment it's the adaption to the high-dpi settings

Imho 10% uses high-dpi.

Quote

The code itself works

 ...make a version without high-dpi. All waiting! Please...

PS: why don't you publish it on github or something...?

Hi...😎

Quote

I am using Delphi 7 and BDE to make program

...which database?

👍

Remember: sometimes it is required to load the complete project, including DPR, DFM...then the ZIP format is your choice.

Background:  if the external server is closed, the thread here is incomplete.

Please at the next Thread:

Quote

Drag files here to attach, or choose files...

Attach files HERE...not at a external server

ZIP, PAS, PNG ... thats all what you want.

https://www.sqlmanager.net/products/ibfb/datapump

Hi...😎

once...https://dbeaver.io/

What tool do you have with Interbase?

Hi...

Quote

I have a Memo.Text

I hope this SQL is only for you in the development?

For editing SQL by users...have you heard of SQL Injection? https://en.wikipedia.org/wiki/SQL_injection

Hi...

 try
  aDatabase.Starttransaction;
  ...
  aDatabase.Commit
except
  on edatabaseerror do
  begin
    aDatabase.Rollback;
  end;
end; 

Please use the "Code Tags" </> 

Hi...

via SQL or code?

Quote

Mike wants to see the information in the RAD Studio IDE.

Everyone says no...but alternatives can solve the problem.

Hi...

Is it possible to use TortoiseGit instead of SoureTree? Since TortoiseGIT looks at the local repository, it can mark the current path.

Hi...

Quote

In the end, we changed to use MySql

...why? Why do you want to possibly fall into the license trap?

https://searchitchannel.techtarget.com/feature/Using-MySQL-licensing-Open-source-license-vs-commercial-license

https://www.mysql.com/de/products/

or

MyDAC / UniDAC without loading libmysql.dll (the dll is the problem)

info in german: https://entwickler-ecke.de/topic_libmysqldll+lizenz_68186,0.html

totally free databases: Firebird, PostgreSQL ...

Gladly...but the most important thing is not to resolve the variable in debugging mode.

FieldByName(Column).Value

...at the breakpoint...the debugger says:  Value = ???

Hi...

Sorry...but

Quote

 

with DataTable do

👿

once of many: https://stackoverflow.com/questions/71419/why-should-i-not-use-with-in-delphi

Hi...

how about:

Grid.DisableControls;
try

finally
  Grid.EnableControls;
end;

Hi...

[OT]

Quote

which uses .accdb databases

Why ACCESS? For sado/maso there are corresponding places...

If you want a simple and working database...u can use Firebird. Small and easy to install. Embedding and Server use.

https://www.firebirdsql.org/en/firebird-3-0/

[/OT]

...no ideas? 

Hi...

Quote

I created a test app

...then show us this thing...incl. database

Quote

There are no indexes, PK

...bad idea. You should always have a PK!

Quote

Contrary, I changed all of my "SQL.Add(s)" to "SQL.Text := s". Even if I construct query conditionally, I collect it first as variable and then assign it to SQL.

advertising

This is another way to manage SQL statements. The SQL are stored in separate files in a folder structure in the project. SQL can be tested in the preferred DBMS editor. 

Important: SQL Statements OUTSIDE of the Sourcecode (pas, dfm) in resources *.res. (without SQL.Add; SQL.Add; SQL.Add... ) 

Example:

...only 1 line for complete SQL.Text. 

function TDatabase.CreateDocument(Path: string): TDocument;
var
  Qry: TFDQuery;
  Document: TDocument;

  procedure FillDocument;
  begin
    // ! Achtung Reihenfolge wegen Properties die aus Vorhergehenden ermittelt werden
    Document := TDocument.Create;
    Document.State := sdsNormal;
    Document.ID := Qry.FieldByName('ID').AsInteger;

    Document.AddDate := Qry.FieldByName('AddDate').AsDateTime;
    Document.AddName := Qry.FieldByName('AddName').AsString;
    Document.AddYear := YearOf(Document.AddDate);
    Document.DocumentGroupString := Qry.FieldByName('DocumentGroupString').AsString;
    Document.DocumentTypeString := Qry.FieldByName('DocumentTypeString').AsString;
    Document.DocumentCaption := Qry.FieldByName('DocumentCaption').AsString;
    Document.DocumentChoice := TSEAMTools.GetDocumentChoiceType(Document.DocumentTypeString);
    Document.SendTypeFolder := Boolean(Qry.FieldByName('SendTypeFolder').AsInteger);
    Document.SendTypeUSB := Boolean(Qry.FieldByName('SendTypeUSB').AsInteger);
    Document.SendTypeMail := Boolean(Qry.FieldByName('SendTypeMail').AsInteger);
    Document.ReceiptDate := Qry.FieldByName('ReceiptDate').AsDateTime;
    Document.ServiceDate := Qry.FieldByName('ServiceDate').AsDateTime;
    Document.ReceiptNumber := Qry.FieldByName('ReceiptNumber').AsString;
    Document.ReceiptReceiver := Qry.FieldByName('ReceiptReceiver').AsString;
    Document.ReceiverReceiverName := Qry.FieldByName('ReceiverReceiverName').AsString;
    Document.Store := Qry.FieldByName('Store').AsString;
    Document.StoreName := Qry.FieldByName('StoreName').AsString;
    Document.StoreName_1 := Qry.FieldByName('StoreName_1').AsString;
    Document.StoreCountry := Qry.FieldByName('StoreCountry').AsString;
    Document.StorePostCode := Qry.FieldByName('StorePostCode').AsString;
    Document.StoreLocation := Qry.FieldByName('StoreLocation').AsString;
    Document.StoreStreet := Qry.FieldByName('StoreStreet').AsString;
    Document.ServicePartner := Qry.FieldByName('ServicePartner').AsString;
    Document.ModifiedDate := Qry.FieldByName('ModifiedDate').AsDateTime;
    Document.ModifiedName := Qry.FieldByName('ModifiedName').AsString;

    Document.OriginalFileName := Qry.FieldByName('OriginalFileName').AsString; // als Letztes wegen Setter
    Document.DocumentLocation := TTools.GetDocumentLocationType(Document.OriginalFileName);

    Result := Document;
  end;

begin
  Result := nil;

  Qry := CreateQuery;
  try
    // Pfad
    Qry.SQL.Text := GetSQLByName('SEAM_DOCUMENT_SELECT_PATH');
    Qry.ParamByName('FIN').AsString := Path;
    Qry.Open;

    if Qry.Eof then
    begin
      // Belegnummer
      Qry.SQL.Text := GetSQLByName('SEAM_DOCUMENT_SELECT_RECEIPT_NUMBER');
      Qry.ParamByName('REN').AsString := TToolsRegex.ExtractReceiptNumber(Path).Value;
      Qry.Open;

      if not Qry.Eof then
      begin
        FillDocument;
      end;
    end
    else
    begin
      FillDocument;
    end;
  finally
    Qry.Free;
  end;
end;