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
46
47
48
49
50
51
52
| {Initialisation des variables de connection à la base de donnée}
user:='root';
pwd:='';
host:='127.0.0.1';
port:=3306;
{Initialisation de la connection base de donnée}
MySQL := mysql_init(nil);
mysql_options(mysql,MYSQL_OPT_COMPRESS,nil);
{Connection base de donnée}
if mysql_real_connect(mysql, pChar(host), pChar(user), pChar(pwd), nil, port, nil, 0)= nil then showmessage('Connection impossible');
{Selection de la base de donnée}
if mysql_select_db(mysql, pChar(dbname))<>0 then showmessage('Selection base impossible') ;
{Controle remplissage combo}
if combobox1.Text = '' then
begin
showmessage('Spécifier le mode de recherche!');
end;
{Requete de recherche}
try
if ComboBox1.Text='Code rayon' then
begin
if mysql_query(mysql, pChar('SELECT * FROM '+table+' WHERE code = '+Edit2.Text ))<>0 then
ShowMessage('requête selection plantée');
resultat:=mysql_use_result(MySQL);
row := mysql_fetch_row(Resultat);
{Remplissage des cellules avec les données}
for i := 1 to 6 do
begin
StringGrid1.Cells[i,1]:= row[i];
end;
{Affichage du nombre d'article en stock}
if mysql_query(mysql, pChar('SELECT COUNT(*) FROM '+table+' WHERE code = '+Edit2.Text )) <> 0 then showmessage('requete compteur plantée');
article:=mysql_use_result(MySQL);
nombre := mysql_fetch_row(article);
Edit1.Text := nombre[0];
end |
