24 respuestas en este tema

[amell2020]

hola amigos que tal. bueno pregunto como hago una consulta desde un combobox a un adoquery.
yo intente hacerlo asi:

adoquery8.SQL.Text:='select * from [TIPO DE SALA ] ''WHERE NOMBRE LIKE ''%'+combobox1.Tex+'%''';
 adoquery8.Active;

 
esa consulta se mostrara los datos en un grid.

pero cuando hago cuando escojo la consulta el grid se muestra en blanco.

nota: el comobobox yo lo lleno desde la misma tabla donde pongo solo el nombre de la consulta, osea no escribo la consulta, yo la tomo desde una tabla. bueno espero que me entiendan

[Caral]

Hola
Es access ?.

delphi

adoquery8.SQL.Text:='select * from [TIPO_DE_SALA ] WHERE NOMBRE LIKE '''+combobox1.Text+ '*'''; 
adoquery8.Active;

Me extraña el nombre de la DB.

Saludos

[amell2020]

SQL SERVER
por eso es los cochetes

[Caral]

Hola
o asi:

delphi

adoquery8.SQL.Text:='select * from [TIPO DE SALA ] WHERE NOMBRE LIKE '''+combobox1.Text+ '*'''; 
adoquery8.Active;

o asi:

delphi

adoquery8.SQL.Text:='select * from [TIPO DE SALA ] WHERE NOMBRE LIKE :dat';
adoquery8.Parameters[0].value:=  combobox1.Text ;
adoquery8.Active;

Saludos

[amell2020]

dat, es el nombre del paramentro verdad?

[Caral]

Hola
Si, es simplemente un nombre, puede ser cualquiera.
dat, pep, dia, mes, el que quieras, da igual.
Saludos

[amell2020]

no me funciona de ninguna de las dos manera

[Caral]

Hola
Asi:

delphi

adoquery8.SQL.Text:='select * from [TIPO DE SALA] WHERE NOMBRE LIKE ''%'+combobox1.Text+'%''';
 adoquery8.Active;

No me digas que no 
Saludos

[amell2020]

no amigo tampoco ufff

[Fenareth]

Y ya tienes un datasource enlazado al dbgrid amigo ??? 

Saludox !

[amell2020]

claro eso no lo puedo dejar por alto, jjjjjj

[Caral]

Hola
Algo tienes en algun lado que no deja ver el resultado, estoy seguro que alguna de las consultas deberia de funcionar.
Saludos

[Fenareth]

Como hiciste siempre la consulta ?

Si la construiste por completo en tiempo de ejecución, sin parámetros, podemos verla al momento de que se abra...

Haz algo asi en el evento afteropen de tu query...

delphi

Showmessage(AdoQuery8.SQL.Text);   // Para visualizar el contenido de la consulta
Showmessage(IntToStr(AdoQuery.RecordCount));   // Para visualizar el total de registros que arroja la consulta

Cuéntanos los resultados de ambos mensajes.... 

Saludox ! 

[amell2020]

es cierto amigo porque lo probé con un edit particular yo escribiendo lo que va consultar. aqui dejo el codigo completo del form, haber si notan algo extraño o raro

delphi

unit UHOSPITALIZACION;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls, StdCtrls, Buttons, DB, ADODB, Mask, DBCtrls,
  sButton, sPanel, Grids, DateUtils, DBGrids, sBitBtn, dblookup;
 
type
  THOSPI = class(TForm)
    ADOTable1: TADOTable;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ADOTable2: TADOTable;
    DataSource2: TDataSource;
    ADOQuery2: TADOQuery;
    ADOQuery2IdHOSPITALIZACIÓN: TIntegerField;
    DBEdit6: TDBEdit;
    ADOTable1IdMEDICAMENTO: TIntegerField;
    ADOTable1MEDICAMENTO: TWideStringField;
    ADOTable1CANTIDAD: TIntegerField;
    ADOTable1PRECIOUNITARIO: TIntegerField;
    ADOTable1PRECIOTOTAL: TIntegerField;
    ADOTable1Id_Hospitalización: TIntegerField;
    DataSource3: TDataSource;
    ADOQuery3: TADOQuery;
    ADOQuery3suma: TIntegerField;
    DataSource4: TDataSource;
    PageControl1: TPageControl;
    NUEVO: TTabSheet;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label1: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Label33: TLabel;
    Label30: TLabel;
    Label36: TLabel;
    Label37: TLabel;
    Label27: TLabel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Edit2: TEdit;
    Edit1: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    sPanel3: TsPanel;
    Label7: TLabel;
    Label8: TLabel;
    GroupBox1: TGroupBox;
    Label12: TLabel;
    Label11: TLabel;
    Label10: TLabel;
    Label13: TLabel;
    Label34: TLabel;
    Label38: TLabel;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    sBitBtn1: TsBitBtn;
    DBGrid2: TDBGrid;
    Edit25: TEdit;
    DBNavigator1: TDBNavigator;
    GroupBox2: TGroupBox;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    DBGrid3: TDBGrid;
    DBGrid4: TDBGrid;
    Edit15: TEdit;
    Edit16: TEdit;
    Edit17: TEdit;
    Edit18: TEdit;
    Edit19: TEdit;
    sBitBtn2: TsBitBtn;
    DBNavigator2: TDBNavigator;
    sBitBtn4: TsBitBtn;
    Edit21: TEdit;
    Edit22: TEdit;
    Edit23: TEdit;
    Edit24: TEdit;
    Edit27: TEdit;
    Edit26: TEdit;
    Edit29: TEdit;
    DBEdit1: TDBEdit;
    Procesados: TTabSheet;
    Label35: TLabel;
    Edit28: TEdit;
    Edit20: TEdit;
    Label20: TLabel;
    sBitBtn3: TsBitBtn;
    DBNavigator3: TDBNavigator;
    Label21: TLabel;
    ADOTable1Categoria: TWideStringField;
    QLABORATORIO: TADOQuery;
    DLABORATORIO: TDataSource;
    dATlaBORATORIO: TDataSource;
    ADOTable2Id: TAutoIncField;
    ADOTable2EXAMEN: TWideStringField;
    ADOTable2CANTIDAD: TIntegerField;
    ADOTable2PRECIOUNITARIO: TIntegerField;
    ADOTable2TOTAL: TIntegerField;
    ADOTable2ID_HOSPITALIZACION: TIntegerField;
    ADOQuery4: TADOQuery;
    ADOQuery4suma: TIntegerField;
    Label22: TLabel;
    DBEdit2: TDBEdit;
    DataSource5: TDataSource;
    QIMAGENES: TADOQuery;
    ADOTable3: TADOTable;
    DIMAGENES: TDataSource;
    ADOQuery5: TADOQuery;
    ADOQuery5suma: TIntegerField;
    Label23: TLabel;
    DBEdit3: TDBEdit;
    DataSource6: TDataSource;
    DataSource7: TDataSource;
    ADOTable3Id: TAutoIncField;
    ADOTable3ESTUDIODEIMAGEN: TWideStringField;
    ADOTable3CANTIDAD: TIntegerField;
    ADOTable3PRECIO_UNITARIO: TIntegerField;
    ADOTable3COSTOTOTAL: TIntegerField;
    ADOTable3ID_HOSPITALIZACION: TIntegerField;
    sBitBtn5: TsBitBtn;
    Label39: TLabel;
    Label40: TLabel;
    Label41: TLabel;
    Label42: TLabel;
    Label43: TLabel;
    Label44: TLabel;
    DBNavigator4: TDBNavigator;
    Label45: TLabel;
    Label46: TLabel;
    Label47: TLabel;
    Label48: TLabel;
    Label49: TLabel;
    Label50: TLabel;
    sBitBtn6: TsBitBtn;
    DBGrid1: TDBGrid;
    Edit34: TEdit;
    Edit33: TEdit;
    Edit32: TEdit;
    Edit31: TEdit;
    Edit30: TEdit;
    ADOTable4: TADOTable;
    ADOQuery6: TADOQuery;
    DataSource8: TDataSource;
    ADOTable4ID_PROCEDIMIENTO: TAutoIncField;
    ADOTable4PROCEDIMIENTO: TWideStringField;
    ADOTable4PRECIO: TIntegerField;
    ADOTable4CANTIDAD: TIntegerField;
    ADOTable4PRECIO_TOTAL: TIntegerField;
    ADOTable4Id_Hospitalización: TIntegerField;
    ADOQuery7: TADOQuery;
    ADOQuery7suma: TIntegerField;
    Label51: TLabel;
    DBEdit4: TDBEdit;
    DataSource9: TDataSource;
    sala: TADOTable;
    DataSource10: TDataSource;
    ComboBox1: TComboBox;
    salaId: TIntegerField;
    salaTIPODESALA: TWideStringField;
    salaCOSTOPORDIA: TBCDField;
    Label52: TLabel;
    DBEdit7: TDBEdit;
    Label9: TLabel;
    DataSource11: TDataSource;
    ADOQuery8: TADOQuery;
    DBEdit5: TDBEdit;
    DBGrid5: TDBGrid;
    ADOQuery9: TADOQuery;
    Edit50: TEdit;
    DataSource12: TDataSource;
    procedure DBEdit1Change(Sender: TObject);
    procedure DateTimePicker2Change(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure sBitBtn1Click(Sender: TObject);
    procedure Edit9Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Edit9KeyPress(Sender: TObject; var Key: Char);
    procedure sBitBtn2Click(Sender: TObject);
    procedure Edit19KeyPress(Sender: TObject; var Key: Char);
    procedure sBitBtn3Click(Sender: TObject);
    procedure Edit20KeyPress(Sender: TObject; var Key: Char);
    procedure Edit20Change(Sender: TObject);
    procedure Edit19Change(Sender: TObject);
    procedure DBNavigator2Click(Sender: TObject; Button: TNavigateBtn);
    procedure DBNavigator3Click(Sender: TObject; Button: TNavigateBtn);
    procedure DBEdit2Change(Sender: TObject);
    procedure DBEdit3Change(Sender: TObject);
    procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
    procedure Edit32Change(Sender: TObject);
    procedure Edit32KeyPress(Sender: TObject; var Key: Char);
    procedure sBitBtn6Click(Sender: TObject);
    procedure DBNavigator4Click(Sender: TObject; Button: TNavigateBtn);
    procedure DBEdit4Change(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure Edit50Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  HOSPI: THOSPI;
 
implementation
 
uses UDatamodule, uregipaciente, UBUSMEDICO, UADMIMEDICAMENTO, UBUSCALAB,
  UBUSCAIMAGE, UBPROCE;
 
{$R *.dfm}
 
procedure THOSPI.ComboBox1Change(Sender: TObject);
var strin:string;
begin
 
 
end;
 
procedure THOSPI.DateTimePicker2Change(Sender: TObject);
var Result:integer;
begin
Result := DaysBetween(dateTimePicker1.Date, DateTimePicker2.Date);
 
edit2.Text:=intTostr(Result);
end;
 
procedure THOSPI.DBEdit1Change(Sender: TObject);
Var tipid:string;
 var dat1,dat,dat2,dat3,suma,total:integer;
begin
//Suma los Datos de facturacion
dat1:=StrToIntDef(DBEdit3.Text,0);
dat:=StrToIntDef(DBEdit1.Text,0);
dat2:=StrToIntDef(DBEdit2.Text,0);
dat3:=StrToIntDef(DBEdit4.Text,0);
suma:=dat + dat2 + dat1 + dat3;
total:=suma;
 
Edit23.text:=intTostr(total);
 
end;
 
 
procedure THOSPI.DBEdit2Change(Sender: TObject);
 var dat1,dat,dat2,dat3,suma,total:integer;
begin
//Suma los Datos de facturacion
dat1:=StrToIntDef(DBEdit3.Text,0);
dat:=StrToIntDef(DBEdit1.Text,0);
dat2:=StrToIntDef(DBEdit2.Text,0);
dat3:=StrToIntDef(DBEdit4.Text,0);
suma:=dat + dat2 + dat1 + dat3;
total:=suma;
 
Edit23.text:=intTostr(total);
 
end;
 
procedure THOSPI.DBEdit3Change(Sender: TObject);
 
 var dat1,dat,dat2,dat3,suma,total:integer;
begin
//Suma los Datos de facturacion
dat1:=StrToIntDef(DBEdit3.Text,0);
dat:=StrToIntDef(DBEdit1.Text,0);
dat2:=StrToIntDef(DBEdit2.Text,0);
dat3:=StrToIntDef(DBEdit4.Text,0);
suma:=dat + dat2 + dat1 + dat3;
total:=suma;
 
Edit23.text:=intTostr(total);
end;
 
procedure THOSPI.DBEdit4Change(Sender: TObject);
 
 var dat1,dat,dat2,dat3,suma,total:integer;
begin
//Suma los Datos de facturacion
dat1:=StrToIntDef(DBEdit3.Text,0);
dat:=StrToIntDef(DBEdit1.Text,0);
dat2:=StrToIntDef(DBEdit2.Text,0);
dat3:=StrToIntDef(DBEdit4.Text,0);
suma:=dat + dat2 + dat1 + dat3;
total:=suma;
 
Edit23.text:=intTostr(total);
end;
 
procedure THOSPI.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
begin
ADOQUERY3.SQL.Text:='SELECT sum([PRECIO TOTAL]) AS suma from MEDICAMENTOS WHERE Id_Hospitalización LIKE ''%'+Edit29.Text+'%''';
 ADOQUERY3.Active:=TRUE;
 
end;
 
procedure THOSPI.DBNavigator2Click(Sender: TObject; Button: TNavigateBtn);
begin
ADOQUERY4.SQL.Text:='SELECT sum([TOTAL]) AS suma from LABORATORIOS WHERE ID_HOSPITALIZACION LIKE ''%'+Edit29.Text+'%''';
 ADOQUERY4.Active:=TRUE;
end;
 
procedure THOSPI.DBNavigator3Click(Sender: TObject; Button: TNavigateBtn);
begin
ADOQUERY5.SQL.Text:='SELECT sum([COSTO TOTAL]) AS suma from IMAGENES WHERE ID_HOSPITALIZACION LIKE ''%'+Edit29.Text+'%''';
 ADOQUERY5.Active:=TRUE;
  EDIT20.Visible:=FALSE;
end;
 
procedure THOSPI.DBNavigator4Click(Sender: TObject; Button: TNavigateBtn);
begin
ADOQUERY7.SQL.Text:='SELECT sum([PRECIO_TOTAL]) AS suma from PROCEDIMIENTOS WHERE Id_Hospitalización LIKE ''%'+Edit29.Text+'%''';
 ADOQUERY7.Active:=TRUE;
end;
 
procedure THOSPI.Edit19Change(Sender: TObject);
 
var valor1,valor2,sum,total:integer;
begin
       //multiplica cantidad por el precio unit
       valor1:=strToint(edit19.Text);
      valor2:=strToint(edit13.text);
      sum:=valor1 * valor2;
      total:=sum;
      edit14.text:=intTostr(total);
      end;
 
procedure THOSPI.Edit19KeyPress(Sender: TObject; var Key: Char);
begin
 
    if Key = #13 then
begin
  ADOTABLE2.Active;
  ADOTable2.Insert;
 
ADOTable2.FieldByName('EXAMEN').AsString:=Edit12.Text;
ADOTable2.FieldByName('CANTIDAD').AsInteger:=strToint(Edit19.Text);
ADOTable2.FieldByName('PRECIO UNITARIO').AsInteger:=strToint(Edit13.Text);
ADOTable2.FieldByName('TOTAL').AsInteger:=strToint(Edit14.Text);
ADOTable2.FieldByName('ID_HOSPITALIZACION').AsString:=Edit29.Text;
ADOTable2.Post;
EDIT19.Visible:=FALSE;
 
// CONSULTA PARA MOSTRAR LABORATORIO
QLABORATORIO.SQL.Text:='SELECT Id, EXAMEN, CANTIDAD,  [PRECIO UNITARIO], TOTAL FROM LABORATORIOS WHERE ID_HOSPITALIZACION LIKE ''%'+Edit29.Text+'%''';
 QLABORATORIO.Active:=TRUE;
 
 //borra los datos de medicamentos en consulta
 edit11.Clear;
 edit12.Clear;
 edit13.Clear;
 edit14.Clear;
 ADOQUERY4.SQL.Text:='SELECT sum([TOTAL]) AS suma from LABORATORIOS WHERE ID_HOSPITALIZACION LIKE ''%'+Edit29.Text+'%''';
 ADOQUERY4.Active:=TRUE;
 EDIT19.Visible:=FALSE;
 
end;
end;
 
procedure THOSPI.Edit20Change(Sender: TObject);
var valor1,valor2,sum,total:integer;
begin
// Multiplicamos los dos edit cantidad y precio unit
      valor1:=strToint(edit20.Text);
      valor2:=strToint(edit17.text);
      sum:=valor1 * valor2;
      total:=sum;
      edit18.text:=intTostr(total);
      end;
 
 
 
procedure THOSPI.Edit20KeyPress(Sender: TObject; var Key: Char);
begin
 
    if Key = #13 then
begin
  ADOTABLE3.Active;
  ADOTable3.Insert;
 
ADOTable3.FieldByName('ESTUDIO DE IMAGEN').AsString:=Edit16.Text;
ADOTable3.FieldByName('CANTIDAD').AsInteger:=strToint(Edit20.Text);
ADOTable3.FieldByName('PRECIO_UNITARIO').AsInteger:=strToint(Edit17.Text);
ADOTable3.FieldByName('COSTO TOTAL').AsInteger:=strToint(Edit18.Text);
ADOTable3.FieldByName('ID_HOSPITALIZACION').AsString:=Edit29.Text;
ADOTable3.Post;
EDIT20.Visible:=FALSE;
 
// CONSULTA PARA MOSTRAR IMAGENES
QIMAGENES.SQL.Text:='SELECT Id, [ESTUDIO DE IMAGEN], CANTIDAD,  PRECIO_UNITARIO, [COSTO TOTAL] FROM IMAGENES WHERE ID_HOSPITALIZACION LIKE ''%'+Edit29.Text+'%''';
 QIMAGENES.Active:=TRUE;
 
 //borra los datos de IMAGENES en consulta
 edit16.Clear;
 edit17.Clear;
 edit18.Clear;
 
 
 ADOQUERY5.SQL.Text:='SELECT sum([COSTO TOTAL]) AS suma from IMAGENES WHERE ID_HOSPITALIZACION LIKE ''%'+Edit29.Text+'%''';
 ADOQUERY5.Active:=TRUE;
  EDIT20.Visible:=FALSE;
 
end;
end;
 
procedure THOSPI.Edit32Change(Sender: TObject);
 
var valor1,valor2,sum,total:integer;
begin
       //multiplica cantidad por el precio unit
       valor1:=strToint(edit32.Text);
      valor2:=strToint(edit31.text);
      sum:=valor1 * valor2;
      total:=sum;
      edit30.text:=intTostr(total);
      end;
 
 
 
procedure THOSPI.Edit32KeyPress(Sender: TObject; var Key: Char);
  BEGIN
   if Key = #13 then
begin
  ADOTABLE4.Active;
  ADOTable4.Insert;
 
ADOTable4.FieldByName('PROCEDIMIENTO').AsString:=Edit33.Text;
ADOTable4.FieldByName('CANTIDAD').AsInteger:=strToint(Edit32.Text);
ADOTable4.FieldByName('PRECIO').AsInteger:=strToint(Edit31.Text);
ADOTable4.FieldByName('PRECIO_TOTAL').AsInteger:=strToint(Edit30.Text);
ADOTable4.FieldByName('Id_Hospitalización').AsString:=Edit29.Text;
ADOTable4.Post;
 
// CONSULTA PARA MOSTRAR MEDICAMENTO
 
 
 //borra los datos de medicamentos en consulta
 edit34.Clear;
 edit33.Clear;
 
 edit31.Clear;
 edit30.Clear;
 //CONSULTA PARA MOSTRAR EN GRID
 ADOQUERY6.SQL.Text:='SELECT [ID_PROCEDIMIENTO], PROCEDIMIENTO, CANTIDAD, PRECIO, PRECIO_TOTAL FROM PROCEDIMIENTOS WHERE Id_Hospitalización LIKE ''%'+Edit29.Text+'%''';
 ADOQUERY6.Active:=TRUE;
 //consulta de musica
  ADOQUERY7.SQL.Text:='SELECT sum([PRECIO_TOTAL]) AS suma from PROCEDIMIENTOS WHERE Id_Hospitalización LIKE ''%'+Edit29.Text+'%''';
 ADOQUERY7.Active:=TRUE;
 
end;
end;
 
procedure THOSPI.Edit50Change(Sender: TObject);
begin
adoquery9.SQL.Text:='select * from [TIPO DE SALA] WHERE [TIPO DE SALA] LIKE ''%'+edit50.Text+'%''';
 adoquery9.Active;
end;
 
procedure THOSPI.Edit9Change(Sender: TObject);
var valor1,valor2,sum,total:integer;
begin
       //multiplica cantidad por el precio unit
       valor1:=strToint(edit9.Text);
      valor2:=strToint(edit25.text);
      sum:=valor1 * valor2;
      total:=sum;
      edit10.text:=intTostr(total);
      end;
 
 
procedure THOSPI.Edit9KeyPress(Sender: TObject; var Key: Char);
 
begin
 
    if Key = #13 then
begin
  ADOTABLE1.Active;
  ADOTable1.Insert;
 
ADOTable1.FieldByName('MEDICAMENTO').AsString:=Edit8.Text;
ADOTable1.FieldByName('CANTIDAD').AsInteger:=strToint(Edit9.Text);
ADOTable1.FieldByName('PRECIO UNITARIO').AsInteger:=strToint(Edit25.Text);
ADOTable1.FieldByName('PRECIO TOTAL').AsInteger:=strToint(Edit10.Text);
ADOTable1.FieldByName('Id_Hospitalización').AsString:=Edit29.Text;
ADOTable1.Post;
 
// CONSULTA PARA MOSTRAR MEDICAMENTO
 
 
 //borra los datos de medicamentos en consulta
 edit7.Clear;
 edit8.Clear;
 edit25.Clear;
 edit10.Clear;
 
  ADOQUERY1.SQL.Text:='SELECT [Id MEDICAMENTO], MEDICAMENTO, CANTIDAD,  [PRECIO UNITARIO], [PRECIO TOTAL], Categoria FROM MEDICAMENTOS WHERE Id_Hospitalización LIKE ''%'+Edit29.Text+'%''';
 ADOQUERY1.Active:=TRUE;
 
 ADOQUERY3.SQL.Text:='SELECT sum([PRECIO TOTAL]) AS suma from MEDICAMENTOS WHERE Id_Hospitalización LIKE ''%'+Edit29.Text+'%''';
 ADOQUERY3.Active:=TRUE;
 
 
end;
 
end;
 
procedure THOSPI.FormCreate(Sender: TObject);
begin
EDIT26.Text:=ADOQuery2IdHOSPITALIZACIÓN.AsString;
EDIT29.Text:=intTostr(strToint(edit26.text)+1);
EDIT19.Visible:=FALSE;
EDIT9.Visible:=FALSE;
 
  ADOQuery8.SQL.Text:='SELECT * FROM [TIPO DE SALA]';
 
  ADOQuery8.Active:=true;
while not ADOQuery8.Eof do
begin
 
ComboBox1.Items.Add(ADOQuery8.Fields[1].text);
   ADOQuery8.Next;
end;
 
   end;
 
 
procedure THOSPI.sBitBtn1Click(Sender: TObject);
var valor1,valor2,sum,total:integer;
begin
ADMINMEDICA:=TADMINMEDICA.Create(self);
   try
    ADMINMEDICA.ShowModal;
   finally
   If ADMINMEDICA.ID_MEDICAMENTO <> '' then
   Edit7.Text:=ADMINMEDICA.ID_MEDICAMENTO;
 
   Edit8.text:= (ADMINMEDICA.MEDICAMENTO);
   Edit25.Text:= (ADMINMEDICA.PRECIO_MEDICAMENTO);
   Edit9.Text:=intTostr(1);
      // Multiplicamos los dos edit cantidad y precio unit
      valor1:=strToint(edit9.Text);
      valor2:=strToint(edit25.text);
      sum:=valor1 * valor2;
      total:=sum;
      edit10.text:=intTostr(total);
      EDIT9.Visible:=TRUE;
 
   ADMINMEDICA.Free;
end;
end;
 
procedure THOSPI.sBitBtn2Click(Sender: TObject);
 
var valor1,valor2,sum,total:integer;
begin
//labaratorio
BUSCARLAB:=TBUSCARLAB.Create(self);
   try
    BUSCARLAB.ShowModal;
   finally
   If BUSCARLAB.IDLAB <> '' then
   Edit11.Text:=BUSCARLAB.IDLAB;
 
   Edit12.text:= (BUSCARLAB.EXAMEN);
   Edit13.Text:= (BUSCARLAB.PRECIOLAB);
   Edit19.Text:=intTostr(1);
    // Multiplicamos los dos edit cantidad y precio unit
      valor1:=strToint(edit19.Text);
      valor2:=strToint(edit13.text);
      sum:=valor1 * valor2;
      total:=sum;
      edit14.text:=intTostr(total);
      EDIT19.Visible:=TRUE;
 
   BUSCARLAB.Free;
 
end;
end;
 
procedure THOSPI.sBitBtn3Click(Sender: TObject);
 
var valor1,valor2,sum,total:integer;
begin
//imagenes
BUSCARIMAGE:=TBUSCARIMAGE.Create(self);
   try
    BUSCARIMAGE.ShowModal;
   finally
   If BUSCARIMAGE.IDLAB <> '' then
   Edit15.Text:=BUSCARIMAGE.IDLAB;
 
   Edit16.text:= (BUSCARIMAGE.EXAMEN);
   Edit17.Text:= (BUSCARIMAGE.PRECIOLAB);
   Edit18.Text:= (BUSCARIMAGE.PRECIOLAB);
   Edit20.Text:=intTostr(1);
    
      EDIT20.Visible:=TRUE;
 
   BUSCARIMAGE.Free;
end;
end;
 
procedure THOSPI.sBitBtn6Click(Sender: TObject);
var valor1,valor2,sum,total:integer;
begin
BUSCAPROCE:=TBUSCAPROCE.Create(self);
   try
    BUSCAPROCE.ShowModal;
   finally
   If BUSCAPROCE.IDLAB1 <> '' then
   Edit34.Text:=BUSCAPROCE.IDLAB1;
 
   Edit33.text:= (BUSCAPROCE.EXAMEN1);
   Edit31.Text:= (BUSCAPROCE.PRECIOLAB1);
   Edit30.Text:= (BUSCAPROCE.PRECIOLAB1);
   Edit32.Text:=intTostr(1);
      // Multiplicamos los dos edit cantidad y precio unit
      valor1:=strToint(edit31.Text);
      valor2:=strToint(edit30.text);
      sum:=valor1 * valor2;
      total:=sum;
      edit30.text:=intTostr(total);
      EDIT32.Visible:=TRUE;
 
   BUSCAPROCE.Free;
end;
end;
 
procedure THOSPI.SpeedButton1Click(Sender: TObject);
begin
 Rpaciented:=TRpaciented.Create(self);
   try
    Rpaciented.ShowModal;
   finally
   If Rpaciented.RIS_PACIENTE <> '' then
   Edit1.Text:=Rpaciented.RIS_PACIENTE;
 
   Edit3.text:= (Rpaciented. NOMBRE);
   Edit4.Text:= (Rpaciented. NSS);
   Edit24.Text:= (Rpaciented. apellido);
   Rpaciented.Free;
end;
 end;
procedure THOSPI.SpeedButton2Click(Sender: TObject);
begin
   //AGREGA UN CODIGO medicos
 
 BUSMEDICO:=TBUSMEDICO.Create(self);
   try
    BUSMEDICO.ShowModal;
   finally
   If BUSMEDICO.codigo3 <> '' then
   Edit21.Text:=BUSMEDICO.codigo3;
 
   Edit22.text:= (BUSMEDICO. descripcion3);
   BUSMEDICO.Free;
end;
     end;
end.

[Caral]

Hola
Lo colocaste con un edit y cambiaste el query:

delphi

procedure THOSPI.Edit50Change(Sender: TObject);
begin
adoquery9.SQL.Text:='select * from [TIPO DE SALA] WHERE [TIPO DE SALA] LIKE ''%'+edit50.Text+'%''';
 adoquery9.Active;
end;

Pero no dices si funciono o no ?
Saludos

[Caral]

Hola
Tienes varias tablas (que pueda ver):
medicamentos, laboratorio, imagenes, procedimientos,....
Bien:
En cada tabla tienes Campos, VERDAD ????.
Pregunto:
TIPO DE SALA es una TABLA o un CAMPO de alguna tabla?????.
Saludos

[amell2020]

tipos de sala es una tabla y tiene una campo llamado tipo de sala

[amell2020]

la demas tablas tienen datos todas

[Fenareth]

Ya probaste con lo que te dije ? 

Saludox !

[Caral]

Hola
Tipos o Tipo ???.
Si tipoS de Sala es una tabla es con S.
No entiendo:

delphi

adoquery8.SQL.Text:='select * from [b][color=#ff0000]TIPOS DE SALA[/color][/b] WHERE [b][TIPO DE SALA][/b] LIKE ''%'+combobox1.Text+'%''';
 adoquery8.Active;

Saludos