【delphi开源代码栏目提醒】：网学会员为需要delphi开源代码的朋友们搜集整理了JBXX_BJXX_CXTJFORM.pas相关资料，希望对各位网友有所帮助!

    unit JBXX_BJXX_CXTJFORM;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
      StdCtrls, Buttons, ExtCtrls;
    
    type
      TJBXX_BJXX_CXTJ = class(TForm)
        Label2: TLabel;
        Bevel1: TBevel;
        Label1: TLabel;
        BitBtn1: TBitBtn;
        BitBtn2: TBitBtn;
        ComboBox1: TComboBox;
        Edit1: TEdit;
        procedure FormShow(Sender: TObject);
        procedure BitBtn1Click(Sender: TObject);
        procedure BitBtn2Click(Sender: TObject);
        procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
        procedure Edit1KeyPress(Sender: TObject; var Key: Char);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      JBXX_BJXX_CXTJ: TJBXX_BJXX_CXTJ;
    
    implementation
    
    uses JBXX_BJXXFORM;
    
    {$R *.DFM}
    
    procedure TJBXX_BJXX_CXTJ.FormShow(Sender: TObject);
    begin
     combobox1.itemindex:=0; //显示查询子段
     edit1.text:='';      //清空查询值
     combobox1.setfocus;
    end;
    procedure TJBXX_BJXX_CXTJ.BitBtn1Click(Sender: TObject);
    begin
     if combobox1.Text='' then begin
       messagedlg('请选择查询项目',mterror,[mbok],0);
       combobox1.setfocus;
     end else begin
       JBXX_BJXX.ADOQuery1.filtered:=true;
       JBXX_BJXX.ADOQuery1.filter:=format(combobox1.text+'='+'''%s''',[edit1.text]);
       JBXX_BJXX.bitbtn4.caption:='刷   新[&S]';
       close;
     end;
    end;
    procedure TJBXX_BJXX_CXTJ.ComboBox1KeyPress(Sender: TObject; var Key: Char);
    begin
     if key=#13 then edit1.setfocus;     //回车移动焦点
    end;
    procedure TJBXX_BJXX_CXTJ.Edit1KeyPress(Sender: TObject; var Key: Char);
    begin
     if key=#13 then bitbtn1.Click;     //回车移动焦点
    end;
    procedure TJBXX_BJXX_CXTJ.BitBtn2Click(Sender: TObject);
    begin
     close;  //退出
    end;
    end.