Delphi X10.2 + FireDAC 使用 SQL 语句 INSERT

Posted 2020-10-06 思想。生活。网络

// CREATE TABLE [tabusers](
// [id] INTEGER PRIMARY KEY AUTOINCREMENT,
// [username] CHAR NOT NULL,
// [userpwd] CHAR NOT NULL,
// [usernickname] CHAR,
// [useroffice] CHAR,
// [userprofiles] BLOB,
// [regdatetime] DATETIME,
// [userpermission] CHAR,
// [useronline] BOOLEAN,
// [usertablename] CHAR);

MainForm.Conn.StartTransaction;
UserManagerQuery.SQL.Clear;
UserManagerQuery.SQL.Text := ‘INSERT INTO tabusers(‘ + //
          ‘username, userpwd, usernickname, useroffice, userprofiles, regdatetime, userpermission, useronline, usertablename)‘
          + //
          ‘ VALUES (:username, :userpwd, :usernickname, :useroffice, :userprofiles, :regdatetime, :userpermission, :useronline, :usertablename)‘;

        UserManagerQuery.Params[0].AsString := edtUserName.Text;
        if Using_Default_Pwd then
          UserManagerQuery.Params[1].AsString := Default_Password
        else
          UserManagerQuery.Params[1].AsString :=
            MD5Print(MD5StringA(AnsiString(edtUserPwd.Text)));
        UserManagerQuery.Params[2].AsString := edtUserNickName.Text;
        UserManagerQuery.Params[3].AsString := edtUserOffice.Text;

        MS := TMemoryStream.Create;
        ImgUserProfiles.Picture.SaveToStream(MS);
        MS.Position := 0;
        UserManagerQuery.Params[4].LoadFromStream(MS, ftBlob);
        MS.Free;

        UserManagerQuery.Params[5].AsDateTime := Now;
        UserManagerQuery.Params[6].AsString   := edtUserPermission.Text;
        UserManagerQuery.Params[7].AsBoolean  := False;

        User_Count    := UserListBox.Items.Count;
        New_user_Name := ‘tab_user‘ + Format(‘%.3d‘, [User_Count]);;
        UserManagerQuery.Params[8].AsString := New_user_Name;

        UserManagerQuery.ExecSQL;
        MainForm.Conn.Commit;

        UserListBox.Items.Add(edtUserName.Text);

        try
          // CREATE TABLE "tab_user001"(
          // [ID] INTEGER PRIMARY KEY AUTOINCREMENT,
          // [aDate] DATE NOT NULL,
          // [aComments] CHAR,
          // [aProgress] CHAR,
          // [aNote01] CHAR,
          // [aNote02] CHAR);

          UserManagerQuery.SQL.Clear;
          strSQL := ‘CREATE TABLE ‘ + New_user_Name + ‘ (‘ +
            ‘[ID] INTEGER PRIMARY KEY AUTOINCREMENT,‘ + ‘[aDate] DATE NOT NULL,‘
            + ‘[aComments] CHAR,‘ + ‘[aProgress] CHAR,‘ + ‘[aNote01] CHAR,‘ +
            ‘[aNote02] CHAR)‘;
          UserManagerQuery.Command.Prepare(strSQL);//注意这里不能用 ExecSQL / Open() / OpenOrExecute 这类东东
          UserManagerQuery.Execute();

        except
          on E: Exception do
          begin
            ShowMessage(E.Message);
          end;
        end;