Posts by ProsTecnologia • 560 points
21 posts
-
1
votes1
answer23
viewsA: How to Disable a Tbuttongroup Item
I followed the code I found on a forum on this subject. basically it creates a class it inherits from (Tgrpbuttonitem) and adds the property Enabled. I honestly did not test... nor did I know of the…
-
1
votes1
answer57
viewsA: Close a form is closed all
I went through it some time ago and in my case the form02.Parent := form01; the OnKeyDown, OnKeyPress and OnKeyUp form02 did not work and went to the respective Form01 events then I put everything…
delphi-10answered ProsTecnologia 560 -
1
votes1
answer189
viewsQ: Construction CASE Firebird
I need to build a structure CASE in the SQL Firebird only you’re not accepting the way I’m doing. SELECT CONTAS_RECEBER.ID, CONTAS_RECEBER.DT_VENC, CONTAS_RECEBER.TIPO_OPERACAO,…
-
3
votes2
answers167
viewsA: With SQL query adding extra column that does not exist in table
Oops! See well you can put so in your query SELECT ORCAMENTO.ID AS CODIGO, ORCAMENTO.DATA_VENDA AS DATA_ORCAMENTO, CAST(NULL AS TIMESTAMP) AS DATA_VENDA, ORCAMENTO.VALOR_FINAL FROM ORCAMENTO LEFT…
firebirdanswered ProsTecnologia 560 -
1
votes1
answer36
viewsA: Handling of temporary text files
Opa Alright! Probably you cannot see the contents of the file because it is not saved. Old man you can do so, after Writeln(Arq,NomeMaquina); you close the file, it will save the text on disk. then…
delphi-10answered ProsTecnologia 560 -
1
votes1
answer132
viewsA: Breaks lines in creating the . pdf with Synpdf
Opa! I went through this a while ago and it turned out that I decided to do another way with the Synopse PDF engine. See if it helps you. In the Uses puts it like this: uses ... SynCommons, SynPdf,…
delphi-10answered ProsTecnologia 560 -
2
votes2
answers98
viewsA: Tdbgrid with Multiselect selected with one Click
Put it on so it’ll work. You simulate the ctrl + MouseClick. You develop your Code. You simulate the ctrl being released. Code: procedure TfrmPrincipal.GridCellClick(Column: TColumn); var…
-
1
votes1
answer264
viewsQ: How to move Form with Borderstyle in bsNone
How do I move the form after setting the property BorderStyle = bsNone? Because on the edges I can’t drag the form with the mouse.
-
2
votes1
answer985
viewsA: External exception C0000006
This message occurs when your system is started by the way (UNC) or when there is a mapping to a particular drive, both cases accessing Windows servers that use file control block (FCB) for all user…
-
1
votes2
answers375
viewsA: Format Date by Capitalizing the Month
I did it and it worked. follows the code. procedure TForm1.Button1Click(Sender: TObject); var S : string; Format: TFormatSettings; begin if MonthOf(Now) = 1 then Format.LongMonthNames[1] :=…
-
1
votes1
answer206
viewsA: Is there any way to hide the scrollbars from Tlistview?
I did so and it works the matter of disappearing with the scroll bars of TListView the problem is that with these commands you can scroll the items with the keyboard with the mouse does not work...…
delphi-10answered ProsTecnologia 560 -
2
votes1
answer344
viewsA: What is the difference between Collation UNICODE_CI_AI, UNICODE_CI and UNICODE
Collation (Collation) nothing more than the character encoding existing in the Database. There are settings for character sets and Collations (collations) on four levels: Server. Database. Table.…
-
3
votes2
answers2038
viewsA: SQL Insert with line break
Take a look at the Documentation of Firebird and seeing the response of @Pedro Cardoso --CHAR(13) - Quebra de Linha --CHAR(10) - Mudança de Linha DECLARE @texto NVARCHAR(100) SET @texto = 'Esta e a…
-
2
votes1
answer22
viewsA: Database Text does not appear in Tdbmemo
I don’t know for sure why it happens more to notice just delete the TFDtabel and the DataSource in Delphi and replace new and make all connections with the database and soon it will work…
-
1
votes2
answers398
viewsA: Exclusive access to a Chart in Firebird Got How?
I managed to do so: // Eu desativei o "AutoCommit" pois sem desativar não Funciona. DM.TFDConnection.TxOptions.AutoCommit := False; DM.TFDQuery.Close; DM.TFDQuery.SQL.Clear; // Trava a Linha da…
-
1
votes2
answers3700
viewsA: How to Format/Separate Date and Time from a sqlite datetime field
%Y is for years %m is for months and %d is for Days %H is for Hours %M is for Minutes and %S is for Seconds SELECT strftime('%Y-%m-%d',date) as data, strftime('%H:%M:%S', date) as hora FROM…
sqliteanswered ProsTecnologia 560 -
1
votes2
answers658
viewsA: How to optimize Firebird 3?
Has a list performance tips for the Firebird database, in different areas - from hardware/operating system, Firebird configuration tuning, to SQL optimization recommendations. This list is not a…
-
1
votes1
answer768
viewsQ: SQL Delete with Join, Union in Firebird
What would an Example of SQL Delete look like with Join or Union? I saw here in stackoverflow how to do in Mysql in sql Server more in Firebird I did not find or found in other forums. my SQL looked…
firebirdasked ProsTecnologia 560 -
3
votes1
answer135
viewsQ: Separate Letters from a string and add to a Combobox
Searching the web I found this function to returns the letters of the Hdds. function tbDriveLetters: string; { Uso: S := tbDriveLetters; - retorna 'ACD' se existir as unidades A:, C: e D: } var…
delphiasked ProsTecnologia 560 -
1
votes1
answer653
viewsQ: Problem with Delphi 10.1 + Firedac (Autopost)
I have a Procedure simple to save in database. In it I also made a control cases the mandatory fields are not filled in making the system avoid recording wrong data or missing information. However…
-
1
votes1
answer280
viewsQ: Dbgrid fields have Duplicate Text
I’m gonna put on the picture first to see if any of you know how to fix this. As you can see when the line is selected the testo is duplicated and prevents the visualization of information. I am…