find.pas

程序员电子日记本：用记录日常事务等一些其它生活事

unit Find;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, SUIForm, StdCtrls, SUIDBCtrls, SUIImagePanel,
  SUIGroupBox, SUIRadioGroup, SUIButton, SUIEdit, Grids, DBGridEh,
  SUIListBox;

type
  TfrmFind = class(TForm)
    suiForm1: TsuiForm;
    suiRadioGroup1: TsuiRadioGroup;
    suiButton1: TsuiButton;
    suiButton2: TsuiButton;
    suiEdit1: TsuiEdit;
    Label1: TLabel;
    suiButton3: TsuiButton;
    DBGridEh1: TDBGridEh;
    Bevel1: TBevel;
    suiListBox1: TsuiListBox;
    procedure suiButton2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure suiButton3Click(Sender: TObject);
    procedure suiRadioGroup1Click(Sender: TObject);
    procedure suiListBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmFind: TfrmFind;

implementation

uses DataModule;

{$R *.dfm}

procedure TfrmFind.suiButton2Click(Sender: TObject);
begin
close;
end;

procedure TfrmFind.FormShow(Sender: TObject);
begin
  self.Height:=240;
  suiButton3.Caption:='详细(&T)>>>';
  suiRadioGroup1Click(sender);
  suiEdit1.SetFocus;
end;

procedure TfrmFind.suiButton3Click(Sender: TObject);
begin
 if suiButton3.Caption='详细(&T)>>>' then
   begin
     self.Height:=400;
     suiButton3.Caption:='详细(&T)<<<';
   end else
   begin
     self.Height:=240;
     suiButton3.Caption:='详细(&T)>>>';
   end;
end;

procedure TfrmFind.suiRadioGroup1Click(Sender: TObject);
begin
  Dm1.ADOQuery2.Close;
  Dm1.ADOQuery2.SQL.Clear;
  case suiRadioGroup1.ItemIndex of
     0:Dm1.adoquery2.SQL.Text:='SELECT RQ from Diary order by rq';
     1:Dm1.adoquery2.SQL.Text:='SELECT BT from Diary order by BT';
     2:Dm1.adoquery2.SQL.Text:='SELECT XM from Diary order by XM';
     3:Dm1.adoquery2.SQL.Text:='SELECT RQ from Diary order by rq';
     4:Dm1.adoquery2.SQL.Text:='SELECT LY from Diary order by LY';
end;

 Dm1.ADOQuery2.Open;
 dm1.adoquery2.First;
 suiListbox1.Items.Clear;
 while not Dm1.ADOQuery2.Eof do
 begin
   suiListBox1.Items.Add(Dm1.ADOQuery2.Fields[0].AsString);
   DM1.ADOQuery2.Next;
 end;
   

end;

procedure TfrmFind.suiListBox1Click(Sender: TObject);
var sVal,sSQL:string;
    locateSuccess:Boolean;
begin
  sVal:=suiListbox1.Items[suiListbox1.itemindex];
//  sSQL:='SELECT Diary.RQ,Diary.TQ,Diary.BT,Diary.XM,Diary.ly,Diary.lysx,Diary.xxlr from diary';
  case suiRadioGroup1.ItemIndex of
    0:LocateSuccess:=Dm1.ADOQuery1.Locate('rq',sVal,[]);
    1:LocateSuccess:=Dm1.ADOQuery1.Locate('bt',sVal,[]);
    2:LocateSuccess:=Dm1.ADOQuery1.Locate('xm',sVal,[]);
    3:LocateSuccess:=Dm1.ADOQuery1.Locate('rq',sVal,[]);
    4:LocateSuccess:=Dm1.ADOQuery1.Locate('LY',sVal,[]);
  end;

 if not LocateSuccess  then
   begin
     messagebox(handle,'没找到数据','出错了',MB_ICONStop+MB_OK);
     exit;
   end;

end;

end.