ydsfcx.pas

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

unit YdSfCx;

interface

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

type
  TYdSfCxForm = class(TSfCxForm)
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn_findClick(Sender: TObject);
    procedure BBtn_OkClick(Sender: TObject);
    procedure BBtn_PrintClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  YdSfCxForm: TYdSfCxForm;

implementation

uses YdSfGjcx, Cbreport, Unit_common_files,DateUtils;

{$R *.dfm}

procedure TYdSfCxForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  Action    :=cafree;
  YdSfCxForm:=nil;
end;

procedure TYdSfCxForm.BitBtn_findClick(Sender: TObject);
var
  f_name,Filterstr:string;
  f_value:Variant;
begin
  inherited;
   if (Com_first.Text='') or (Com_term.Text='') then exit;
  f_name := fieldname.Items.Strings[Com_first.Items.IndexOf(Com_first.Text)];
  case ADQ_SfCx.FieldByName(f_name).DataType of
    ftString,ftFloat:f_value := Com_result.Text;
    ftdatetime:f_value := datetostr(DateTP.Date);
  end;
  Filterstr := 'SELECT A.ID,A.fangno, A.manid, B.manname,A.Jkrq, A.Sybd, A.Bybd, A.Sys, A.Yddj, '
               +' A.Yfj,A.sfj,case A.status when ''1'' then ''已交款'' else ''未交款'' end as status'
               +' FROM Zf_YdSf A INNER JOIN dbo.Zf_Man B ON A.manid = B.manid where '
               +'' + f_name + ' ' + Com_term.Text + ' ''' + f_value + '''';
  ADQ_SfCx.close;
  ADQ_SfCx.SQL.Clear;
  ADQ_SfCx.SQL.Add(filterstr);
  ADQ_SfCx.Open;
end;

procedure TYdSfCxForm.BBtn_OkClick(Sender: TObject);
var
  lop,f_count:integer;
begin
  inherited;
   YdSfGjcxForm:= TYdSfGjcxForm.create(nil);
  try
    if not ADQ_SfCx.Active then ADQ_SfCx.Open;
       f_count := DBGrid1.columns.Count;
       for lop := 0 to f_count -1 do
      begin
        fieldname.Items.Add(DBGrid1.columns[lop].FieldName);
        YdSfGjcxForm.Com_jl.Items.Add(DBGrid1.columns[lop].Title.Caption);
      end;
      YdSfGjcxForm.fieldname.items.Assign(fieldname.items);
      if YdSfGjcxForm.ShowModal = mryes then
    begin
      ADQ_SfCx.Close;
      ADQ_SfCx.SQL.Clear;
      ADQ_SfCx.SQL.Add('SELECT A.ID,A.fangno, A.manid , B.manname,A.Jkrq, A.Sybd, A.Bybd, A.Sys,A.rsdj,');
      ADQ_SfCx.SQL.Add('A.Yfj,A.sfj,case A.status when ''1'' then ''已交款'' else ''未交款'' end as status ');
      ADQ_SfCx.SQL.Add(' FROM dbo.Zf_Reshui A INNER JOIN  dbo.Zf_Man B ON A.manid = B.manid ');
      ADQ_SfCx.SQL.Add(YdSfGjcxForm.returnstr);
      ADQ_SfCx.Open;
    end;
  finally
    YdSfGjcxForm.Free;
  end;
end;

procedure TYdSfCxForm.BBtn_PrintClick(Sender: TObject);
begin
  inherited;
   if ADQ_SfCx.IsEmpty then
     begin
       messagebox(0,'请查询后再打印！','余科华提示',MB_OK+MB_ICONWARNING);
       exit;
     end
  else
     begin
          BbForm_report:=TBbForm_report.Create(nil);
        try
          BbForm_report.QRL_Yddyr.Caption:=CurrentUserName;
          BbForm_report.QRL_YdJkyf.Caption:=inttostr(yearof(date))+'年'+inttostr(monthof(date))+'月';
          BbForm_report.QRL_Yddyrq.Caption:=inttostr(yearof(date))+'年'+inttostr(monthof(date))+'月'+inttostr(dayof(date))+'日';
          BbForm_report.Yd_report.Preview ;
        finally
          BbForm_report.Free ;
        end;    
     end;  
end;

end.