todo
procedure TForm2.SpeedButton7Click(Sender: TObject);
begin
if(edit24.text='') then
begin //inicio if
showmessage('No se puede ejecutar consulta, caja vacia');
end //finif
else
begin //inicio else
Query1.Close; //cierra el query anterior
Query1.SQL.Clear;
Query1.SQL.Add('select* from Banco where Numero_Cuenta='+chr(39)+edit24.text+chr(39));//agrega laconsulta deseada
Query1.open; //ejecuta la consulta y la abre el BDGrid
end; //fin else
end;
procedure TForm2.ComboBox3Change(Sender: TObject);
begin
if(combobox3.ItemIndex=0) thenbegin
Query1.Close; //cierra el query anterior
Query1.SQL.Clear;
Query1.SQL.Add('select* from Banco where Ciudad='+chr(39)+'San juan del Rio'+chr(39));//agrega la consulta deseada
Query1.open;//ejecuta la consulta y la abre el BDGrid
end;
if(combobox3.ItemIndex=1) then
begin
Query1.Close; //cierra el query anterior
Query1.SQL.Clear;
Query1.SQL.Add('select* from Banco whereCiudad='+chr(39)+'Queretaro'+chr(39));//agrega la consulta deseada
Query1.open; //ejecuta la consulta y la abre el BDGrid
end;
if(combobox3.ItemIndex=2) then
begin
Query1.Close; //cierrael query anterior
Query1.SQL.Clear;
Query1.SQL.Add('select* from Banco where Ciudad='+chr(39)+'Tequisquiapan'+chr(39));//agrega la consulta deseada
Query1.open; //ejecuta la consulta y la abreel BDGrid
end;
if(combobox3.ItemIndex=3) then
begin
Query1.Close; //cierra el query anterior
Query1.SQL.Clear;
Query1.SQL.Add('select* from Banco whereCiudad='+chr(39)+'Coroneo'+chr(39));//agrega la consulta deseada
Query1.open; //ejecuta la consulta y la abre el BDGrid
end;
if(combobox3.ItemIndex=4) then
begin
Query1.Close; //cierra el query anteriorQuery1.SQL.Clear;
Query1.SQL.Add('select* from Banco where Ciudad='+chr(39)+'Morelia'+chr(39));//agrega la consulta deseada
Query1.open; //ejecuta la consulta y la abre el BDGrid
end;
end;
procedure...
Regístrate para leer el documento completo.