fillvalue.pas

1. 纯粹的合同管理,不涉及其它业务,独立成系统2. 简单明了,流程清析3. 合同条款可预定制4. 丰富强大的打印预览系统5. 实用的导入导出功能,可与excel交互使用6. 时刻追踪合同执行情况,包

unit FillValue;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ModalForm, StdCtrls, ExtCtrls, Menus, MoveImageButton,
  LabelButton, ComCtrls, ToolWin;

type
  TFillValueForm = class(TMyModalForm)
    lbCarNo: TLabel;
    lbFillNum: TLabel;
    edtCarNo: TEdit;
    edtFillNum: TEdit;
    rgFillType: TRadioGroup;
    procedure edtCarNoKeyPress(Sender: TObject; var Key: Char);
    procedure MIBtnOKClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FillValueForm: TFillValueForm;

implementation

uses data;

{$R *.dfm}

procedure TFillValueForm.edtCarNoKeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
    if not(Key in ['0'..'9',#8,#13]) then
    begin
      Key:=#0;
      Beep;
    end;
end;

procedure TFillValueForm.MIBtnOKClick(Sender: TObject);
var
  CarNo:string;
  FillNum:integer;
  FillMoney:integer;
  msg:String;
begin
  inherited;
  CarNo:=Trim(edtCarNo.Text);
  if CarNo<>'' then
  begin
    if DM.FindMember(CarNo) then
    begin
      if rgFillType.ItemIndex =0 then
      begin
        //按金额充值
        FillMoney:=StrToInt(Trim(edtFillNum.Text));
        FillNum:=FillMoney*600 div DM.SysSetup.FCharge;
        msg:=Format('你将充入%d分钟机时,共计%f元！',[FillNum,FillMoney / 1.0]);
      end
      else begin
        FillNum:=StrToInt(Trim(edtFillNum.Text));
        FillMoney:=FillNum*DM.SysSetup.FCharge div 6;
        msg:=Format('你将充入%d分钟机时,共计%f元！',[FillNum,FillMoney / 100]);
      end;
      if MessageBox(handle,Pchar(msg),'充值确认',MB_OKCANCEL)=IDOK then
      begin
        if DM.FillValue(CarNo,FillNum) then
        begin
          Showmessage('充值成功');
          ModalResult:=mrOK;
        end
        else begin
          ShowMessage('充值失败');
          ModalResult:=mrCancel;
        end;
      end;
    end
    else
      ShowMessage('卡号不存在');
  end;
end;

procedure TFillValueForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  Action:=caFree;
end;

end.