Lazarus 插入 sql 结果 int 字符串网格

Posted 2023-02-24

【中文标题】Lazarus 插入 sql 结果 int 字符串网格

【英文标题】：Lazarus insert sql results int string grid

【发布时间】：2016-08-03 07:27:50

【问题描述】：

我在将 sql 结果插入 TStringGrid 时遇到问题。我有以下代码：

 var i:Integer;
 begin
   SqlQuery1.SQL.Text:= 'SELECT * FROM `users`'; 
   SqlQuery1.Open;
   mysql55Connection1.Open;
   i:= 0;
   while not SQLQUERY1.EOF do
   begin
     i:= i+1;
     StringGrid1.Cells[0,i]:= SqlQuery1.FieldByName('Username').AsString;
     StringGrid1.Cells[1,i]:= SqlQuery1.FieldByName('Password').AsString;
     StringGrid1.Cells[2,i]:= SqlQuery1.FieldByName('id').AsString;
   end;
 end;

所以在我的数据库中只有一行。但是程序在StringGrid中添加了很多此行的副本，它会导致错误（索引超出范围）。

【问题讨论】：

在循环顶部尝试 SQLQUERY1.next 获取下一条记录。如果没有下一条记录，则到达 EOF。

为什么不直接使用 TDBGrid？

【参考方案1】：

危险 您似乎正在将密码以纯文本形式存储在数据库中。 这是一个非常糟糕的想法。 切勿将密码存储在数据库中。 请改用加盐哈希。 见：How do I hash a string with Delphi?

您的代码中还有一些其他问题：

您不能确保 stringgrid 有足够的行来保存您的数据。 您没有移动到查询中的下一行。 您在打开连接之前打开查询。 您在循环中使用FieldByName，这会很慢。

简单的解决方案 使用 DBGrid。

如果你坚持使用 StringGrid 我建议像这样重构代码：

 var 
   i,a:Integer;
   FUsername, FPasswordHash, Fid, FSalt: TField;
 begin
   if not(MySQl55Connection.Active) then MySql55Connection1.Open;
   SqlQuery1.SQL.Text:= 'SELECT * FROM users';  //only use backticks on reserved words.
   SqlQuery1.Open;
   FUsername:= SqlQuery1.FieldByName('Username');
   //do not use plain text passwords!!
   FPasswordHash:= SQLQuery1.FieldByName('SaltedPasswordHashUsingSHA256');
   FId:= SqlQuery1.FieldByName('id');
   FSalt:= SQLQuery1.FieldByName('SaltUsingCryptoRandomFunction');
   a:= StringGrid1.FixedRowCount;
   if SQLQuery1.RecordCount = -1 then StringGrid1.RowCount = 100 //set it to something reasonable.  
   else StringGrid1.RowCount:= a + SQLQuery1.RecordCount;
   //SQLQuery1.DisableControls 
   try
     i:= StringGrid1.FixedRowCount;
     while not(SQLQuery1.EOF) do begin
       if i >= StringGrid1.RowCount then StringGrid1.RowCount:= i;
       StringGrid1.Cells[0,i]:= FUserName.AsString;
       StringGrid1.Cells[1,i]:= FPasswordHash.AsString;
       StringGrid1,Cells[3,i]:= FSaltInHex.AsString;
       StringGrid1.Cells[2,i]:= FId.AsString;
       SQLQuery1.Next;  //get next row.
       Inc(i);
     end; while
   finally
     //just in case you want to do endupdate or close the SQLQuery or do SQLQuery1.EnableControls 
   end;
 end;

基本安全示例 以下是哈希密码的方法：

Download Lockbox3. 在表单上放置一个 THash 并将 hash 属性设置为 SHA-512。 使用以下代码生成哈希结果。

function StringToHex(const input: string): AnsiString;
var
  NumBytes, i: Integer;
  B: Byte;
  W: word;
  Wa: array[0..1] of byte absolute W;
begin
  NumBytes := input.length * SizeOf(Char);
  SetLength(Result, NumBytes * 2);
  for i := 1 to NumBytes do begin
    if SizeOf(Char) = 1 then begin
      B:= Byte(input[i]);
      BinToHex(@B, @Result[(I*2)+1], 1);
    end else begin
      W:= Word(input[i]);
      BinToHex(@Wa[0], @Result[(i*4+0)],1);
      BinToHex(@Wa[1], @Result[(i*4+1)],1);
    end; else  
  end;
end;

function TForm1.HashPassword(var Password: string; const Salt: string): string;
var
  KillPassword: pbyte;
begin
  Hash1.HashString(StringToHex(Password)+StringToHex(Salt));
  KillPassword:= PByte(@Password[1]);
  FillChar(KillPassword^, Length(Password)*SizeOf(Char), #0); //remove password from memory.  
  Password:= ''; //Now free password.
end;

function GenerateSalt( ByteCount: integer = 32): string;
var
  Buffer: TMemoryStream;
begin
  Buffer := TMemoryStream.Create;
  try
    Buffer.Size := ByteCount;
    RandomFillStream( Buffer);
    result := Stream_to_Base64( Buffer);
  finally
    Buffer.Free
  end;
end;

这是您在确保安全的情况下可以摆脱的最少工作量。 不要认为您的密码不重要，因为您只有一个玩具数据库，因为人们重复使用密码，因此您的玩具密码最终与网上银行等使用的密码相同。 人很懒……

【讨论】：

你的速度更快！那么有两件事要补充：1：RecordCount 可能只返回-1用于 SQL 查询。然后你必须通过一个额外的循环来计算它。 2：您应该通过在try-finally块中调用StringGrid.Rows.BeginUpdate和freepascal.org/docs-html/fcl/db/tdataset.disablecontrols.html来减少屏幕闪烁速度

@Arioch'的，recordcount = -1时for循环不会执行。

@Johan 但它应该执行，因为无论实际有多少行，SQL 查询返回 -1 是正常的。 RecordCount 仅在处理本地 ISAM 数据库（如 DBF 和 Paradox）时才需要，在处理远程 SQL 时从不需要。 PS几个月前我们不是已经讨论过了吗？

你应该使用 SELECT COUNT(*) 因为你不能信任 SQLQuery1.RecordCount

@moskito-x 不，那也是错误的。在他调用 COUNT 之后，在他用另一个 SELECT 填充网格之前，其他人可以向表中添加更多行。您应该调用 dataset.last 然后不关闭它迭代回 dataset.BOF 计数行，然后不关闭它设置网格行数并填充它向前迭代直到 EOF。这一切都是通过抑制屏幕闪烁来完成的