pas_fk.pas

比较详细的功能

unit pas_fk;

interface

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

type
  TForm_fk = class(TForm)
    DBGrid: TDBGrid;
    ToolBar1: TToolBar;
    select: TSpeedButton;
    ToolButton5: TToolButton;
    fk: TSpeedButton;
    ToolButton3: TToolButton;
    Cth: TSpeedButton;
    edit_remarks: TEdit;
    edit_rentFee: TEdit;
    Label9: TLabel;
    Label6: TLabel;
    Label8: TLabel;
    cb_contractno: TComboBox;
    dtp_fktime: TDateTimePicker;
    Label11: TLabel;
    procedure cb_contractnoDropDown(Sender: TObject);
    procedure selectClick(Sender: TObject);
    procedure fkClick(Sender: TObject);
    procedure CthClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_fk: TForm_fk;

implementation
    uses pas_dm2, Pas_DM;
{$R *.dfm}

procedure TForm_fk.cb_contractnoDropDown(Sender: TObject);
var
   s:string;
begin
  try
   with dm.aq1 do
   begin
     close;
     sql.Clear;
     s:='select ho_contractno from house_histry ';
     sql.Add(s);
     open;
     cb_contractno.Items.Clear;
     while not dm.aq1.Eof do
     begin
      cb_contractno.Items.Add(fields.Fields[0].asstring);
      next;
    end;
   end;
  except
  end;
end;

procedure TForm_fk.selectClick(Sender: TObject);
var
  s:string;
begin
  
     s:= ' where hi_cno=ho_contractno and  hi_cno like ''%'+trim(cb_contractno.Text)+'%'' ';

     with pas_dm2.dm2.query_fk do
     begin
     close;
     sql.Clear;
     s:='select hi_cno 合同编号,ho_no 房子,hi_times 付款次数,hi_fktime 付款时间,hi_fkorno 付款没有,hi_days 提前天数 from hint,house_histry ' +s;
     sql.Add(s);
     open;
      if dm2.query_fk.RecordCount = 0 then
     begin
       showmessage('没有合同号');
       exit;
     end;
     end;
end;
procedure TForm_fk.fkClick(Sender: TObject);
var
   s:string;
   i:integer;
begin
    i:=0;
    if (cb_contractno.Text='') or (edit_rentfee.Text='')
    then
    begin
        showmessage('合同编号、租金不能为空');
        exit;
    end;

    with pas_dm.DM.AQ1 do
    begin
      try
      begin
          Close;
          SQL.Clear;
          s:='select max(p_paytimes)  from pay where p_cno='''+cb_contractno.Text+'''';
          SQL.Add(s);
          open;
          if pas_dm.DM.AQ1.Fields[0].Value<>NULL then
          begin
          i:=pas_dm.DM.AQ1.Fields.Fields[0].AsInteger;
          end;
      end;
          except
          showmessage('失败');
      end;

    with pas_dm2.DM2.Query_fk do
    begin
      try
          begin
          Close;
          SQL.Clear;
          s:='insert into pay(p_cno,p_paytimes,p_paymoney,p_now,p_remarks,p_time) values('''+
                trim(cb_contractno.Text)+''','''+
                inttostr(i+1)+''','''+edit_rentfee.Text+''','''+
                FormatDateTime('yyyy-mm-dd hh:mm:ss',(now()))+''','''+edit_remarks.Text+''','''+datetostr(dtp_fktime.DateTime)+''')';
          SQL.Add(s);
          execsql;
//同时修改表hint的
         with pas_dm.DM.AQ1 do
         begin
             try
             begin
             Close;
             SQL.Clear;
              s:='update hint set hi_fkorno=1 where hi_cno='''+cb_contractno.Text+''' and '+
               ' hi_times='''+inttostr(i+1)+'''';
             SQL.Add(s);
             execsql;
             showmessage('付款成功');
             end;
             except
             showmessage('失败');
             end;
          end;
          end;
       except 
      end;

end;
end;
end;

procedure TForm_fk.CthClick(Sender: TObject);
var
  s:string;
begin
    with pas_dm2.DM2.Query_fk do
    begin
      try
      begin
          Close;
          SQL.Clear;
          s:='select p_cno 合同号,p_paytimes 付款次数,p_paymoney 付款数目,p_time 付款时间,p_remarks 备注 from pay where p_cno='''+
          cb_contractno.Text+'''';
          SQL.Add(s);
          open;
      end;
     except
     end;
   end;
end;

procedure TForm_fk.FormShow(Sender: TObject);
begin
  dtp_fktime.DateTime:=now();
end;

end.