raveReportar un problema

En Delphi, no existe ningún diseñador que permita a los usuarios abrir rave directamente, pero pueden diseñar proyectos rave por sí mismos, que pueden llamarse dinámicamente en el programa. Las siguientes son las partes utilizadas en mi software comercial "Construction Site Material Management System". , consulte Instrucciones:

Proceso TFormsdl47_1.

SpeedButton3Click(Remitente:TObject);

var

SL:TStrings;

FileExit:Boolean;

i:integer;

p>

strSQL:string;

begin

hjX：=0;hjY:=0;

//Crear un tabla temporal primero

p>

FileExit:=False;//Determinar si la tabla Temp41_1 existe

SL := TStringList.Create;

dm.Free; //liberar SL

si FileExit entonces //Si la tabla temp41_1 existe, elimínela primero, luego cree una nueva

con dm.ADOQuery_temp1 do

comenzar

si Activo entonces Activo:=False;

SQL.=strSQL+'sr doble,zc doble,jy doble,carácter khmc(20),carácter pzmc(20),';

strSQL :=strSQL+'pzh carácter(20),ytmc carácter(20 ))Agregar(strSQl);

ExecSQL;

fin;

// La tabla ha sido creada, los datos se insertarán en la tabla temporal a continuación

con dm.ADOTable_Temp.InsertRecord(

[RecNo , FieldByName('Fecha').AsDateTime,FieldByName ('Resumen').AsString,

FieldByName('Ingresos').FieldByName('Gastos').AsFloat,

FieldByName ('Saldo').AsFloat,FieldByName(' ClientName').AsString,

FieldByName('VoucherName').FieldByName('Número de vale de cliente').AsString,

FieldByName ('Nombre de uso').AsString]);

hjx:=hjx+FieldByName('Ingresos').AsFloat;

hjy:=hjy+ FieldByName('Gastos'). AsFloat;

siguiente;

fin;

fin;

Dm.ADOTable_Temp.InsertRecord(['','',' Subtotal',hjX,hjY,'','' ','','','','','','' ']);

con dm.ADOTable_Temp do

fin;

Dm.ADOTable_Temp.InsertRecord(ADOTable_Temp;

DataSet.Active := True;

fin;

dm.RvProject1.Close;

dm.RvProject1.ProjectFile := ExtractFilePath(application.ExeName)+'RePorts\rzc';

dm.RvProject1.Execute;

end;