lendcause.~pas

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

unit LendCause;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  base, StdCtrls, Mask, ComCtrls, Buttons,adodb,db;

type
  TFrm_LendCause = class(TFrm_Base)
    Label2: TLabel;
    Label4: TLabel;
    edtHouseAddr: TEdit;
    edtNo: TEdit;
    chkStartDate: TCheckBox;
    Label7: TLabel;
    Label3: TLabel;
    dtpEndDate: TDateTimePicker;
    dtpStartDate: TDateTimePicker;
    chkEndDate: TCheckBox;
    Label6: TLabel;
    cbHouseType: TComboBox;
    cbHouseWay: TComboBox;
    Label1: TLabel;
    Label8: TLabel;
    cbHouseArea: TComboBox;
    Label9: TLabel;
    edtLinkName: TEdit;
    cboStatus: TComboBox;
    Label5: TLabel;
    btnClose: TBitBtn;
    btnFind: TBitBtn;
    procedure FormActivate(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure chkStartDateClick(Sender: TObject);
    procedure chkEndDateClick(Sender: TObject);
    procedure btnCloseClick(Sender: TObject);
    procedure btnFindClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    ParmAdoqData:TADOQuery;
  end;

var
  Frm_LendCause: TFrm_LendCause;

implementation

uses DataBase,common;

{$R *.DFM}

procedure TFrm_LendCause.FormActivate(Sender: TObject);
begin
  inherited;

end;


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

{-------------------------------------------
               实现数据同步
-------------------------------------------}

procedure TFrm_LendCause.chkStartDateClick(Sender: TObject);
begin
  inherited;
  //
  if chkStartDate.Checked =true then
  begin
    dtpStartDate.Enabled  :=True;
  end
  else
  begin
    dtpStartDate.Enabled  :=False;
  end;

end;

procedure TFrm_LendCause.chkEndDateClick(Sender: TObject);
begin
  inherited;
  //
  if chkEndDate.Checked =true then
  begin
    dtpEndDate.Enabled  :=True;
  end
  else
  begin
    dtpEndDate.Enabled  :=False;
  end;


end;

procedure TFrm_LendCause.btnCloseClick(Sender: TObject);
begin
  inherited;
  close;
  
end;

procedure TFrm_LendCause.btnFindClick(Sender: TObject);
var
  strFilter : string;
begin
  inherited;
  // 构造过滤条件
  strFilter := '';

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

  if trim(cbHouseType.text)<>'' then
    strFilter := strFilter + ' 房型='+''''+cbHouseType.text+''''+' AND ';

  if trim(cbHouseWay.text)<>'' then
    strFilter := strFilter + ' 朝向='+''''+cbHouseWay.text+''''+' AND ';

  if trim(cbHouseArea.text)<>'' then
    strFilter := strFilter + ' 区域='+''''+cbHouseArea.text+''''+' AND ';

  if trim(edtLinkName.text)<>'' then
    strFilter := strFilter + ' (联系人 like '+'''%'+edtLinkName.text+'%'')'+' AND ';

  if chkStartDate.Checked then
    strFilter := strFilter + ' 创建日期 >= #'+FormatDateTime('yyyy-mm-dd',dtpStartDate.DateTime)+'# AND ';

  if chkEndDate.Checked then
    strFilter := strFilter + ' 创建日期 <= #'+FormatDateTime('yyyy-mm-dd',dtpEndDate.DateTime)+'# AND ';

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

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

  //
  close;


end;

end.