Tema: Filtro en dbgrid
Ver Mensaje Individual
  #30  
Antiguo 13-02-2012
gianfranco_tont gianfranco_tont is offline
Miembro
NULL
  
Registrado: ene 2012
Posts: 96
Reputación: 15
gianfranco_tont Va por buen camino
te mando el codigo completo para ver si me puedes ayudar tambien porque cuando salgo del from se me queda colgado el programa creo que tiene algo que ver con el clientdata set edit o incert.

Código Delphi [-]
unit Unitajuste;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Provider, DBClient, Grids, DBGrids, StdCtrls, ToolWin,
  ActnMan, ActnCtrls, Ribbon, RibbonLunaStyleActnCtrls, Buttons, pngimage,
  ExtCtrls, ActnList, ImgList, PlatformDefaultStyleActnCtrls, ComCtrls, Menus,
  DBCtrls;
  const
  nif_info = $10;

type
tnotifyicons = (niif_none, niif_info, niif_warning, niif_error, niif_user);
    TFormAjuste = class(TForm)
    Ribbon1: TRibbon;
    RibbonPage1: TRibbonPage;
    RibbonGroup1: TRibbonGroup;
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    Label1: TLabel;
    Edit2: TEdit;
    Label2: TLabel;
    Edit3: TEdit;
    Label3: TLabel;
    DataSetProvider1: TDataSetProvider;
    ClientDataSet1: TClientDataSet;
    ADOTable1: TADOTable;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Edit4: TEdit;
    Image1: TImage;
    Label4: TLabel;
    Image2: TImage;
    Label5: TLabel;
    Image3: TImage;
    Label6: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    BalloonHint1: TBalloonHint;
    TrayIcon1: TTrayIcon;
    ActionManager1: TActionManager;
    ImageList1: TImageList;
    ActionToolBar1: TActionToolBar;
    Action1: TAction;
    Action2: TAction;
    ADOQueryenc_aju: TADOQuery;
    ADOQueryenc_ajuajue_num: TIntegerField;
    ADOQueryenc_ajufecha: TDateTimeField;
    ADOQueryenc_ajumotivo: TStringField;
    ADOQueryenc_ajutotal: TFMTBCDField;
    ADOQueryenc_ajuseriales: TIntegerField;
    ADOQueryenc_ajufeccom: TDateTimeField;
    ADOQueryenc_ajunumcom: TIntegerField;
    ADOQueryenc_ajutasa: TFMTBCDField;
    ADOQueryenc_ajumoneda: TStringField;
    ADOQueryenc_ajudis_cen: TMemoField;
    ADOQueryenc_ajucampo1: TStringField;
    ADOQueryenc_ajucampo2: TStringField;
    ADOQueryenc_ajucampo3: TStringField;
    ADOQueryenc_ajucampo4: TStringField;
    ADOQueryenc_ajucampo5: TStringField;
    ADOQueryenc_ajucampo6: TStringField;
    ADOQueryenc_ajucampo7: TStringField;
    ADOQueryenc_ajucampo8: TStringField;
    ADOQueryenc_ajuco_us_in: TStringField;
    ADOQueryenc_ajufe_us_in: TDateTimeField;
    ADOQueryenc_ajuco_us_mo: TStringField;
    ADOQueryenc_ajufe_us_mo: TDateTimeField;
    ADOQueryenc_ajuco_us_el: TStringField;
    ADOQueryenc_ajufe_us_el: TDateTimeField;
    ADOQueryenc_ajurevisado: TStringField;
    ADOQueryenc_ajutrasnfe: TStringField;
    ADOQueryenc_ajuco_sucu: TStringField;
    ADOQueryenc_ajurowguid: TGuidField;
    ADOQueryenc_ajuanulada: TBooleanField;
    ADOQueryenc_ajuaux01: TFMTBCDField;
    ADOQueryenc_ajuaux02: TStringField;
    ADOQueryenc_ajuproduccion: TBooleanField;
    ADOQueryenc_ajuimp_num: TIntegerField;
    ADOQueryenc_ajufact_num: TIntegerField;
    StatusBar1: TStatusBar;
    PopupMenu1: TPopupMenu;
    ADOQuery1: TADOQuery;
    ADOQuery1co_art: TStringField;
    ADOQuery1art_des: TStringField;
    ADOQuery1fecha_reg: TDateTimeField;
    ADOQuery1manj_ser: TBooleanField;
    ADOQuery1co_lin: TStringField;
    ADOQuery1co_cat: TStringField;
    ADOQuery1co_subl: TStringField;
    ADOQuery1co_color: TStringField;
    ADOQuery1item: TStringField;
    ADOQuery1ref: TStringField;
    ADOQuery1modelo: TStringField;
    ADOQuery1procedenci: TStringField;
    ADOQuery1comentario: TMemoField;
    ADOQuery1co_prov: TStringField;
    ADOQuery1ubicacion: TStringField;
    ADOQuery1uni_venta: TStringField;
    ADOQuery1uni_compra: TStringField;
    ADOQuery1uni_relac: TFMTBCDField;
    ADOQuery1relac_aut: TIntegerField;
    ADOQuery1stock_act: TFMTBCDField;
    ADOQuery1stock_com: TFMTBCDField;
    ADOQuery1sstock_com: TFMTBCDField;
    ADOQuery1stock_lle: TFMTBCDField;
    ADOQuery1sstock_lle: TFMTBCDField;
    ADOQuery1stock_des: TFMTBCDField;
    ADOQuery1sstock_des: TFMTBCDField;
    ADOQuery1suni_venta: TStringField;
    ADOQuery1suni_compr: TStringField;
    ADOQuery1suni_relac: TBCDField;
    ADOQuery1sstock_act: TFMTBCDField;
    ADOQuery1relac_comp: TFMTBCDField;
    ADOQuery1relac_vent: TFMTBCDField;
    ADOQuery1pto_pedido: TFMTBCDField;
    ADOQuery1stock_max: TFMTBCDField;
    ADOQuery1stock_min: TFMTBCDField;
    ADOQuery1prec_om: TBooleanField;
    ADOQuery1prec_vta1: TFMTBCDField;
    ADOQuery1fec_prec_v: TDateTimeField;
    ADOQuery1fec_prec_2: TDateTimeField;
    ADOQuery1prec_vta2: TFMTBCDField;
    ADOQuery1fec_prec_3: TDateTimeField;
    ADOQuery1prec_vta3: TFMTBCDField;
    ADOQuery1fec_prec_4: TDateTimeField;
    ADOQuery1prec_vta4: TFMTBCDField;
    ADOQuery1fec_prec_5: TDateTimeField;
    ADOQuery1prec_vta5: TFMTBCDField;
    ADOQuery1prec_agr1: TFMTBCDField;
    ADOQuery1prec_agr2: TFMTBCDField;
    ADOQuery1prec_agr3: TFMTBCDField;
    ADOQuery1prec_agr4: TFMTBCDField;
    ADOQuery1prec_agr5: TFMTBCDField;
    ADOQuery1can_agr: TFMTBCDField;
    ADOQuery1fec_des_p5: TDateTimeField;
    ADOQuery1fec_has_p5: TDateTimeField;
    ADOQuery1co_imp: TStringField;
    ADOQuery1margen_max: TBCDField;
    ADOQuery1ult_cos_un: TFMTBCDField;
    ADOQuery1fec_ult_co: TDateTimeField;
    ADOQuery1cos_pro_un: TFMTBCDField;
    ADOQuery1fec_cos_pr: TDateTimeField;
    ADOQuery1cos_merc: TFMTBCDField;
    ADOQuery1fec_cos_me: TDateTimeField;
    ADOQuery1cos_prov: TFMTBCDField;
    ADOQuery1fec_cos_p2: TDateTimeField;
    ADOQuery1ult_cos_do: TFMTBCDField;
    ADOQuery1fec_cos_do: TDateTimeField;
    ADOQuery1cos_un_an: TFMTBCDField;
    ADOQuery1fec_cos_an: TDateTimeField;
    ADOQuery1ult_cos_om: TFMTBCDField;
    ADOQuery1fec_ult_om: TDateTimeField;
    ADOQuery1cos_pro_om: TFMTBCDField;
    ADOQuery1fec_pro_om: TDateTimeField;
    ADOQuery1tipo_cos: TStringField;
    ADOQuery1mont_comi: TBCDField;
    ADOQuery1porc_cos: TBCDField;
    ADOQuery1mont_cos: TBCDField;
    ADOQuery1porc_gas: TBCDField;
    ADOQuery1mont_gas: TBCDField;
    ADOQuery1f_cost: TDateTimeField;
    ADOQuery1fisico: TBooleanField;
    ADOQuery1punt_cli: TBCDField;
    ADOQuery1punt_pro: TBCDField;
    ADOQuery1dias_repos: TIntegerField;
    ADOQuery1tipo: TStringField;
    ADOQuery1alm_prin: TStringField;
    ADOQuery1anulado: TBooleanField;
    ADOQuery1tipo_imp: TStringField;
    ADOQuery1dis_cen: TMemoField;
    ADOQuery1mon_ilc: TFMTBCDField;
    ADOQuery1capacidad: TBCDField;
    ADOQuery1grado_al: TBCDField;
    ADOQuery1tipo_licor: TStringField;
    ADOQuery1compuesto: TBooleanField;
    ADOQuery1picture: TBlobField;
    ADOQuery1campo1: TStringField;
    ADOQuery1campo2: TStringField;
    ADOQuery1campo3: TStringField;
    ADOQuery1campo4: TStringField;
    ADOQuery1campo5: TStringField;
    ADOQuery1campo6: TStringField;
    ADOQuery1campo7: TStringField;
    ADOQuery1campo8: TStringField;
    ADOQuery1co_us_in: TStringField;
    ADOQuery1fe_us_in: TDateTimeField;
    ADOQuery1co_us_mo: TStringField;
    ADOQuery1fe_us_mo: TDateTimeField;
    ADOQuery1co_us_el: TStringField;
    ADOQuery1fe_us_el: TDateTimeField;
    ADOQuery1revisado: TStringField;
    ADOQuery1trasnfe: TStringField;
    ADOQuery1co_sucu: TStringField;
    ADOQuery1rowguid: TGuidField;
    ADOQuery1tuni_venta: TStringField;
    ADOQuery1equi_uni1: TFMTBCDField;
    ADOQuery1equi_uni2: TFMTBCDField;
    ADOQuery1equi_uni3: TFMTBCDField;
    ADOQuery1lote: TBooleanField;
    ADOQuery1serialp: TStringField;
    ADOQuery1valido: TBooleanField;
    ADOQuery1atributo1: TBooleanField;
    ADOQuery1vatributo1: TStringField;
    ADOQuery1atributo2: TBooleanField;
    ADOQuery1vatributo2: TStringField;
    ADOQuery1atributo3: TBooleanField;
    ADOQuery1vatributo3: TStringField;
    ADOQuery1atributo4: TBooleanField;
    ADOQuery1vatributo4: TStringField;
    ADOQuery1atributo5: TBooleanField;
    ADOQuery1vatributo5: TStringField;
    ADOQuery1atributo6: TBooleanField;
    ADOQuery1vatributo6: TStringField;
    ADOQuery1garantia: TStringField;
    ADOQuery1peso: TFMTBCDField;
    ADOQuery1pie: TFMTBCDField;
    ADOQuery1margen1: TBCDField;
    ADOQuery1margen2: TBCDField;
    ADOQuery1margen3: TBCDField;
    ADOQuery1margen4: TBCDField;
    ADOQuery1margen5: TBCDField;
    ADOQuery1row_id: TBytesField;
    ADOQuery1imagen1: TStringField;
    ADOQuery1imagen2: TStringField;
    ADOQuery1i_art_des: TStringField;
    ADOQuery1uni_emp: TStringField;
    ADOQuery1rel_emp: TFMTBCDField;
    ADOQuery1movil: TBooleanField;
    ADOQuery1tot_costo: TFMTBCDField;
    ADOQuerytipo: TADOQuery;
    ADOQuerycodigo: TADOQuery;
    DataSourcecodigo: TDataSource;
    ADOTable1ajue_num: TIntegerField;
    ADOTable1reng_num: TIntegerField;
    ADOTable1art_desc: TMemoField;
    ADOTable1tipo: TStringField;
    ADOTable1co_art: TStringField;
    ADOTable1total_art: TFMTBCDField;
    ADOTable1uni_compra: TStringField;
    ADOTable1stotal_art: TFMTBCDField;
    ADOTable1suni_compr: TStringField;
    ADOTable1co_alma: TStringField;
    ADOTable1cost_unit_om: TFMTBCDField;
    ADOTable1cost_unit: TFMTBCDField;
    ADOTable1feccom: TDateTimeField;
    ADOTable1numcom: TIntegerField;
    ADOTable1uni_venta: TStringField;
    ADOTable1suni_venta: TStringField;
    ADOTable1cos_pro_un: TFMTBCDField;
    ADOTable1ult_cos_om: TFMTBCDField;
    ADOTable1cos_pro_om: TFMTBCDField;
    ADOTable1rowguid: TGuidField;
    ADOTable1total_uni: TFMTBCDField;
    ADOTable1nro_lote: TStringField;
    ADOTable1fec_lote: TDateTimeField;
    ADOTable1pendiente2: TFMTBCDField;
    ADOTable1tipo_doc2: TStringField;
    ADOTable1reng_doc2: TIntegerField;
    ADOTable1num_doc2: TIntegerField;
    ADOTable1aux01: TFMTBCDField;
    ADOTable1aux02: TStringField;
    ADOTable1mo_cant: TFMTBCDField;
    ADOTable1gf_cant: TFMTBCDField;
    ADOTable1mo_cant_om: TFMTBCDField;
    ADOTable1gf_cant_om: TFMTBCDField;
    ADOTable1produccion: TBooleanField;
    ADOTable1Total: TFMTBCDField;
    ClientDataSet1ajue_num: TIntegerField;
    ClientDataSet1reng_num: TIntegerField;
    ClientDataSet1art_desc: TMemoField;
    ClientDataSet1tipo: TStringField;
    ClientDataSet1co_art: TStringField;
    ClientDataSet1total_art: TFMTBCDField;
    ClientDataSet1uni_compra: TStringField;
    ClientDataSet1stotal_art: TFMTBCDField;
    ClientDataSet1suni_compr: TStringField;
    ClientDataSet1co_alma: TStringField;
    ClientDataSet1cost_unit_om: TFMTBCDField;
    ClientDataSet1cost_unit: TFMTBCDField;
    ClientDataSet1feccom: TDateTimeField;
    ClientDataSet1numcom: TIntegerField;
    ClientDataSet1uni_venta: TStringField;
    ClientDataSet1suni_venta: TStringField;
    ClientDataSet1cos_pro_un: TFMTBCDField;
    ClientDataSet1ult_cos_om: TFMTBCDField;
    ClientDataSet1cos_pro_om: TFMTBCDField;
    ClientDataSet1rowguid: TGuidField;
    ClientDataSet1total_uni: TFMTBCDField;
    ClientDataSet1nro_lote: TStringField;
    ClientDataSet1fec_lote: TDateTimeField;
    ClientDataSet1pendiente2: TFMTBCDField;
    ClientDataSet1tipo_doc2: TStringField;
    ClientDataSet1reng_doc2: TIntegerField;
    ClientDataSet1num_doc2: TIntegerField;
    ClientDataSet1aux01: TFMTBCDField;
    ClientDataSet1aux02: TStringField;
    ClientDataSet1mo_cant: TFMTBCDField;
    ClientDataSet1gf_cant: TFMTBCDField;
    ClientDataSet1mo_cant_om: TFMTBCDField;
    ClientDataSet1gf_cant_om: TFMTBCDField;
    ClientDataSet1produccion: TBooleanField;
    ClientDataSet1Total: TFMTBCDField;
    SpeedButton4: TSpeedButton;
    ADOQuerytipoco_tipo: TStringField;
    ADOQuerytipodes_tipo: TStringField;
    procedure Edit2DblClick(Sender: TObject);
    procedure Action2Execute(Sender: TObject);
    procedure FormShow(Sender: TObject);


  private
  FFIeldName: string;
    { Private declarations }
  public
    { Public declarations }
  end;
 Const
   coma = #39;

var
  FormAjuste: TFormAjuste;

implementation
Uses unit1,unitlistajuste;

{$R *.dfm}

procedure TFormAjuste.Action2Execute(Sender: TObject);
begin
    FormLISTAJUSTE.Show;
end;

procedure TFormAjuste.Edit2DblClick(Sender: TObject);
begin
      edit2.ReadOnly := False;
end;

procedure TFormAjuste.FormShow(Sender: TObject);
begin
   AdoQuerytipo.SQL.Text := 'Select co_tipo || des_tipo || From tipo_aju '; // selecciono el nombre de la tabla usuarios
   AdoQuerytipo.Active := True; // activo el sql
   While not AdoQuerytipo.Eof do  // recorro la tabla hasta el final
   begin
     DBGrid1.Columns[1].PickList.add(AdoQuerytipo.Fields[0].Text); // INSERTO EN EL PICKLISI DEL DBGRID LOS DATOS
     AdoQuerytipo.Next; // sigo insertando hasta que encuentre el ultimo
   end;
    AdoQuerytipo.Active := False;  // cierro la consulta
    if ClientDataSet1.State in [dsEdit, dsInsert] then
    end;

end.
Responder Con Cita