ufrmsetoiledit.pas

a voice guide client ,it is the second part of voice guide center

unit uFrmSetOilEdit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxLookAndFeelPainters, StdCtrls, cxButtons, ExtCtrls,
  dxDockPanel, dxDockControl;

type
  TFrmSetOilEdit = class(TForm)
    dxDockSite1: TdxDockSite;
    dxLayoutDockSite1: TdxLayoutDockSite;
    dxDockPanel2: TdxDockPanel;
    txtOilPrice: TLabeledEdit;
    txtOilCost: TLabeledEdit;
    btnOK: TcxButton;
    btnCancel: TcxButton;
    Label1: TLabel;
    cboOilType: TComboBox;
    procedure txtOilPriceKeyPress(Sender: TObject; var Key: Char);
    procedure txtOilCostKeyPress(Sender: TObject; var Key: Char);
    procedure btnOKClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    function OilTypeExists(const AStr:String):Boolean;
  end;

var
  FrmSetOilEdit: TFrmSetOilEdit;

implementation

{$R *.dfm}

procedure TFrmSetOilEdit.txtOilPriceKeyPress(Sender: TObject;
  var Key: Char);
begin
  if not (Key in ['0'..'9']) then
  begin
    if Key <> '.' then
    begin
      MessageDlg('输入非法,只能输入数字及小数点.', mtWarning, [mbOK], 0);
      txtOilPrice.Text := '0';
      Exit;
    end;
  end;
end;

procedure TFrmSetOilEdit.txtOilCostKeyPress(Sender: TObject;
  var Key: Char);
begin
  if not (Key in ['0'..'9']) then
  begin
    if Key <> '.' then
    begin
      MessageDlg('输入非法,只能输入数字及小数点.', mtWarning, [mbOK], 0);
      txtOilCost.Text := '0';
      Exit;
    end;
  end;
end;

function TFrmSetOilEdit.OilTypeExists(const AStr: String): Boolean;
var
  i:Integer;
begin
  Result := False;
  for i := 0  to cboOilType.Items.Count -1  do
  begin
    if (AStr = cboOilType.Items.Strings[i]) then
    begin
      Result := True;
      Exit;
    end;
  end;
end;

procedure TFrmSetOilEdit.btnOKClick(Sender: TObject);
begin
  Tag := -1 ;
  if OilTypeExists(cboOilType.Text) then
  begin
    MessageDlg('输入的油品类型已经存在.请重新输入.', mtWarning, [mbOK], 0);
    Exit;
  end;
  Tag := 0;
end;

end.