Discussion :

[kroma23]

salut
jai une table amie(numero,nom,loisire);
jai poser 3 checkebox dans ma form,le premier contient le mot 'sport' le deusieme contient 'cinema' le troisieme 'music'.
alors le champs loisire il va contenire ce que je coche,par exemple si je coche sport et cinema le champ loisire va contenire sport,cinema..etc
mon probleme je c pas comment faire cette procedure,est ce que vous pouvez m'aider svp

[Tardiff Jean-François]

Bonjour,

Si vous désirez tester si une table est modifiable tester le state de celle ci.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
// si pas d'enregistrement existant --> création
if Datasource.RecordCount = 0 then
  Datasosurce.Insert;
 
// si enregistrement non modificable (non en edit ou insertion) --> je l'ouvre
if not Datasource.state in [dsEdit, DsInsert] then 
  Datasource.Edit;
 
// Maintenant la table est modifiable

Ensuite modifier votre champs.
Les données ne seront enregistré qu'aprés que vous ayer fait un poste sur la table.

[NABIL74]

salut,
je pense que c'est ça que tu cherches:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
procedure TForm1.Button1Click(Sender: TObject);
begin
if CheckBox1.Checked then begin
edit1.Text:=CheckBox1.Caption;
end;
 
if CheckBox2.Checked then begin
edit1.Text:=CheckBox2.Caption;
end;
 
if CheckBox3.Checked then begin
edit1.Text:=CheckBox3.Caption;
end;
 
if (CheckBox1.Checked and CheckBox2.Checked) then begin
edit1.Text:=CheckBox1.Caption+' et '+CheckBox2.Caption;
end;
 
if (CheckBox1.Checked and CheckBox3.Checked) then begin
edit1.Text:=CheckBox1.Caption+' et '+CheckBox3.Caption;
end;
 
if (CheckBox2.Checked and CheckBox3.Checked) then begin
edit1.Text:=CheckBox2.Caption+' et '+CheckBox3.Caption;
end;
 
if (CheckBox1.Checked and CheckBox2.Checked and CheckBox3.Checked)  then begin
edit1.Text:=CheckBox1.Caption+','+CheckBox2.Caption+' et '+CheckBox3.Caption;
end;
end;

a+

NABIL74