Search options (Page 2 of 14)

There is a

form1.Canvas.Rectangle(X1,Y1,X2,Y2)

Hi,

I assume you had the mySQL server running?

What browser and version are you using?

Could you post a picture of the error?

I don't think it is, because the Pascal script doesn't appear to have direct access to Windows Handles.

Just a quick question, if you are wanting to save the image to the database, why aren't you using the dbImage component?

Using this would make your life much easier.

vanadu55,

You need to copy the following files to a folder on each client workstation in addition to your EXE file (Don't put them on the desktop).

1. Script folder containing just the dcu file.
2. Forms.xml .
3  sqlite3.dll .
4. Settings.ini
5. Any graphics.dll  if it exists +  image files if they exist.

Now you can either manually change the server path  to the database in the settings.ini file or install on one PC, run the program and then follow the dialogue prompts when your program can't find the database.  Once you have one settings.ini file set up, you can just copy that one to each PC.

Once that is done then you can place a shortcut on the desktops if you so wish.

Do you want the combobox to be hard coded or get the values from a table?

To hard code use this for example:

procedure frmRelationship_OnShow (Sender: TObject; Action: string);

begin
  

    frmRelationship.cmbRelationship.Items.Add('Sister');
    frmRelationship.cmbRelationship.Items.Add('Brother');
  
end;

Change frmRelationship  to your form name.

Change cmbRelationship to your combobox name.

Assuming the file link is not in a database and you just want to click on a button to open a file or folder, try

var
  fName :string;
 dir : TOpenDialog;

begin

    dir := TOpenDialog.Create(nil); {Creates and instance of TOpenDialog using dir as the variable}

    try
        
        fName := dir.files;   {Get the file name that is selected in the Open Dialog form}
        
        OpenFile(fName);  {This will open the file with whatever the default program is for the file}
     finally
      dir.Free;    {Free all the resources.
      
end;

There are many other options that can be used with both TOpenDialog and OpenFile. For example you can set a default folder to search, or a filter to only search for certain file types.  You can also if needed allow multiple selecting of files, but as the code above stands, the OpenFile function wouldn't work then.

Предполагая, что ссылка на файл отсутствует в базе данных, и вы просто хотите нажать кнопку, чтобы открыть файл или папку, попробуйте.

Есть много других опций, которые можно использовать как с TOpenDialog, так и с OpenFile. Например, вы можете установить папку по умолчанию для поиска или фильтр для поиска только определенных типов файлов. Вы также можете, если необходимо, разрешить множественный выбор файлов, но, как показывает приведенный выше код, функция OpenFile тогда не будет работать.

#13  =  the ASCII instruction to return the printing position to the beginning of the typed line.  This is what was known as a Carriage Return when using typewriters, and for programming can be seen  abbreviated as CR  in some texts.

Remove them from the code and see the difference in text positioning.

Unforgettable,

I think to keep things simple you should have two buttons for delete. One for a selected table and the other for all tables.

Are you sure that you want to actually delete tables and not just records?  Deleting a table cannot be undone.

You could have a check box which decides which button is visible or have the check box select two different forms one for each type of deletion.

As far as displaying messages this is what I do to delete an entry in a table. Note this is not deleting table but you can use the idea.

procedure frmEditOrderQty_btnFrmAmendDeleteRecord_OnClick (Sender: TObject; var Cancel: boolean);
 var
 text : string;
 btn :integer;
begin
    
  //Make a message string - from edit boxes of item selected
   text := 'ORDER ITEM '+#13#13 + frmEditOrderQty.edtfrmAmendDescription.Text +'  x '+ frmEditOrderQty.edtNewQty.Text;

//First warning message with a cancel and OK button showing. Click cancel allows you to not delete in case of making a mistake.
   btn := messageDlg('CONFIRM DELETION OF '+text,mtWarning, mbCancel+mbOK, 0);


//What to do if Cancel is selected - exit out of the code and close the form (in this case).
   if  btn  = mrCancel then
      Exit
   else
     begin
       SQLExecute('DELETE FROM orders WHERE orders.id =  "'+ intToStr(frmMain.tgOrders.dbItemID) +'"');

//Information message advising the record has been deleted.
       ShowMessage(#13#13 + text + ' has been DELETED' );
       frmMain.tgOrders.dbupdate
      end;
 

  frmEditOrderQty.Close;

end;

The SQL code needed to delete a table is SQLExecute('DROP your_table_name IF EXISTS');

The SQL code to delete all tables is more complicated, you actually might be better off by just issuing a command to delete the complete database file.

I'd recommend having a copy of your database file while you experiment with deleting tables. Also the above code needs to be changed slightly if your tables have foreign keys in them.