xinyong.pas

本系统为演示Delphi的功能而开发设计

unit Xinyong;

interface

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

type
  TXinyongForm = class(TForm)
    ButtonStop: TButton;
    ButtonNext: TButton;
    DBGridLease: TDBGrid;
    Label1: TLabel;
    Label8: TLabel;
    LabelTuoQian: TLabel;
    LabelWeiHuan: TLabel;
    procedure ButtonNextClick(Sender: TObject);
    procedure ButtonStopClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  XinyongForm: TXinyongForm;
  tuoqian,weihuan,zong:integer;

implementation

uses HuaXia, Shenfen, Zulin;

{$R *.DFM}

procedure TXinyongForm.ButtonNextClick(Sender: TObject);
begin
XinYongForm.Visible:=False;
ZulinForm.ShowModal;
end;

procedure TXinyongForm.ButtonStopClick(Sender: TObject);
begin
XinyongForm.close;
end;

procedure TXinyongForm.FormActivate(Sender: TObject);
begin
XinyongForm.Caption:='客户信用查询(姓名:'+ShenfenForm.EditName.text+')';
With HuaXiaData.QueryXinyong Do
     Begin
     Close;
     Unprepare;
     With Sql Do
     Begin
     Clear;
     Add('Select * From Lease_car_info Where');
     Add('(real_return_date<return_date or bad_record_tag=:tag) And ');
     Add('id_number=:Id_code');
     End;
     RequestLive:=False;
     ParamByName('tag').AsString:='-1';
     ParamByName('Id_code').AsString:=ShenfenForm.EditIdCode.text;
     prepare;
     Open;
     End;
zong:=HuaXiaData.QueryXinyong.RecordCount;
HuaXiaData.QueryXinyong.Filtered:=False;
HuaXiaData.QueryXinyong.Filter:='bad_record_tag='+'-1';
HuaXiaData.QueryXinyong.Filtered:=True;
weihuan:=HuaXiaData.QueryXinyong.RecordCount;
tuoqian:=zong-weihuan;
LabelTuoQian.caption:=FloatToStr(tuoqian);
Labelweihuan.caption:=FloatToStr(weihuan);
HuaXiaData.QueryXinyong.Filtered:=False;
end;

procedure TXinyongForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
If key=#13 then { 判断是按执行键}
 Begin { 不是在TDbgrid控件内}
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);{移动到下一个控件}
  End;

end;

end.