Delphi 数据库获取所有用户名

本文整理自网络，侵删。

 
function Tform1.GetAllUser: TStringList;
begin
  Result := TStringList.Create;
  Result.Clear;
  with TADOQuery.Create(nil) do
    try
      Connection := FdbJbda;    
      Close;
      SQL.Clear;
      SQL.Add('select name from data');
      Open;
      while not Eof do
      begin
        Result.Add(Format('%s', [Fields[0].AsString]));
        Next;
      end;
      Close;  

    finally
      Free;
    end;
end;
 

相关阅读 >>

Delphi 关于禁止程序重复启动的另一种需要与实现

Delphi 向windows窗口发送alt组合键的问题

Delphi 实现数据库读取图片文件

Delphi 操作前，删除前，覆盖前，询问对话框

Delphi 测试 tstreamwriter、tstreamreader

Delphi 最全_日期格式_dateutils时间单元说明

Delphi 简单的封装messagebox对话框

Delphi实现屏幕截图、窗口截图、指定区域截图

Delphi 如何读取内存中的数据?

Delphi 10.2 创建并使用资源文件

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 数据库获取所有用户名