Search options (Page 18 of 18)

I'm not sure I fully understand what you want to achieve.

Are you saying that you need to query a table from a reference on another table ?

If that is so, you need to use an INNER JOIN .. ON.. statment in your SQL query.
Here is a good example : INNER JOIN

It's a bit tricky you are right but fun ! If the example does not help you, give more details and I'll try to help you

Have a good day

Mathias

I created a blank projet with just Form1, Edit1 and a Checkbox1

When I enter some text in the Edit1, the checkbox is automaticaly checked, and when I empty the Edit1, the checkbox unchecks. It works for me with this code :

procedure Form1_Edit1_OnChange (Sender: string);
begin
    if Form1.Edit1.Text<>'' then
    Form1.CheckBox1.Checked:=True
    else
    Form1.CheckBox1.Checked:=False;
end;

Project is attached

Have a good day

Mathias

PS : Version si 1.49

Hello Dmitry,

I'd love to see the TWebBrowser Class implemented in an upcoming version, that would be great !

Nice tool :-)

Mathias

Là tu aiguises ma curiosité, mais tu as du oublier le petit détail suivant :

procedure Form1_Connaissance_Language (Sender: string);
var code: string;
    begin
        code := Form1.ComboBox1.Text;
        if (code) := 'PHP' then
        begin
        Form1.Edit1.Text:= 'Se débrouille pas mal';
        end;
        if (code) := 'Delphi' then
        begin
        Form1.Edit1.Text:= 'Grand débutant';
        end;
    end;

Je ne te ferai pas l'affront de traduire

Hello,

With a name like yours, I bet you are french, so I'll take the chance and write in french.
If you are not, I'll translate to english

Tout d'abord, je ne suis qu'un amateur et aucunement membre de ce projet. Je me dérouille en PHP mais je découvre le Delphi alors...

J'ai regardé ton projet, et je pense que tu vas avoir du mal à accomplir ce que tu souhaites avec tes cases à cocher ET sans utiliser des conditions.

Ton script précise quoi faire si une case est cochée, mais pas quoi faire dans les autres cas.

Pour commencer, voici la liste des conditions à tester pour couvrir tous les cas possibles : tu as 2 cases à cocher avec 2 états possibles pour chacune, ce qui te donne un total de 4 combinaisons à tester :

• fumer coché et non-fumer non coché

• fumeur non coché et non-fumeur coché

• fumeur non coché et non-fumeur non coché

• fumeur cochéet non-fumeur coché

Pour te simplifier la vie, je mettrais des menus déroulants à la place des cases à cocher, en faisant un test sur le contenu (ComboBox.Text) plutôt que sur l'état de tes cases.

J'ai fais vite fait un petit projet pour toi mais pas le tiens (sinon ce n'est pas drôle hein ?) dans lequel on saisit des contacts en précisant leur sexe :

• au moment de la saisie, sélectionner un genre dans le menu déroulant affiche l'image correspondante dans la fiche

• ensuite, en double cliquant dans la grille (mode édition), les images s'adaptent au genre de la personne

• j'ai aussi couvert le cas où le sexe n'est pas précisé, mais cela ne me fait toujours que 3 cas à tester, au lieu des 4 avec tes cases

Jette un oeil, en espérant que cela t'aide.

NOTE 1 : j'ai essayé de faire en sorte que l'image s'affiche à la simple sélection de la ligne dans la grille (simple clic au lieu de double), mais je me creuse encore la tête la dessus.

NOTE 2 : La version utilisée est la 1.49

A bientôt

Math