zoukankan      html  css  js  c++  java
  • Delphi X10.2 + FireDAC 使用 SQL 语句 UPDATE

    MainForm.Conn.StartTransaction;
    UserManagerQuery.SQL.Clear;
    UserManagerQuery.SQL.Text := 'UPDATE tabusers SET ' + //
              'username=:username, userpwd=:userpwd, usernickname=:usernickname, ' +
              'useroffice=:useroffice, userprofiles=:userprofiles, ' +
              'userpermission=:userpermission, useronline=:useronline ' + 'WHERE ID='
              + edtID.Text;
    
              UserManagerQuery.Params[0].AsString := edtUserName.Text;// name
    
            if Using_Default_Pwd then
              UserManagerQuery.Params[1].AsString := Default_Password
            else
              UserManagerQuery.Params[1].AsString :=
                MD5Print(MD5StringA(AnsiString(edtUserPwd.Text))); // password
    
            UserManagerQuery.Params[2].AsString := edtUserNickName.Text; // nickname
            UserManagerQuery.Params[3].AsString := edtUserOffice.Text; // office
    
            MS := TMemoryStream.Create;
            ImgUserProfiles.Picture.SaveToStream(MS);
            MS.Position := 0;
            UserManagerQuery.Params[4].LoadFromStream(MS, ftBlob); // profile
            MS.Free;
    
            UserManagerQuery.Params[5].AsString   := edtUserPermission.Text; //permission
            UserManagerQuery.Params[6].AsBoolean  := False; //online
    
            UserManagerQuery.ExecSQL;
            MainForm.Conn.Commit;
    

      真TMD的爽,快抛弃 EDIT/POST 这么落后的玩意吧。

  • 相关阅读:
    微信jssdk
    php读取大文件
    PHP工程师突破
    TCP/IP
    基于scrapy-redis的分布式爬虫
    pymongodb的使用和一个腾讯招聘爬取的案例
    中间件使用之(UA,IP,selenium)的使用
    windos下redis服务的后台启动
    mongodb的初步使用
    windos下安装mongodb
  • 原文地址:https://www.cnblogs.com/sail2000/p/7517499.html
Copyright © 2011-2022 走看看