querysale.~pas

房屋中介软件

unit QuerySale;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  base, ComCtrls, ToolWin, StdCtrls, ImgList, Grids, DBGrids, Buttons,
  ExtCtrls,adodb, Db;

type
  TFrm_QuerySale = class(TFrm_Base)
    ds_Data: TDataSource;
    ilBill: TImageList;
    ADOQ_Data: TADOQuery;
    Panel1: TPanel;
    Label12: TLabel;
    edtNo: TEdit;
    btnFind: TBitBtn;
    BitBtn1: TBitBtn;
    rdoStatus: TRadioGroup;
    btnClose: TBitBtn;
    dbgList: TDBGrid;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnFindClick(Sender: TObject);
    procedure btnCloseClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure dbgListDblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_QuerySale: TFrm_QuerySale;

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

{-------------------------------------------
             模块初始化处理　
-------------------------------------------}
procedure TFrm_QuerySale.FormCreate(Sender: TObject);
begin
  inherited;
  //
  ADOQ_Data.Open;
  //
  btnFindClick(nil);

end;

{-------------------------------------------
                释放变量
-------------------------------------------}
procedure TFrm_QuerySale.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  //
  Tcomponent(Frm_QuerySale):=nil;

end;

{-------------------------------------------
               开始查询
-------------------------------------------}
procedure TFrm_QuerySale.btnFindClick(Sender: TObject);
var
  strFilter:string;
begin
  inherited;
  // 构造过滤条件
  strFilter := '';

  if trim(edtNo.text)<>'' then
    strFilter := strFilter + ' (收件号 like '+'''%'+edtNo.text+'%'')'+' AND ';
  //
  if rdoStatus.itemindex=1 then
  begin
    strFilter := strFilter + ' 状态='+'''未处理'''+' AND ';
  end
  else if rdoStatus.itemindex=2 then
  begin
    strFilter := strFilter + ' 状态='+'''已处理'''+' AND ';
  end
  else if rdoStatus.itemindex=3 then
  begin
    strFilter := strFilter + ' 状态='+'''已作废'''+' AND ';
  end;

  //
  if strFilter<>'' then
    strFilter :=copy( strFilter,0,Length(strFilter)-5 );


  //过滤查询
  if strFilter='' then
  begin
    ADOQ_Data.Filtered:=false;
  end
  else
  begin
    ADOQ_Data.Filtered:=true;
    ADOQ_Data.Filter:=strFilter;
  end;

end;

{-------------------------------------------
                关闭处理
-------------------------------------------}
procedure TFrm_QuerySale.btnCloseClick(Sender: TObject);
begin
  inherited;
  close;

end;

procedure TFrm_QuerySale.BitBtn1Click(Sender: TObject);
begin
  inherited;
  Frm_SaleCause:=TFrm_SaleCause.Create(self);
  Try
    Frm_SaleCause.ParmAdoqData := ADOQ_Data;
    Frm_SaleCause.ShowModal;
  Finally
    Frm_SaleCause.Free;
  End;

end;

{-------------------------------------------
                查看明细
-------------------------------------------}
procedure TFrm_QuerySale.dbgListDblClick(Sender: TObject);
begin
  inherited;
  if not ADOQ_Data.IsEmpty THEN
  Begin
    Frm_SaleDetail:=TFrm_SaleDetail.Create(self);
    Try
      Frm_SaleDetail.ParmEditorMode := 'EDIT';
      Frm_SaleDetail.ParmId:=ADOQ_Data.fieldbyname('编号').ASSTRING;
      Frm_SaleDetail.ShowModal;
    Finally
      Frm_SaleDetail.Free;
    End;
  end;

end;

end.