delphi insert update record´s
- by ml
Hi friends what is that im doing wrong because it goes and goes on LOOP
var
ii: Integer;
i: Integer;
j: Integer;
ie : integer;
je : integer;
fileSource, fileDest: string;
Fo : TSHFileOpStruct;
buffer : array[0..4096] of char;
p : pchar;
dirFile: String;
dirFile1: String;
dirFile11: String;
begin
dirFile1 := (Dirlocal + 'Vibrometria\'+ClienteN.text+'\');
dirFile := (localAplicação+ 'Vibrometria\'+ClienteN.text+'\'+NInterv.text ) ;
dirFile11:= Dirlocal+'Vibrometria\';
if ForceDirectories(dirFile11) then
if ForceDirectories(dirFile1) then
//......................................................................
begin
ShowMessage('Vai devolver "'+cxDBTextEdit5.Text+'..........' +obra.Text);
Sub_TRelFinal.First;
Begin
ADOTable_casa.First;
Begin
begin
Sub_TRelFinal.Edit;
//Tabela1Codoco.Value := Tabela2Codoco.Value;
Sub_TRelFinal.FieldByName('Foto1').text := ADOTable_casa.FieldByName('Foto1').text;
Sub_TRelFinal.FieldByName('Obra').text := ADOTable_casa.FieldByName('Obra').text;
Sub_TRelFinal.FieldByName('OBS1').text := ADOTable_casa.FieldByName('OBS1').text;
Sub_TRelFinal.FieldByName('Data_VisitaLocal').text := ADOTable_casa.FieldByName('Data_VisitaLocal').text;
Sub_TRelFinal.FieldByName('ContractoN').text := ADOTable_casa .FieldByName('ContractoN').text;;
Sub_TRelFinal.FieldByName('Cliente').text := ADOTable_casa .FieldByName('Cliente').text;
Sub_TRelFinal.FieldByName('Morada').text := ADOTable_casa .FieldByName('Morada').text;
Sub_TRelFinal.FieldByName('localizacao').text:= ADOTable_casa .FieldByName('localizacao').text;
Sub_TRelFinal.FieldByName('Intruducao').text:= ADOTable_casa .FieldByName('Intruducao').text;
Sub_TRelFinal.FieldByName('Analise').text := ADOTable_casa.FieldByName('Analise').text;
Sub_TRelFinal.Post;
end;
End;
end; //iniciar inserção registos sub
Sub_TRelFinal_1.First;
For j := 1 to Sub_TRelFinal_1.RecordCount do
Begin
ADOTable_casa_sub_1.First;
For i := 1 To ADOTable_casa_sub_1.RecordCount Do
Begin
begin
Sub_TRelFinal_1.Edit;
//Tabela1Codoco.Value := Tabela2Codoco.Value;
Sub_TRelFinal_1.FieldByName('Foto1').text := ADOTable_casa_sub_1.FieldByName('Foto1').text;
Sub_TRelFinal_1.FieldByName('Obra').text := ADOTable_casa_sub_1.FieldByName('Obra').text;
Sub_TRelFinal_1.FieldByName('OBS1').text := ADOTable_casa_sub_1.FieldByName('OBS1').text;
Sub_TRelFinal_1.FieldByName('Data_VisitaLocal').text := ADOTable_casa_sub_1.FieldByName('Data_VisitaLocal').text;
Sub_TRelFinal_1.FieldByName('ContractoN').text := ADOTable_casa_sub_1.FieldByName('ContractoN').text;
Sub_TRelFinal_1.FieldByName('Cliente').text := ADOTable_casa_sub_1.FieldByName('Cliente').text;
Sub_TRelFinal_1.FieldByName('Morada').text := ADOTable_casa_sub_1.FieldByName('Morada').text;
Sub_TRelFinal_1.FieldByName('localizacao_eq').text:= ADOTable_casa_sub_1.FieldByName('localizacao_eq').text;
Sub_TRelFinal_1.FieldByName('Equipamento').text:= ADOTable_casa_sub_1.FieldByName('Equipamento').text;
Sub_TRelFinal_1.FieldByName('tipo_equip').text := ADOTable_casa_sub_1.FieldByName('tipo_equip').text;
Sub_TRelFinal_1.Post;
end;
//iniciar inserção registos subsub
SubTRelFinal_sub.First;
For ie := 1 to SubTRelFinal_sub.RecordCount do
Begin
ADOTable_casa_sub_Sub.First;
For je := 1 To ADOTable_casa_sub_Sub.RecordCount Do
begin
SubTRelFinal_sub.Edit;
//Tabela1Codoco.Value := Tabela2Codoco.Value;
SubTRelFinal_sub.FieldByName('Foto1').text := ADOTable_casa_sub_Sub.FieldByName('Foto1').text;
SubTRelFinal_sub.FieldByName('Foto2').text := ADOTable_casa_sub_Sub.FieldByName('Foto2').text;
SubTRelFinal_sub.FieldByName('Analisefoto1').text := ADOTable_casa_sub_Sub.FieldByName('Analisefoto1').text;
SubTRelFinal_sub.FieldByName('Observações').text := ADOTable_casa_sub_Sub.FieldByName('Observações').text;;
SubTRelFinal_sub.FieldByName('ContractoN').text := ADOTable_casa_sub_Sub.FieldByName('ContractoN').text;
SubTRelFinal_sub.FieldByName('OBS3').text := ADOTable_casa_sub_Sub.FieldByName('OBS3').text;
SubTRelFinal_sub.FieldByName('OBS4').text := ADOTable_casa_sub_Sub.FieldByName('OBS4').text;
SubTRelFinal_sub.FieldByName('OBS2').text := ADOTable_casa_sub_Sub.FieldByName('OBS2').text;
SubTRelFinal_sub.FieldByName('OBS1').text := ADOTable_casa_sub_Sub.FieldByName('OBS1').text;
SubTRelFinal_sub.FieldByName('Localização').text := ADOTable_casa_sub_Sub.FieldByName('Localização').text;
SubTRelFinal_sub.FieldByName('Tipo_equipamento').text:= ADOTable_casa_sub_Sub.FieldByName('Tipo_equipamento').text;
SubTRelFinal_sub.FieldByName('Analisefoto101').text:= ADOTable_casa_sub_Sub.FieldByName('Analisefoto101').text;
SubTRelFinal_sub.FieldByName('Analisefoto201').text := ADOTable_casa_sub_Sub.FieldByName('Analisefoto201').text;
SubTRelFinal_sub.FieldByName('GrauAnomalia').text := ADOTable_casa_sub_Sub.FieldByName('GrauAnomalia').text;
SubTRelFinal_sub.Post;
end;
ADOTable_casa_sub_Sub.Next;
End;
SubTRelFinal_sub.Next;
End;
ADOTable_casa_sub_1.Next;
End;
Sub_TRelFinal_1 .Next;