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 |
Partager