public
    procedure qrySearch(cLiuShui: string = '-1');
    { Public declarations }
  end;

var
  FRuKuDan: TFRuKuDan;

implementation

uses
  UFMain, UPubFunction, UFRuKuDanliulan;

{$R *.dfm}

/// <summary>
/// 打开qry
/// </summary>
/// <param name="cLiuShui">流水号</param>
procedure TFRuKuDan.qrySearch(cLiuShui: string);
var
  s: string;
begin

  s := 'select * from 入库信息 where 入库流水号 = ' + quotedstr(cLiuShui);
  doquery(qry, s);//这个地方封装了那四句话

end;

procedure TFRuKuDan.FormCreate(Sender: TObject);
begin
  inherited;

  qrySearch;

end;