pas_querypay.~pas

比较详细的功能

unit pas_querypay;

interface

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

type
  TForm_querypay = class(TForm)
    ToolBar1: TToolBar;
    selectC: TSpeedButton;
    ToolButton5: TToolButton;
    DBGrid1: TDBGrid;
    no: TEdit;
    selectL: TSpeedButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    selectContract: TSpeedButton;
    procedure selectLandlordClick(Sender: TObject);
    procedure selectclientClick(Sender: TObject);
    procedure noKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure selectCClick(Sender: TObject);
    procedure selectLClick(Sender: TObject);
    procedure selectContractClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_querypay: TForm_querypay;

implementation
    uses pas_dm2;
{$R *.dfm}

procedure TForm_querypay.selectLandlordClick(Sender: TObject);
begin
    try
     with dm2.Query_pay do
     begin
       close;
       sql.clear;
       sql.Text:= 'select l_no 房东编号,l_name 房东名字 from landlord';
       open;
     end;
   except
     showmessage('查询失败');
   end;

   
end;

procedure TForm_querypay.selectclientClick(Sender: TObject);
begin
    try
     with dm2.Query_pay do
     begin
       close;
       sql.clear;
       sql.Text:= 'select c_no 客户编号,c_name 客户名字 from client';
       open;
     end;
   except
     showmessage('查询失败');
   end;
end;

procedure TForm_querypay.noKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    no.Text:='';
end;

procedure TForm_querypay.selectCClick(Sender: TObject);
var
  S:string;
begin
     if (no.Text='') then
     begin
       showmessage('名字不能为空');
       exit;
     end;

    
     s:= ' where ho_contractNO=p_cno and ho_client like ''%'+trim(no.Text)+'%'' ';

     with  dm2.Query_pay do
     begin
        close;
        sql.Clear;
        sql.Add(' select   p_cno 合同编号,'+
          '  ho_landlord 房东编号, '+
          '  ho_client 客户编号, '+
          '  ho_no 房子编号, '+
          '  P_paytimes 第几次, '+
          '  p_paymoney 金额, '+
          '  p_time 付款时间, '+
          '  p_now 操作时间, '+
          '  p_remarks 付款备注 '+
          '   from house_histry,pay '+s);
        open;
     end;
end;

procedure TForm_querypay.selectLClick(Sender: TObject);
var
  S:string;
begin
     if (no.Text='') then
     begin
       showmessage('名字不能为空');
       exit;
     end;

    
     s:= ' where ho_contractNO=p_cno and ho_landlord like ''%'+trim(no.Text)+'%'' ';

     with  dm2.Query_pay do
     begin
        close;
        sql.Clear;
        sql.Add(' select   p_cno 合同编号,'+
          '  ho_landlord 房东编号, '+
          '  ho_client 客户编号, '+
          '  ho_no 房子编号, '+
          '  P_paytimes 第几次, '+
          '  p_paymoney 金额, '+
          '  p_time 付款时间, '+
          '  p_now 操作时间, '+
          '  p_remarks 付款备注 '+
          '   from house_histry,pay '+s);
        open;
     end;
end;


procedure TForm_querypay.selectContractClick(Sender: TObject);
 var
  S:string;
begin
     if (no.Text='') then
     begin
       showmessage('合同不能为空');
       exit;
     end;

     if(trim(no.Text)<>'') then
     begin
     s:= ' where ho_contractNO=p_cno and p_cno like ''%'+trim(no.Text)+'%'' ';
     end
     else
     begin
     s:='';
     end;
     with  dm2.Query_pay do
     begin
        close;
        sql.Clear;
        sql.Add(' select   p_cno 合同编号,'+
          '  ho_landlord 房东编号, '+
          '  ho_client 客户编号, '+
          '  ho_no 房子编号, '+
          '  P_paytimes 第几次, '+
          '  p_paymoney 金额, '+
          '  p_time 付款时间, '+
          '  p_now 操作时间, '+
          '  p_remarks 付款备注 '+
          '   from house_histry,pay '+s);
        open;
     end;
end;


end.