zfkfcx.pas

房屋出租信息管理系统,房屋出租信息的录入、查询、删除以及用户管理等功能

unit ZfKfCx;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls, Buttons, Grids, DBGrids, ExtCtrls, ComCtrls;

type
  TZfKfCxForm = class(TForm)
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    GroupBox2: TGroupBox;
    BitBtn_find: TBitBtn;
    ADQ_Kfcx: TADOQuery;
    DS_Kfcx: TDataSource;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Ed_Fh: TEdit;
    Chk: TCheckBox;
    Rad_Wtf: TRadioButton;
    Rad_Ytf: TRadioButton;
    BBtn_Print: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Ed_FhChange(Sender: TObject);
    procedure BitBtn_findClick(Sender: TObject);
    procedure Rad_WtfClick(Sender: TObject);
    procedure Rad_YtfClick(Sender: TObject);
    procedure BBtn_PrintClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ZfKfCxForm: TZfKfCxForm;

implementation

uses Cbreport, Unit_common_files,DateUtils;

{$R *.dfm}

procedure TZfKfCxForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action    :=cafree;
  ZfKfCxForm:=nil ;
end;

procedure TZfKfCxForm.Ed_FhChange(Sender: TObject);
begin
  if Chk.Checked =true then
    if Rad_Wtf.Checked =true then
       begin
        if ADQ_Kfcx.Active then
           ADQ_Kfcx.Close;
           ADQ_Kfcx.SQL.Clear ;
           ADQ_Kfcx.SQL.Add('SELECT A.id,A.manid, B.manname,B.zjm, A.fangno, A.begindate,');
           ADQ_Kfcx.SQL.Add('case A.status when ''0'' then ''已退房'' else ''未退房'' end as status');
           ADQ_Kfcx.SQL.Add('FROM dbo.Zf_rz A INNER JOIN dbo.Zf_Man B ON A.manid = B.manid ');
           ADQ_Kfcx.SQL.Add('where fangno like  ');
           ADQ_Kfcx.SQL.Add(''''+Ed_Fh.Text+'%'+'''');
           ADQ_Kfcx.SQL.Add('or zjm like '''+Ed_Fh.Text+'%'+'''');
       end
    else
      begin
       if ADQ_Kfcx.Active then
          ADQ_Kfcx.Close;
          ADQ_Kfcx.SQL.Clear ;
          ADQ_Kfcx.SQL.Add('SELECT A.id,A.manid, B.manname,B.zjm, A.fangno, A.begindate,A.Tfdate, A.Tfj,');
          ADQ_Kfcx.SQL.Add('case A.status when ''0'' then ''已退房'' else ''未退房'' end as status');
          ADQ_Kfcx.SQL.Add('FROM dbo.Zf_tf A INNER JOIN dbo.Zf_Man B ON A.manid = B.manid ');
          ADQ_Kfcx.SQL.Add('where fangno like  ');
          ADQ_Kfcx.SQL.Add(''''+Ed_Fh.Text+'%'+'''');
          ADQ_Kfcx.SQL.Add('or zjm like '''+Ed_Fh.Text+'%'+'''');
      end;
     ADQ_Kfcx.Prepared ;
     ADQ_Kfcx.Open ;
end;

procedure TZfKfCxForm.BitBtn_findClick(Sender: TObject);
begin
if Chk.Checked =false then
    if Rad_Wtf.Checked =true then
       begin
        if ADQ_Kfcx.Active then
           ADQ_Kfcx.Close;
           ADQ_Kfcx.SQL.Clear ;
           ADQ_Kfcx.SQL.Add('SELECT A.id,A.manid, B.manname,B.zjm, A.fangno, A.begindate,');
           ADQ_Kfcx.SQL.Add('case A.status when ''0'' then ''已退房'' else ''未退房'' end as status');
           ADQ_Kfcx.SQL.Add('FROM dbo.Zf_rz A INNER JOIN dbo.Zf_Man B ON A.manid = B.manid ');
           ADQ_Kfcx.SQL.Add('where fangno like  ');
           ADQ_Kfcx.SQL.Add(''''+Ed_Fh.Text+'%'+'''');
           ADQ_Kfcx.SQL.Add('or zjm like '''+Ed_Fh.Text+'%'+'''');
       end
    else
      begin
       if ADQ_Kfcx.Active then
          ADQ_Kfcx.Close;
          ADQ_Kfcx.SQL.Clear ;
          ADQ_Kfcx.SQL.Add('SELECT A.id,A.manid, B.manname,B.zjm, A.fangno, A.begindate,A.Tfdate, A.Tfj,');
          ADQ_Kfcx.SQL.Add('case A.status when ''0'' then ''已退房'' else ''未退房'' end as status');
          ADQ_Kfcx.SQL.Add('FROM dbo.Zf_tf A INNER JOIN dbo.Zf_Man B ON A.manid = B.manid ');
          ADQ_Kfcx.SQL.Add('where fangno like  ');
          ADQ_Kfcx.SQL.Add(''''+Ed_Fh.Text+'%'+'''');
          ADQ_Kfcx.SQL.Add('or zjm like '''+Ed_Fh.Text+'%'+'''');
       end;
     ADQ_Kfcx.Prepared ;
     ADQ_Kfcx.Open ;
  if ADQ_Kfcx.IsEmpty  then
     messagebox(0,'没有符合条件的记录','余科华提示',Mb_OK+MB_ICONWARNING);
     Ed_fh.SetFocus ;
     exit;
end;

procedure TZfKfCxForm.Rad_WtfClick(Sender: TObject);
begin
  if ADQ_Kfcx.Active then
     ADQ_Kfcx.Close;
     ADQ_Kfcx.SQL.Clear ;
     ADQ_Kfcx.SQL.Add('SELECT A.id,A.manid, B.manname,B.zjm, A.fangno, A.begindate,');
     ADQ_Kfcx.SQL.Add('case A.status when ''0'' then ''已退房'' else ''未退房'' end as status');
     ADQ_Kfcx.SQL.Add('FROM dbo.Zf_Rz A INNER JOIN dbo.Zf_Man B ON A.manid = B.manid ');
     ADQ_Kfcx.SQL.Add('where status=1');
     ADQ_Kfcx.Prepared ;
     ADQ_Kfcx.Open ;
  if ADQ_Kfcx.IsEmpty  then
     messagebox(0,'没有符合条件的记录','余科华提示',Mb_OK+MB_ICONWARNING);
     Ed_fh.SetFocus ;
     exit;
end;

procedure TZfKfCxForm.Rad_YtfClick(Sender: TObject);
begin
  if ADQ_Kfcx.Active then
     ADQ_Kfcx.Close;
     ADQ_Kfcx.SQL.Clear ;
     ADQ_Kfcx.SQL.Add('SELECT A.id,A.manid, B.manname,B.zjm, A.fangno, A.begindate,A.Tfdate, A.Tfj,');
     ADQ_Kfcx.SQL.Add('case A.status when ''0'' then ''已退房'' else ''未退房'' end as status');
     ADQ_Kfcx.SQL.Add('FROM dbo.Zf_tf A INNER JOIN dbo.Zf_Man B ON A.manid = B.manid ');
     ADQ_Kfcx.SQL.Add('where status=0');
     ADQ_Kfcx.Prepared ;
     ADQ_Kfcx.Open ;
  if ADQ_Kfcx.IsEmpty  then
     messagebox(0,'没有符合条件的记录','余科华提示',Mb_OK+MB_ICONWARNING);
     Ed_fh.SetFocus ;
     exit;
end;

procedure TZfKfCxForm.BBtn_PrintClick(Sender: TObject);
begin
  if ADQ_Kfcx.IsEmpty then
    begin
       messagebox(0,'请查询后再打印！','余科华提示',MB_OK+MB_ICONWARNING);
       Exit;
    end
 else
    begin
         BbForm_report:=TBbForm_report.Create(nil);
       try
         BbForm_report.QRL_Jbr.Caption :=CurrentUserName;
         BbForm_report.QRL_date.Caption:=inttostr(yearof(date))+'年'+inttostr(monthof(date))+'月'+inttostr(dayof(date))+'日';
         BbForm_report.Tf_report.Preview ;
       finally
         BbForm_report.Free ;
       end;  
    end;
end;

end.