querylend.~pas

我觉得是很好的一个程序是关于房产中介的管理系统包跨哦出租出售求租求售的

unit QueryLend;

interface

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

type
  TFrm_QueryLend = 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_QueryLend: TFrm_QueryLend;

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

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

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

end;

{-------------------------------------------
               开始查询
-------------------------------------------}
procedure TFrm_QueryLend.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_QueryLend.btnCloseClick(Sender: TObject);
begin
  inherited;
  close;

end;

procedure TFrm_QueryLend.BitBtn1Click(Sender: TObject);
begin
  inherited;
  Frm_LendCause:=TFrm_LendCause.Create(self);
  Try
    Frm_LendCause.ShowModal;
  Finally
    Frm_LendCause.Free;
  End;

end;

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

end;

end.