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 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45
| procedure TForm1.BrechercherClick(Sender: TObject);
begin
//BreinitmodifClick(form1);
// on vérifie que les champs sont renseignés
if (fichier.value = '') or (CBrecherche.Text = '') or (Edmotcle.Text = '') then
begin
rechercherclic := false;
showmessage('Veuiller renseigner le fichier, le type de recherche et le mot clé');
end
else
begin
rechercherclic := false;
// on recherche un client suivant les critèques donnés
Qlistecli.SQL.clear;
Qlistecli.Active := false;
Qlistecli.sql.add('select IDCLI,ADR1,ADR2,ADR3,ADR4,ADR5,CP,VILLE,PAYS,TEL,FAX,TILT,FDI');
Qlistecli.sql.add('from Acappella where CODE = '+fichier.Value);
if CBrecherche.Text = 'Id client' then
begin
Qlistecli.sql.add('and IDCLI = '+Edmotcle.Text);
end
else if CBrecherche.Text = 'Nom / Prénom' then
begin
Qlistecli.sql.add('and ADR1 like ''%'+Edmotcle.Text+'%''');
end
else
begin
Qlistecli.sql.add('and CP like '''+Edmotcle.Text+'%''');
end;
Qlistecli.sql.add('order by IDCLI');
Qlistecli.active := true;
Cmodifpays.KeyValue := listecli.DataSource.DataSet.Fields.Fields[8].AsString;
modifcp.KeyValue := listecli.DataSource.DataSet.Fields.Fields[6].AsString;
query_cp_activee := true;
Qtrouveville.close;
Qtrouveville.sql.clear;
Qtrouveville.sql.add('select distinct (convert(char(33),LIBLOC) +'' (code INSEE : ''+ INSEE +'')'') as VILLE FROM loccp');
Qtrouveville.sql.add('where LIBLOC = '''+ listecli.DataSource.DataSet.Fields.Fields[7].AsString +''' ORDER BY (convert(char(33),LIBLOC)+'' (code INSEE : ''+ INSEE +'')'')');
Qtrouveville.open;
modifville.KeyValue := Qtrouveville.fieldbyname('VILLE').asstring;
rechercherclic := true;
ResizeColumns();
//finresize := true;
end;
end; |
Partager