PascalScript vs BasicScript VB6

[Joni Ecker]

Ola,

este codigo dentro do programa que uso esta em (PascalScript)

preciso mudar ele para (BasicScript) pois entendo um poudo de VB6 e tenho apostilas, e quero montar os relatorios do meu jeito...

este é o codigo que preciso transformar para BasicScript

ele apenas acessa o BD e tira a lista de fornecedores colocando na cxMenuSuspenso para escolha, ao escolher o fornecedor e clicando em (OK) Button1 ele abre o relatorio já com os produtos do fornecedor escolhido....

----------- inicio ------------------------------

procedure Page2OnBeforePrint(Sender: TfrxComponent);

begin

with Page2, Engine do

begin

FORNECED.Open;

FORNECED.Last;

end

end;

procedure Button1OnBeforePrint(Sender: TfrxComponent);

begin

with Button1, Engine do

begin

ESTOQUE.Close;

ESTOQUE.SQL.Clear;

ESTOQUE.SQL.Add('SELECT * FROM ES010');

ESTOQUE.SQL.Add('WHERE CAST(FABRICANTE AS INTEGER) = '+FORMATFLOAT('000000',<FORNECED."ID">)+'');

ESTOQUE.Open;

end

end;

procedure DBLookupComboBox1OnClick(Sender: TfrxComponent);

begin

end;

procedure Button2OnClick(Sender: TfrxComponent);

begin

end;

begin

end.

--------------------------- fim -------------------- Valeu, aguardo uma ajuda . . .