c_qk.pas

《delphi数据库设计与实例开发》随书光盘

unit c_qk;

interface

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

type
  Tcfrm_qk = class(TForm)
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    GroupBox2: TGroupBox;
    e_yjid: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    e_yj: TEdit;
    BitBtn3: TBitBtn;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DataSource1: TDataSource;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure e_yjidChange(Sender: TObject);
    procedure e_yjidExit(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure e_yjidKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cfrm_qk: Tcfrm_qk;

implementation

uses datam, CommonRoutines;

{$R *.dfm}

procedure Tcfrm_qk.BitBtn2Click(Sender: TObject);
begin
close;
end;

procedure Tcfrm_qk.BitBtn1Click(Sender: TObject);
begin
if dm.ADO_qk.IsEmpty then exit;
  dm.ADO_cash.Open;
  dm.ADO_cash.AppendRecord([dm.ado_qk.fieldbyname('证号').asstring,date()
       ,'收租金',dm.ado_qk.fieldbyname('金额').asstring]);//交易金额入cash表
  dm.ADO_cash.Close;
  dm.ADO_qk.Delete; //删除欠款记录
  application.MessageBox(pchar('收回欠款成功！'),pchar('提示'),64);
end;

procedure Tcfrm_qk.e_yjidChange(Sender: TObject);
begin
e_yj.Text:='';
end;

procedure Tcfrm_qk.e_yjidExit(Sender: TObject);
begin
 if e_yjid.Text='' then exit
 else
 begin
 dm.ADO_czdt.Open;
  dm.ADO_czdt.First;
 if not dm.ADO_czdt.Locate('证号',e_yjid.Text,[]) then  //查询此押金单号有无对应的押金记录
  begin
   application.MessageBox(pchar('押金单号错误或此零租户无未退押金！'),pchar('提示'),48);
   e_yjid.SetFocus();
   exit;
  end
 else
  begin
   dm.ADO_czb.Open;
   dm.ADO_czb.First;
   if dm.ADO_czb.Locate('证号',e_yjid.Text,[]) then //查询此用户是否还有租借记录
     begin
      application.MessageBox(pchar('此零租户有未还资料,不能退还其押金！'),pchar('提示'),48);
      e_yjid.SetFocus;
      exit;
     end;
   dm.ADO_czb.Close;
   e_yj.Text:=formatfloat('0.00',dm.ADO_czdt.fieldbyname('押金').AsFloat);
  end;
 end;
end;

procedure Tcfrm_qk.BitBtn3Click(Sender: TObject);
begin
e_yj.SetFocus();
  if (e_yjid.text='') or (e_yj.Text='') then exit;
  if (e_yj.Text<>'') or (e_yj.Text<>'0.00') then
   begin
   dm.ADO_cash.Open;
   dm.ADO_cash.AppendRecord([e_yjid.text,date(),'退零租押金','0.00',e_yj.text]); //交易金额入cash表
   dm.ADO_cash.Close;
   dm.ADO_czdt.Delete;
   dm.ADO_czdt.Close;
   application.MessageBox(pchar('零租户押金退还完成！'),pchar('提示'),64);
   e_yjid.Text:='';
   e_yj.Text:='';
   e_yjid.SetFocus();
   end;
end;

procedure Tcfrm_qk.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   dm.ADO_qk.Close;
   dm.ADO_cash.Close;
   dm.ADO_czdt.Close;
   dm.ADO_czb.Close;
   release;
end;

procedure Tcfrm_qk.FormCreate(Sender: TObject);
begin
  if dm.ADO_qk.Active=false then
  dm.ADO_qk.Active:=true;
end;

procedure Tcfrm_qk.e_yjidKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
EnterToTab(Self, Key, Shift);
end;

end.