kfcx.pas

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

unit KfCx;

interface

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

type
  TKfCxForm = class(TForm)
    ADQ_Kfcx: TADOQuery;
    DS_Kfcx: TDataSource;
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    Panel2: TPanel;
    Label1: TLabel;
    Ed_Kfbh: TEdit;
    Chk: TCheckBox;
    BitBtn1: TBitBtn;
    bitbtn_quit: TBitBtn;
    BBtn_Print: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bitbtn_quitClick(Sender: TObject);
    procedure Ed_KfbhChange(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BBtn_PrintClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  KfCxForm: TKfCxForm;

implementation

uses Cbreport, Unit_common_files,DateUtils;

{$R *.dfm}

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

procedure TKfCxForm.bitbtn_quitClick(Sender: TObject);
begin
  close;
end;

procedure TKfCxForm.Ed_KfbhChange(Sender: TObject);
begin
if Chk.Checked =true then
 begin
   if ADQ_Kfcx.Active then
     ADQ_Kfcx.Close;
     ADQ_Kfcx.SQL.Clear ;
     ADQ_Kfcx.SQL.Add('select manid,manname,zjm,case sex when ''1'' then ''男'' else ''女'' end as sex,');
     ADQ_Kfcx.SQL.Add('idcard,iddress,handset,company From dbo.Zf_Man');
     ADQ_Kfcx.SQL.Add('where manid like :manid or zjm like :zjm');
     ADQ_Kfcx.Parameters.ParamByName('manid').Value:=trim(Ed_Kfbh.Text)+'%';
     ADQ_Kfcx.Parameters.ParamByName('zjm').Value:=trim(Ed_Kfbh.Text)+'%';
     ADQ_Kfcx.Prepared ;
     ADQ_Kfcx.Open ;
  end;
end;

procedure TKfCxForm.BitBtn1Click(Sender: TObject);
begin
  if ADQ_Kfcx.Active then
     ADQ_Kfcx.Close;
     ADQ_Kfcx.SQL.Clear ;
     ADQ_Kfcx.SQL.Add('select manid,manname,zjm,case sex when ''1'' then ''男'' else ''女'' end as sex,');
     ADQ_Kfcx.SQL.Add('idcard,iddress,handset,company From dbo.Zf_Man');
     ADQ_Kfcx.SQL.Add('where manid like :manid or zjm like :zjm');
     ADQ_Kfcx.Parameters.ParamByName('manid').Value:=trim(Ed_Kfbh.Text);
     ADQ_Kfcx.Parameters.ParamByName('zjm').Value:=trim(Ed_Kfbh.Text);
     ADQ_Kfcx.Prepared ;
     ADQ_Kfcx.Open ;
  if ADQ_Kfcx.IsEmpty  then
     messagebox(0,'没有符合条件的记录','余科华提示',MB_OK+MB_ICONWARNING);
     Ed_Kfbh.SetFocus ;
     exit;
end;

procedure TKfCxForm.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_Dyr.Caption :=CurrentUserName;
         BbForm_report.QRL_Rq.Caption:=inttostr(yearof(date))+'年'+inttostr(monthof(date))+'月'+inttostr(dayof(date))+'日';
         BbForm_report.KfHmc_report.Preview ;
        finally
         BbForm_report.Free ;
        end; 
     end;
end;

end.