Search options (Page 9 of 15)

Unforgettable,

This means the entry is linked in two or more tables in your database. In other words you have  a table which contains all your items and then you have another table that uses an entry in that table as a foreign key, often the 'id' number.

Assuming your tables aren't corrupt, check which entry you are actually trying to delete, the foreign key in a table or the actual data.  You need to delete from all tables that the entry exists in starting with the foreign keys and then the main entry.

Check if you ticked  the 'Cascade Delete' option if you are using the inbuilt delete option.

See the attached picture.

You should receive an email with it in.

Мне очень интересны ваши курсы. Они только на русском или есть английские версии?

Ваш веб-сайт я использую Google переводчик, чтобы прочитать страницу.

I am very interested in your courses. Are they only in Russian or are there English versions?

Your website I am using google translate to read the page.

Hi eyeman303,

I'm sure Derek will be browsing through later,  but if you have downloaded Derek's example above, then all you have to do is build on it slightly.

There are two ways that spring to my mind, you can make a CASE statement (which is just a fancy and neater looking if...then...else) or an if..then...else.

procedure Form1_TableGrid1_OnChange (Sender: TObject);
var  vi, myValue: integer;
begin
  for vi := 0 to form1.tablegrid1.RowCount -1 do
    begin

     myValue := form1.tablegrid1.cell[4,vi].AsInteger;

      case myValue of

          11..20:    form1.tablegrid1.cell[4,vi].color := $0085E873;
       
           21..30:   form1.tablegrid1.cell[5,vi].color := $008080FF;

        end;
    end;
end;

Note I haven't tested the above.

У вас нет правильных кавычек.

You don't have the quotation marks correct.

See (.......... "2"')

Change /+ Изменить

"name_status_etalon_ks".id = 1 ORDER BY "date_status" DESC LIMIT 1');

To /к

"name_status_etalon_ks"."id = 1" ORDER BY "date_status" DESC LIMIT "1"');

unforgettable,

What you need is something along the lines below. I don't normally have a button, I tend to use an 'on_cell_click' event of a tablegrid, so you'll need to play around with the code below.

I'm sure there is an easier way, but it isn't springing to mind at the moment.

You need to set up a dataset and then use your next button to action the function dataset.next.

Here is some code:

procedure next(nextrow: integer);
var
  index,count : integer; //loop counter
 ds : TDataSet;   //dataset to read your database
begin
  
count := SQLExecute('SELECT count(*) FROM tablename); //get maximum rows in table

  SQLQuery('SELECT column(s)_you_want FROM table', ds); //read in your database and hold it in DS
 ds.first; // make sure you are at the beginning of the data

 for index := 0 to count-1 do
 begin
     //here you need an array a table grid or edit boxes whatever you are viewing the table in
  array[index] := ds.fFieldByName('a _field_in_your_database').asString;
 ds.next; // this is the bit you need to have in your button click
end;
ds.close;
end;

What you could do, is have the index increment in the button click event, and call your next procedure. In the procedure remove the for loop and pass in the index  parameter and then use 'nextRow'  instead if index above. In other words it would be array[nextRow] := .......  instead of array[index].

Sorry I'm a little unclear, I'm trying to get my project running some extra stuff for tomorrow and it is past 8pm here and I'm running out of time.

Ronin751,

Search for the code called DRAMA, it was posted here recently by someone whose name I can't locate (possibly DAZ) forgotten.  They have done exactly what you are looking for I believe.

Ищите код под названием DRAMA, он был недавно размещен здесь кем-то, чье имя я не могу найти (возможно, DAZ) забыли. Они сделали именно то, что вы ищете, я верю.

Translated by Google

I've just looked at MVDs Ping function and perhaps you don't have enough parameters.

It shows  Ping(string,boolean,Timeout)   and returns a boolean.

Perhaps you should try :  Ping('google.com', false, Timeout);   False means you aren't raising an exception on error and Timeout has a default of 1ms.

I think this post (in Russian) may have another answer for you and will solve your problem.

http://myvisualdatabase.com/forum/viewt … 076#p37076

Argonex,

I assume you are displaying the results in a table grid.  If I understand your question correclty, all you need to do is set the 'sort' option in the table grid settings, see my attached picture.

You might have to also write into the filter option GROUP BY OrderNo so you only see each item once.

I think to fully get where you want to be you are going to have to write your own SQL script, I'll have a think on that.

Just in case it is impossible to do what I'm hoping with the  TreeView component, I've temporarily added a table grid to the form.

[SOLVED] see bottom of post
For a reason I can't fathom, I'm unable to set row[0] to a text colour without clicking on the row. Making it bold on viewing works, it is just the text colour that doesn't show on view without clicking on it. I haven't tried placing a hidden button on the form and attach that to the font colour and then add a button click to the code below.

I'm now thinking I might make a tablegrid into a pseudo tree if my first post is impossible - that is row[0] displays as normal and then I make all subsequent rows move over by one column to the right or right align column[0].

The code that isn't automatically changing the font colour is below.

procedure Form1_TableGrid2_OnChange (Sender: TObject);
var
 iRow,iCol, NumCol : integer;
begin
  NumCol := form1.TableGrid2.Columns.Count -1;
  subOrdinateGrid;  //this formats the header and alignment
 // form1.TableGrid2.SetFocus;

  for iCol := 0 to NumCol do
  begin
    form1.TableGrid2.Cell[iCol,0].TextColor := clRed;
    form1.TableGrid2.Cell[iCol,0].FontStyle := fsBold
   
  end;
end;

*** The reason I couldn't get row[0] to show  a text colour without clicking was because elsewhere I had set the   TableGrid2.SelectRange to True for row[0].  Comment this code out and all works as expected.