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

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

图片[1]-火神三层中间件 单表提交代码示例-Delphi编程技巧大全

 

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;

 

THE END
文章版权归作者所有,未经允许请勿转载。
点赞14赞赏
评论 抢沙发
头像
欢迎您留下宝贵的见解!
提交
头像

昵称

取消
昵称表情代码图片