火神中间件 查询数据示例代码

风神 2021-4-6 430


在登录界面,需要查询某个账号的记录,如何使用火神去查询一个数据集的代码示例如下:

procedure TfraModuleLogin.btnLoginClick(Sender: TObject);
var
  vUser: string;
  vPassword: string;
begin
  inherited;
  P_ErrInfo.Visible := False;
  vUser := trim(EdtUser.Text);
  vPassword := EdtPassWord.Text;
  if vUser.IsEmpty then
  begin
    ErrMsg := '用户名不能为空';
    EdtUser.SetFocus;
    exit;
  end;

  if vPassword.IsEmpty then
  begin
    ErrMsg := '登录密码不能为空';
    EdtPassWord.SetFocus;
    exit;
  end;

  //火神查询代码:
  Dm.QryUser.DataInfo.SQL.Text := 'select * from bUser where UserName=:UserName and Password=:Password';
  Dm.QryUser.DataInfo.Params[0].value := vUser;
  Dm.QryUser.DataInfo.Params[1].value := vPassword;
  if Dm.QryUser.OpenData then
  begin
    if not Dm.QryUser.IsEmpty then
    begin
      Dm.IsLogin := True;
      ShowMessage('登录成功');
    end
    else
      ErrMsg := '账号或者密码错误';
  end
  else
  begin
    ErrMsg := '请求服务器错误,错误代码10001';
  end;
end;


再举一个例子:

获取店铺信息


代码如下:

procedure TfraModuleSetup.GetData;
begin
  inherited;
  //火神查询代码 获取店铺信息:
  with QryShop do
  begin
    DataInfo.SQL.Text := 'select * from bShop where Bm=:Bm';
    DataInfo.Params[0].value := Dm.ShopBm;
    if OpenData then
    begin
      if not IsEmpty then
      begin
        LabBm.Caption := Dm.ShopBm;
        LabCreateDate.Caption := FieldByName('CreateDate').AsString;
        EdtShopMc.Text := FieldByName('MC').AsString;
        EdtShopBz.Text := FieldByName('Bz').AsString;
        EdtLianXiR.Text := FieldByName('LianXiR').AsString;
        EdtPhone.Text := FieldByName('Phone').AsString;
        EdtDianHua.Text := FieldByName('DianHua').AsString;
        EdtDiZhi.Text := FieldByName('DiZhi').AsString;
      end
      else
      begin
        btnShopSave.Enabled := False;
        ErrMsg := '店铺信息异常,请联系官方客服';
      end;

    end
    else
    begin
      ErrMsg := '请求服务器错误,错误代码10001';
    end;
  end;

end;




DelphiTop论坛申明 1、本网站名称:DelphiTop论坛  网址:www.DelphiTop.com
2、专注于互联网分享精神,专注收藏与分享。你薅网友,我就薅你。
3、本站资源,如发现链接失效,可联系QQ 16643506进行反馈,我们会第一时间更新。
最新回复 (0)
返回