sigue dando error
dice 'type mismatch in expression'
este es el código que tengo espero me ayuden a conseguir mi falla
Código Delphi
[-]
procedure TForm14.RadioGroup1Click(Sender: TObject);
var
buscar:string;
Year, Month, Day, Hour, Min, Sec, MSec: Word;
begin
if RadioGroup1.ItemIndex=0 then
begin
Query1.SQL.Clear;
Query1.SQL.Add('SELECT fec_ini FROM db');
Query1.SQL.Add('WHERE fec_ini= :fecha');
Query1.SQL.Add('ORDER by fec_ini');
Query1.ParamByName('fecha').Value := DateTimePicker1.Date;
Query1.Open;
end;
if radiogroup1.ItemIndex=1 then
begin
Query1.Close;
DecodeDate(Now, Year, Month, Day);
Query1.sql.clear;
Query1.sql.add('select registro,cod_pol,com_pol,ram_pol,bie_pol,can_pol,num_pol,cer_pol,fec_ini,fec_ven,pri_pol,cmn_pol,bon _pol,sub_pol,ced_cli,nom_cli,dir_cli,tel_cli,pag_pol,pre_pol,deu_pol from db where EXTRACT(month FROM registro) = :mes');
Query1.ParamByName('mes').AsInteger := month;
Query1.Open;
form14.grilla;
end;
if RadioGroup1.ItemIndex=2 then
begin
edit1.Enabled:=true;
edit1.Clear;
application.MessageBox('Indique el Número de Póliza por el cual desea ordenar las Pólizas','Información',MB_iconinformation);
edit1.SetFocus;
end;
if RadioGroup1.ItemIndex=3 then
begin
edit1.Enabled:=true;
edit1.Clear;
application.MessageBox('Indique el Código de Póliza por el cual desea ordenar las Pólizas','Información',MB_iconinformation);
edit1.SetFocus;
end;
if RadioGroup1.ItemIndex=4 then
begin
edit1.Enabled:=true;
edit1.Clear;
application.MessageBox('Indique La compañia por el cual desea ordenar las Pólizas','Información',MB_iconinformation);
edit1.SetFocus;
end;
if RadioGroup1.ItemIndex=5 then
begin
edit1.Enabled:=true;
edit1.Clear;
application.MessageBox('Indique el Ramo por el cual desea ordenar las Pólizas','Información',MB_iconinformation);
edit1.SetFocus;
end;
if RadioGroup1.ItemIndex=6 then
begin
edit1.Enabled:=true;
edit1.Clear;
application.MessageBox('Indique La cédula del cliente para localizar la póliza deseada','Información',MB_iconinformation);
edit1.SetFocus;
end;
if RadioGroup1.ItemIndex=7 then
begin
edit1.Enabled:=true;
edit1.Clear;
application.MessageBox('Indique el Nombre o Razón Social por el cual desea ordenar ó localizar las Pólizas','Información',MB_iconinformation);
edit1.SetFocus;
end;
if RadioGroup1.ItemIndex=8 then
begin
edit1.Enabled:=true;
edit1.Clear;
application.MessageBox('Indique el Número de Teléfono por el cual desea ordenar ó localizar las Pólizas','Información',MB_iconinformation);
edit1.SetFocus;
end;
case RadioGroup1.ItemIndex of
0:edit1.Enabled:=true;
1:edit1.enabled:=true;
end;
end;
procedure TForm14.Edit1Change(Sender: TObject);
var
buscar:string;
begin
case RadioGroup1.ItemIndex of
2:buscar:='Select cod_pol,com_pol,ram_pol,bie_pol,can_pol,num_pol,cer_pol,fec_ini,fec_ven,pri_pol,cmn_pol,bon_pol,sub_ pol,ced_cli,nom_cli,dir_cli,tel_cli,pag_pol,pre_pol,deu_pol,registro From db.db Where num_pol like "' + (Edit1.Text) + '%"';
3:buscar:='Select cod_pol,com_pol,ram_pol,bie_pol,can_pol,num_pol,cer_pol,fec_ini,fec_ven,pri_pol,cmn_pol,bon_pol,sub_ pol,ced_cli,nom_cli,dir_cli,tel_cli,pag_pol,pre_pol,deu_pol,registro From db.db Where cod_pol like "' + (Edit1.Text) + '%"';
4:buscar:='Select cod_pol,com_pol,ram_pol,bie_pol,can_pol,num_pol,cer_pol,fec_ini,fec_ven,pri_pol,cmn_pol,bon_pol,sub_ pol,ced_cli,nom_cli,dir_cli,tel_cli,pag_pol,pre_pol,deu_pol,registro From db.db Where com_pol like "' + (Edit1.Text) + '%"';
5:buscar:='Select cod_pol,com_pol,ram_pol,bie_pol,can_pol,num_pol,cer_pol,fec_ini,fec_ven,pri_pol,cmn_pol,bon_pol,sub_ pol,ced_cli,nom_cli,dir_cli,tel_cli,pag_pol,pre_pol,deu_pol,registro From db.db Where ram_pol like "' + (Edit1.Text) + '%"';
6:buscar:='Select cod_pol,com_pol,ram_pol,bie_pol,can_pol,num_pol,cer_pol,fec_ini,fec_ven,pri_pol,cmn_pol,bon_pol,sub_ pol,ced_cli,nom_cli,dir_cli,tel_cli,pag_pol,pre_pol,deu_pol,registro From db.db Where ced_cli like "' + (Edit1.Text) + '%"';
7:buscar:='Select cod_pol,com_pol,ram_pol,bie_pol,can_pol,num_pol,cer_pol,fec_ini,fec_ven,pri_pol,cmn_pol,bon_pol,sub_ pol,ced_cli,nom_cli,dir_cli,tel_cli,pag_pol,pre_pol,deu_pol,registro From db.db Where nom_cli like "' + (Edit1.Text) + '%"';
8:buscar:='Select cod_pol,com_pol,ram_pol,bie_pol,can_pol,num_pol,cer_pol,fec_ini,fec_ven,pri_pol,cmn_pol,bon_pol,sub_ pol,ced_cli,nom_cli,dir_cli,tel_cli,pag_pol,pre_pol,deu_pol,registro From db.db Where Tel_cli like "' + (Edit1.Text) + '%"';
end;
Query1.Close;
DBGrid1.Enabled:=false;
dbgrid1.Enabled:=true;
Query1.SQL.Clear;
Query1.SQL.Add(buscar);
Query1.Active:=True;
Query1.Open;
dbgrid1.Columns.Items[0].Width:=60;
dbgrid1.Columns.Items[1].Width:=200;
dbgrid1.Columns.Items[2].Width:=200;
dbgrid1.Columns.Items[3].Width:=90;
dbgrid1.Columns.Items[4].Width:=90;
dbgrid1.Columns.Items[5].Width:=90;
dbgrid1.Columns.Items[6].Width:=90;
dbgrid1.Columns.Items[7].Width:=90;
dbgrid1.Columns.Items[8].Width:=90;
dbgrid1.Columns.Items[9].Width:=90;
dbgrid1.Columns.Items[10].Width:=90;
dbgrid1.Columns.Items[11].Width:=90;
dbgrid1.Columns.Items[12].Width:=90;
dbgrid1.Columns.Items[13].Width:=90;
dbgrid1.Columns.Items[14].Width:=150;
dbgrid1.Columns.Items[15].Width:=150;
dbgrid1.Columns.Items[16].Width:=90;
dbgrid1.Columns.Items[17].Width:=90;
dbgrid1.Columns.Items[18].Width:=90;
dbgrid1.Columns.Items[19].Width:=90;
dbgrid1.Columns[0].Title.caption:='Código';
dbgrid1.Columns[1].Title.caption:='Compañia';
dbgrid1.Columns[2].Title.caption:='Ramo';
dbgrid1.Columns[3].Title.caption:='Bien Asegurado';
dbgrid1.Columns[4].Title.Caption:='Cantidad';
dbgrid1.Columns[5].Title.Caption:='Número de Póliza';
dbgrid1.Columns[6].Title.Caption:='Número de Cert.';
dbgrid1.Columns[7].Title.Caption:='Fecha Inicio';
dbgrid1.Columns[8].Title.Caption:='Fecha Vence';
dbgrid1.Columns[9].Title.Caption:='Prima';
dbgrid1.Columns[10].Title.Caption:='Comisión';
dbgrid1.Columns[11].Title.Caption:='Bono';
dbgrid1.Columns[12].Title.Caption:='Sub-Comisión';
dbgrid1.Columns[13].Title.Caption:='Cédula';
dbgrid1.Columns[14].Title.Caption:='Nombre';
dbgrid1.Columns[15].Title.Caption:='Domicilio Fiscal';
dbgrid1.Columns[16].Title.Caption:='Teléfono';
dbgrid1.Columns[17].Title.Caption:='Pago';
dbgrid1.Columns[18].Title.Caption:='Precio';
dbgrid1.Columns[19].Title.Caption:='Deuda';
end;
el radiobutton 0 es el que dice fecha el resto de opciones van a la perfeccion
Gracias adelantadas!!