financelocate.pas

来自「ProviceSystem-公积金监管系统中心端」· PAS 代码 · 共 54 行

unit FinanceLocate;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ComCtrls, ExtCtrls;

type
  TFrmFinanceLocate = class(TForm)
    Panel1: TPanel;
    DateTimePicker1: TDateTimePicker;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
  private
    { Private declarations }
  public
    { Public declarations }
    procedure ReadLocatequalification(var bDate,bNum,bDebit,bCredit: Boolean;
      var sDate,sNum: String; var dDebit,dCredit: Double);
  end;

var
  FrmFinanceLocate: TFrmFinanceLocate;

implementation

{$R *.dfm}
uses uUserFunc;
{ TFrmFinanceLocate }

procedure TFrmFinanceLocate.ReadLocatequalification(var bDate, bNum,
  bDebit, bCredit: Boolean; var sDate, sNum: String; var dDebit,
  dCredit: Double);
begin
  bDate := RadioButton1.Checked;
  bNum := RadioButton2.Checked;
  bDebit := RadioButton3.Checked;
  bCredit := RadioButton4.Checked;
  sDate := DTOS(DateTimePicker1.Date);
  sNum := trim(Edit1.Text);
  dDebit := StrtoFloat(iif(trim(Edit2.Text)='','0',trim(Edit2.Text)));
  dCredit := StrtoFloat(iif(trim(Edit3.Text)='','0',trim(Edit3.Text)));
end;

end.