qtfytj.~pas

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

unit QtFyTj;

interface

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

type
  TQtFyTjForm = class(TForm)
    Panel1: TPanel;
    Button_FW: TButton;
    Button_Ls: TButton;
    Button_Rs: TButton;
    Button_Yd: TButton;
    Lb_ykh: TLabel;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Dt_begin: TDateTimePicker;
    Dt_end: TDateTimePicker;
    DBGrid_Zjtj: TDBGrid;
    ADQ_Zjtj: TADOQuery;
    DS_Zjtj: TDataSource;
    DBGrid1: TDBGrid;
    GroupBox3: TGroupBox;
    BBtn_Print: TBitBtn;
    bitbtn_quit: TBitBtn;
    procedure bitbtn_quitClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button_FWClick(Sender: TObject);
    procedure Button_LsClick(Sender: TObject);
    procedure Button_RsClick(Sender: TObject);
    procedure Button_YdClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BBtn_PrintClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  QtFyTjForm: TQtFyTjForm;

implementation

uses DataModule,DateUtils, Cbreport;

{$R *.dfm}

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

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

procedure TQtFyTjForm.Button_FWClick(Sender: TObject);
begin
 if ADQ_Zjtj.Active   then
    ADQ_Zjtj.Close;
    ADQ_Zjtj.SQL.Clear ;
    ADQ_Zjtj.SQL.Add('select count(*)as rs,sum(fangya)as fangya,sum(fangprice)as fangprice,sum(ljf)as ljf,sum(yf)as yf,sum(sf)as sf from Zf_Zujin');
    ADQ_Zjtj.SQL.Add('where jkrq BETWEEN '''+datetostr(Dt_begin.Date)+''' and '''+datetostr(Dt_end.date)+'''');
    ADQ_Zjtj.Open ;
    DBGrid_Zjtj.DataSource:=Ds_zjtj;
    Lb_ykh.Caption:='房屋租金情况统计';
    DBGrid_Zjtj.Visible   :=true;
    DBGrid1.Visible       :=false;
end;

procedure TQtFyTjForm.Button_LsClick(Sender: TObject);
begin
  if ADQ_Zjtj.Active   then
    ADQ_Zjtj.Close;
    ADQ_Zjtj.SQL.Clear ;
    ADQ_Zjtj.SQL.Add('select count(*)as rs,sum(sys)as sys,sum(yfj)as yfj,sum(sfj)as sfj from dbo.Zf_Lenshui');
    ADQ_Zjtj.SQL.Add('where jkrq BETWEEN '''+datetostr(Dt_begin.Date)+''' and '''+datetostr(Dt_end.date)+'''');
    ADQ_Zjtj.Open ;
    DBGrid_Zjtj.DataSource:=Ds_zjtj;
    Lb_ykh.Caption:='冷水收费情况统计';
    DBGrid_Zjtj.Visible   :=false;
    DBGrid1.Visible       :=true;
end;

procedure TQtFyTjForm.Button_RsClick(Sender: TObject);
begin
   if ADQ_Zjtj.Active   then
    ADQ_Zjtj.Close;
    ADQ_Zjtj.SQL.Clear ;
    ADQ_Zjtj.SQL.Add('select count(*)as rs,sum(sys)as sys,sum(yfj)as yfj,sum(sfj)as sfj from dbo.Zf_Reshui');
    ADQ_Zjtj.SQL.Add('where jkrq BETWEEN '''+datetostr(Dt_begin.Date)+''' and '''+datetostr(Dt_end.date)+'''');
    ADQ_Zjtj.Open ;
    DBGrid_Zjtj.DataSource:=Ds_zjtj;
    Lb_ykh.Caption:='热水收费情况统计';
    DBGrid_Zjtj.Visible   :=false;
    DBGrid1.Visible       :=true;
end;

procedure TQtFyTjForm.Button_YdClick(Sender: TObject);
begin
   if ADQ_Zjtj.Active   then
    ADQ_Zjtj.Close;
    ADQ_Zjtj.SQL.Clear ;
    ADQ_Zjtj.SQL.Add('select count(*)as rs,sum(sys)as sys,sum(yfj)as yfj,sum(sfj)as sfj from dbo.Zf_YdSf');
    ADQ_Zjtj.SQL.Add('where jkrq BETWEEN '''+datetostr(Dt_begin.Date)+''' and '''+datetostr(Dt_end.date)+'''');
    ADQ_Zjtj.Open ;
    DBGrid_Zjtj.DataSource:=Ds_zjtj;
    Lb_ykh.Caption:='用电收费情况统计';
    DBGrid_Zjtj.Visible   :=false;
    DBGrid1.Visible       :=true;
end;

procedure TQtFyTjForm.FormCreate(Sender: TObject);
begin
  Dt_Begin.Date:=date()-dayof(date);
  Dt_end.Date  :=date();
end;

procedure TQtFyTjForm.BBtn_PrintClick(Sender: TObject);
begin
  BbForm_report:=TBbForm_report.Create(nil);
 try
  if ADQ_Zjtj.IsEmpty then
     begin
       messagebox(0,'请查询后再打印','余科华提示',MB_OK+MB_ICONWARNING);
       EXIT;
     end
 else if Lb_ykh.Caption='房屋租金情况统计' then
    begin
       BbForm_report.QRL_begindate.Caption :=datetostr(Dt_begin.date);
       BbForm_report.QRL_endDate.Caption   :=Datetostr(Dt_end.Date );
       BbForm_report.QR_Fwzjtj.Preview ;
     end
 else if Lb_ykh.Caption='热水收费情况统计' then
     begin
       BbForm_report.QRL_khy.Caption   :='热水收费情况统计';
       BbForm_report.beginDate.Caption :=datetostr(Dt_begin.date);
       BbForm_report.endDate.Caption   :=Datetostr(Dt_end.Date );
       BbForm_report.QR_Sf.Preview ;
     end
 else if Lb_ykh.Caption='冷水收费情况统计' then
     begin
       BbForm_report.QRL_khy.Caption   :='冷水收费情况统计';
       BbForm_report.beginDate.Caption :=datetostr(Dt_begin.date);
       BbForm_report.endDate.Caption   :=Datetostr(Dt_end.Date );
       BbForm_report.QR_Sf.Preview ;
     end
 else if Lb_ykh.Caption='用电收费情况统计' then
     begin
       BbForm_report.QRL_khy.Caption   :='用电收费情况统计';
       BbForm_report.beginDate.Caption :=datetostr(Dt_begin.date);
       BbForm_report.endDate.Caption   :=Datetostr(Dt_end.Date );
       BbForm_report.QR_Sf.Preview ;
     end;
 finally
       BbForm_report.Free ;
    end;    
end;

end.