火神三层中间件 单表提交代码示例

风神 2021-5-10 293

向数据库提交数据需要在控件属性里填写 表名 以及 主键,如图所示:




procedure TfraModuleEditDanWei.btnSaveClick(Sender: TObject);
const
  DanWeiSql: string = 'select  * from bDanWei where 1=2';
begin
  inherited;
  with QryDanWei do
  begin
    DataInfo.SQL.Text := DanWeiSql;
    if OpenData then
    begin
      Append;
      FieldByName('Id').AsString := dm.FireConnection1.GetGUID;
      FieldByName('MC').AsString := edtMC.Text;
      FieldByName('JianCheng').AsString := edtJianCheng.Text;
      FieldByName('LianXiR').AsString := edtLianXiR.Text;
      FieldByName('Tel').AsString := edtTel.Text;
      FieldByName('EMail').AsString := edtEMail.Text;
      FieldByName('DianHua').AsString := edtDianHua.Text;
      FieldByName('DiZhi').AsString :=edtDiZhi.Text;
      FieldByName('XiangXiDiZhi').AsString := edtXiangXiDiZhi.Text;
      FieldByName('ShopID').AsString := dm.ShopID;
      Post;
      if SaveData then //火神三层提交数据的方法
      begin
        dm.ShowTip('添加成功');
        FrmMain.CallModule('KuCun', '库存', 3, False);
      end

      else
        showmessage('提交服务器失败');
    end;

  end;
end;



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