判断字符串是否由数字组成 自动生成6位的密码 数据库操作，定位记录返回其值，或者返回默认值

1、判断字符串是否由数字组成 

{*------------------------------------------------------------------------------
  判断字符串是不是数字

  @param Vaule 要检测的字符串
  @return  真：全部是数字；假；存在其他字符
-------------------------------------------------------------------------------}
function TAutoReadSms.IsNumberic(Vaule: String): Boolean;   //判断Vaule是不是数字
var
  i: integer;
begin
  Result := True;   //设置返回值为 是（真）
  Vaule := Trim(Vaule);  //去空格
  for i := 1 to length(Vaule) do  //准备循环
  begin
    if not CharInSet(Vaule[i], ['0'..'9']) then  //如果Vaule的第i个字不是0-9中的任一个
    begin
      Result := False;  //返回值 不是（假）
      exit;  //退出函数
    end;
  end;
end;

2、自动生成6位的密码

{*------------------------------------------------------------------------------
   生成6位的随机密码

-------------------------------------------------------------------------------}
function TAutoReadSms.GetPassword: string;
var
  i: Integer;
  SourceStr, ResultStr: string;
begin
  ResultStr := '';
  SourceStr := 'ABCDEFGHIJKLMNOPQRSTUVWXYZ';
  SourceStr := SourceStr + 'abcdefghijklmnopqrstuvwxyz';
  SourceStr := SourceStr + '0123456789';
  Randomize;
  for i := 1 to 6 do
    ResultStr := ResultStr + SourceStr[Random(Length(SourceStr)-1)+1];

  Result := ResultStr;
end;

3、数据库操作，定位记录返回其值，或者返回默认值

{*------------------------------------------------------------------------------
  定位字段并返回其值，如果没有，就返回默认值

  @param ParameterName 字段名称
  @param DefaultValue  默认值
  @param ParameterValue  返回值
-------------------------------------------------------------------------------}
procedure TAutoReadSms.GetParameterValue(ParameterName, DefaultValue: String;
  var ParameterValue: String);
begin
  if qry_my.Locate('ParameterName',ParameterName,[]) then
    ParameterValue := qry_my.FieldByName('ParameterValue').AsString
  else
    ParameterValue := DefaultValue;
end;