var
a:array[1..15,1..1000] of string;
error:string;
i,j:integer;
count:integer;
sr:string;
id, id_who, id_out:integer;
sr:='';
For i:=3 to Count+2 do
begin
if sr=a[i,5] then
begin
try
//id:=StrToInt(Form1.DBText1.Caption)+1;
id_who:=StrToInt(DBText2.Caption)+1;
id_out:=StrToInt(DBText3.Caption)+1;
Form1.UniQuery1.SQL.Clear;
Form1.UniQuery1.SQL.Add('Insert into who_mess values ('''+IntToStr(id_who)+''', '''+IntToStr(id)+''', '''+a[i,8]+''','''+a[i,9]+''');');
Form1.UniQuery1.SQL.Add('Insert into out_mess (id, id_input, id_who, reg_num, reg_date) values ('''+IntToStr(id_out)+''', '''+IntToStr(id)+''', '''+IntToStr(id_who)+''', '''+a[i,10]+''', '''+a[i,11]+''');');
Form1.UniQuery1.Active:=True;
Sleep(200);
except
end;
end
else
//if sr<>a[i,5] then
begin
try
id:=StrToInt(DBText1.Caption)+1;
id_who:=StrToInt(DBText2.Caption)+1;
id_out:=StrToInt(DBText3.Caption)+1;
sr:=a[i,5];
Edit3.Text:=Sr;
Form1.UniQuery1.SQL.Clear;
Form1.UniQuery1.SQL.Add('Insert into input_mess (id, name, input, date_in, output, date_out, who) values ('''+IntToStr(id)+''', '''+a[i,1]+''', '''+a[i,2]+''', '''+a[i,3]+''', '''+a[i,5]+''', '''+a[i,4]+''', '''+a[i,6]+''');');
Form1.UniQuery1.SQL.Add('Insert into who_mess values ('''+IntToStr(id_who)+''', '''+IntToStr(id)+''', '''+a[i,8]+''','''+a[i,9]+''');');
Form1.UniQuery1.SQL.Add('Insert into out_mess (id, id_input, id_who, reg_num, reg_date) values ('''+IntToStr(id_out)+''', '''+IntToStr(id)+''', '''+IntToStr(id_who)+''', '''+a[i,10]+''', '''+a[i,11]+''');');
Form1.UniQuery1.Active:=True;
Sleep(200);
except
end;
end;
end; |
