unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ImgList, ToolWin, ExtCtrls, Buttons, StdCtrls, Menus,
  DBCtrls, Grids, DBGrids, DB, ADODB, Mask, MemDS, DBAccess, Uni;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    ImageList1: TImageList;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    DBGrid1: TDBGrid;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    Panel2: TPanel;
    Edit1: TEdit;
    SpeedButton1: TSpeedButton;
    DataSource1: TDataSource;
    DBNavigator1: TDBNavigator;
    DBComboBox1: TDBComboBox;
    Label1: TLabel;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    DBMemo2: TDBMemo;
    Label3: TLabel;
    DBMemo1: TDBMemo;
    DBGrid2: TDBGrid;
    N3: TMenuItem;
    CheckBox1: TCheckBox;
    N4: TMenuItem;
    N5: TMenuItem;
    UniDataSource1: TUniDataSource;
    UniTable1: TUniTable;
    ADO: TUniQuery;
    procedure ToolButton4Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure PageControl1Change(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
uses
  UnitData2;

{$R *.dfm}

procedure TForm1.ToolButton4Click(Sender: TObject);
begin
 close();
end;

procedure TForm1.N2Click(Sender: TObject);
begin
close();
end;

procedure TForm1.N3Click(Sender: TObject);
begin
        Showmessage('无尽灯论坛 new.wujindeng.net 。 字典内容来自自正觉网站的法相词典。');
end;

procedure TForm1.N4Click(Sender: TObject);
begin
if n4.Checked then  begin
   tabsheet2.TabVisible:=false;
   PageControl1.ActivePage:=tabsheet1;
   n4.Checked:=false;

end else begin

 tabsheet2.TabVisible:=true;
 PageControl1.ActivePage:=tabsheet2;
 n4.Checked:=true;
end;

end;

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if 13=key then //13 是回车
begin
  speedbutton1.click;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  //DataDB2.ADOQuery2.Sql.add('select  * from fxcd');
  //DataDB2.ADOQuery2.Active := True;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
//ado.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=fxcd.mdb;Persist Security Info=False';

ado.SQL.Add('select * from fxcd');
ado.open;

pagecontrol1.ActivePage:=tabsheet1;
//tabsh.eet2.TabVisible:=false;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
var s,sqls:String;
begin

 //  ado.Filtered:=false;
   s:=Edit1.Text;
   if  s='' then
   Exit;


 ado.Close;
if checkbox1.Checked then begin
 sqls:='select * from fxcd where c_des like '+''''+'%'+s+'%'+'''' ;

 ado.SQL.Add(sqls);//
 ado.open;
end else begin
 sqls:='select * from fxcd where c_name like '+''''+'%'+s+'%'+'''';
// sqls:='select * from fxcd where c_des  like '+''''+'%'+s+'%'+'''' ;
 ado.Open;
end;


end;

procedure TForm1.PageControl1Change(Sender: TObject);
begin
//if PageControl1.ActivePage=TabSheet1 then
//   ado.Filtered:=false;
end;

end.