infolist.pas

房屋中介软件

unit InfoList;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  base, StdCtrls, Grids, DBGrids, ImgList, ComCtrls, ToolWin, ExtCtrls,
  DBActns, ActnList, Db,ADODB, DBCtrls, Mask, Buttons;

type
  TFrm_InfoList = class(TFrm_Base)
    ds_Data: TDataSource;
    DataSetFirst: TDataSetFirst;
    DataSetPrior: TDataSetPrior;
    DataSetNext: TDataSetNext;
    DataSetLast: TDataSetLast;
    al_Worker: TActionList;
    ADOQ_Data: TADOQuery;
    Label8: TLabel;
    dbeTitle: TDBEdit;
    dbrStatus: TDBRadioGroup;
    pnlTop: TPanel;
    DBNavigator1: TDBNavigator;
    BitBtn1: TBitBtn;
    Label12: TLabel;
    edtTitle: TEdit;
    btnFind: TBitBtn;
    Bevel1: TBevel;
    Panel1: TPanel;
    dbmContent: TDBMemo;
    Label1: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure btnCloseClick(Sender: TObject);
    procedure btnFindClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_InfoList: TFrm_InfoList;

implementation
  uses DataBase,common;
{$R *.DFM}




{-------------------------------------------
              关闭窗口事件
-------------------------------------------}
procedure TFrm_InfoList.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  ADOQ_Data.Close;
  //
  Tcomponent(Frm_InfoList):=nil;

end;


{-------------------------------------------
                窗口初始化
-------------------------------------------}
procedure TFrm_InfoList.FormCreate(Sender: TObject);
begin
  inherited;

  //
  with ADOQ_Data do
  begin
    Filtered:=False;
    Filter:='';
    close;
    open ;
  end;

end;

{-------------------------------------------
                 关闭窗口
-------------------------------------------}
procedure TFrm_InfoList.btnCloseClick(Sender: TObject);
begin
  inherited;
  close;

end;

procedure TFrm_InfoList.btnFindClick(Sender: TObject);
begin
  inherited;
    if edtTitle.Text<>'' then
    begin
      ADOQ_Data.Filtered:=true;
      ADOQ_Data.Locate('标题','%'+uppercase(edtTitle.Text)+'%',[loPartialKey])
    end else
    begin
      ADOQ_Data.Filtered:=false;
    end;
end;

end.