Jump to content

haentschman

Members
  • Content Count

    125
  • Joined

  • Last visited

  • Days Won

    4

haentschman last won the day on August 24

haentschman had the most liked content!

Community Reputation

64 Excellent

Technical Information

  • Delphi-Version
    Delphi 10.1 Berlin

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. haentschman

    Transactions

    Hi... try aDatabase.Starttransaction; ... aDatabase.Commit except on edatabaseerror do begin aDatabase.Rollback; end; end; Please use the "Code Tags" </>
  2. haentschman

    Interbase - Update & Select

    Hi... via SQL or code?
  3. haentschman

    Is it possible to see Git current working branch in IDE?

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

    Is it possible to see Git current working branch in IDE?

    Hi... Is it possible to use TortoiseGit instead of SoureTree? Since TortoiseGIT looks at the local repository, it can mark the current path.
  5. Hi... ...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 ...
  6. haentschman

    Locate

    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 = ???
  7. haentschman

    Locate

    Hi... Sorry...but 👿 once of many: https://stackoverflow.com/questions/71419/why-should-i-not-use-with-in-delphi
  8. Hi... how about: Grid.DisableControls; try finally Grid.EnableControls; end;
  9. Hi... [OT] 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]
  10. haentschman

    TortoiseGit Mantis Murtle

    ...no ideas?
  11. haentschman

    Delphi FireDAC .Post on Firebird table

    Hi... ...then show us this thing...incl. database ...bad idea. You should always have a PK!
  12. haentschman

    Help Understanding SQL Parameters Utilization

    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;
  13. haentschman

    Strange message from Seattle

    Hi... ...yes! wuppdi Welcome Page
  14. TQuery + TDatasource on TDataModule. Never on the form! ...it is not an answer of your question? ...that's why i'm out.
  15. I dont think so... update Documents set SendTypeUSB = :GES where OriginalFileName like :PAT ... Qry := CreateQuery; try case SendType of sdtFolder: Qry.SQL.Text := GetSQLByName('SEAM_WRITE_SEND_FOLDER_STATE'); end; Qry.ParamByName('GES').AsInteger := Integer(State); case ValueType of vatFileName: begin Qry.SQL.Add(GetSQLByName('SEAM_WRITE_SEND_WHERE_FILENAME_LIKE')); Qry.ParamByName('PAT').AsString := '%' + ExtractFileName(Value); end; ...it is working. TQuery + TDatasource on TDataModule. Never on the form!
×