threaderrordbselect.pas

来自「sql inject HDSI3--delphi.rar」· PAS 代码 · 共 39 行

unit ThreadErrorDBSelect;

interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,ComCtrls;

type
  TThreadErrorDBSelect = class(TThread)
  FURL:string;
  iTop:integer;
  complete:boolean;
  private
  private

  published
  procedure Execute; override;
  public
  end;
implementation
uses
main_unit,CJdatabase_unit,define_unit,ThreadHttpGet,db_select;
//******************************************************************************

procedure TThreadErrorDBSelect.Execute;
var
  DBName:string;
   label start ;
begin
    sleep(1000);
    start:
    complete:=false;
    DBName:=cjdatabase_unit.GetDatabaseName(FURL,iTop);
    if  (DBName='δ֪')  then
    goto start;
    Form_db_select.suiListBox_dbnames.Items.Add.Caption:=DBName;
    complete:=true;
end;
end.